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

#!/usr/bin/perl

use Net::FCP qw(event=Event);

my $fcp = new Net::FCP;

my $nodehello = $fcp->client_hello;

print "your node:\n";
print "protocol version:  $nodehello->{protocol}\n";
print "node description:  $nodehello->{node}\n";
print "maximum file size: $nodehello->{max_file_size}\n";


Revision:	1.3
Committed:	Tue Sep 9 06:13:20 2003 UTC (23 years ago) by root
Branch:	MAIN
Changes since 1.2:	+1 -1 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	#!/usr/bin/perl
2
3	root	1.3	use Net::FCP qw(event=Event);
4	root	1.1
5	root	1.2	my $fcp = new Net::FCP;
6	root	1.1
7			my $nodehello = $fcp->client_hello;
8
9			print "your node:\n";
10			print "protocol version: $nodehello->{protocol}\n";
11			print "node description: $nodehello->{node}\n";
12			print "maximum file size: $nodehello->{max_file_size}\n";
13
14