Hi every: I need send a beeper message when a Bacula Jobs fails. For this I write this in JobDefs:
JobDefs { Name = "DefinicionPorDefectoParaCopias" Type = Backup Level = Incremental Storage = FileSAN Messages = Standard Priority = 5 #Es la opcion por defecto, a mayor numero menos prioridad Reschedule on error = yes Reschedule interval = 1 hour Reschedule times = 2 Max Start Delay = 8 hours RunScript { RunsWhen = After RunsOnFailure = yes Command = /etc/bacula/scripts/paging.pl 23744 Job %n: %e } } Now the paging.pl script is this one: #!/usr/bin/perl -w # # This script send beeper to movitel (v 1.1) # Usage: # paging.pl <PIN> <Message> # use strict; #Modulos para hacer un request HTTP use LWP::UserAgent; require HTTP::Request::Common; require HTTP::Headers; if ((defined($ARGV[0])) and (defined($ARGV[1]))) { my $pin = $ARGV[0]; my $mess = substr($ARGV[1],0,119); my $url = 'http://www.movitel.co.cu/cgi-bin/paging-send.pl'; #printf "$pin|$mess\n"; #INPUT Values from the web page of movitel my $tserv = 1; my $PIN = $pin; my $Msg = $mess; my $ok = 'http://www.movitel.co.cu/index.php?page=envios_ok'; my $error = 'http://www.movitel.co.cu/index.php?page=envios_error'; my $Submit2 = 'Enviar'; my $browser = LWP::UserAgent->new; #my $header = HTTP::Headers->new(Content_Type => 'text/html; charset=iso-8859-1'); #my $Request = HTTP::Request->new(POST=>$url,[Content_Type=>'application/x-www-form-urlencoded',tserv=>'1',PIN=>$pin,Msg=>$mess,ok=>$ok,error=>$error,Submi #printf $Request->as_string(); #my $Response = $browser->request($Request); # send it 2 times to ensure it arrives my $Response = $browser->post($url,[tserv=>'1',PIN=>$pin,Msg=>$mess,ok=>$ok,error=>$error,Submit2=>'Enviar']); $Response = $browser->post($url,[tserv=>'1',PIN=>$pin,Msg=>$mess,ok=>$ok,error=>$error,Submit2=>'Enviar']); my $Resultado = $Response->content(); my $Resp = "Unknow"; if ($Resultado =~ /page\=envios_ok/i) { $Resp = "0k"; } if ($Resultado =~ /page\=envios_error/i) { $Resp = "Error"; } #printf $Resultado; my $time = localtime; open File,">>/var/log/nagios/paging.log"; print File "$time\|$pin\|$mess\|$Resp(movitel)\n"; close File; } But Bacula never send me a message. What's wrong here? Cheers and thanks in advance Ing. Reynier PĂ©rez Mira ------------------------------------------------------------------------------ Crystal Reports - New Free Runtime and 30 Day Trial Check out the new simplified licensing option that enables unlimited royalty-free distribution of the report engine for externally facing server and web deployment. http://p.sf.net/sfu/businessobjects _______________________________________________ Bacula-users mailing list Bacula-users@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/bacula-users