NAME

Net::Goofey - Communicate with a Goofey server

SYNOPSIS

use Net::Goofey;
  
$Goofey = Net::Goofey->new();
$Goofey->signon();

DESCRIPTION

Net::Goofey is a class implementing a simple Goofey client in Perl.

CONSTRUCTOR

new ( [ USERNAME [, PASSWORD [, HOST [, PORT ] ] ] ])

This is the constructor for a new Goofey object.

USERNAME defaults, in order, to the environment variables GOOFEYUSER, USER then LOGNAME.

PASSWORD defaults to the contents of the file $HOME/.goofeypw.

HOST and PORT refer to the remote host to which a Goofey connection is required.

The constructor returns the open socket, or undef if an error has been encountered.

signon ( );

Register this client as the resident one.

send ( USERNAME, MESSAGE );

Send a message to a goofey user (Will clients handle their own iteration for multi-user messages, or should we? For now I'm assuming that they will do it.)

unsend ( USERNAME );

Delete your last message to USERNAME, provided (of course) they haven't read it.

who ([USERNAME]);

List that user's finger information.

list ([USERNAME]);

List the locations and idle times of user. If user is empty then all users are listed, but their idle times are not queried: the last obtained idle time is printed. Users those idle times are more than 1 hour are not listed.

quiet ();

Sets you quiet. The server will then keep your messages until you unquiet. This mode lets through messages from anybody on your unquiet alias, though.

quietall ();

Sets you quiet to everybody.

unquiet ();

Sets you unquiet.

listen ( );

Listens for a command from the Goofey server. If we don't already have an open port to them, opens it.

version ( );

Returns version information.

AUTHOR

Bek Oberin <gossamer@tertius.net.au>

CREDITS

Kirrily Robert <skud@monash.edu.au>

COPYRIGHT

Copyright (c) 1998 Bek Oberin. All rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

cpanm Net::Goofey

perl -MCPAN -e shell
install Net::Goofey