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.5.2.2 by williamc, Mon Oct 18 06:51:32 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 45 | Line 45 | sub label {
45          my $filename=shift;
46          my $returnval="";
47  
48 <        open ( LOOKUP, "$ENV{SCRAM_LOOKUPDB}" )
48 >        $returnval=labelsort($label, $ENV{SCRAM_LOOKUPDB}, $filename);
49 >        if ( $returnval ne "" ) {
50 >                return $returnval;
51 >        }
52 >        ($proj,$ver)=split /:/, $label;
53 >        print "Error : Unknown project name or version (".$proj." ".$ver.")\n";
54 >        exit 1;
55 > }      
56 >
57 > sub labelsort {
58 >        my $label=shift;
59 >        my $filename=shift;
60 >        my $fileoutname=shift;
61 >        my $returnval="";
62 >
63 >        use FileHandle;
64 >        my $fh=FileHandle->new();
65 >        open ( $fh, $filename )
66             || die "urlhandler: Unable to open DataBase $ENV{SCRAM_LOOKUPDB} $!";
67 <        while ( <LOOKUP> ) {
67 >        while ( <$fh> ) {
68            next if /^#/;
69 +          if ( $_=~/\!DB (.*)/ ) {
70 +                my $db=$1;
71 +                if ( -f $db ) {
72 +                  $returnval=labelsort($label,$db, $fileoutname);
73 +                  last if ($returnval ne "");
74 +                }
75 +          }
76            if ( $_=~s/^$label\:// ) {
77 <                $returnval = urlhandler($_,$filename);
77 >                $returnval = urlhandler($_,$fileoutname);
78            }
79          }
80 <        close LOOKUP;
80 >        close $fh;
81          return $returnval;
58 –        
82   }
83  
84   sub file {
# Line 80 | Line 103 | sub cvs {
103   }
104  
105   sub http {
106 <        use LWP;
107 <        
106 >        my $urlfile=shift;
107 >        my $filename=shift;
108 > #       use LWP::Simple;
109 >        print "Hello $filename, $urlfile\n";
110 > #       open (STORE, ">$filename") || die "unable to open file $filename $!\n";
111 > #       print STORE (get 'http:'.$urlfile);
112 >        close STORE;
113   }
114  
115   sub cachefilename {

Diff Legend

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