[LON-CAPA-cvs] cvs: modules /gerd/ct convert.pl

[www]

www		Thu Sep 22 10:20:27 2005 EDT

  Modified files:              
    /modules/gerd/ct	convert.pl 
  Log:
  Getting dependencies
  
  
Index: modules/gerd/ct/convert.pl
diff -u modules/gerd/ct/convert.pl:1.4 modules/gerd/ct/convert.pl:1.5
--- modules/gerd/ct/convert.pl:1.4	Thu Sep  1 16:32:04 2005
+++ modules/gerd/ct/convert.pl	Thu Sep 22 10:20:25 2005
@@ -94,6 +94,20 @@
             $sofar.=$_.'/';
 	    mkdir $sofar;
 	}
+        open(OUT,">$path/cts$i.problem");
+        print OUT $problem;
+        close(OUT);
+        foreach my $url (@needtoget) {
+            unless ($url) { next; }
+            my ($relative)=($url=~/\/([^\/]+)$/);
+	    unless ($url=~/^http\:/) {
+		$url='http://www.deas.harvard.edu/galileo/images/ctimages/'.$url;
+	    }
+            system("cd $path; wget $url");
+            unless (-e "$path/$relative") {
+		print "\nWarning: Could not get $path/$relative";
+            }
+        }
     }
 }