[gentoo-commits] linux-patches r2747 - genpatches-2.6-misc/web

[Mike Pagano (mpagano)]

Author: mpagano
Date: 2014-04-10 16:18:07 +0000 (Thu, 10 Apr 2014)
New Revision: 2747

Modified:
   genpatches-2.6-misc/web/gentoo_sources_web.pm
   genpatches-2.6-misc/web/makesite.pl
Log:
More fixes to scripts

Modified: genpatches-2.6-misc/web/gentoo_sources_web.pm
===================================================================
--- genpatches-2.6-misc/web/gentoo_sources_web.pm       2014-04-10 15:51:56 UTC 
(rev 2746)
+++ genpatches-2.6-misc/web/gentoo_sources_web.pm       2014-04-10 16:18:07 UTC 
(rev 2747)
@@ -5,11 +5,11 @@
 
 # Detect which svn server and username to use
 # (broken with >=svn-1.7 due to an extra line added to svn info)
-my $subversion_scheme=`svn info | awk '/^URL: / { print $2 }'`;
-my $subversion_uri = $subversion_scheme;
+$subversion_scheme=`svn info | awk '/^URL: / { print $2 }'`;
+$subversion_uri = $subversion_scheme;
 chomp $subversion_uri;
-my $subversion_scheme =~ s|^URL: ([a-z][a-z0-9+-.]*)://.*|\1|s;
-my $subversion_midpart="";
+$subversion_scheme =~ s|^URL: ([a-z][a-z0-9+-.]*)://.*|\1|s;
+$subversion_midpart="";
 my $cmd="";
 
 if ($subversion_scheme == "svn+ssh") {
@@ -23,7 +23,7 @@
 } else {
        $subversion_midpart = 'anonsvn.gentoo.org';
 }
-my $subversion_root = 
$subversion_scheme.'://'.$subversion_midpart.'/linux-patches/genpatches-2.6';
+$subversion_root = 
$subversion_scheme.'://'.$subversion_midpart.'/linux-patches/genpatches-2.6';
 my $webscript_path = &Cwd::cwd();
 $output_path = $webscript_path.'/output';
 

Modified: genpatches-2.6-misc/web/makesite.pl
===================================================================
--- genpatches-2.6-misc/web/makesite.pl 2014-04-10 15:51:56 UTC (rev 2746)
+++ genpatches-2.6-misc/web/makesite.pl 2014-04-10 16:18:07 UTC (rev 2747)
@@ -202,6 +202,7 @@
        local *DIR;
        print ">> Making release pages\n";
        $cmd = 'svn ls '.$subversion_root.'/tags';
+    print "cmd is $cmd\n";
        @out = `$cmd`;
 
        foreach (@out) {
@@ -296,7 +297,7 @@
        print PATCHLIST '<p>Patches 0000-2999 are available in ';
        print PATCHLIST '<a 
href="tarballs/genpatches-'.$tag.'.base.tar'.$ext.'">genpatches-'.$tag.'.base.tar'.$ext.'</a>';
        print PATCHLIST '<br />Patches 3000-4999 are available in ';
-       print PATCHLIST '<a 
href="tarballs/genpatches-'.$tag.'.extras.tar'.$ext.'">genpatches-'.$tag.'.extras.tar'.$ext.'</a></p>';
+       print PATCHLIST '<a 
href="tarballs/genpatches-'.$tag.'.extras.tar'.$ext.'">genpatches-'.$tag.'.extras.tar'.$ext.'</a>';
        print PATCHLIST '<br />Patches 5000-5099 are available in ';
        print PATCHLIST '<a 
href="tarballs/genpatches-'.$tag.'.experimental.tar'.$ext.'">genpatches-'.$tag.'.experimental.tar'.$ext.'</a></p>';
        print PATCHLIST '<table id="hor-minimalist-a">';