initial commit

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;