src/URL/URL_file.pm

#
# standard url interface for local file
#
# Interface
# ---------
# new()                 :
# get(url, destination) :

package URL::URL_file;
require 5.001;
use File::Copy;
use URL::URL_base;
@ISA=qw(URL::URL_base);

sub get {
        my $self=shift;
        my $url=shift;
        my $location=shift;

        my $filename=$url->fullfile();
        print $filename;
        if ( -e $filename ) {
         copy ( $filename,$location) || die "Unable to copy file $filename --> "
                ."$location \n$!\n";
         $rv=$location;
        } 
        else {
         #print "URL_file : Unable to find file $urlfile : $!\n";
         $rv="";
        }
        return $rv;
}
Revision:	1.5
Committed:	Fri Nov 12 18:04:24 1999 UTC (25 years, 6 months ago) by williamc
Content type:	text/plain
Branch:	MAIN
Changes since 1.4:	+9 -37 lines
Log Message:	Updated to new interface
#	User	Rev	Content
1	williamc	1.1	#
2			# standard url interface for local file
3			#
4			# Interface
5			# ---------
6			# new() :
7			# get(url, destination) :
8
9	williamc	1.4	package URL::URL_file;
10	williamc	1.1	require 5.001;
11			use File::Copy;
12	williamc	1.4	use URL::URL_base;
13			@ISA=qw(URL::URL_base);
14	williamc	1.1
15			sub get {
16			my $self=shift;
17	williamc	1.5	my $url=shift;
18			my $location=shift;
19	williamc	1.1
20	williamc	1.5	my $filename=$url->fullfile();
21			print $filename;
22			if ( -e $filename ) {
23			copy ( $filename,$location) \|\| die "Unable to copy file $filename --> "
24			."$location \n$!\n";
25			$rv=$location;
26	williamc	1.1	}
27			else {
28	williamc	1.5	#print "URL_file : Unable to find file $urlfile : $!\n";
29	williamc	1.3	$rv="";
30	williamc	1.1	}
31	williamc	1.3	return $rv;
32	williamc	1.1	}