ZoneMinder Forums

Code: Select all

http://user:password@camera/axis-cgi/param.cgi?action=list&group=root.ImageSource.I0.DayNight.IrCutFilter
http://user:password@camera/axis-cgi/param.cgi?action=update&root.ImageSource.I0.DayNight.IrCutFilter=auto
http://user:password@camera/axis-cgi/param.cgi?action=update&root.ImageSource.I0.DayNight.IrCutFilter=yes
http://user:password@camera/axis-cgi/param.cgi?action=update&root.ImageSource.I0.DayNight.IrCutFilter=no

Code: Select all

00 19 * * * (echo -n `date`; echo -n "\tTurn IR Filter OFF  \t"; curl --request GET 'http://user:password@camera/axis-cgi/param.cgi?action=update&root.ImageSource.I0.DayNight.IrCutFilter=no' ; echo) >> ~/foo/bar/cron_ircutfilter.log
01 19 * * * (echo -n `date`; echo -n "\tAsk IR Filter status\t"; curl --request GET 'http://user:password@camera/axis-cgi/param.cgi?action=list&group=root.ImageSource.I0.DayNight.IrCutFilter'      ) >> ~/foo/bar/cron_ircutfilter.log
00 05 * * * (echo -n `date`; echo -n "\tTurn IR Filter ON   \t"; curl --request GET 'http://user:password@camera/axis-cgi/param.cgi?action=update&root.ImageSource.I0.DayNight.IrCutFilter=yes'; echo) >> ~/foo/bar/cron_ircutfilter.log
01 05 * * * (echo -n `date`; echo -n "\tAsk IR Filter status\t"; curl --request GET 'http://user:password@camera/axis-cgi/param.cgi?action=list&group=root.ImageSource.I0.DayNight.IrCutFilter'      ) >> ~/foo/bar/cron_ircutfilter.log

Code: Select all

#!/usr/bin/perl
use strict;
use warnings;

# called by cron, in crontab:

# mm hh dom month dow command
# 55 02 * * * perl /home/user/foo/bar/day-night.pl
# making sure it is local time after daylight time switching

# usage:
#     ./day-night.pl
#         no arguments required

# required:
#     ./on-off.pl (in the same directory of this script)
#     /usr/local/bin/sunwait

# sunwait options: daylight, civil, nautical, astronomical, angle [X.XX]
# Twilight types, either:
#     daylight      Top of sun just below the horizon. Default.
#     civil         Civil Twilight.         -6 degrees below horizon.
#     nautical      Nautical twilight.     -12 degrees below horizon.
#     astronomical  Astronomical twilight. -18 degrees below horizon.
#     angle [X.XX]  User-specified twilight-angle (degrees). Default: 0.

my $rise_set = `/usr/local/bin/sunwait list offset -0:15:00 38.89769N 77.03653W`;
$rise_set =~ m/(\d\d:\d\d), (\d\d:\d\d)/;
my ($dawn, $dusk) = ($1, $2);
my ($dawn_offset, $dusk_offset) = (3, 3);    # in minutes towards noon
                                             # values >= 3
my $script = "perl /home/user/foo/bar/on-off.pl";

# dawn
`echo "$script two day"    | at $dawn + $dawn_offset minutes 2> /dev/null`;
# $dawn_offset++;
`echo "$script one day"    | at $dawn + $dawn_offset minutes 2> /dev/null`;
$dawn_offset += 1;
`echo "$script two status" | at $dawn + $dawn_offset minutes 2> /dev/null`;
# $dawn_offset++;
`echo "$script one status" | at $dawn + $dawn_offset minutes 2> /dev/null`;

# dusk
# need a space after minus/hyphen "-" sign
`echo "$script one night"  | at $dusk - $dusk_offset minutes 2> /dev/null`;
# $dusk_offset--;
`echo "$script two night"  | at $dusk - $dusk_offset minutes 2> /dev/null`;
$dusk_offset -= 1;
`echo "$script one status" | at $dusk - $dusk_offset minutes 2> /dev/null`;
# $dusk_offset--;
`echo "$script two status" | at $dusk - $dusk_offset minutes 2> /dev/null`;

Code: Select all

#!/usr/bin/perl
use strict;
use warnings;

# usage: ./on-off.pl [one | two] [day | night | status]

my $camera  = $ARGV[0] // "";    # ensure these two arguments are not undefined
my $command = $ARGV[1] // "";    # accepts invalid arguments

# CGI scripts specific to Axis M3025-VE Network Camera
# https://www.axis.com/files/manuals/um_m3025ve_60325_en_1410.pdf
my $update = "?action=update&root.ImageSource.I0.DayNight.IrCutFilter";
my $status = "?action=list&group=root.ImageSource.I0.DayNight.IrCutFilter";

my $filename = "/home/user/foo/bar/zm_day-night.log";
open my $FH, '>>', $filename or die "error trying to append: $!";

my ($which, $http);
if ( $camera eq "one" ) {
    $which = "this_one";
    $http = "http://root:password\@this_camera/axis-cgi/param.cgi";
    # need to escape character @ in perl
} elsif ( $camera eq "two" ) {
    $which = "that_one";
    $http = "http://root:password\@that_camera/axis-cgi/param.cgi";
}

my ($message, $output);
if ($command eq "day") {
    $message = "  $which IR Filter is ON  : ";
    $output = `curl -s --request GET '$http$update=yes'`;
} elsif ($command eq "night")  {
    $message = "  $which IR Filter is OFF : ";
    $output = `curl -s --request GET '$http$update=no'`;
} elsif ($command eq "status") {
    $message = "  $which IR Filter status = ";
    $output = `curl -s --request GET '$http$status'`;
    $output =~ m/=(\w+)$/;
    $output = $1;
}

my $date = `date`;
chomp $date;
print $FH $date, $message, $output, "\n";
# didn't trap errors on mulformed variables $camera, $command

close $FH;

Code: Select all

Sat 29 May 20:48:00 PDT 2021  that_one  IR Filter status = no
Sat 29 May 20:48:00 PDT 2021  this_one  IR Filter status = no
Sun 30 May 05:18:02 PDT 2021  that_one  IR Filter is ON  : OK
Sun 30 May 05:18:02 PDT 2021  this_one  IR Filter is ON  : OK
Sun 30 May 05:19:00 PDT 2021  that_one  IR Filter status = yes
Sun 30 May 05:19:00 PDT 2021  this_one  IR Filter status = yes
Sun 30 May 20:47:01 PDT 2021  that_one  IR Filter is OFF : OK
Sun 30 May 20:47:01 PDT 2021  this_one  IR Filter is OFF : OK
Sun 30 May 20:48:01 PDT 2021  that_one  IR Filter status = no
Sun 30 May 20:48:01 PDT 2021  this_one  IR Filter status = no