diff --git a/index.pl b/index.pl
index 3f070ff..71ecd92 100755
--- a/index.pl
+++ b/index.pl
@@ -34,6 +34,8 @@ my %action_type = (
undo => 3,
);
+my @action_types = (qw(checkin checkout undo));
+
app->plugin(
authentication => {
autoload_user => 1,
@@ -754,6 +756,58 @@ post '/action' => sub {
}
};
+get '/a/account' => sub {
+ my ($self) = @_;
+
+ $self->render('account');
+};
+
+get '/a/export.json' => sub {
+ my ($self) = @_;
+ my $uid = $self->get_user_id;
+ my $query = $self->app->get_all_actions_query;
+
+ $query->execute($uid);
+
+ my @entries;
+
+ while ( my @row = $query->fetchrow_array ) {
+ my (
+ $action, $raw_ts, $ds100, $name,
+ $train_type, $train_line, $train_no, $train_id,
+ $raw_sched_ts, $raw_real_ts, $raw_route, $raw_messages
+ ) = @row;
+
+ $name = decode( 'UTF-8', $name );
+ $raw_route = decode( 'UTF-8', $raw_route );
+ $raw_messages = decode( 'UTF-8', $raw_messages );
+ push(
+ @entries,
+ {
+ action => $action_types[ $action - 1 ],
+ action_ts => $raw_ts,
+ station_ds100 => $ds100,
+ station_name => $name,
+ train_type => $train_type,
+ train_line => $train_line,
+ train_no => $train_no,
+ train_id => $train_id,
+ scheduled_ts => $raw_sched_ts,
+ realtime_ts => $raw_real_ts,
+ messages => $raw_messages
+ ? [ map { [ split(qr{:}) ] } split( qr{[|]}, $raw_messages ) ]
+ : undef,
+ route => $raw_route ? [ split( qr{[|]}, $raw_route ) ]
+ : undef,
+ }
+ );
+ }
+
+ $self->render(
+ json => [@entries],
+ );
+};
+
get '/a/history' => sub {
my ($self) = @_;
diff --git a/templates/account.html.ep b/templates/account.html.ep
new file mode 100644
index 0000000..e734ee0
--- /dev/null
+++ b/templates/account.html.ep
@@ -0,0 +1,27 @@
+Account
+
+
+
+ | Name |
+ <%= get_user_name() %> |
+
+
+ | Mail |
+ fnord@example.org |
+
+
+ | Registriert am |
+ 01.01.1970 00:00 |
+
+
+
Export
+
+
+
+
+ - Rohdaten (Kein API-Ersatz, das Format kann sich jederzeit ändern)
+
+
+