| 54 |
|
} |
| 55 |
|
} |
| 56 |
|
close LOOKUP; |
| 57 |
< |
return $returnval; |
| 58 |
< |
|
| 57 |
> |
if ( $returnval ne "" ) { |
| 58 |
> |
return $returnval; |
| 59 |
> |
} |
| 60 |
> |
($proj,$ver)=split /:/, $label; |
| 61 |
> |
print "Error : Unknown project name or version (".$proj." ".$ver.")\n"; |
| 62 |
> |
exit 1; |
| 63 |
|
} |
| 64 |
|
|
| 65 |
|
sub file { |
| 86 |
|
sub http { |
| 87 |
|
my $urlfile=shift; |
| 88 |
|
my $filename=shift; |
| 89 |
< |
use LWP::Simple; |
| 90 |
< |
open (STORE, $filename); |
| 91 |
< |
getprint STORE 'http:'.$urlfile; |
| 89 |
> |
# use LWP::Simple; |
| 90 |
> |
print "Hello $filename, $urlfile\n"; |
| 91 |
> |
# open (STORE, ">$filename") || die "unable to open file $filename $!\n"; |
| 92 |
> |
# print STORE (get 'http:'.$urlfile); |
| 93 |
|
close STORE; |
| 94 |
|
} |
| 95 |
|
|
