#!/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);