Développement d?une plateforme de reporting automatique des mesures radio et des états GOS (GSM/GPRS), de prédiction de couverture et de c/i

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;