On Nov 1, 9:29 pm, [EMAIL PROTECTED] (Tom Phoenix) wrote:
> On 11/1/07, lerameur <[EMAIL PROTECTED]> wrote:
>
> > I wrote a small script, the manual upload of a file works, but gives
> > me an error message:unable to initialize mechanism library [/usr/lib/
> > gss/gl/mech_krb5.so]
> > Could some tell me what this is about? it does end up transferirng the
> > file.
>
> As near as I can guess, that library file (which, I'd further guess
> has something to do with Kerberos authentication) is borked. Exactly
> what's wrong with it is anyone's guess. Probably there's something
> else that succeeds as a fallback, since the file gets transferred; so
> you could perhaps configure it somehow to not even try using Kerberos.
> You might be able to turn on a debugging mode to find out more
> information; check the documentation for the modules you're using.
> (When you post a question, mention which modules you're using, and we
> may be able to give you more specific help.)
I am having success with manually transfering my files between the two
servers. Unfortunately I do not have root access to the other server
and the .ssh directory is hidden.
manually:
Server1200:/input/spam>scp 20071102093215.txt 174.34.34.34:/home/input/
traffic_log
[EMAIL PROTECTED]'s password:
20071102093215.txt | 42MB | 6.0MB/s | TOC: 00:00:07 | 100%
Server1200:/input/spam>
here the SCP part of my script:
.....
$SCP=Net::SCP->new($host,Timeout=>240) or $newerr=1; #Establishing the
connectiong
push @ERRORS, "Can't SCP to $host: $!\n" if $newerr;
myerr() if $newerr;
print "Connected\n";
$SCP->login("$user","$password") or $newerr=1;
print "Getting file list\n";
push @ERRORS, "Can't login to $host: $!\n" if $newerr;
$SCP->quit if $newerr;
myerr() if $newerr;
print "Logged in\n";
$SCP->cwd($directory) or $newerr=1;
push @ERRORS, "Can't cd $!\n" if $newerr;
myerr() if $newerr;
$SCP->quit if $newerr;
$SCP->put($file_to_put) or die $SCP->{errstr}; # DIES
HERE...............!!!!!!!!
print "Putting file and quitting \n";
The directory exists, I do not know why, any ideas?
anything else would be needed?
thanks
ken
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
