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] Nivel de brillo, de oscuro a claro
  6.  
  7.  
  8. die "$0 [1-15]" unless ($ARGV[0]>= 1 && $ARGV[0] <= 15);
  9.  
  10. my $ip_webcam="192.168.1.46";
  11. my $Auth="LaLaLaLaLaLaLaLaLa";
  12.  
  13. sub change_mode
  14. {
  15.     my $browser = LWP::UserAgent->new;
  16.     my $URL="http://".$ip_webcam."/camera_control.cgi\\?param=3\\&value=$_[0]"; #Llamada para cambio de modo
  17.     my $response = $browser->get(
  18.                 $URL,
  19.                "Authorization" => "Basic $Auth",
  20.              );
  21. }
  22.  
  23.  
  24. my $value=16*$ARGV[0];
  25. my $start, $finish;
  26.  
  27. my $browser = LWP::UserAgent->new;
  28. my $URL="http://".$ip_webcam."/camera_control.cgi\\?param=1\\&value=".$value; #Llamada para cambio de brillo
  29. my $response = $browser->get(
  30.         $URL,
  31.                "Authorization" => "Basic $Auth",
  32.              );
  33.  
  34.  
  35. #Dependiendo de la hora forzamos el cambio de 50Hz a Outdoor o viceversa
  36.  
  37. my (undef, undef, $hour, undef, undef, undef) = localtime(time()); #fecha/hora
  38.  
  39. if (($hour > 7) && ($hour < 21)) {$start=0; $finish=2;}
  40. else {$start=2; $finish=0;}
  41.  
  42. change_mode($start);
  43. sleep (5);
  44. change_mode($finish);
');