#!/usr/bin/perl

# Source: @RPM_PACKAGE_VERSION@-@RPM_PACKAGE_RELEASE@

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

use utf8;
use strict;
use warnings;
use Umlaut qw(textmodus);

use Cf qw($DATAHOST);
use Dbase::Help;
use Dbase::Help qw(DoTime);
use Dbase::Globals;
use Fehler qw(fehler ffehler);

sub Usage() {
	my $vers = '@RPM_PACKAGE_VERSION@-@RPM_PACKAGE_RELEASE@';

	textmodus(\*STDERR);
    die <<END;
Usage: $0 -- setzt LASTUPDATE
          HOST diesen Rechner bearbeiten

Version: $vers
END
  exit 1;
}

use Getopt::Std;
our($opt_h,$opt_v);
getopts("hv") or Usage;
Usage if $opt_h;
Usage if @ARGV > 1;
my $host = @ARGV ? $ARGV[0] : $DATAHOST;

$|=1 if $opt_v;
my $db;
while(1) {
  ffehler {
	$db = Dbase->new(DATAHOST => $host, DATAHOST2 => $host) unless $db;
	fehler "Kein Zugriff auf $host\n" unless $db;
	$db->Do("update nextid set id = ".DoTime." where name = 'lastupdate'");
	print "  ".DoTime."\r" if $opt_v;
  } sub {
	$db = undef;
  };
} continue {
	sleep(1);
}

