summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/Travel/Status/DeutscheBahn.pm65
1 files changed, 65 insertions, 0 deletions
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;