This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
------_=_NextPart_001_01C2C4B6.BD63371F
Content-Type: text/plain;
charset="iso-8859-1"
H ere is a perl script I asked our perl guy to write to do what you/we are
requesting... We use it for our weekly rotations.
Hope this is helpful... Explanation at the bottom..
#!/usr/bin/perl -w
use strict;
##################
# Global Vars
##################
my ($Sdate, $Stime, $Edate, $Etime);
my $argcount = $#ARGV + 1;
my $command = '/usr/openv/netbackup/bin/admincmd/bpimagelist -A -media ';
my $outfile = '/tmp/list-bpimagelist';
##################
# Eval Command line
##################
if ( ($argcount > 5) or (($argcount > 0) and ($argcount < 4)))
{
print "Only 4 arguments are accepted\n";
print "<Start Date> <Start Time> <End Date> <End Time>\n";
}
elsif ($argcount == 4)
{
chomp $ARGV[0];
chomp $ARGV[1];
chomp $ARGV[2];
chomp $ARGV[3];
$Sdate = $ARGV[0];
$Stime = $ARGV[1];
$Edate = $ARGV[2];
$Etime = $ARGV[3];
exit if (! check_date($Sdate));
exit if (! check_time($Stime));
exit if (! check_date($Edate));
exit if (! check_time($Etime));
execute_command($Sdate, $Stime, $Edate, $Etime);
exit;
}
##################
# Main
##################
prompt_user();
if (display_entered())
{
execute_command($Sdate, $Stime, $Edate, $Etime);
}
else
{
print "Exiting\n";
}
##################
# Subs
##################
sub execute_command
{
my $local_Sdate = shift;
my $local_Stime = shift;
my $local_Edate = shift;
my $local_Etime = shift;
my $local_command = $command.' -d '.$local_Sdate.' '.$local_Stime.':00
-e '.$local_Edate.' '.$local_Etime.':00'.' > '.$outfile;
print "Executing $local_command\n";
system($local_command);
}
sub prompt_user
{
while (1)
{
print "Enter start date (mm/dd/yy): ";
$Sdate = <>;
chomp($Sdate);
last if (check_date($Sdate));
}
while (1)
{
print "Enter start time (hh:mm): ";
$Stime = <>;
chomp($Stime);
last if (check_time($Stime));
}
while (1)
{
print "Enter end date (mm/dd/yy): ";
$Edate = <>;
chomp($Edate);
last if (check_date($Edate));
}
while (1)
{
print "Enter end time (hh:mm): ";
$Etime = <>;
chomp($Etime);
last if (check_time($Etime));
}
}
sub display_entered
{
my $RETURN = 0;
print "\n";
print "You Entered:\n";
print "Start Date: $Sdate\n";
print "Start Time: $Stime\n";
print "End Date: $Edate\n";
print "End Time: $Etime\n";
print "\nExecute with these dates/times [Yy/Nn]: ";
my $ans = <>;
chomp($ans);
$RETURN = 1 if (($ans eq ('Y'|'y')));
return $RETURN;
}
sub check_time
{
my $RETURN = 1;
my $time = shift;
my ($hours, $minutes);
#if (not($time =~ m/^(\d|\d\d)\:\d\d$/))
if (not($time =~ m/^\d\d\:\d\d$/))
{
print "Time must be in HH:MM\n";
$RETURN = 0;
return $RETURN;
}
($hours, $minutes) = split(":",$time);
if ( ($hours > 23) or ($hours < 0) )
{
print "Hours must be between 00 and 23\n";
$RETURN = 0;
}
if ( ($minutes > 59) or ($minutes < 0) )
{
print "Minutes must be between 00 and 59\n";
$RETURN = 0;
}
return $RETURN;
}
sub check_date
{
my %calendar = (
1 => 31,
2 => 28,
3 => 31,
4 => 30,
5 => 31,
6 => 30,
7 => 31,
8 => 31,
9 => 30,
10 => 31,
11 => 30,
12 => 31,);
my $RETURN = 1;
my $date = shift;
my ($day, $month, $year);
#if (not ($date =~ m/^(\d|\d\d)\/(\d|\d\d)\/\d\d$/))
if (not ($date =~ m/^\d\d\/\d\d\/\d\d$/))
{
print "Date must be in MM/DD/YY\n";
$RETURN = 0;
return $RETURN;
}
($month, $day, $year) = split("/",$date);
my $YYYY = '20'.$year;
if (! $YYYY % 4) {$calendar{2} = '29'}; #leap year
$month =~ s/^0//;
$day =~ s/^0//;
if (( $month > 12 ) or ($month < 1))
{
print "Month must be between 01 and 12\n";
$RETURN = 0;
return $RETURN;
}
if (( $day > $calendar{$month}) or ($day < 1))
{
print "Dates for month \'$month\' must be between ",
"1 and $calendar{$month}\n";
$RETURN = 0;
return $RETURN;
}
return $RETURN;
}
-----Original Message-----
It has two modes of operation, command line and interactive.
Command line format is:
./nb.pl <Start Date> <Start Time> <End Date> <End Time>
executed as:
./nb.pl 01/20/03 06:00 01/22/03 23:59
Notice that the time you enter does not have the seconds, it is only HH:MM,
the seconds are appended as :00 to the input.
To use it in automatic mode just type ./nb.pl and you are prompted through
all the required information. A couple notes though, the time is checked
to make sure that the hours are valid and the minutes are valid and the date
is checked to make sure a valid month is entered and a valid number of days
for that month. For example, you cannot say 02/30/03 it will give an
informational error and prompt for the same info until the user gets it
right or <CTR>C is pressed.
What it does not check is the dates against each other. It does not make
sure that the '-d' date or tim is earlier than the '-e' date or time. Also,
the year is only checked to make sure it is two digits. The value of the
year you enter is not checked at all. Also the year is hardcoded with a
'20' prefix. If you need this changed let me know.
------_=_NextPart_001_01C2C4B6.BD63371F
Content-Type: text/html;
charset="iso-8859-1"
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<TITLE></TITLE>
<META content="MSHTML 6.00.2800.1126" name=GENERATOR></HEAD>
<BODY>
<DIV><SPAN class=098473114-25012003><FONT color=#0000ff><SPAN
class=200331221-25012003> H </SPAN>ere is a perl script I asked our
perl guy to write to do what you/we are requesting... We use it for our
weekly rotations.</FONT></SPAN></DIV>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV><SPAN class=098473114-25012003><FONT
color=#0000ff></FONT></SPAN> </DIV>
<DIV><SPAN class=098473114-25012003><FONT color=#0000ff>Hope this is
helpful...<SPAN class=200331221-25012003> Explanation at the
bottom..</SPAN></FONT></SPAN></DIV>
<DIV><SPAN class=098473114-25012003><FONT color=#0000ff><SPAN
class=200331221-25012003></SPAN></FONT></SPAN> </DIV>
<DIV><SPAN class=098473114-25012003><FONT color=#0000ff><SPAN
class=200331221-25012003>#!/usr/bin/perl -w</SPAN></FONT></SPAN></DIV>
<DIV> </DIV><SPAN class=098473114-25012003><FONT color=#0000ff><SPAN
class=200331221-25012003>
<DIV><BR>use strict;</DIV>
<DIV> </DIV>
<DIV><BR>##################<BR># Global Vars<BR>##################<BR>my
($Sdate, $Stime, $Edate, $Etime);<BR>my $argcount = $#ARGV + 1;<BR>my
$command = '/usr/openv/netbackup/bin/admincmd/bpimagelist -A -media
';<BR>my
$outfile = '/tmp/list-bpimagelist';</DIV>
<DIV> </DIV>
<DIV>##################<BR># Eval Command line<BR>##################<BR>if
(
($argcount > 5) or (($argcount > 0) and ($argcount <
4)))<BR>{<BR> print "Only 4 arguments are
accepted\n";<BR> print "<Start Date> <Start
Time> <End Date> <End Time>\n";<BR>}<BR>elsif ($argcount ==
4)<BR>{<BR> chomp $ARGV[0];<BR> chomp
$ARGV[1];<BR> chomp $ARGV[2];<BR> chomp
$ARGV[3];</DIV>
<DIV> </DIV>
<DIV> $Sdate = $ARGV[0];<BR> $Stime =
$ARGV[1];<BR> $Edate = $ARGV[2];<BR>
$Etime = $ARGV[3];</DIV>
<DIV> </DIV>
<DIV> exit if (!
check_date($Sdate));<BR> exit if (!
check_time($Stime));<BR> exit if (!
check_date($Edate));<BR> exit if (!
check_time($Etime));<BR> execute_command($Sdate, $Stime,
$Edate, $Etime);<BR> exit;<BR>}</DIV>
<DIV> </DIV>
<DIV><BR>##################<BR>#
Main<BR>##################<BR>prompt_user();<BR>if
(display_entered())<BR>{<BR> execute_command($Sdate,
$Stime, $Edate,
$Etime);<BR>}<BR>else<BR>{<BR> print
"Exiting\n";<BR>}</DIV>
<DIV> </DIV>
<DIV>##################<BR># Subs<BR>##################</DIV>
<DIV> </DIV>
<DIV>sub execute_command<BR>{<BR> my $local_Sdate =
shift;<BR> my $local_Stime = shift;<BR>
my $local_Edate = shift;<BR> my $local_Etime =
shift;<BR> my $local_command = $command.' -d
'.$local_Sdate.' '.$local_Stime.':00 -e '.$local_Edate.'
'.$local_Etime.':00'.' > '.$outfile;</DIV>
<DIV> </DIV>
<DIV> print "Executing
$local_command\n";<BR> system($local_command);<BR>}</DIV>
<DIV> </DIV>
<DIV>sub prompt_user<BR>{<BR> while
(1)<BR> {<BR> print
"Enter start date (mm/dd/yy):
";<BR> $Sdate =
<>;<BR>
chomp($Sdate);<BR> last if
(check_date($Sdate));<BR> }</DIV>
<DIV> </DIV>
<DIV> while (1)<BR>
{<BR> print "Enter start time (hh:mm):
";<BR> $Stime =
<>;<BR>
chomp($Stime);<BR> last if
(check_time($Stime));<BR> }</DIV>
<DIV> </DIV>
<DIV> while (1)<BR>
{<BR> print "Enter end date (mm/dd/yy):
";<BR> $Edate =
<>;<BR>
chomp($Edate);<BR> last if
(check_date($Edate));<BR> }</DIV>
<DIV> </DIV>
<DIV> while (1)<BR>
{<BR> print "Enter end time (hh:mm):
";<BR> $Etime =
<>;<BR>
chomp($Etime);<BR> last if
(check_time($Etime));<BR> }</DIV>
<DIV> </DIV>
<DIV>}</DIV>
<DIV> </DIV>
<DIV><BR>sub display_entered<BR>{<BR> my $RETURN =
0;<BR> print "\n";<BR> print "You
Entered:\n";<BR> print "Start Date:
$Sdate\n";<BR> print "Start Time:
$Stime\n";<BR> print "End Date:
$Edate\n";<BR> print "End Time:
$Etime\n";<BR> print "\nExecute with these dates/times
[Yy/Nn]: ";<BR> my $ans = <>;<BR>
chomp($ans);</DIV>
<DIV> </DIV>
<DIV> $RETURN = 1 if (($ans eq ('Y'|'y')));</DIV>
<DIV> </DIV>
<DIV> return $RETURN;<BR>}</DIV>
<DIV> </DIV>
<DIV><BR>sub check_time<BR>{<BR> my $RETURN =
1;<BR> my $time = shift;<BR> my
($hours,
$minutes);<BR> #if (not($time =~
m/^(\d|\d\d)\:\d\d$/))<BR> if (not($time =~
m/^\d\d\:\d\d$/))<BR>
{<BR> print "Time must be in
HH:MM\n";<BR> $RETURN =
0;<BR> return
$RETURN;<BR> }</DIV>
<DIV> </DIV>
<DIV> ($hours, $minutes) = split(":",$time);</DIV>
<DIV> </DIV>
<DIV> if ( ($hours > 23) or ($hours < 0)
)<BR> {<BR>
print "Hours must be between 00 and
23\n";<BR> $RETURN =
0;<BR> }</DIV>
<DIV> </DIV>
<DIV> if ( ($minutes > 59) or ($minutes < 0)
)<BR> {<BR>
print "Minutes must be between 00 and
59\n";<BR> $RETURN =
0;<BR> }</DIV>
<DIV> </DIV>
<DIV> return $RETURN;<BR>}</DIV>
<DIV> </DIV>
<DIV><BR>sub check_date<BR>{<BR> my %calendar =
(<BR>
1 =>
31,<BR>
2 =>
28,<BR>
3 =>
31,<BR>
4 =>
30,<BR>
5 =>
31,<BR>
6 =>
30,<BR>
7 =>
31,<BR>
8 =>
31,<BR>
9 =>
30,<BR>
10 =>
31,<BR>
11 =>
30,<BR>
12 => 31,);</DIV>
<DIV> </DIV>
<DIV> my $RETURN = 1;<BR> my $date =
shift;<BR> my ($day, $month,
$year);<BR>
<BR> #if (not ($date =~
m/^(\d|\d\d)\/(\d|\d\d)\/\d\d$/))<BR> if (not ($date =~
m/^\d\d\/\d\d\/\d\d$/))<BR>
{<BR> print "Date must be in
MM/DD/YY\n";<BR> $RETURN =
0;<BR> return
$RETURN;<BR> }<BR>
<BR> ($month, $day, $year) =
split("/",$date);<BR> my $YYYY =
'20'.$year;<BR> if (! $YYYY % 4) {$calendar{2} = '29'};
#leap year</DIV>
<DIV> </DIV>
<DIV> $month =~ s/^0//;<BR>
$day =~ s/^0//;</DIV>
<DIV> </DIV>
<DIV> if (( $month > 12 ) or ($month <
1))<BR> {<BR>
print "Month must be between 01 and
12\n";<BR> $RETURN =
0;<BR> return
$RETURN;<BR> }</DIV>
<DIV> </DIV>
<DIV> if (( $day > $calendar{$month}) or ($day <
1))<BR> {<BR>
print "Dates for month \'$month\' must be between
",<BR>
"1 and $calendar{$month}\n";<BR>
$RETURN = 0;<BR> return
$RETURN;<BR> }<BR> return
$RETURN;<BR>}<BR><BR> </SPAN></FONT></SPAN></DIV>
<DIV class=OutlookMessageHeader dir=ltr align=left><FONT face=Tahoma
size=2>-----Original Message-----<BR><BR></FONT></DIV>
<P><FONT size=2><BR> It has two modes of operation, command line and
interactive.<BR><BR>Command line format is:<BR><FONT color=#0000ff>./nb.pl
<Start Date> <Start Time> <End Date> <End
Time></FONT><BR><BR>executed as:<BR><FONT color=#0000ff>./nb.pl
01/20/03 06:00 01/22/03 23:59</FONT></FONT></P>
<P><FONT size=2>Notice that the time you enter does not have the seconds,
it
is only HH:MM, the seconds are appended as :00 to the input.</FONT></P>
<P><FONT size=2>To use it in automatic mode just type ./nb.pl and you are
prompted through all the required information. A couple notes
though, the time is checked to make sure that the hours are valid and the
minutes are valid and the date is checked to make sure a valid month is
entered and a valid number of days for that month. For example, you
cannot say 02/30/03 it will give an informational error and prompt
for
the same info until the user gets it right or <CTR>C is
pressed.</FONT></P>
<P><FONT size=2>What it does not check is the dates against each
other. It does not make sure that the '-d' date or tim is
earlier
than the '-e' date or time. Also, the year is only checked to make
sure it is two digits. The value of the year you enter is not checked
at all. Also the year is hardcoded with a '20' prefix. If you
need this changed let me
know.</FONT></P></BLOCKQUOTE></BLOCKQUOTE></BODY></HTML>
------_=_NextPart_001_01C2C4B6.BD63371F--
|
