projects
/
xscreensaver
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
From http://www.jwz.org/xscreensaver/xscreensaver-5.36.tar.gz
[xscreensaver]
/
OSX
/
updates.pl
diff --git
a/OSX/updates.pl
b/OSX/updates.pl
index c1bfd2463a5bb8f5e5e6ae9c869fdf3d49cca764..5938a4aee55b95bb03e1d1304a0f2c6959d4b864 100755
(executable)
--- a/
OSX/updates.pl
+++ b/
OSX/updates.pl
@@
-21,12
+21,12
@@
use open ":encoding(utf8)";
use POSIX;
my $progname = $0; $progname =~ s@.*/@@g;
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 $verbose = 0;
my $debug_p = 0;
-my $base_url = "http://www.jwz.org/";
+my $base_url = "http
s
://www.jwz.org/";
my $priv_key_file = "$ENV{HOME}/.ssh/sparkle_dsa_priv.pem";
my $sign_update = "./sign_update.rb";
my $priv_key_file = "$ENV{HOME}/.ssh/sparkle_dsa_priv.pem";
my $sign_update = "./sign_update.rb";
@@
-67,6
+67,7
@@
sub generate_xml($$$$) {
$body =~ s/^(\d+\.\d+[ \t])/\001$1/gm;
my @log = split (/\001/, $body);
shift @log;
$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);
foreach my $log (@log) {
my ($v1, $entry) = ($log =~ m/^(\d+\.\d+)\s+(.*)$/s);
@@
-93,8
+94,10
@@
sub generate_xml($$$$) {
}
}
}
}
- 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
$url =~ s@DaliClock/@xdaliclock/@gs if $url; # Kludge
@@
-120,7
+123,7
@@
sub generate_xml($$$$) {
$sig =~ s/\s+//gs;
}
$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" .
? ("<enclosure url=\"$url\"\n" .
" sparkle:version=\"$v1\"\n" .
" sparkle:dsaSignature=\"$sig\"\n" .
@@
-139,9
+142,10
@@
sub generate_xml($$$$) {
$item =~ s/^/ /gm;
# I guess Sparkle doesn't like info-only items.
$item =~ s/^/ /gm;
# I guess Sparkle doesn't like info-only items.
- $item = '' unless
($zip && -f "$www_dir/$zip")
;
+ $item = '' unless
$publishedp
;
$rss .= $item;
$rss .= $item;
+ $count++;
}
$rss = ("<?xml version=\"1.0\" encoding=\"utf-8\"?>\n" .
}
$rss = ("<?xml version=\"1.0\" encoding=\"utf-8\"?>\n" .