ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/cvsroot/COMP/SCRAM/src/Utilities/urlhandler.pm
(Generate patch)

Comparing COMP/SCRAM/src/Utilities/urlhandler.pm (file contents):
Revision 1.4 by williamc, Mon Mar 8 11:51:29 1999 UTC vs.
Revision 1.5 by williamc, Thu Mar 18 09:45:36 1999 UTC

# Line 54 | Line 54 | sub label {
54            }
55          }
56          close LOOKUP;
57 <        return $returnval;
58 <        
57 >        if ( $returnval ne "" ) {
58 >          return $returnval;
59 >        }
60 >        ($proj,$ver)=split /:/, $label;
61 >        print "Error : Unknown project name or version (".$proj." ".$ver.")\n";
62 >        exit 1;
63   }
64  
65   sub file {
# Line 83 | Line 87 | sub http {
87          my $urlfile=shift;
88          my $filename=shift;
89          use LWP::Simple;
90 <        open (STORE, $filename);
91 <        getprint STORE 'http:'.$urlfile;
90 >        print "Hello $filename, $urlfile\n";
91 >        open (STORE, ">$filename") || die "unable to open file $filename $!\n";
92 >        print STORE (get 'http:'.$urlfile);
93          close STORE;
94   }
95  

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines