ANNEXES
Algorithme 6 :
organigramme d'analyse des plaintes clients
#!/usr/local/bin/perl
use Net::FTP;
$dossier = "C:/Documents and
settings/Administrateur/Bureau/test/lemaure";
opendir DIR,$dossier or die" ne peut ouvrir $dossier";
@t = readdir DIR;
for ($i = 0; $ i< = $#t; $i = $i + 1)
{
$dossier1 = "$dossier/$t[$i]";
opendir DIR1,$dossier1 or die" ne peut ouvrir $dossier1";
@t1 = readdir DIR1;
for ($n=0;$n<=$#t1;$n++)
{
unlink("$dossier1/$t1[$n]");
}
closedir DIR1;
rmdir $dossier1;
}
$x=rmdir($dossier);
$ftp =
Net::FTP->new("192.168.119.4", Debug =>
0, Timeout => 500);
$ftp ->login("omc3ftp",'omc3ftp') or die
"Cannot login ", $ftp ->message;
$ftp ->cwd("APME/OBSYNT") or die
"impossible", $ftp ->message;
$t=$ftp->pwd();
@tab= $ftp->ls($t) ;
for ($i = 0; $ i< = $#tab; $i = $i + 1)
{
@t = split /\//, $tab[$i];
$nom_bsc[$i]=$t[3];
}
($jj,$mm,$yy)=(localtime(time()-24*60*60))[3..5];
$yy+=1900;
$mm+=1;
$mm="0$mm" if ($mm <=9);
$jj="0$jj"if ($jj < = 9);
$date = "$yy$mm$jj";
chdir 'C:\Documents and Settings\Administrateur\Bureau\test';
mkdir lemaure;
print "\n\n $date";
chdir 'C:\Documents and
Settings\Administrateur\Bureau\test\lemaure';
for ($i=0;$i<=$#nom_bsc;$i++)
{
mkdir "$nom_bsc[$i]",0777;
}
for ($i = 0; $ i< = $#tab; $i = $i + 1)
{
$ftp ->cwd ("$tab[$i]") or die
"impossiple", $ftp ->message;
$t=$ftp ->pwd();
@table$ftp ->ls($t) ;
for ($j=0;$j<=$#table;$j++)
{
@coupe = split /\//, $table[$j];
if ($coupe[4]==$date)
{
$ftp->cwd ("$table[$j]")
or die "impossiple", $ftp->message;
$x=$ftp->pwd();
@table1=$ftp->ls($x) ;
for ($k=0;$k<=$#table1;$k++)
{
@coupe1=split /\//,$tab[$i];
chdir "$dossier/$coupe1[3]";
$ftp->get
("$table1[$k]") or die "get failed ", $ftp->message;
print"\n$table1[$k]";
}
}
}
}
$ftp->quit;
|