version 1.3, 2006/10/04 22:05:12 |
version 1.4, 2006/10/04 22:48:56 |
Line 197 sub parse_cmdline () { |
|
Line 197 sub parse_cmdline () { |
|
usage () |
usage () |
if ($help); |
if ($help); |
|
|
my $rcpt = $ARGV[0] |
my @rcpt = @ARGV |
or error_exit "no recipient specified"; |
or error_exit "no recipient specified"; |
|
|
if ($message && $interactive) { |
if ($message && $interactive) { |
Line 221 sub parse_cmdline () { |
|
Line 221 sub parse_cmdline () { |
|
'debug' => ($debug or 0), |
'debug' => ($debug or 0), |
'verbose' => ($verbose or 0), |
'verbose' => ($verbose or 0), |
'file' => ($file or ($ENV{'HOME'}.'/.sendxmpprc')), |
'file' => ($file or ($ENV{'HOME'}.'/.sendxmpprc')), |
'recipient' => $rcpt); |
'recipient' => \@rcpt); |
|
|
if ($DEBUG || $VERBOSE) { |
if ($DEBUG || $VERBOSE) { |
while (my ($key,$val) = each %dict) { |
while (my ($key,$val) = each %dict) { |
Line 276 sub xmpp_send ($$$) { |
|
Line 276 sub xmpp_send ($$$) { |
|
|
|
my ($cnx, $cmdline, $txt) = @_; |
my ($cnx, $cmdline, $txt) = @_; |
|
|
unless ($$cmdline{'chatroom'}) { |
unless ($$cmdline{'chatroom'}) { |
xmpp_send_message ($cnx, |
map { |
$$cmdline{'recipient'}, |
xmpp_send_message ($cnx, |
$$cmdline{'subject'}, |
$_, #$$cmdline{'recipient'}, |
$txt); |
$$cmdline{'subject'}, |
} else { |
$txt) |
xmpp_send_chatroom_message ($cnx, |
} @{$$cmdline{'recipient'}}; |
$$cmdline{'resource'}, |
} else { |
$$cmdline{'subject'}, |
map { |
$$cmdline{'recipient'}, |
xmpp_send_chatroom_message ($cnx, |
$txt); |
$$cmdline{'resource'}, |
} |
$$cmdline{'subject'}, |
|
$_, # $$cmdline{'recipient'}, |
|
$txt) |
|
} @{$$cmdline{'recipient'}}; |
|
} |
} |
} |
|
|
|
|
|
|
|
|
print STDERR |
print STDERR |
"sendxmpp version $VERSION, Copyright (c) 2004,2005 Dirk-Jan C. Binnema\n" . |
"sendxmpp version $VERSION, Copyright (c) 2004,2005 Dirk-Jan C. Binnema\n" . |
"usage: sendxmpp [options] <recipient>\n" . |
"usage: sendxmpp [options] <recipient1> [<recipient2> ...]\n" . |
"or refer to the the sendxmpp manpage\n"; |
"or refer to the the sendxmpp manpage\n"; |
|
|
exit 0; |
exit 0; |
Line 440 sendxmpp - send xmpp messages from the c |
|
Line 444 sendxmpp - send xmpp messages from the c |
|
|
|
=head1 SYNOPSIS |
=head1 SYNOPSIS |
|
|
sendxmpp [options] <recipient> |
sendxmpp [options] <recipient1> [<recipient2> ...] |
|
|
=head1 DESCRIPTION |
=head1 DESCRIPTION |
|
|