summaryrefslogtreecommitdiff
path: root/bin/db-wagenreihung
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2018-12-26 09:39:03 +0100
committerDaniel Friesel <derf@finalrewind.org>2018-12-26 09:39:03 +0100
commit0e8352da3e31cb0fbedd3e50d21efe3a64866219 (patch)
tree7367459c2ceeeb5bffea1ed87feb46b90e422cbc /bin/db-wagenreihung
parent10acc6b3085c88aaf83f637a54fa9718dcf551d4 (diff)
rename dbwagenreihung to db-wagenreihung
Diffstat (limited to 'bin/db-wagenreihung')
-rwxr-xr-xbin/db-wagenreihung121
1 files changed, 121 insertions, 0 deletions
diff --git a/bin/db-wagenreihung b/bin/db-wagenreihung
new file mode 100755
index 0000000..100f4b1
--- /dev/null
+++ b/bin/db-wagenreihung
@@ -0,0 +1,121 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use 5.020;
+use utf8;
+
+our $VERSION = '0.00';
+
+use Getopt::Long;
+use List::Util qw(min);
+use Travel::Status::DE::IRIS;
+use Travel::Status::DE::DBWagenreihung;
+
+my $developer_mode = 0;
+
+sub show_help {
+ my ($code) = @_;
+
+ say "Usage: db-wagenreihung <station> <train number>";
+
+ exit $code;
+}
+
+sub show_version {
+ say "db-wagenreihung version ${VERSION}";
+
+ exit 0;
+}
+
+GetOptions(
+ 'h|help' => sub { show_help(0) },
+ 'devmode' => \$developer_mode,
+ 'version' => sub { show_version() },
+) or show_help(1);
+
+if ( @ARGV != 2 ) {
+ show_help(1);
+}
+
+my ( $station, $train_number ) = @ARGV;
+
+my $col_first = "\e[38;5;11m";
+my $col_mixed = "\e[38;5;208m";
+my $col_second = "\e[38;5;9m";
+my $col_reset = "\e[0m";
+
+my $res = Travel::Status::DE::IRIS->new(
+ developer_mode => $developer_mode,
+ station => $station,
+ with_related => 1
+);
+
+if ( $res->errstr ) {
+ say STDERR $res->errstr;
+ exit 1;
+}
+
+my @trains = grep { $_->train_no eq $train_number } $res->results;
+
+if ( @trains != 1 ) {
+ say STDERR "Unable to find train in reported departures";
+ exit 1;
+}
+
+my $wr = Travel::Status::DE::DBWagenreihung->new(
+ departure => $trains[0]->sched_departure,
+ developer_mode => $developer_mode,
+ train_number => $train_number,
+);
+
+for my $section ( $wr->sections ) {
+ my $section_length = $section->length_percent;
+ my $spacing_left = int( ( $section_length - 2 ) / 2 ) - 1;
+ my $spacing_right = int( ( $section_length - 2 ) / 2 );
+
+ if ( $section_length % 2 ) {
+ $spacing_left++;
+ }
+
+ printf( "|%s%s%s|",
+ ' ' x $spacing_left,
+ $section->name,
+ ' ' x $spacing_right );
+}
+print "\n";
+
+my @start_percentages = map { $_->{position}{start_percent} } $wr->wagons;
+print ' ' x ( min @start_percentages );
+
+for my $wagon ( $wr->wagons ) {
+ my $wagon_length
+ = $wagon->{position}->{end_percent} - $wagon->{position}->{start_percent};
+ my $spacing_left = int( $wagon_length / 2 ) - 2;
+ my $spacing_right = int( $wagon_length / 2 ) - 1;
+
+ if ( $wagon_length % 2 ) {
+ $spacing_left++;
+ }
+
+ my $wagon_desc = $wagon->number || '?';
+
+ if ( $wagon->is_locomotive or $wagon->is_powercar ) {
+ $wagon_desc = '<->';
+ }
+
+ my $class_color = '';
+ if ( $wagon->class_type == 1 ) {
+ $class_color = $col_first;
+ }
+ elsif ( $wagon->class_type == 2 ) {
+ $class_color = $col_second;
+ }
+ elsif ( $wagon->class_type == 12 ) {
+ $class_color = $col_mixed;
+ }
+
+ printf( "%s%s%3s%s%s",
+ ' ' x $spacing_left, $class_color, $wagon_desc,
+ $col_reset, ' ' x $spacing_right );
+}
+print "\n";