From 727498350ee97618f5a23f93addaef43e7d950af Mon Sep 17 00:00:00 2001
From: Joseph Hunkeler <jhunkeler@gmail.com>
Date: Sat, 7 Mar 2015 23:42:46 -0500
Subject: Massive fixes. Adding the rest of the code.

---
 src/cal/get_tle/get_tle.pl.space-track.in | 148 ++++++++++++++++++++++++++++++
 1 file changed, 148 insertions(+)
 create mode 100644 src/cal/get_tle/get_tle.pl.space-track.in

(limited to 'src/cal/get_tle/get_tle.pl.space-track.in')

diff --git a/src/cal/get_tle/get_tle.pl.space-track.in b/src/cal/get_tle/get_tle.pl.space-track.in
new file mode 100644
index 0000000..fa887e0
--- /dev/null
+++ b/src/cal/get_tle/get_tle.pl.space-track.in
@@ -0,0 +1,148 @@
+#!/usr/bin/env perl
+use FileHandle;
+use IPC::Open2;
+
+###
+# OIG TLE retrieval program
+# DJG - 6/14/98
+#
+# Uses a file called "one" which has sat numbers to get
+#
+# Places all output in a single file called "five.tle".
+#
+###
+
+### Configure:
+##$login = "emurphy";
+##$passwd = "bdr529";
+
+$login = "mromelfanger";
+$passwd = "FuseJHU1";
+$output_filename = "/data1/fuse/calfuse/caltemp/five.tle";
+$log_filename = "/data1/fuse/calfuse/caltemp/get_tle.logfile";
+
+### (end of configure section)
+
+# system("fixlist one tempone");
+# chop($satstoget = `cat tempone`);
+# system("rm -f tempone");
+
+$satstoget = "25791";
+
+# The "output" file collects debugging copies of everything that comes back.
+open(OUT,">$log_filename") || die "Could not open output file";
+
+# The following logs in to OIG and gets the first "continue" code
+
+$host = "www.space-track.org";
+#$url = "scripts/foxweb.dll/loginok\@app01?tdac=&ffv01=$login&ffv02=$passwd";
+$url = "scripts/foxweb.exe/loginok\@app01?tdac=&ffv01=$login&ffv02=$passwd";
+
+open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection";
+Writer->autoflush();
+
+print Reader "telnet $host 80\n";
+print Writer "GET \/$url\n";
+while (<Reader>) {
+  print OUT "$_";  # copy each login screen line to the output file
+  if (/tdac=(\w+)\"/) {
+    $continuecode = $1;  # This code is the "continue" code
+  }
+}
+close(Reader);
+close(Writer);
+
+# $continuecode contains the very first "continue" code after login.
+
+print OUT "*** \n Starting User's Home Page output page \n***\n\n";
+
+# This url accesses the next screen (user home page)
+#$url = "scripts/foxweb.dll/favorhome\@app01?tdac=" . $continuecode;
+$url = "scripts/foxweb.exe/favorhome\@app01?tdac=" . $continuecode;
+# print $url; # debug print
+
+open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection";
+Writer->autoflush();
+
+print Reader "telnet $host 80\n";
+print Writer "GET \/$url\n";
+
+while (<Reader>) {
+  print OUT "$_";      # copy each line to the output file
+
+  if(/tdac=(\w+)\"/) {
+
+#   Look for the "tle ad hoc query" code and save it
+    chop($word = "$_");
+    if ($word =~ /ftleadhoc.+tdac=(\w+)\"/) {
+      $tlequerycode = "$1";
+    }
+  }
+}
+# close(HOMEPAGE);
+# This access is to the "TLE ad hoc query" web page.
+#$url = "scripts/foxweb.dll/ftleadhoc\@app01?tdac=" . $tlequerycode;
+$url = "scripts/foxweb.exe/ftleadhoc\@app01?tdac=" . $tlequerycode;
+
+open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection";
+Writer->autoflush();
+
+print Reader "telnet $host 80\n";
+print Writer "GET \/$url\n";
+
+while (<Reader>) {
+  print OUT "$_";  # copy each login screen line to the output file
+
+  # Look for the TLE "submit" code
+  chop($word = "$_");
+  if ($word =~ /tdac\" VALUE=\"(\w+)\"/) {
+    $gotcode2 = "$1";
+  }
+}
+close(Reader);
+close(Writer);
+
+# Compose the TLE query and submit it
+#$url = "scripts/foxweb.dll/ftleadhoc\@app01?tdac=" . $gotcode2;
+$url = "scripts/foxweb.exe/ftleadhoc\@app01?tdac=" . $gotcode2;
+$url .= "&ffv01=" . $satstoget . "&ffv02=standard&ffv03=catno&ffv04=five";
+
+# print "$url\n";  # debug print
+
+# Read the reply and copy the relevant lines to output_filename
+
+$copy = "no";
+open(TLEOUT,">$output_filename") || die "Error opening $output_filename";
+
+open2 (\*Reader, \*Writer, "telnet $host 80") || die "Error opening connection";
+Writer->autoflush();
+
+print Reader "telnet $host 80\n";
+print Writer "GET \/$url\n";
+
+while (<Reader>) {
+  if ($_ =~ /<P>/) {  # End copy operation
+    print "$_";       # write remaining limit to output file
+    $copy = "no";
+  }
+  if ($copy eq "yes") {
+    print TLEOUT "$_";   # copy every line to five.tle
+    # print "$_";          # and to the terminal
+  }
+  if (substr($_,0,5) eq "<PRE>") {  # Begin copy operation
+    $copy = "yes";
+  }
+}
+close(Reader);
+close(Writer);
+close(TLEOUT);
+
+# The following will remove all session files. You can comment it
+# out for debugging.
+# system("rm -f output");
+
+# The following script "fixes up" the output
+# system("fix/do.fix.one");
+
+### end of Perl script
+
-- 
cgit