Net::SFTP (Perl/CGI) - Perl-Community.de

[thread]652[/thread]

Net::SFTP

Leser: 4

opixantos

2006-01-17 19:14

User since
2006-01-07
15 Artikel
BenutzerIn
[default_avatar]

hallo habe das modul aus dem netz und auf mein webspace druf.. unter cgi-bin/Modules/Net
es wird auch angezeigt bei sysinfo.
Nun möchte ich eine verbindung zum server2 per sftp erstellen , jedoch kommt eine fehlermeldung.. weis net weiter.. wer kann mir bitte helfen

Code: (dl )

$gameserverip="xxxxxxxxxxxxx";

$username="xxxxxxxxxx";

$eventfolder="events";

$password="xxxxxxxxxxx";

$dateiholen="user.txt";

$dateiupload="spuaf.txt";

$spufolder="spuaf";


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

sub SendFileOverSFTP {

      use strict;
    use warnings;
    use Modules::Net::SFTP;
    use Data::Dumper;
 
    
    my %args = (
    user =>  "$username",
    password =>  "$password",
    debug =>  "true",
    ); 
    
    my %defaultArgs = (
    FTPServer =>  "$gameserverip",
    FTPRemoteDir =>  "/home/$username/source/cstrike/cfg/$eventfolder/spuaf/");
    
    my $sftp = Modules::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;

Quote
Can't locate Net/SFTP/Constants.pm in @INC (@INC contains: /usr/lib/perl5/5.8.0/i586-linux-thread-multi /usr/lib/perl5/5.8.0 /usr/lib/perl5/site_perl/5.8.0/i586-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl .) at Modules/Net/SFTP.pm line 6.
BEGIN failed--compilation aborted at Modules/Net/SFTP.pm line 6.
Compilation failed in require at test.pl line 21.
BEGIN failed--compilation aborted at test.pl line 21.

besten dank für eure hielfe schon im voruaus..

opixantos\n\n

Dubu

2006-01-17 21:43

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

Einfach ein "Modules::" vor den Namen schreiben funktioniert nicht. Hier möchte Net::SFTP noch ein eigenes Untermodul namens Net::SFTP::Constants nachladen, was natürlich nicht klappt.

Du musst dein Modulverzeichnis Perl bekannt machen:

Code: (dl )

use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/Modules";

Außerdem ist es meist übersichtlicher, wenn die ganzen use-Statements am Anfang des Skriptes stehen, und nicht irgendwo in einer Sub. (Ausgeführt werden sie eh bei der Kompilation und nicht erst, wenn das Skript an die Stelle kommt.)

renee

2006-01-18 01:27

User since
2003-08-04
14371 Artikel
ModeratorIn

Noch ein paar allgemeine Anmerkungen:

Code: (dl )

1
2

    user =>  "$username",
    password =>  "$password",

verzichte hier auf die " . Die sind bei Variablen nicht notwendig...

Benutze Wiki:

use strict...

Es heisst dann (nachdem Du das von Dubu gemacht hast) auch nicht mehr Modules::Net::SFTP, sondern einfach nur noch Net::SFTP...

Du verwendest 3 verschiedene Variablen fuer ein und denselben Dateinamen. Wuerde ich reduzieren...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

opixantos

2006-01-19 10:36

User since
2006-01-07
15 Artikel
BenutzerIn
[default_avatar]

vielen dank..

hab da ein weiteres problem..

Quote
Can't locate loadable object for module Math::Pari
Modules/Net/SSH/Perl/Util/SSH2MP.pm line 6

bei SSH2MP.pm line 6 steht dan

Quote
# $Id: SSH2MP.pm,v 1.4 2005/01/16 21:05:18 dbrobins Exp $

package Net::SSH::Perl::Util::SSH2MP;
use strict;

use Math::Pari qw( PARI floor pari2num Mod lift );

Math::Pari habe ich drauf bei Modules/Math/Pari.pm, PariBuild.pm und PariInit.pm in diesem ordner.

woran liegt es jetzt ???? K.A.

besten dank

opixantos\n\n

Dubu

2006-01-19 12:00

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

Wie hast du Math::Pari denn installiert? Vom Distributor oder mit CPAN.pm? Es sieht so aus, als waeren die binaeren Anteile nicht mit installiert worden. Hast du Wiki:

WieInstalliereIchEinModul gelesen?

opixantos

2006-01-20 02:21

User since
2006-01-07
15 Artikel
BenutzerIn
[default_avatar]

bei den anderen gings ohne installation.. aber math pari muss ich wohl anders install..

habe es manuell versucht per script cgipan.cgi:

Quote
Trying to unpack $tarf...

/bin/tar -xvzf Math-Pari-2.010702.tar.tar 2>&1:
Math-Pari-2.010702/
Math-Pari-2.010702/Changes
Math-Pari-2.010702/func_codes.h
Math-Pari-2.010702/INSTALL
Math-Pari-2.010702/libPARI/
Math-Pari-2.010702/libPARI/codes_2014
Math-Pari-2.010702/libPARI/expected_codes
Math-Pari-2.010702/libPARI/extract_codes.pl
Math-Pari-2.010702/libPARI/gphelp
Math-Pari-2.010702/libPARI/Makefile.PL
Math-Pari-2.010702/Makefile.PL
Math-Pari-2.010702/MANIFEST
Math-Pari-2.010702/META.yml
Math-Pari-2.010702/Pari.pm
Math-Pari-2.010702/Pari.xs
Math-Pari-2.010702/PariInit.pm
Math-Pari-2.010702/patches/
Math-Pari-2.010702/patches/diff_2.1.2_gccism
Math-Pari-2.010702/patches/diff_2.1.3_interface
Math-Pari-2.010702/patches/diff_2.1.4_interface
Math-Pari-2.010702/patches/diff_2.1.6_no-common
Math-Pari-2.010702/patches/diff_2.1.6_ploth64
Math-Pari-2.010702/patches/diff_2.1.7_-O
Math-Pari-2.010702/patches/diff_2.1.7_restart
Math-Pari-2.010702/patches/diff_2.2.2_interface
Math-Pari-2.010702/patches/diff_pari-2.1.3-ix86-divl
Math-Pari-2.010702/patches/patch-pari-unnormalized-float
Math-Pari-2.010702/README
Math-Pari-2.010702/t/
Math-Pari-2.010702/t/00_Pari.t
Math-Pari-2.010702/t/PlotRect.t
Math-Pari-2.010702/t/zz_leak.t
Math-Pari-2.010702/test_eng/
Math-Pari-2.010702/test_eng/ex.t
Math-Pari-2.010702/test_eng/Testout.pm
Math-Pari-2.010702/TODO
Math-Pari-2.010702/typemap
Math-Pari-2.010702/utils/
Math-Pari-2.010702/utils/chap3_to_pod
Math-Pari-2.010702/utils/comp_funcs.pl
Math-Pari-2.010702/utils/foncpari.pl
Math-Pari-2.010702/utils/inc.h
Math-Pari-2.010702/utils/Math/
Math-Pari-2.010702/utils/Math/PariBuild.pm
/bin/tar: Skipping to next header

gzip: stdin: invalid compressed data--crc error

gzip: stdin: invalid compressed data--length error
/bin/tar: Child returned status 1
/bin/tar: Error exit delayed from previous errors

if everything looks okay, you should see the unpacked directory: start

kommt fehlermeldung und ich kann nicht install..

hmmm.. jetzt dreh ich durch..

opixantos

2006-01-20 02:35

User since
2006-01-07
15 Artikel
BenutzerIn
[default_avatar]

es kommt immer noch der selbe fehler..

wer kann mir bitte helfen.. :( :(

bei sysinfo zeigt er mir aber jetzt:

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

script:

Code: (dl )

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

\n\n

ptk

2006-01-20 10:43

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

[quote=opixantos,20.01.2006, 01:21]

Code: (dl )

/bin/tar -xvzf Math-Pari-2.010702.tar.tar 2>&1:
...
/bin/tar: Skipping to next header

gzip: stdin: invalid compressed data--crc error

gzip: stdin: invalid compressed data--length error
/bin/tar: Child returned status 1
/bin/tar: Error exit delayed from previous errors

[/quote]
Die Extension ist .tar.tar? Das sieht nicht richtig aus. Anscheinend müsste es .tar.gz sein, und das Installationsprogramm erwartet auch ein .gz, aber es ist keins oder ein kaputtes.

opixantos

2006-01-20 11:18

User since
2006-01-07
15 Artikel
BenutzerIn
[default_avatar]

ist es trotzdem installiert wen bei installiere module es angezeigt wird ?

oder ist es nicht gestartet? k.a. ??
entpacken tut er es.. aber bei Installatin haperts noch...

Quote
/usr/bin/make 2>&1:
make: *** No targets specified and no makefile found. Stop.

Quote
/usr/bin/make test 2>&1:
make: *** No rule to make target `test'. Stop.

Quote
usr/bin/make install 2>&1:
make: *** No rule to make target `install'. Stop.

hm... glaub da ist ein fehler bei usr/bin/make..
wie finde ich den heraus ??\n\n

renee

2006-01-20 12:35

User since
2003-08-04
14371 Artikel
ModeratorIn

Das duerfte wohl kein Fehler bei make sein. Es ist kein makefile da bzw. fehlen wohl die Rules...

View all threads created 2006-01-17 19:14.