[ViewVC] Annotation of: cvs/Net-FCP/eg/fetch1

#!/usr/bin/perl

use Net::FCP;

# fetch a single (small) key and output it to stdout

my $fcp = new Net::FCP;

my ($meta, $data) = @{ $fcp->client_get ("freenet:$ARGV[0]", $ARGV[1]) };

use Data::Dumper;
print STDERR Dumper $meta;
print $data;


Revision:	1.6
Committed:	Thu May 13 15:41:01 2004 UTC (22 years, 4 months ago) by root
Branch:	MAIN
Changes since 1.5:	+1 -1 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	#!/usr/bin/perl
2
3	root	1.5	use Net::FCP;
4	root	1.1
5	root	1.6	# fetch a single (small) key and output it to stdout
6	root	1.1
7			my $fcp = new Net::FCP;
8
9	root	1.2	my ($meta, $data) = @{ $fcp->client_get ("freenet:$ARGV[0]", $ARGV[1]) };
10	root	1.1
11	root	1.2	use Data::Dumper;
12	root	1.4	print STDERR Dumper $meta;
13	root	1.1	print $data;
14
15