View on
Ricky Buchanan > Net-Goofey-1.4 > Net::Goofey



Annotate this POD

View/Report Bugs
Module Version: 1.4   Source  


Net::Goofey - Communicate with a Goofey server


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


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


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.

FUNCTIONS =item signon ( ); ^

Register this client as the resident one.

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.)

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

Register for goofey.

Valid commands: create Register new user sendpw Request your existing password be emailed to you alias <name> Register this machine as an alias request <name> Request another goofey name to alias current one

List that user's finger information.

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.

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.

Sets you quiet to everybody.

Repeats certain messages

Sets you unquiet.

Sets you unquiet.

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

Returns version information.


Bek Oberin <>


Kirrily Robert <>


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.

syntax highlighting: