[devel-79: make HTML changelogs
ganesh**Mon Sep 29 11:02:00 GMT 2003] {
hunk ./MERGING 132
+devel-79: make HTML changelogs
hunk ./Makefile 44
+
+ dist/makechangelogs.pl html < CHANGELOG.tmp > dists/photopub-$(VERSION)-changelog.html
+ chmod 644 dists/photopub-$(VERSION)-changelog.html
+
hunk ./Makefile 50
+
hunk ./Makefile 85
- cd dists && scp photopub-$(VERSION).tar.gz photopub_$(VERSION)_all.deb photopub-$(VERSION)-1.noarch.rpm $(UPLOADROOT)
+ cd dists && scp photopub-$(VERSION).tar.gz photopub_$(VERSION)_all.deb photopub-$(VERSION)-1.noarch.rpm photopub-$(VERSION)-changelog.html $(UPLOADROOT)
hunk ./dist/makechangelogs.pl 3
+use CGI qw(&escapeHTML);
+
hunk ./dist/makechangelogs.pl 11
+my $restriction='';
hunk ./dist/makechangelogs.pl 41
- push @{$currentitem->{'changes'}},[$1];
+ my $change={text => [$1]};
+ $change->{'restriction'}=$restriction;
+ push @{$currentitem->{'changes'}},$change;
+ $restriction='';
hunk ./dist/makechangelogs.pl 52
- push @{$currententries->[$#$currententries]},$1;
+ push @{$currententries->[$#$currententries]->{'text'}},$1;
hunk ./dist/makechangelogs.pl 54
- next if defined $ARGV[0] && ($1 eq $ARGV[0] || $ARGV[0] eq 'latest');
+ $restriction=$1;
+ next if defined $ARGV[0]
+ && ($1 eq $ARGV[0] || $ARGV[0] eq 'latest' || $ARGV[0] eq 'html');
hunk ./dist/makechangelogs.pl 72
- print '- '.$changes->[0]."\n";
- shift @$changes;
- foreach my $item (@$changes) {
+ print '- '.$changes->{'text'}->[0]."\n";
+ shift @{$changes->{'text'}};
+ foreach my $item (@{$changes->{'text'}}) {
hunk ./dist/makechangelogs.pl 84
- print ' * '.$changes->[0]."\n";
- shift @$changes;
- foreach my $item (@$changes) {
+ print ' * '.$changes->{'text'}->[0]."\n";
+ shift @{$changes->{'text'}};
+ foreach my $item (@{$changes->{'text'}}) {
hunk ./dist/makechangelogs.pl 101
- print '- '.$changes->[0]."\n";
- shift @$changes;
- foreach my $item (@$changes) {
+ print '- '.$changes->{'text'}->[0]."\n";
+ shift @{$changes->{'text'}};
+ foreach my $item (@{$changes->{'text'}}) {
hunk ./dist/makechangelogs.pl 108
+} elsif(defined $ARGV[0] && $ARGV[0] eq 'html') {
+ print "\n";
+ print "Photopub changelog\n";
+ print "";
+ foreach my $entry (@entries) {
+ print "Version ".&escapeHTML($entry->{'version'})."
\n";
+ my @dateinfo=gmtime($entry->{'date'});
+ print "".$days[$dateinfo[6]].', '.$dateinfo[3].' '
+ .$months[$dateinfo[4]].' '.(1900+$dateinfo[5]).' '
+ .&pad($dateinfo[2]).':'.&pad($dateinfo[1]).':'
+ .&pad($dateinfo[0])." +0000
\n";
+ print "\n";
+ foreach my $changes (@{$entry->{'changes'}}) {
+ print "- \n";
+ if($changes->{'restriction'} eq 'debian') {
+ print "Debian package: ";
+ } elsif($changes->{'restriction'} eq 'redhat') {
+ print "Redhat package: ";
+ }
+ foreach my $item (@{$changes->{'text'}}) {
+ print &escapeHTML($item)."\n";
+ }
+ print "
\n";
+ }
+ print "
\n";
+ print "".&escapeHTML(${$entry->{'author'}})."\n";
+ print "
\n";
+ }
+ print "\n";
+ print "\n";
hunk ./dist/makechangelogs.pl 139
- die "Usage: $0 [redhat|debian|latest]";
+ die "Usage: $0 [redhat|debian|latest|html]";
}