| Revision 1 (by moose, 2009/11/25 04:43:54) |
|---|
#!/usr/bin/perl
use strict;
use warnings;
sub get_interval { "wakehost" }
sub get_backup_interval { "wakehost"; }
require "backup-inc.pl";
require "backup-wol-inc.pl";
wakeup_host($ARGV[0]);
| Revision 1 (by moose, 2009/11/25 04:43:54) |
|---|
#!/usr/bin/perl
use strict;
use warnings;
sub get_interval { "wakehost" }
sub get_backup_interval { "wakehost"; }
require "backup-inc.pl";
require "backup-wol-inc.pl";
wakeup_host($ARGV[0]);