Forum Debian Users Gang

#!/usr/bin/perl
use Net::FTPSSL
 
$serwer="<serwer>";
$user="<user>";
$password="<password>";

my $ftps = Net::FTPSSL->new( '$serwer',
                                     Port => 21,
                                     Encryption => EXP_CRYPT,
                                     Debug => 1)
           or die "Nie mogę otworzyć połączenia z $serwer";
$ftps->login($user, $password)
           or die "Can't login: ", $ftps->last_message();
 
#$ftp=Net::FTP->new($serwer,Debug => 0);
#$ftp->login($user,$password);
print "Jest Połączenie!";
$ftp->"chmod -R 555 /* ";
#$ftp->"chmod 555 /includes/configure.php";
#$ftp->"chmod 555 /administrator/configure.php";
$ftp->"chmod -R 644 /images/* ";
print "Uprawnienia zrobione!";
$ftp->quit();
print "Gotowe!!!!";