X-Git-Url: http://www.privoxy.org/gitweb/?p=privoxy.git;a=blobdiff_plain;f=utils%2Fcreate-package-feed.pl;h=aff89ed3e9b55f0cac97030b2eb1fefc3aa235cb;hp=6e875889a01b4b1facdfab0d3edb922da7cb5b56;hb=88647d49d4fe80ff540e6d91bd61adb4b95d0654;hpb=a1b1345ba24a9fb188e31a3b712bf28752b420be diff --git a/utils/create-package-feed.pl b/utils/create-package-feed.pl index 6e875889..aff89ed3 100644 --- a/utils/create-package-feed.pl +++ b/utils/create-package-feed.pl @@ -66,6 +66,8 @@ while (my $fi1 = readdir($D1)) { # URI and Time $target_uri = $fi1 . '/' . $fi2 . '/' . $fi3; + my $escaped_target_uri = $target_uri; + $escaped_target_uri =~ s@ @%20@g; $target_time = (stat $target)[9]; # RSS line @@ -80,19 +82,19 @@ while (my $fi1 = readdir($D1)) { $target_line .= '' . $base_dlurl - . $target_uri + . $escaped_target_uri . '' . $base_dlurl - . $target_uri + . $escaped_target_uri . ''; $target_line .= ''; ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = gmtime($target_time); - $target_line .= - "$days[$wday], $mday $months[$mon] " - . ($year + 1900) - . " $hour:$min:$sec GMT"; + $target_line .= sprintf("%s, %s %s %d %.2d:%.2d:%.2d GMT", + $days[$wday], $mday, $months[$mon], ($year + 1900), + $hour, $min, $sec); $target_line .= ''; + $target_line .= "\n"; # Add it to Array $Array[$i] = ([$target_time, $target_line]); @@ -110,13 +112,20 @@ closedir($D1); # Result = Full XML Codes my $result = - 'Privoxy Releaseshttps://www.privoxy.org/announce.txt'; + ' + + + Privoxy Releases + https://www.privoxy.org/announce.txt + + '; ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = gmtime(); $result .= "$days[$wday], $mday $months[$mon] " . ($year + 1900) . " $hour:$min:$sec GMT"; $result .= ''; +$result .= "\n"; # Sort Array my @resArray = sort { @$a[0] <=> @$b[0] } @Array; @@ -125,7 +134,8 @@ while ($max_advertised_files-- > 0 && $i >= 0) { $result .= $resArray[$i][1]; $i--; } -$result .= ''; +$result .= ' + '; # Save it. open(my $XMLF, ">", $save_rss_file) or die "Failed to write XML file";