From: Eugene K. <ek...@us...> - 2007-04-15 11:53:39
|
<html> <head> <style><!-- body {background-color:#ffffff;} .file {border:1px solid #eeeeee;margin-top:1em;margin-bottom:1em;} .pathname {font-family:monospace; float:right;} .fileheader {margin-bottom:.5em;} .diff {margin:0;} .tasklist {padding:4px;border:1px dashed #000000;margin-top:1em;} .tasklist ul {margin-top:0;margin-bottom:0;} tr.alt {background-color:#eeeeee} #added {background-color:#ddffdd;} #addedchars {background-color:#99ff99;font-weight:bolder;} tr.alt #added {background-color:#ccf7cc;} #removed {background-color:#ffdddd;} #removedchars {background-color:#ff9999;font-weight:bolder;} tr.alt #removed {background-color:#f7cccc;} #info {color:#888888;} #context {background-color:#eeeeee;} td {padding-left:.3em;padding-right:.3em;} tr.head {border-bottom-width:1px;border-bottom-style:solid;} tr.head td {padding:0;padding-top:.2em;} .task {background-color:#ffff00;} .comment {white-space:-moz-pre-wrap;white-space:-pre-wrap;white-space:-o-pre-wrap;white-space:pre-wrap;word-wrap:break-word;padding:4px;border:1px dashed #000000;background-color:#ffffdd} .error {color:red;} hr {border-width:0px;height:2px;background:black;} --></style> </head> <body> <table cellspacing="0" cellpadding="0" border="0" rules="cols"> <tr class="head"><td colspan="4">Commit in <b><tt>unattended/install/tools</tt></b><span id="info"> on MAIN</span></td></tr> <tr><td><tt><a href="#file1">msparse.pl</a></tt></td><td align="right" id="added">+21</td><td align="right" id="removed">-11</td><td nowrap="nowrap" align="center">1.13 -> 1.14</td></tr> </table> <pre class="comment"> Fixed running under ActivePerl </pre> <hr /><a name="file1" /><div class="file"> <span class="pathname">unattended/install/tools</span><br /> <div class="fileheader"><big><b>msparse.pl</b></big> <small id="info">1.13 -> 1.14</small></div> <pre class="diff"><small id="info">diff -u -r1.13 -r1.14 --- msparse.pl 18 Sep 2005 23:57:16 -0000 1.13 +++ msparse.pl 15 Apr 2007 11:51:23 -0000 1.14 @@ -43,9 +43,19 @@ </small></pre><pre class="diff" id="context"> $url =~ s/\?\&/\?/; $url =~ s/\&$//; </pre><pre class="diff" id="added">+my $devnull; +my $eol; +if ($^O eq "MSWin32") { + $devnull = "nul"; + $eol = "\n"; +} else { + $devnull = "/dev/null"; + $eol = "\r\n"; +} + </pre><pre class="diff" id="context"> my ($urls, $title1, $title2, $desc, $link, $run, $recheck); foreach my $k (keys (%lang)) { </pre><pre class="diff" id="removed">- open(f,"wget -O - \"$url\&displaylang=$lang{$k}\" 2><span id="removedchars"> /dev/null</span>|"); </pre><pre class="diff" id="added">+ open(f,"wget -O - \"$url\&displaylang=$lang{$k}\" 2><span id="addedchars">$devnull </span>|"); </pre><pre class="diff" id="context"> while(<f>) { chomp; if ($k =~ /enu/i) { </pre><pre class="diff"><small id="info">@@ -159,7 +169,7 @@ </small></pre><pre class="diff" id="context"> undef $title2; undef $desc; </pre><pre class="diff" id="removed">- open(f,"wget -O - \"$link\" 2> <span id="removedchars">/dev/</span>null |"); </pre><pre class="diff" id="added">+ open(f,"wget -O - \"$link\" 2> <span id="addedchars">$dev</span>null |"); </pre><pre class="diff" id="context"> while(<f>) { defined $title2 or $title2 = "$1" if /\<h1.*?\>(.*?)(?:\<\/h1\>|$)/; </pre><pre class="diff"><small id="info">@@ -192,17 +202,17 @@ </small></pre><pre class="diff" id="context"> $link =~ s/ +$//g; } </pre><pre class="diff" id="removed">-print " \n"; -print ":: $title1 \n" if defined $title1; -print ":: $title2 \n" if defined $title2; -print ":: \"$desc\" \n" if defined $desc; -print ":: <$link> \n" if defined $link; -print ":: <$url> \n" if defined $url; </pre><pre class="diff" id="added">+print "$eol"; +print ":: $title1$eol" if defined $title1; +print ":: $title2$eol" if defined $title2; +print ":: \"$desc\"$eol" if defined $desc; +print ":: <$link>$eol" if defined $link; +print ":: <$url>$eol" if defined $url; </pre><pre class="diff" id="context"> foreach (sort keys %lang) { if (defined $urls->{uc($_)}) { </pre><pre class="diff" id="removed">- print ":: $urls->{uc($_)}<span id="removedchars"> \n</span>"; </pre><pre class="diff" id="added">+ print ":: $urls->{uc($_)}<span id="addedchars">$eol</span>"; </pre><pre class="diff" id="context"> } else { </pre><pre class="diff" id="removed">- print ":: No Download found for " . uc($_) . ".<span id="removedchars"> \n</span>"; </pre><pre class="diff" id="added">+ print ":: No Download found for " . uc($_) . ".<span id="addedchars">$eol</span>"; </pre><pre class="diff" id="context"> } } </pre><pre class="diff" id="removed">-print "todo.pl \".reboot-on 194 %Z%\\$run /?\"<span id="removedchars"> \n</span>" if defined $run; </pre><pre class="diff" id="added">+print "todo.pl \".reboot-on 194 %Z%\\$run /?\"<span id="addedchars">$eol</span>" if defined $run; </pre></div> <center><small><a href="http://www.badgers-in-foil.co.uk/projects/cvsspam/" title="commit -> email">CVSspam</a> 0.2.12</small></center> </body></html> |