#!/usr/bin/perl

# Verbindung via SCP
use Net::SCP qw(scp);

# Login Informationen
my $user = "USER";
my $host = "HOST";

my $startTime = getUnixTime();
my $timeNow = $startTime;
my $duration = 0;
my $auth = 0;
my $tmp;

while (true) { # daemon-Schleife
  if ( ( ($timeNow - $startTime) % (120 + $duration) ) == 0 ) {
  
    while ( not $auth ) { # Verbindungsschleife
      if ( ( ($timeNow - ($startTime+$duration)) % 5 ) == 0 ) {
        # doConnect(); mit scp-new ersetzt
        $scp = Net::SCP->new($host, $user);
	# doAuth(); - braucht kein Passwort da SSH-Key hinterlegt
      }
      $tmp = getUnixTime();
      $duration = $tmp - $timeNow;
      $timeNow = tmp;
    }

    getLogs();
    disconnect();
    $auth = 0;
  }

  $duration = getUnixTime() - $timeNow;
  $timeNow = getUnixTime();
}