Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Friday, March 29, 2024

Diff for sendxmpp/sendxmpp between version 1.3 and 1.4

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'}};
           }
 }  }
   
   
Line 423  sub usage () {
Line 427  sub usage () {
   
     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
   

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS
Go to Top