From 707ed8fac6473124d3bd13a5a12fc3cfff6aebe0 Mon Sep 17 00:00:00 2001 From: Florian Pritz Date: Wed, 18 Jan 2012 18:00:15 +0100 Subject: add notify-reboot and notify-users; change jabberwall to send messages Signed-off-by: Florian Pritz --- jabberwall.pl | 15 ++++++--------- 1 file changed, 6 insertions(+), 9 deletions(-) (limited to 'jabberwall.pl') diff --git a/jabberwall.pl b/jabberwall.pl index c8c4897..e590d6d 100755 --- a/jabberwall.pl +++ b/jabberwall.pl @@ -10,8 +10,8 @@ use Data::Dumper; # options are: server, port, username, password, ressource # location: ~/.jabberwallrc -if(@ARGV != 1) { - print "usage: ", basename($0), " \n"; +if(@ARGV != 3) { + print "usage: ", basename($0), " \n"; exit 1; } @@ -38,20 +38,17 @@ if ($result[0] ne "ok") { die "Jabber auth error: @result\n"; } -my $body = ''; -while () { - $body .= $_; -} -chomp($body); +chomp(my $subject = $ARGV[1]); +my $body = $ARGV[2]; for my $to (@recipients) { chomp $to; next if ($to eq ""); $clnt->MessageSend(to=>$to, - subject=>"", + subject=>$subject, body=>$body, - type=>"chat", + type=>"message", priority=>0); } -- cgit v1.2.3-24-g4f1b