#!/usr/bin/perl -w
#
     
     my $loglevel = 4;
     my $logfile = "/tmp/ssh-test.log";
     my $tring = "ijapeters@hotmail.com";


     	my $self=shift;
		
        my $AUTOMAIL=".qmail-prorataweb";
        my $HOST="proxy2";
        my $ssh="/usr/bin/ssh";
        my $KEY="'/home/automail/.ssh/automail-ns2_dsa'";
        $self->log(4,"HOST: $HOST");
	my $OUT="|$ssh -l automail -i $KEY $HOST \"tee $AUTOMAIL >/dev/null\"";
	my $IN ="$ssh -l automail -i $KEY $HOST \"cat $AUTOMAIL|wc -l\" |";

#  my $OUT="|$ssh -l automail $HOST \"tee $AUTOMAIL >/dev/null\"";
#  my $IN ="$ssh -l automail $HOST \"cat $AUTOMAIL|wc -l\" |";

     #my $tring=shift;
     $self->log(4,"Tring: $tring");

if ($tring eq ""){
     open (FILE, $IN);
     $self->log(4,"IN-File: $IN");
     $num=<FILE>;
     $self->log(4,"num =  $num");
     close FILE;
     chomp $num;
     $num=~s/\s//g;
     $self->log(4,"READ from automail: $num Mails");
     return $num;
																       }
    else {
      open (FILE, $OUT);
      $self->log(4,"Opening: $OUT");
      print FILE $tring;
      close FILE;
}


#sub printlog {
#        my $self= shift;
#        my $emerg=shift;
#        my $TEXT= shift;
#        my $file=$logfile;
#        my $loglevel=$loglevel;
#
#	if ($loglevel < $emerg) {return;} # Wenn der oben eingestellte Loglevel niedriger ist...
#        my ($sec,$min,$hour,$day,$mon,$year) = (localtime(time))[0,1,2,3,4,5];      # Datum und Zeit holen
#       $TEXT=sprintf("%2d.%2d %2d:%2d:%2d ",$day,$mon+1,$hour,$min,$sec) .$TEXT;   # Datum formatieren
#	open (FILE, ">>$file") or print "Content-type: text/plain\n\nFehler mit der Logdatei";
#	print FILE "$TEXT\n";
#	close FILE;
#	
#	if ($emerg==1) {$self->exit("Notausgang !!")}
#	      return;
#	}

####################################################################
###         Schreibt ins Logfile
###         Argumente  : Emergency und Logtext
###         Returnwert : -
################################################################
	sub log {
	      my $self = shift;
	      my $emer = shift;
	      my $TEXT = shift;
	     #$self->printlog($emer, "[Baseq] $TEXT");

        my $file=$logfile;
        my $loglevel=$loglevel;
        if ($loglevel < $emerg) {return;} # Wenn der oben eingestellte Loglevel niedriger ist...
        my ($sec,$min,$hour,$day,$mon,$year) = (localtime(time))[0,1,2,3,4,5];      # Datum und Zeit holen
       $TEXT=sprintf("%2d.%2d %2d:%2d:%2d ",$day,$mon+1,$hour,$min,$sec) .$TEXT;   # Datum formatieren
        open (FILE, ">>$file") or print "Content-type: text/plain\n\nFehler mit der Logdatei";
        print FILE "$TEXT\n";
        close FILE;
        if ($emerg==1) {$self->exit("Notausgang !!")}
        return;
}