diff options
| -rwxr-xr-x | bin/mris | 104 | ||||
| -rw-r--r-- | lib/Travel/Status/DeutscheBahn.pm | 65 |
2 files changed, 169 insertions, 0 deletions
diff --git a/bin/mris b/bin/mris new file mode 100755 index 0000000..fa78145 --- /dev/null +++ b/bin/mris @@ -0,0 +1,104 @@ +#!/usr/bin/env perl +## Copyright © 2010 by Daniel Friesel <derf@finalrewind.org> +## License: WTFPL <http://sam.zoy.org/wtfpl> +## 0. You just DO WHAT THE FUCK YOU WANT TO. +use strict; +use warnings; +use 5.010; + +use LWP::UserAgent; +use XML::LibXML; + +my @now = localtime(time()); +my $date = sprintf("%d.%d.%d", $now[3], $now[4] + 1 , $now[5] + 1900); +my $time = sprintf("%d:%d", $now[2], $now[1]); + +my $post = { + input => $ARGV[0], + inputRef => '#', + date => $date, + time => $time, + productsFilter => '1111101000000000', + REQTrain_name => q{}, + maxJourneys => 20, + delayedJourney => undef, + start => 'Suchen', + boardType => 'Abfahrt', + ao => 'yes', +}; + +my $ua = LWP::UserAgent->new(); +my $reply = $ua->post('http://mobile.bahn.de/bin/mobil/bhftafel.exe/dox?rt=1&use_realtime_filter=1', $post)->content(); + +my $tree = XML::LibXML->load_html( + string => $reply, + recover => 2, + suppress_errors => 1, + suppress_warnings => 1, +); + +my $xp_element = XML::LibXML::XPathExpression->new('//div[@class="sqdetailsDep trow"]'); +my $xp_late = XML::LibXML::XPathExpression->new('./span[@class="red"]'); +my $xp_on_time = XML::LibXML::XPathExpression->new('./span[@class="green bold"]'); +my $xp_bold = XML::LibXML::XPathExpression->new('.//span[@class="bold"]'); +my $re_platform = qr{ + Gl\. \s (\d+) $ +}msx; +my $re_dest = qr{ + >> \n ([^\n]+) \n +}msx; + +for my $div (@{$tree->findnodes($xp_element)}) { + + my ($n_line, $n_time) = $div->findnodes($xp_bold); + my ($n_late) = $div->findnodes($xp_late); + my $text = $div->textContent(); + + my ($platform) = ($text =~ $re_platform); + my ($destination) = ($text =~ $re_dest); + my $line = $n_line->textContent(); + my $time = $n_time->textContent(); + + my $late = ( + $n_late + ? $n_late->textContent() + : q{} + ); + + $line =~ tr/ //s; + + printf( + "%s %-10s %-30s %-2d %s\n", + $time, + $line, + $destination, + $platform, + $late + ); +} + +__END__ + +=head1 NAME + +=head1 SYNOPSIS + +=head1 DESCRIPTION + +=head1 OPTIONS + +=head1 EXIT STATUS + +=head1 CONFIGURATION + +=head1 DEPENDENCIES + +=head1 BUGS AND LIMITATIONS + +=head1 AUTHOR + +Copyright (C) 2010 by Daniel Friesel E<lt>derf@finalrewind.orgE<gt> + +=head1 LICENSE + + 0. You just DO WHAT THE FUCK YOU WANT TO. diff --git a/lib/Travel/Status/DeutscheBahn.pm b/lib/Travel/Status/DeutscheBahn.pm new file mode 100644 index 0000000..dfa50d0 --- /dev/null +++ b/lib/Travel/Status/DeutscheBahn.pm @@ -0,0 +1,65 @@ +package Travel::Status::DeutscheBahn; + +use strict; +use warnings; +use 5.010; +use base 'Exporter'; + +use LWP::UserAgent; +use XML::LibXML; + +our @EXPORT_OK = (); +my $VERSION = '0.0'; + +sub new { + my ($obj, %conf) = @_; + my $ref = {}; + + my @now = localtime(time()); + + $ref->{post} = { + date => $conf{date} + // sprintf('%d.%d.%d', $now[3], $now[4] + 1, $now[5] + 1900), + time => $conf{time} + // sprintf('%d:%d', $now[2], $now[1]), + input => $conf{station}, + inputef => q{#}, + produtsFilter => '1111101000000000', + REQTrin_name => q{}, + maxJorneys => 20, + delayedJourney => undef, + start => 'Suchen', + boardType => 'Abfahrt', + ao => 'yes', + }; + + return bless($ref, $obj); +} + +sub get { + my ($self) = @_; + my $ua = LWP::UserAgent->new(); + my $reply = $ua->post( + 'http://mobile.bahn.de/bin/mobil/bhftafel.exe/dox', + $self->{post}, + )->content(); + my $tree = XML::LibXML->load_html( + string => $reply, + recover => 2, + suppress_errors => 1, + suppress_warnings => 1, + ); + + my $xp_element + = XML::LibXML::XPathExpression->new('//div[@class="sqdetailsDep trow"]'); + my $xp_line = XML::LibXML::XPathExpression->new('./a/span'); + my $xp_dep = XML::LibXML::XPathExpression->new('./span[1]'); + + for my $div (@{$tree->findnodes($xp_element)}) { + say $div->findnodes($xp_line)->[0]->textContent(); + say $div->findnodes($xp_dep)->[0]->textContent(); + say q{}; + } +} + +1; |