Shell Programming and Scripting

open FILE , $log;

while( <FILE> )

{
        $results = $results . $_ if ( $_ ge "$date $time" && $_ le "$date2 $time2" ) & m/$sap/
}

$results = $results . $_ if ( ( $_ ge "$date $time" && $_ le "$date2 $time2" ) ||  m/$sap/ )

awk -v date1="$1" -v time1="$2" -v date2="$3" -v time2="$4" '
BEGIN { 
    split(date1,d1,"/");split(time1,t1,":")
    t=sprintf("%s %s %s %s %s %s",d1[1],d1[2],d1[3],t1[1],t1[2],"00")
    starttime=mktime(t)
    split(date2,d2,"/"); split(time2,t2,":")
    t=sprintf("%s %s %s %s %s %s",d2[1],d2[2],d2[3],t2[1],t2[2],"00")
    endtime = mktime(t)
}
{  
   split($1,d,"/"); split($2,t3,":")
   T=sprintf("%s %s %s %s %s %s",d[1],d[2],d[3],t3[1],t3[2],"00")
   thetime=mktime(T)
   if ( starttime<=thetime && thetime <= endtime ) {
      print $0
   }
}
' "file"

# ./test1.sh 2007/04/25 16:07 2007/05/25 17:07
2007/04/25 16:07:12.145701
2007/05/25 14:07:12.145701
2007/05/25 17:07:12.145701

$results = $results . $_ if ( ( $_ ge "$date $time" && $_ le "$date2 $time2" ) ||  m/$sap/ )

#!/usr/local/bin/perl

################## Constructors

use XML::Simple;

use Time::HiRes qw(gettimeofday tv_interval);

use File::Path;

$xml = new XML::Simple;

$xml1 = new XML::Simple;
        
$data = $xml->XMLin("/home/fdsfdsf/fdsfdsf/config.xml");
                
$data1 = $xml1->XMLin("/home/fdsfdsf/fdsfdsf/logconfig.xml");
        
################### Variables
        
$phase = $ARGV[0];
                
$code = $ARGV[1];
        
$date = $ARGV[2];

$time = $ARGV[3];

$date2 = $ARGV[4];

$time2 = $ARGV[5];

$log = "/home/fdsfdsf/fdsfdsf/" . $data1->{log}->{$phase}->{file};

$allowed = $data->{customer}->{$code}->{allowed};

$sap = $data->{customer}->{$code}->{sap};

$customer = $data->{customer}->{$code}->{full_name};

$notallowed = "An unauthroised request to run a trace for customer $customer was prevented";

$grepfail =  "Unsuccessful! Not found";

$command = "@ARGV";

$grepsuccess = "Success! Please see the Results log";

################# Timestamp generation for Output

($epochseconds, $microseconds) = gettimeofday;

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($epochseconds);

$year = $year+1900;

        if ($mon =~ 0-9) {

                $mon = "0$mon";

        }

        if ($mday =~ 0-9) {

                $mday = "0$mday";

        }

$timestamp = "$year/$mon/$mday $hour:$min:$sec.$microseconds";

###################### Trace Authorisation

if ($allowed =~ m/yes/) {

$flag = 0;

} else {

$flag = 1;

}

open (OUTPUTLOG, ">> /home/fdsfdsf/fdsfdsf/output.log");

##################### Search Command

if ($flag =~ m/0/) {

open (OUTPUTSTATUS, "> /home/fdsfdsf/fdsfdsf/tmp/$customer.status");

open FILE , $log;

while( <FILE> )

{
        #$results = $results . $_ if ( ( $_ ge "$date $time" && $_ le "$date2 $time2" ) || m/$sap/ )
        $results = $results . $_ if ( ( $_ ge "$date $time" && $_ le "$date2 $time2" ) &  m/$sap/ )

}

#################### Writing Output

if (!$results) {

print OUTPUTLOG "####$timestamp####\nCommand: ./s $command\nComment: $grepfail\n";

print OUTPUTSTATUS "1\n";

} else {

mkpath "/home/fdsfdsf/fdsfdsf/$phase/$code";

open (OUTPUTRESULTS, ">> /home/fdsfdsf/fdsfdsf/$phase/$code/results.log");

print OUTPUTRESULTS "####$timestamp####\n$results\n";

print OUTPUTSTATUS "0\n";

print OUTPUTLOG "####$timestamp####\nCommand: ./s $command\nComment: $grepsuccess\n";

}

} else {

print OUTPUTLOG "####$timestamp####\nCommand: ./s $command\nComment: $notallowed\n";

}

close (OUTPUTLOG);
                                  
close (OUTPUTSTATUS);