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.1 by williamc, Mon Mar 1 10:35:01 1999 UTC vs.
Revision 1.4 by williamc, Mon Mar 8 11:51:29 1999 UTC

# Line 1 | Line 1
1 – #!/usr/local/bin/perl5
2 – #
1   # url handler -> returns the location of the file
2   #
3   # returns file location - or crashes out
# Line 7 | Line 5
5   # if not then stores in a default cache.
6  
7   package urlhandler;
8 + require 5.004;
9   require Exporter;
10   @ISA = qw(Exporter);
11   @EXPORT = qw(urlhandler);
# Line 31 | 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 79 | sub cvs {
79          print "Coming soon\n";
80   }
81  
82 + sub http {
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 {
92               use File::Basename;
93 <             use AddDir;
93 >             use Utilities::AddDir;
94               my $filebase=dirname($rest);
95               $cache="/tmp/williamc/urlhandler$$";
96               adddir($cache);

Diff Legend

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