1,AB499,Joe.Bloggs@mysite.com,MY_SERVER_ENV,sales,/opt/backup/MY_SERVER_ENV,sales.data,1,dbase,Apr 25 2008 3:25PM,Apr 25 2008 3:30PM,completed
2,AB499,none,Somebody.Admin@mysite.com,none,none,1,dbase,none,none,none
3,AB499,none,Somebody.Admin@mysite.com,none,none,1,dbase,none,none,none
4,AB499,none,Somebody.Admin@mysite.com,none,none,1,dbase,none,none,none
5,AB499,none,Somebody.Admin@mysite.com,none,none,1,dbase,none,none,none
6,AB499,none,Somebody.Admin@mysite.com,none,none,1,dbase,none,none,none
7,XX777,myserver,Anon.Person@mysite.com,business,/nfs/busback/upload/incident,10,dbase,none,none,none
8,XX777,myserver,Anon.Person@mysite.com,business,/nfs/busback/upload/incident,10,dbase,Aug 13 2010 8:30AM,Aug 13 2010 9:00AM,completed

##</code><code>##

$requestid = 0 unless $requestid;
$enddate = "none" unless $enddate;
$state = "none" unless $state;

        if ($update) {
                local $^I = ".bak"; # in place editing with backup file

                @ARGV = qw(/test/info.dat);
                while (<>) {
                        chomp;
                        my @array = split /,/,$_;
                        if ($array[0] eq $requestid) {
                                if ($enddate) { s/$array[9]/$enddate/g ;}
                                if ($state) { s/$array[10]/$state/g ;}
                                print; print "\n" ;
                        } else {
                                print join(",",@array); print "\n";
                        }
                }
        }

##</code><code>##

1,AB499,Joe.Bloggs@mysite.com,MY_SERVER_ENV,sales,/opt/backup/MY_SERVER_ENV,sales.data,1,dbase,Apr 25 2008 3:25PM,Apr 25 2
008 3:30PM,completed
2,AB499,none,Somebody.Admin@mysite.com,none,none,1,dbase,none,none,none
3,AB499,Aug 13 2010 9:30AM,Somebody.Admin@mysite.com,Aug 13 2010 9:30AM,Aug 13 2010 9:30AM,1,dbase,Aug 13 2010 9:30AM,Aug
13 2010 9:30AM,Aug 13 2010 9:30AM
4,AB499,none,Somebody.Admin@mysite.com,none,none,1,dbase,none,none,none
5,AB499,none,Somebody.Admin@mysite.com,none,none,1,dbase,none,none,none
6,AB499,none,Somebody.Admin@mysite.com,none,none,1,dbase,none,none,none
7,XX777,myserver,Anon.Person@mysite.com,business,/nfs/busback/upload/incident,10,dbase,none,none,none
8,XX777,myserver,Anon.Person@mysite.com,business,/nfs/busback/upload/incident,10,dbase,Aug 13 2010 8:30AM,Aug 13 2010 9:00
AM,completed

##</code><code>##

1,AB499,Joe.Bloggs@mysite.com,MY_SERVER_ENV,sales,/opt/backup/MY_SERVER_ENV,sales.data,1,dbase,Apr 25 2008 3:25PM,Apr 25 2
008 3:30PM,completed
2,AB499,none,Somebody.Admin@mysite.com,none,none,1,dbase,none,none,none
3,AB499,failed,Somebody.Admin@mysite.com,failed,failed,1,dbase,failed,failed,failed
4,AB499,none,Somebody.Admin@mysite.com,none,none,1,dbase,none,none,none
5,AB499,none,Somebody.Admin@mysite.com,none,none,1,dbase,none,none,none
6,AB499,none,Somebody.Admin@mysite.com,none,none,1,dbase,none,none,none
7,XX777,myserver,Anon.Person@mysite.com,business,/nfs/busback/upload/incident,10,dbase,none,none,none
8,XX777,myserver,Anon.Person@mysite.com,business,/nfs/busback/upload/incident,10,dbase,Aug 13 2010 8:30AM,Aug 13 2010 9:00
AM,completed