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">';