update for newer perl and better home page

gstp.htm is hash randomization inside uglifyjs

Author: bulk88

docs/gstp.htm

@@ -1 +1 @@
-<meta content=0 name=mobileoptimized>No javascript<script>function e(e){var t;if(0==e.message.errorCode){var n,a=(new Date).toTimeString().split(" ");for(a.splice(1,1),t="MTA Time "+e.lastUpdatedTime+"<br>Page Time "+a.join(" ")+"<br>Cur Sta: "+e.stationName+"<br>",e.direction1.name,a=e.direction1.times,n=0;n<a.length;n++)t+="Min "+a[n].minutes+"-"+a[n].route+"-"+a[n].lastStation+"<br>";for(t+=e.direction2.name+"<br>",a=e.direction2.times,n=0;n<a.length;n++)t+="Min "+a[n].minutes+"-"+a[n].route+"-"+a[n].lastStation+"<br>"}else t="Failed: errorCode: "+e.message.errorCode+" Message: "+e.message.message;document.body.innerHTML+=t}function t(e){document.body.innerHTML=s;try{r=0,a.open("GET",i+"?_="+(new Date).getTime(),1),a.onreadystatechange=n,e&&a.setRequestHeader("If-Modified-Since",new Date(0)),a.send()}catch(e){r=1;var t=document.createElement("script");t.setAttribute("src",i+"?callback=e&_="+(new Date).getTime());var o=document.getElementsByTagName("head")[0];o.childNodes.length>1&&o.removeChild(o.childNodes[1]),o.appendChild(t)}}function n(n){4==a.readyState&&(200==a.status?"withCredentials"in a||a.getResponseHeader("Date")?e(eval("0,"+a.responseText)):t(1):alert("error HTTP status "+a.status))}var a=window.XMLHttpRequest?new XMLHttpRequest:new ActiveXObject("Microsoft.XMLHTTP"),r,i,s=location.hash;""!=s&&"#"!=s&&(i="http://TrainTimeLB-367443097.us-east-1.elb.amazonaws.com/getTime/"+s.substring(1),s='<a href="gstp.htm?'+(new Date).getTime()+s+'">Refresh</a> <a href="'+i+'">Raw</a><br>'),i?t():document.body.innerHTML="No station specified in url anchor."</script>
+<meta content=0 name=mobileoptimized>No javascript<script>function e(e){var t;if(0==e.message.errorCode){var n,a=(new Date).toTimeString().split(" ");for(a.splice(1,1),t="MTA Time "+e.lastUpdatedTime+"<br>Page Time "+a.join(" ")+"<br>Cur Sta: "+e.stationName+"<br>",e.direction1.name,a=e.direction1.times,n=0;n<a.length;n++)t+="Min "+a[n].minutes+"-"+a[n].route+"-"+a[n].lastStation+"<br>";for(t+=e.direction2.name+"<br>",a=e.direction2.times,n=0;n<a.length;n++)t+="Min "+a[n].minutes+"-"+a[n].route+"-"+a[n].lastStation+"<br>"}else t="Failed: errorCode: "+e.message.errorCode+" Message: "+e.message.message;document.body.innerHTML+=t}function t(e){document.body.innerHTML=s;try{i=0,a.open("GET",r+"?_="+(new Date).getTime(),1),a.onreadystatechange=n,e&&a.setRequestHeader("If-Modified-Since",new Date(0)),a.send()}catch(e){i=1;var t=document.createElement("script");t.setAttribute("src",r+"?callback=e&_="+(new Date).getTime());var o=document.getElementsByTagName("head")[0];o.childNodes.length>1&&o.removeChild(o.childNodes[1]),o.appendChild(t)}}function n(n){4==a.readyState&&(200==a.status?"withCredentials"in a||a.getResponseHeader("Date")?e(eval("0,"+a.responseText)):t(1):alert("error HTTP status "+a.status))}var a=window.XMLHttpRequest?new XMLHttpRequest:new ActiveXObject("Microsoft.XMLHTTP"),i,r,s=location.hash;""!=s&&"#"!=s&&(r="http://TrainTimeLB-367443097.us-east-1.elb.amazonaws.com/getTime/"+s.substring(1),s='<a href="gstp.htm?'+(new Date).getTime()+s+'">Refresh</a> <a href="'+r+'">Raw</a><br>'),r?t():document.body.innerHTML="No station specified in url anchor."</script>

docs/index.htm

@@ -1 +1 @@
-<meta content=0 name=mobileoptimized>Do you have a<br>[1]<a accesskey=1 href=stations.htm>Smart Phone (Subway)</a><br>[2]<a accesskey=2 href=mn/stations.htm>Smart Phone (Metro North)</a><br>[3]<a accesskey=3 href=li/stations.htm>Smart Phone (Long Island)</a><br>[4]<a accesskey=4 href=gwl/rt.htm>Dumb Phone (Subway)</a><br>[5]<a accesskey=5 href=mn/rt.htm>Dumb Phone (Metro North)</a><br>[6]<a accesskey=6 href=li/gwl/rt.htm>Dumb Phone (Long Island)</a><br>?<br>[7]<a accesskey=7 href=README.html>About</a>
+<meta content=0 name=mobileoptimized>Do you have a<br>[1]<a accesskey=1 href=stations.htm>Smart Phone (Subway)</a><br>[2]<a accesskey=2 href=mn/stations.htm>Smart Phone (Metro North)</a><br>[3]<a accesskey=3 href=li/stations.htm>Smart Phone (Long Island)</a><br>[4]<a accesskey=4 href=gwl/rt.htm>Dumb Phone (Subway)</a><br>[5]<a accesskey=5 href=mn/rt.htm>Dumb Phone (Metro North)</a><br>[6]<a accesskey=6 href=li/gwl/rt.htm>Dumb Phone (Long Island)</a><br>[7]<a accesskey=7 href=http://tripplanner.mta.info/MyTrip/ui_phone/cp/idefault.aspx>Trip Planner Lite</a><br>[8]<a accesskey=8 href=http://service.mta.info/ServiceStatus/status.html>Service Changes Lite</a><br>[9]<a accesskey=9 href=README.html>About</a>

index.htm

@@ -5,6 +5,8 @@
 [3]<a accesskey=3 href=li/stations.htm>Smart Phone (Long Island)</a><br>
 [4]<a accesskey=4 href=gwl/rt.htm>Dumb Phone (Subway)</a><br>
 [5]<a accesskey=5 href=mn/rt.htm>Dumb Phone (Metro North)</a><br>
-[6]<a accesskey=6 href=li/gwl/rt.htm>Dumb Phone (Long Island)</a><br>?<br>
-[7]<a accesskey=7 href=README.html>About</a>
+[6]<a accesskey=6 href=li/gwl/rt.htm>Dumb Phone (Long Island)</a><br>
+[7]<a accesskey=7 href=http://tripplanner.mta.info/MyTrip/ui_phone/cp/idefault.aspx>Trip Planner Lite</a><br>
+[8]<a accesskey=8 href=http://service.mta.info/ServiceStatus/status.html>Service Changes Lite</a><br>
+[9]<a accesskey=9 href=README.html>About</a>
 </body></html>

mnr/gr3.pl

@@ -22,7 +22,7 @@
 die "1st arg must be generate desktop MTA site stations or mobilized MTA site stations " if ! defined $ARGV[0];
 my $mob = $ARGV[0];
 our $VAR1;
-do 'routedatafinal.pl';
+do '.\routedatafinal.pl';
 my @lineshtml;
 my @linesboroughhtml;
 my @linestopshtml;

mnr/grmp.pl

@@ -27,7 +27,7 @@
 #nodejs processes instead of a million system() calls
 my $minifyhtml = !$ENV{DISABLEMINI};
 our $VAR1;
-do 'routedatafinal.pl';
+do '.\routedatafinal.pl';
 my @lineshtml;
 my %rtdispname = getRouteDisplayNames('route_long_name');
 

sub/gr3.pl

@@ -14,7 +14,7 @@
 die "1st arg must be generate JS stations or no-JS" if ! defined $ARGV[0];
 my $js = $ARGV[0];
 our $VAR1;
-do 'routedatafinal.pl';
+do '.\routedatafinal.pl';
 my @lineshtml;
 my @linesboroughhtml;
 my @linestopshtml;

sub/grmp.pl

@@ -25,7 +25,7 @@
 #nodejs processes instead of a million system() calls
 my $minifyhtml = !$ENV{DISABLEMINI};
 our $VAR1;
-do 'routedatafinal.pl';
+do '.\routedatafinal.pl';
 my @lineshtml;
 my %rtdispname = getRouteDisplayNames('route_id');