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

#!/usr/bin/perl

use Net::FCP;

# fetch a single (small) keyand output it to stdout

my $fcp = new Net::FCP;

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

print $meta;
print "=============================================================================\n";
print $data;


Revision:	1.1
Committed:	Mon Sep 8 00:35:44 2003 UTC (23 years ago) by root
Branch:	MAIN
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	#!/usr/bin/perl
2
3			use Net::FCP;
4
5			# fetch a single (small) keyand output it to stdout
6
7			my $fcp = new Net::FCP;
8
9			my ($data, $meta) = @{ $fcp->client_get ("freenet:$ARGV[0]", $ARGV[1]) };
10
11			print $meta;
12			print "=============================================================================\n";
13			print $data;
14
15