Thanks for the quick reply! Yes it is used later in the code. Here's what the whole code looks like (please keep in mind I didn't write this :)

 my($sec)         = 0;
my($min)         = 0;
my($hour)         = 0;
my($mday)         = 0;
my($mon)         = 0;
my($year)         = 0;
my($sday)         = 0;
my($yday)         = 0;
my($isdst)         = 0;
my($Prefix)        = "_*.log";

print "Parsing command string\n";
if ($#ARGV >= 0)
{
    if ($#ARGV != 2)
    {     
        print "USAGE\n";
        print "perl.exe fwexport.pl 2004 08 31\n";
        exit;
    }
    else
    {    
        $year = $ARGV[0];
        $mon = $ARGV[1];
        $mday = $ARGV[2];
        $DateText = sprintf("%04d\-%02d\-%02d", $year,$mon,$mday);
    }
    if ($mon == 1)
    {
        $MonthPreviousText = sprintf("%04d\-%02d", $year-1,$mon+11);
    }
    else
    {    
        $MonthPreviousText = sprintf("%04d\-%02d", $year,$mon-1);
    }
}
else
{
    ($sec,$min,$hour,$mday,$mon,$year,$sday,$yday,$isdst) = localtime(
+time);
    $year = $year + 1900;
    $DateText = sprintf("%04d\-%02d\-%02d", $year,$mon+1,$mday-1);
    if ($mon == 0)
    {
        $MonthPreviousText = sprintf("%04d\-%02d", $year-1,$mon+12);
    }
    else
    {    
        $MonthPreviousText = sprintf("%04d\-%02d", $year,$mon);
    }

} 
print "checkpoint1\n";

$FolderLocation = "Dir d:\\appdata\\fw1\\R75.20\\fw1\\log\\".$DateText
+.$Prefix;
print $FolderLocation."\n";
#get log file name
$FolderResults = `$FolderLocation`;

#parse the results into a list of shares to query
@FolderResults = split('\n',$FolderResults);

print "checkpoint2\n";

#Loop on each Line
foreach $Line (@FolderResults)
{    print $Line."\n";
    if ($Line =~ /$DateText/)
    {    #print "****".$Line."\n";    
        @FileResults = split (' ',$Line);
        $ArrayElements = @FileResults;
        $FileNameResult = @FileResults[4];
    }
}



$FWExport = "fwm logexport -n -a -i d:\\appdata\\fw1\\R75.20\\fw1\\log
+\\".$FileNameResult." -o d:\\appdata\\fw1\\R75.20\\fw1\\log\\export\\
+".$DateText."\.log";
print "FWExport Text: ".$FWExport."\n";
$OutResults = `$FWExport`;

if ($mday == 1)
{
    $PKZipLine = "pkzip.exe ".$MonthPreviousText."* ".$MonthPreviousTe
+xt."-01.zip";
    print "PKZip Text: ".$PKZipLine."\n\n\n";
}
else
{
    print "Skipping zipping and deleting of logs.\n\n\n"
}

[download]

In reply to Re^2: Checkpoint firewall logs export by Anonymous Monk
in thread Checkpoint firewall logs export by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.