[LON-CAPA-cvs] cvs: modules /sharrison/autocpan make_source_cpan_rpms.pl

[harris41]

harris41		Wed Sep 11 14:02:04 2002 EDT

  Modified files:              
    /modules/sharrison/autocpan	make_source_cpan_rpms.pl 
  Log:
  fixing pattern matching against cpan page (cpan changed html syntax)
  
  
Index: modules/sharrison/autocpan/make_source_cpan_rpms.pl
diff -u modules/sharrison/autocpan/make_source_cpan_rpms.pl:1.3 modules/sharrison/autocpan/make_source_cpan_rpms.pl:1.4
--- modules/sharrison/autocpan/make_source_cpan_rpms.pl:1.3	Wed Sep 11 12:29:00 2002
+++ modules/sharrison/autocpan/make_source_cpan_rpms.pl	Wed Sep 11 14:02:04 2002
@@ -1,7 +1,7 @@
 # make_source_cpan_rpms.pl - compiles cpan source contents as RPMs
 
 # Scott Harrison, sharrison@users.sourceforge.net, 2002
-# $Id: make_source_cpan_rpms.pl,v 1.3 2002/09/11 16:29:00 harris41 Exp $
+# $Id: make_source_cpan_rpms.pl,v 1.4 2002/09/11 18:02:04 harris41 Exp $
 
 # I am not using the CPAN.pm module because I do not want to introduce
 # a software dependency.  There would also be the multiple versions of
@@ -28,7 +28,7 @@
     `rm -f cpanpage.html`;
     `wget -nc -O cpanpage.html http://search.cpan.org/dist/$dname 2>\&1 > /dev/null`;
     $a=`cat cpanpage.html`;
-    $a=~/href\=\"\/CPAN\/(.*?)\" title=Download/;
+    $a=~/href\=\"\/CPAN\/(.*?)\"\>Download/;
     my $tardownload=$1;
     $tardownload=~/\-([^\-]*)\.tar\.gz/;
     my $mostrecent=$1;