Unverified Commit 0c57f932 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Add BART service

parent 6b575af0

bin/hafas-m

+4 −2
Original line number Diff line number Diff line
@@ -163,9 +163,11 @@ sub parse_mot_options { 
			if ($desc) {

				for my $mot ( @{ $desc->{productbits} } ) {

					if ( ref($mot) eq 'ARRAY' ) {

						if ( $mot->[0] ne '_' ) {

							printf( "%-10s %s\n", @{$mot} );

						}

					else {

					}

					elsif ( $mot ne '_' ) {

						say $mot;

					}

				}

lib/Travel/Status/DE/HAFAS.pm

+31 −1
Original line number Diff line number Diff line
@@ -37,7 +37,7 @@ my %hafas_instance = ( 
			[ bus      => 'long distance busses' ],

			[ s        => 'sububrban trains' ],

			[ u        => 'underground trains' ],

			[ tram     => 'rams' ],

			[ tram     => 'trams' ],

			[ bus      => 'busses' ],

			[ bus      => 'additional busses' ],

			[ ondemand => 'on-demand services' ],
@@ -59,6 +59,36 @@ my %hafas_instance = ( 
			lang => 'deu',

		},

	},

	BART => {

		stopfinder  => 'https://planner.bart.gov/bin/ajax-getstop.exe',

		mgate       => 'https://planner.bart.gov/bin/mgate.exe',

		name        => 'Bay Area Rapid Transit',

		productbits => [

			[ _     => undef ],

			[ _     => undef ],

			[ cc    => 'cable cars' ],

			[ regio => 'regional trains' ],

			[ _     => undef ],

			[ bus   => 'busses' ],

			[ ferry => 'maritime transit' ],

			[ bart  => 'BART trains' ],

			[ tram  => 'trams' ],

		],

		languages => [qw[en]],

		request   => {

			client => {

				id   => 'BART',

				type => 'WEB',

				name => 'webapp',

			},

			ver  => '1.40',

			auth => {

				type => 'AID',

				aid  => 'kEwHkFUC' . 'IL500dym',

			},

			lang => 'en',

		},

	},

	DB => {

		stopfinder    => 'https://reiseauskunft.bahn.de/bin/ajax-getstop.exe',

		mgate         => 'https://reiseauskunft.bahn.de/bin/mgate.exe',