| # | 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 82 | Line 81 | sub cvs { | |
| 81 | ||
| 82 | sub cachefilename { | |
| 83 | use File::Basename; | |
| 84 | < | use AddDir; |
| 84 | > | use Utilities::AddDir; |
| 85 | my $filebase=dirname($rest); | |
| 86 | $cache="/tmp/williamc/urlhandler$$"; | |
| 87 | adddir($cache); | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |