#!/usr/bin/perl -w

use utf8;
use strict;
use warnings;

BEGIN {
	unshift @INC, ( $ENV{'POPHOME'} || '@POPHOME@' ) . '/lib'
	  unless $ENV{'KUNDE_NO_PERLPATH'};
}

use Dbase::Help qw(DoFn DoReadOnly);
use noris::REST::Backend qw(return_result);

DoReadOnly {
    return_result DoFn
      'select id from nextid where name="acct_ts"';
}

=head1 NAME

get_accounting_timestamp - Zeitpunkt des zuletzt bearbeiteten acct-Datensatzes

=head1 BESCHREIBUNG

Holt sich den Unix-Timestamp des zuletzt bearbeiteten Accounting Datensatzes.

=head1 OUTPUT

Unix-Timestamp des zuletzt bearbeiteten Accounting-Datensatzes

=head1 VERWENDUNG

(E<lt>https://service.noris.net/get_accounting_timestamp/E<gt>), vgl. #10095313

=cut

