Discussion :

[hammag]

Salut,
bien sur vous avez déja compris mon pb en lisant le titre.
voici mon script qui doit supprimer le fichier file sur le serveur disant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
#!/usr/bin/perl
use strict; use warnings;
use Net::FTP;
 
$ftp = Net::FTP->new("mon@ip") ;
 
$ftp->login("login", "pwd");
 
$ftp->cwd("/monRep");
 
$ftp->delete(file);
$ftp->quit();

le pb : le fichier file n'est pas supprimé et j'ai ces messages d'eereurs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Global symbol "$ftp" requires explicit package name at delete_dst.pl line 7.
.
.
Bareword "file" not allowed while "strict subs" in use at delete_dst.pl line 14.
Execution of delete_dst.pl aborted due to compilation errors.

[djibril]

tu n'as pas declaré ftp
idem pour file qui ne veut rien dire. Je corrige ton script :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
use strict; 
use warnings;
use Net::FTP;
 
my $ftp = Net::FTP->new("mon@ip") ;
my $file = "ton_fichier";
 
$ftp->login("login", "pwd");
$ftp->cwd("/monRep");
$ftp->delete($file);
$ftp->quit();

[hammag]

après les corrections, le script s'exécute sans erreurs mais le fichier sur le serveur distant est non supprimé,
- j'ai testé la connexion entre les deux serveurs avec un tcpdump : les paquets circulent normalelement entre les deux serveurs.
- le répertoire où se trouve le fichier à supprimer sur le serveur distant est le bon.

je ne sais pas ou est le pb

[djibril]

fais des tests

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
use strict; 
use warnings;
use Net::FTP;
 
my $ftp = Net::FTP->new("mon@ip") ;
my $file = "ton_fichier";
my $rep = "/monRep";
$ftp->login("login", "pwd") or die ("Impossible de se logguer $!");
$ftp->cwd($rep) or die ("Impossible de changer de repertoire  $rep $!");
$ftp->delete($file) or die ("Impossible de supprimer $file $!");
$ftp->quit();

[hammag]

en faite je vient de connaitre la raison du non suppression du fichier : la connexion ftp est faite avec un utilisateur non root qui n'a pas les droits de suppression sur le serveur disatnt.
j'ai essayé le même script avec un utilisateur root, le résultat est OK

reste une chose :
comment faire pour donner à mon pauvre utilisateur le droit de supprimer ou créer des fichiers sur ce serveur distant.

[djibril]

bah ça ce n'est pas perl, mais l'administrateur du site distant.
Si tu te connectes au site ftp avec un user qui n'a pas les droits d'ecriture, normal que ça ne marche pas. C'est une question de sécurité.