Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- use LWP::UserAgent;
- # $ARGV[0] -> [1-15] Nivel de brillo, de oscuro a claro
- die "$0 [1-15]" unless ($ARGV[0]>= 1 && $ARGV[0] <= 15);
- my $ip_webcam="192.168.1.46";
- my $Auth="LaLaLaLaLaLaLaLaLa";
- sub change_mode
- {
- my $browser = LWP::UserAgent->new;
- my $URL="http://".$ip_webcam."/camera_control.cgi\?param=3\&value=$_[0]"; #Llamada para cambio de modo
- my $response = $browser->get(
- $URL,
- "Authorization" => "Basic $Auth",
- );
- }
- my $value=16*$ARGV[0];
- my $start, $finish;
- my $browser = LWP::UserAgent->new;
- my $URL="http://".$ip_webcam."/camera_control.cgi\?param=1\&value=".$value; #Llamada para cambio de brillo
- my $response = $browser->get(
- $URL,
- "Authorization" => "Basic $Auth",
- );
- #Dependiendo de la hora forzamos el cambio de 50Hz a Outdoor o viceversa
- my (undef, undef, $hour, undef, undef, undef) = localtime(time()); #fecha/hora
- if (($hour > 7) && ($hour < 21)) {$start=0; $finish=2;}
- else {$start=2; $finish=0;}
- change_mode($start);
- sleep (5);
- change_mode($finish);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement