use POSIX;
my $progname = $0; $progname =~ s@.*/@@g;
-my $version = q{ $Revision: 1.1 $ }; $version =~ s/^[^\d]+([\d.]+).*/$1/;
+my ($version) = ('$Revision: 1.2 $' =~ m/\s(\d[.\d]+)\s/s);
my $verbose = 0;
my $debug_p = 0;
-my $base_url = "http://www.jwz.org/";
+my $base_url = "https://www.jwz.org/";
my $priv_key_file = "$ENV{HOME}/.ssh/sparkle_dsa_priv.pem";
my $sign_update = "./sign_update.rb";
$body =~ s/^(\d+\.\d+[ \t])/\001$1/gm;
my @log = split (/\001/, $body);
shift @log;
+ my $count = 0;
foreach my $log (@log) {
my ($v1, $entry) = ($log =~ m/^(\d+\.\d+)\s+(.*)$/s);
}
}
- my $url = ("${base_url}$app_name/" .
- ($zip && -f "$www_dir/$zip" ? $zip : ""));
+ my $publishedp = ($zip && -f "$www_dir/$zip");
+ $publishedp = 1 if ($count == 0);
+
+ my $url = ("${base_url}$app_name/" . ($publishedp ? $zip : ""));
$url =~ s@DaliClock/@xdaliclock/@gs if $url; # Kludge
$sig =~ s/\s+//gs;
}
- my $enc = ($zip && -f "$www_dir/$zip"
+ my $enc = ($publishedp
? ("<enclosure url=\"$url\"\n" .
" sparkle:version=\"$v1\"\n" .
" sparkle:dsaSignature=\"$sig\"\n" .
$item =~ s/^/ /gm;
# I guess Sparkle doesn't like info-only items.
- $item = '' unless ($zip && -f "$www_dir/$zip");
+ $item = '' unless $publishedp;
$rss .= $item;
+ $count++;
}
$rss = ("<?xml version=\"1.0\" encoding=\"utf-8\"?>\n" .