#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/Modules";
use Net::SFTP;



print "Content-Type: text/html\n\n";

sub SendFileOverSFTP {
 
    
    my %args = (
    user =>  $username,
    password =>  $password,
    debug =>  true,
    ); 
    
    my %defaultArgs = (
    FTPServer =>  "$gameserverip",
    FTPRemoteDir =>  "$gameserverroot");
    
    my $sftp = Net::SFTP-> new($defaultArgs{FTPServer},%args); 
      
      my $openFtpDir =    $sftp-> do_open($defaultArgs{FTPRemoteDir});
    if ( !defined($ENV{'DOCUMENT_ROOT'}/$spufolder/) ) {
         print "failed to open the ftp directory\n";
    }
    
    my $local = "spuaf.txt"; 
    my $remote = "spuaf.txt";
    
     my $ergebnis = $sftp-> put($local,$remote); 
    
     if ( !defined($ergebnis) )
     {
        print "error\n";
     }

     #$sftp-> quit; 
     undef $sftp;
}

SendFileOverSFTP;