Quote

1144 Installierte Module (@INC)
Math::BigFloat 1.51
Math::BigFloat::Subclass 0.05
Math::BigFloat::Trace 0.01
Math::BigInt 1.77
Math::BigInt::BareCalc 0.04
Math::BigInt::BitVect 1.12
Math::BigInt::Calc 0.47
Math::BigInt::CalcEmu 0.05
Math::BigInt::Constant 1.06
Math::BigInt::FastCalc 0.10
Math::BigInt::GMP 1.18
Math::BigInt::Lite 0.11
Math::BigInt::Named 0.02
Math::BigInt::Named::English 0.01
Math::BigInt::Named::German 0.01
Math::BigInt::Pari 1.11
Math::BigInt::Scalar 0.12
Math::BigInt::Subclass 0.04
Math::BigInt::Trace 0.01
Math::BigRat 0.07
Math::Complex 1.34
Math::Pari 2.010702
Math::PariBuild 1.3
Math::PartialOrder 0.01
Math::PartialOrder::Base ?
Math::PartialOrder::Caching 0.01
Math::PartialOrder::CEnum 0.01
Math::PartialOrder::CMasked 0.01
Math::PartialOrder::LRUCaching 0.01
Math::PartialOrder::Std 0.01
Math::Polygon 0.003
Math::Polygon::Calc 0.003
Math::Polygon::Clip 0.003
Math::Polygon::Surface 0.003
Math::Polygon::Transform 0.003
Math::Polyhedra 0.7
Math::Polynomial 0.03
Math::Trig 1.01

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48

#!/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;