rendered paste bodyData:
*** MESSAGE FILE ***
Selection By: LIST_ID
Platform: List: 1 Channel:
Start: 07263/19:38:13 End: 07266/19:38:13 Types: G?WDABTUMINQC
--------------------------------------------------------------------------------
Platform Address: C800071E Channel: 144W Code: N Start Time: 07264/00:25:02
Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07264/00:25:09
Length: 60 Xmit Time: 07264/00:25:10
PDT RECORD IS NOT COMPLETE
Platform Address: C800071E Channel: 144W Code: G Start Time: 07264/00:25:02
Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07264/00:25:09
Length: 224 Xmit Time: 07264/00:25:10
{GTEC[46F30BD4]0A064C4F4FC4005402EF753503412B030401FC00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF40FFFFFFFFFFFFFF0000FFFF7F7B01871D00001B01760C000000000000FFFFFFFFFFFFFFFF0000000000000000000000000000000000E101063F8D0217070A0DD948}
Platform Address: C800071E Channel: 144W Code: N Start Time: 07263/23:25:02
Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07263/23:25:09
Length: 60 Xmit Time: 07263/23:25:09
PDT RECORD IS NOT COMPLETE
Platform Address: C800071E Channel: 144W Code: G Start Time: 07263/23:25:02
Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07263/23:25:09
Length: 224 Xmit Time: 07263/23:25:09
"{GTEC[46F2FFED]0A064C4F4FEC00520209763403403C0301035B01FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF3AFFFFFFFFFFFFFF0000FFFF7F7B01871D00001B01760C000000000000FFFFFFFFFFFFFFFF00000000000000000000000000000000001102060C8D0217070A0D6F47}
Platform Address: C800071E Channel: 144W Code: N Start Time: 07263/22:25:02
Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07263/22:25:09
Length: 60 Xmit Time: 07263/22:25:10
PDT RECORD IS NOT COMPLETE
Platform Address: C800071E Channel: 144W Code: G Start Time: 07263/22:25:02
Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07263/22:25:09
Length: 224 Xmit Time: 07263/22:25:10
"{GTEC[46F2EE12]0A064C4F4F000050022B76300341210302013401FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF43FFFFFFFFFFFFFF0000FFFF7F7B01871D00001B01760C000000000000FFFFFFFFFFFFFFFF0000000000000000000000000000000000480206098D0217070A0D34BF}
Platform Address: C800071E Channel: 144W Code: N Start Time: 07263/21:25:02
Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07263/21:25:09
Length: 60 Xmit Time: 07263/21:25:09
PDT RECORD IS NOT COMPLETE
Platform Address: C800071E Channel: 144W Code: G Start Time: 07263/21:25:02
Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07263/21:25:09
Length: 224 Xmit Time: 07263/21:25:09
"{GTEC[46F2E22A]0A064C4F4F00004E022C762E033F2C030502F000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF3DFFFFFFFFFFFFFF0000FFFF7F7B01871D00001B01760C000000000000FFFFFFFFFFFFFFFF0000000000000000000000000000000000E10106098D0217070A0DA95E}
Platform Address: C800071E Channel: 144W Code: N Start Time: 07263/20:25:01
Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07263/20:25:09
Length: 60 Xmit Time: 07263/20:25:09
PDT RECORD IS NOT COMPLETE
Platform Address: C800071E Channel: 144W Code: G Start Time: 07263/20:25:01
Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07263/20:25:09
Length: 224 Xmit Time: 07263/20:25:09
"{GTEC[46F2D643]0A064C4F4F00004D0239762C0340460304020C01FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF35FFFFFFFFFFFFFF0000FFFF7F7B01871D00001B01760C000000000000FFFFFFFFFFFFFFFF0000000000000000000000000000000000FC0106098D0217070A0DB390}
TYPE COMPLETE
>
Code:
#######Test with static data. How do we get the loop to stop?###########3
use Net::Telnet();
use DBI;
($lines) = "Platform Address: C800071E Channel: 144W Code: N Start Time: 07263/22:25:02
Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07263/22:25:09
Length: 60 Xmit Time: 07263/22:25:10
PDT RECORD IS NOT COMPLETE
Platform Address: C800071E Channel: 144W Code: G Start Time: 07263/22:25:02
Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07263/22:25:09
Length: 224 Xmit Time: 07263/22:25:10
\"{GTEC[46F2EE12]0A064C4F4F000050022B76300341210302013401FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF43FFFFFFFFFFFFFF0000FFFF7F7B01871D00001B01760C000000000000FFFFFFFFFFFFFFFF0000000000000000000000000000000000480206098D0217070A0D34BF}
Platform Address: C800071E Channel: 144W Code: N Start Time: 07263/21:25:02
Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07263/21:25:09
Length: 60 Xmit Time: 07263/21:25:09
PDT RECORD IS NOT COMPLETE
Platform Address: C800071E Channel: 144W Code: G Start Time: 07263/21:25:02
Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07263/21:25:09
Length: 224 Xmit Time: 07263/21:25:09
\"{GTEC[46F2E22A]0A064C4F4F00004E022C762E033F2C030502F000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF3DFFFFFFFFFFFFFF0000FFFF7F7B01871D00001B01760C000000000000FFFFFFFFFFFFFFFF0000000000000000000000000000000000E10106098D0217070A0DA95E}
Platform Address: C800071E Channel: 144W Code: N Start Time: 07263/20:25:01
Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07263/20:25:09
Length: 60 Xmit Time: 07263/20:25:09
PDT RECORD IS NOT COMPLETE
Platform Address: C800071E Channel: 144W Code: G Start Time: 07263/20:25:01
Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07263/20:25:09
Length: 224 Xmit Time: 07263/20:25:09
\"{GTEC[46F2D643]0A064C4F4F00004D0239762C0340460304020C01FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF35FFFFFFFFFFFFFF0000FFFF7F7B01871D00001B01760C000000000000FFFFFFFFFFFFFFFF0000000000000000000000000000000000FC0106098D0217070A0DB390}
TYPE COMPLETE";
#print("\nWhole string: $lines\n");
## connect to db
# $dbh = DBI->connect($connectionInfo,$userid,$passwd);
my $notatend = 5; #Maximum amount of loopage.
my $EndMatch = "";
print("Retrieved Data, Processing");
while($notatend)
{
print("Iteration: $notatend\n");
$lines =~ /(.*?)\x7B{1}(\D\D\D\D)(\S*?)\x7D{1}(.*)/s; #Get timestamp, PlatformID,
#Data and the rest
$before = $1;
$platform = $2;
$data = $3;
$after = $4;
#print("AFTER SHOULD WORK HERE: $after");
$before =~ /\s*(\S*)\s*\"*\Z/s;
my $DateTime = $1; #the whole date
print ("$DateTime");
$DateTime =~ /(\d\d)(\d\d\d)\/(\d\d:\d\d:\d\d)/s;
my $year = $1; #the year
my $day = $2; #the day of year
my $time = $3; #the time stamp
$year = "20$year";
print ("Year: $year ");
print ("Day: $day ");
print ("Time: $time ");
print ("Platform: $platform");
print ("Data: $data");
# print ("After: $after");
print ("\n\n");
if ($notatend eq 2){
print("\n$after");
}
# $after =~ /\s*?(\D\D\D\D)(.*)/s; #try to catch "TYPE COMPLETE" not working...
# $EndMatch = $1;
# $lines = $2;
# print ("EndMatch: $EndMatch");
# if ($EndMatch eq "TYPE") {
# $atend = 1;
# }
$query = "INSERT INTO dcsdata (StationID, TransmitTime, WSData) VALUES('".$platform."', timestamp(makedate(".$year.", ".$day."), ".$time."), '".$data."');";
print($query."\n");
$notatend = $notatend -1; #failsafe countdown
if ($after eq '') {
$notatend = 0;
print("After is ZERO........");
}
#I don't know why it works, but it does.
$lines = $after; #reset lines for next iteration, moved here for debugging
}
# $sth2 = $dbh->prepare($query);
# $sth2->execute() or print("DB Error\n");
# $sth->finish();
# disconnect from database
# $dbh->disconnect();
exit;