home *** CD-ROM | disk | FTP | other *** search
/ linuxmafia.com 2016 / linuxmafia.com.tar / linuxmafia.com / pub / palmos / bart-1.3b2.tar.gz / bart-1.3b2.tar / bart-1.3b2 / data / grab-fares < prev    next >
Text File  |  2000-01-12  |  3KB  |  152 lines
  1. #!/usr/bin/perl -w
  2.  
  3. # Perl script to get system fares from the web, so I don't have to
  4. # type them in myself.  Uses lynx to download from the web.  This
  5. # script assumes below that the excursion fare is $3.80.
  6.  
  7. # Copyright (c) 1999, 2000 Michael Wittman
  8. # 
  9. # Permission is hereby granted, free of charge, to any person obtaining a
  10. # copy of this software and associated documentation files (the "Software"),
  11. # to deal in the Software without restriction, including without limitation
  12. # the rights to use, copy, modify, merge, publish, distribute, sublicense,
  13. # and/or sell copies of the Software, and to permit persons to whom the
  14. # Software is furnished to do so, subject to the following conditions:
  15. # 
  16. # The above copyright notice and this permission notice shall be included
  17. # in all copies or substantial portions of the Software.
  18. # 
  19. # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  20. # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  21. # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
  22. # THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR
  23. # OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
  24. # ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
  25. # OTHER DEALINGS IN THE SOFTWARE.
  26.  
  27. use strict;
  28.  
  29. # the following line sets $data_dir to the directory that this script is in
  30. my $data_dir = ($0 =~ m@^(?:(.*)/)?[^/]+$@)[0] || ".";
  31. my $fares_file = "$data_dir/fares";
  32. my $base_url = "http://www.transitinfo.org/cgi-bin/all_times?";
  33. my @fields = ("C", "D", "ALL", "TIME", "ATIME", "E");
  34. my @values = ("BA", "SA", "N", "1:35am", "2:00am", "");
  35.  
  36.  
  37.  
  38. my @stations = split '\n',
  39. "12ST
  40. 16ST
  41. 19ST
  42. 24ST
  43. ASHBY
  44. BALPK
  45. BFAIR
  46. BRK
  47. C-VLY
  48. CIVIC
  49. COLIS
  50. COLMA
  51. CONCD
  52. DALY
  53. DUBPL
  54. DEL-N
  55. PLAZA
  56. EMBAR
  57. FREMT
  58. FRTVL
  59. GLNPK
  60. HAY
  61. LAFAY
  62. LAKEM
  63. MACAR
  64. MONTG
  65. N-BRK
  66. N-CNC
  67. ORNDA
  68. PITTS
  69. PHILL
  70. POWEL
  71. RICH
  72. ROCKR
  73. SLEAN
  74. SHAY
  75. UCITY
  76. W-CRK
  77. W-OAK
  78. ";
  79.  
  80. sub sanitize {
  81.    local($_) = shift;
  82.    s/[^\w]|_/sprintf "%%%X", unpack "c", $&/ge;
  83.    $_;
  84. }
  85.  
  86. sub form_get_string {
  87.    my ($fields_ref,$values_ref) = @_;
  88.    my (@fields) = @$fields_ref;
  89.    my (@values) = @$values_ref;
  90.    my (@pairs);
  91.    my $i;
  92.  
  93.    for ($i = 0; $i < @fields; $i++) {
  94.       my ($field,$value) = ($fields[$i], $values[$i]);
  95.       push @pairs, join("=",&sanitize($field),&sanitize($value));
  96.    }
  97.  
  98.    join "&", @pairs;
  99. }
  100.  
  101. sub get_fare {
  102.    my $url = shift;
  103.    my $fare;
  104.    local($_);
  105.  
  106.    # print "\nlynx -source $url\n";
  107.    open(URL,"lynx -source \"$url\" |") || die "can't run lynx on url: $url\n";
  108.    while (defined($_ = <URL>)) {
  109.       if (/Fare:/) {
  110.      ($fare) = /\$(\d+\.\d\d)/;
  111.      last;
  112.       }
  113.    }
  114.    close(URL);
  115.  
  116.    $fare;
  117. }
  118.  
  119. sub my_print {
  120.    print @_;
  121.    print FARES @_;
  122. }
  123.  
  124. sub my_printf {
  125.    printf @_;
  126.    printf FARES @_;
  127. }
  128.  
  129. my ($i,$j);
  130.  
  131. $| = 1;
  132. open(FARES,"> $fares_file") || die "can't open fares file: $fares_file\n";
  133. for ($i = 0; $i < @stations; $i++) {
  134.    my_print "$stations[$i]";
  135.    for ($j = $i; $j < @stations; $j++) {
  136.       my $fare;
  137.       
  138.       if ($i == $j) {
  139.      $fare = 3.80;
  140.       }
  141.       else {
  142.      my (@flds) = (@fields, "FromStation", "ToStation");
  143.      my (@vals) = (@values, $stations[$i], $stations[$j]);
  144.      my $url = $base_url.&form_get_string(\@flds,\@vals);
  145.      $fare = &get_fare($url);
  146.       }
  147.       my_printf " %4.2f", $fare;
  148.    }
  149.    my_print "\n";
  150. }
  151. close(FARES);
  152.