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.3 by williamc, Wed Mar 3 17:04:14 1999 UTC vs.
Revision 1.4 by williamc, Mon Mar 8 11:51:29 1999 UTC

# Line 5 | Line 5
5   # if not then stores in a default cache.
6  
7   package urlhandler;
8 < require 5.001;
8 > require 5.004;
9   require Exporter;
10   @ISA = qw(Exporter);
11   @EXPORT = qw(urlhandler);
# Line 30 | Line 30 | sub urlhandler($@) {
30             $rest=$url.":".$version;
31          }
32  
33 <        my @urltypes = qw(label file cvs);
33 >        my @urltypes = qw(label file cvs http);
34          foreach $ty ( @urltypes ) {
35             do { return &$ty($rest, $filename); $supported='yes'; last; }
36                                  if $type eq $ty;
# Line 80 | Line 80 | sub cvs {
80   }
81  
82   sub http {
83 <        use LWP;
84 <        
83 >        my $urlfile=shift;
84 >        my $filename=shift;
85 >        use LWP::Simple;
86 >        open (STORE, $filename);
87 >        getprint STORE 'http:'.$urlfile;
88 >        close STORE;
89   }
90  
91   sub cachefilename {

Diff Legend

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