From fd1ff5ad10e530661f59e3218dbf8ea97cfe4112 Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Tue, 31 Oct 2023 22:39:22 +0100
Subject: initial commit

---
 lib/Travel/Routing/DE/HAFAS/Connection/Section.pm | 115 ++++++++++++++++++++++
 1 file changed, 115 insertions(+)
 create mode 100644 lib/Travel/Routing/DE/HAFAS/Connection/Section.pm

(limited to 'lib/Travel/Routing/DE/HAFAS/Connection')

diff --git a/lib/Travel/Routing/DE/HAFAS/Connection/Section.pm b/lib/Travel/Routing/DE/HAFAS/Connection/Section.pm
new file mode 100644
index 0000000..6b85f1a
--- /dev/null
+++ b/lib/Travel/Routing/DE/HAFAS/Connection/Section.pm
@@ -0,0 +1,115 @@
+package Travel::Routing::DE::HAFAS::Connection::Section;
+
+# vim:foldmethod=marker
+
+use strict;
+use warnings;
+use 5.014;
+
+use parent 'Class::Accessor';
+use DateTime::Duration;
+use Travel::Routing::DE::HAFAS::Utils;
+
+our $VERSION = '0.00';
+
+Travel::Routing::DE::HAFAS::Connection::Section->mk_ro_accessors(
+	qw(type schep_dep rt_dep sched_arr rt_arr dep_datetime arr_datetime arr_delay dep_delay journey distance duration dep_loc arr_loc
+	  operator id name category category_long class number line line_no load delay direction)
+);
+
+# {{{ Constructor
+
+sub new {
+	my ( $obj, %opt ) = @_;
+
+	my $hafas = $opt{hafas};
+	my $sec   = $opt{sec};
+	my $date  = $opt{date};
+	my $locs  = $opt{locL};
+	my @prodL = @{ $opt{common}{prodL} // [] };
+
+	my $strptime = DateTime::Format::Strptime->new(
+		pattern   => '%Y%m%dT%H%M%S',
+		time_zone => 'Europe/Berlin'
+	);
+
+	my $sched_dep = $sec->{dep}{dTimeS};
+	my $rt_dep    = $sec->{dep}{dTimeR};
+	my $sched_arr = $sec->{arr}{aTimeS};
+	my $rt_arr    = $sec->{arr}{aTimeR};
+
+	for my $ts ( $sched_dep, $rt_dep, $sched_arr, $rt_arr ) {
+		if ($ts) {
+			$ts = handle_day_change(
+				date     => $date,
+				time     => $ts,
+				strp_obj => $strptime,
+			);
+		}
+	}
+
+	my $ref = {
+		type         => $sec->{type},
+		sched_dep    => $sched_dep,
+		rt_dep       => $rt_dep,
+		sched_arr    => $sched_arr,
+		rt_arr       => $rt_arr,
+		dep_datetime => $rt_dep // $sched_dep,
+		arr_datetime => $rt_arr // $sched_arr,
+		dep_loc      => $locs->[ $sec->{dep}{locX} ],
+		arr_loc      => $locs->[ $sec->{arr}{locX} ],
+	};
+
+	if ( $sched_dep and $rt_dep ) {
+		$ref->{dep_delay} = ( $rt_dep->epoch - $sched_dep->epoch ) / 60;
+	}
+
+	if ( $sched_arr and $rt_arr ) {
+		$ref->{arr_delay} = ( $rt_arr->epoch - $sched_arr->epoch ) / 60;
+	}
+
+	if ( $sec->{type} eq 'JNY' ) {
+
+		#operator id name type type_long class number line line_no load delay direction)
+		my $journey = $sec->{jny};
+		my $product = $prodL[ $journey->{prodX} ];
+		$ref->{id}            = $journey->{jid};
+		$ref->{direction}     = $journey->{dirTxt};
+		$ref->{name}          = $product->{addName} // $product->{name};
+		$ref->{category}      = $product->{prodCtx}{catOut};
+		$ref->{category_long} = $product->{prodCtx}{catOutL};
+		$ref->{class}         = $product->{cls};
+		$ref->{number}        = $product->{prodCtx}{num};
+		$ref->{line}          = $ref->{name};
+		$ref->{line_no}       = $product->{prodCtx}{line};
+
+		if (    $ref->{name}
+			and $ref->{category}
+			and $ref->{name} eq $ref->{category}
+			and $product->{nameS} )
+		{
+			$ref->{name} .= ' ' . $product->{nameS};
+		}
+	}
+	elsif ( $sec->{type} eq 'WALK' ) {
+		$ref->{distance} = $sec->{gis}{dist};
+		my $duration = $sec->{gis}{durS};
+		$ref->{duration} = DateTime::Duration->new(
+			hours   => substr( $duration, 0, 2 ),
+			minutes => substr( $duration, 2, 2 ),
+			seconds => substr( $duration, 4, 2 ),
+		);
+	}
+
+	bless( $ref, $obj );
+
+	return $ref;
+}
+
+# }}}
+
+# {{{ Accessors
+
+# }}}
+
+1;
-- 
cgit v1.2.3