document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. #!/usr/bin/perl
  2.  
  3. use LWP::UserAgent;
  4.  
  5. # $ARGV[0] -> [1-15] Posicion memorizada deseada
  6.  
  7. die "$0 [1-15]" unless ($ARGV[0]>= 1 && $ARGV[0] <= 15);
  8.  
  9. my $ip_webcam="192.168.1.46";
  10. my $Auth="LaLaLaLaLaLaLaLaLa";
  11.  
  12. my $value= 30 + ( ($ARGV[0] * 2) - 1);
  13.  
  14. my $browser = LWP::UserAgent->new;
  15. my $URL="http://".$ip_webcam."/decoder_control.cgi?command=".$value; #Vete a la posicion memorizada seleccionada
  16.  
  17. my $response = $browser->get(
  18.                 $URL,
  19.                "Authorization" => "Basic $Auth",
  20.              );
');