| Server IP : 216.92.14.13 / Your IP : 216.73.216.171 Web Server : Apache System : Linux vps4089.pairvps.com 5.15.0-190-generic #200-Ubuntu SMP Fri Aug 7 15:06:04 UTC 2026 x86_64 User : rmlac2fmr ( 1040637) PHP Version : 8.2.32 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/local/bin/ |
Upload File : |
#!/usr/local/bin/perl -w
use Net::Chat::Daemon;
use Getopt::Long qw(:config no_ignore_case);
my $jid;
my $password = 'secret';
my $prompt_password = 0;
my $help;
GetOptions('password|P=s' => \$password,
'prompt|p!' => \$prompt_password,
'help|h!' => \$help,
);
if ($help || @ARGV != 1) {
print "usage: $0 [--password=PASS] [--prompt] jabber-id\n";
exit($help ? 0 : 1);
}
$jid = shift(@ARGV);
if ($prompt_password) {
print "Enter password: ";
flush(STDOUT);
chomp($password = <STDIN>);
}
my $server =
Net::Chat::Daemon->run($jid,
password => $password,
commands => { 'exit' => sub { exit 7 },
'hello' => sub { "hello back" }},
);
print "Done??? ($server)\n";