#!/opt/perl/bin/perl

use strict;
use warnings;

sub Get_LogFile($)  #logfile takes "INFO" or "ERROR"
{
  my($fileType)= @_;
  my($scriptName)= fileparse($0);
  my($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = gmtime;
  my $curEpoch = sprintf("%4.4d%3.3d%2.2d%2.2d%2.2d",$year+1900, $yday+1, $hour, $min, $sec);


  if (lc($fileType) =~ /^info/) 
  {
     return "/tmp/$scriptName.$curEpoch.info.log";
  }
  elsif (lc($fileType) =~ /^error/) 
  {
     return "/tmp/$scriptName.$curEpoch.err.log";
  }
  else
  {
     return "/tmp/$scriptName.$curEpoch.log";
  }
}
1;  # need this for the require to work in calling file