|
|
<![CDATA[
foreach $a (@ARGV)
{
$a =~ s/^\///gi;
($argname,$argval) = split(/=/,$a);
$inputarg{$argname} = $argval;
}
if ( defined $inputarg{'d'} )
{
$deptname = $inputarg{'d'};
}
if ( defined $inputarg{'db'} )
{
#printf "database file = %s\n",$inputarg{'db'};
$accessfile = $inputarg{'db'};
}
if ( defined $inputarg{'s'} )
{
#printf "start date = %s\n",$inputarg{'s'};
$startdate = $inputarg{'s'};
}
if ( defined $inputarg{'e'} )
{
#printf "end date = %s\n",$inputarg{'e'};
$enddate = $inputarg{'e'};
}
if ( defined $inputarg{'f'} )
{
#printf "report format = %s\n",$inputarg{'f'};
$rptformat = $inputarg{'f'};
}
if ( defined $inputarg{'o'} )
{
#printf "output file = %s\n",$inputarg{'o'};
$outfile = $inputarg{'o'};
}
]]>
<![CDATA[
]]>
|
|