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.3 by williamc, Wed Mar 3 17:04:14 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.001;
9   require Exporter;
10   @ISA = qw(Exporter);
11   @EXPORT = qw(urlhandler);
# Line 80 | Line 79 | sub cvs {
79          print "Coming soon\n";
80   }
81  
82 + sub http {
83 +        use LWP;
84 +        
85 + }
86 +
87   sub cachefilename {
88               use File::Basename;
89 <             use AddDir;
89 >             use Utilities::AddDir;
90               my $filebase=dirname($rest);
91               $cache="/tmp/williamc/urlhandler$$";
92               adddir($cache);

Diff Legend

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