Subnets.ru

Всем привет
Может пригодиться тем кто обслуживает SI3000

На станции SI3000 есть абоненты , которые подключены по классической телефонной линии.

На станционном сервере формируются файлы статистики, в них пишется вся суточная диагностика.
Полезная вещь...

Анализ статистики аварийных сообщений по абонентским портам,
может помочь поберечь абонентские порты и платы.

Эти файлы скидываю на другой сервер, там и обрабатываю.
Дело в том что в этих файлах статистики не пишется номер абонента,
есть только номер порта.

Анализируя статистику, гораздо удобнее оперировать номером телефона,
на кроссах(может не на всех) быстрее начинают соображать.

Вот и был написан скрипт, который анализирует файлы статистики и формирует
другой файл более адаптированный к местным реалиям .



Скрипт далёк от совершенства
нашу емкость - 20000 т.абн обрабатывает ..4.. минуты

в 6 утра торопиться некуда

###
Необходимо всегда подкладывать файл с актуальными данными (порт - абонент) файл AccessF.csv
И данные для этого файла беру из другого Java - приложения.
......


В станционную базу доступа нет, вот туда не очень то хочется лезть.
Да, и ТехПдд может не дать такой доступ.


В документации по openMN пока не нашёл ,
как получить из станции запросом SOAP актуальную информацию,
зная только номер порта.


А как было бы удобно и ненужно было бы огород городить.

Конечно есть разные задумки....

Код: Выделить всё

<?php
$dir_la = './';
$nim = "";
$kosmos = "";

$files_la = scandir($dir_la);

//print_r($files_la);


$gd = date("YmdHms");
$tl = date("Y-m-d H:m:s");
$log = fopen("la.log", "a+");
$fl = fwrite($log,$tl."  "."Begin script\n");

//mkdir("/terra/STAT_SI3000/FULL".$gd);

$full = fopen($gd.".xls", "w+");

//$fa62 = fopen("/terra/STAT_SI3000/ATC65.xls", "w+");
//$fa63 = fopen("/terra/STAT_SI3000/ATC65.xls", "w+");
$fa65 = fopen("ATC65.xls", "w+");


$fports  = fopen("AccessF.csv", "r");




//if($fports){}
//while(($s = fgets($fports, 1024)) !=false ){

//   Begining to collect  information about ports and DN
$pl = 0;
$aca[0] =0;
$ana[0] =0;
$j=0;
$s = fgets($fports, 1024);
while(!feof($fports)){
$s = fgets($fports, 1024);
if(strlen($s)<3){break;}
//echo $s."    "."*****\n";

$acces[$pl] = $s;
$a = explode(";",$s);
$j = explode(":",$a[2]);

$temp_str =$j[1];
$j[1] = substr($j[1],0,strlen($j[1])-6);

$aca[$pl] = trim($j[1])."+".trim($j[3]);  // собираем инф: регион*плата*место*порт


$ana[$pl] = $a[3]; //собираем инф вида:  код города-номер абонента
$pl=$pl+1;

//echo $pl."   ".$ana[$pl-1]."\n";
//echo $pl."    ".$aca[$pl-1]."\n";
}
// End collect




//$fw1=fwrite($fa62,"Object\t"."Data\t"."Time\t"."\t"."TroubleShooting\t"."\t"."\t"."\t"."\t"."\t"."\t"."\n");
//$fw1=fwrite($fa63,"Object\t"."Data\t"."Time\t"."\t"."TroubleShooting\t"."\t"."\t"."\t"."\t"."\t"."\t"."\n");
$fw1=fwrite($fa65,"Object\t"."Data\t"."Time\t"."\t"."TroubleShooting\t"."\t"."\t"."\t"."\t"."\t"."\t"."\n");
$ffl=fwrite($full,"Object\t"."Data\t"."Time\t"."\t"."TroubleShooting\t"."\t"."\t"."\t"."\t"."\t"."\t"."\n");

///////Begin  HARD
chdir($dir_la);
foreach($files_la as $f)
{
if($f == null){continue;}
$sp = stripos($f,"MsgErr.dat");
if(!$sp){continue;}
//echo $s."\n";

$fdat  = fopen("$f", "r");

//$temp_name = explode(".",$f);
//$name = $temp_name[0];
$name =substr($f,0,strlen($s)-10);
//echo $name."\n";

//Begin reading dat file
$ssts ="";
while(!feof($fdat)){
$s = fgets($fdat, 2048);
if(strlen($s)<3){break;}
//$old_date1 = stripos($s,"2000-",0);
//$old_date2 = stripos($s,"2016-",0);
//if($old_date1 === true and $old_date2 === true){continue;}

$ssts = "";
$kss = "";

$err = explode(" ",$s);

$ssts = $err[0]."\t".$err[1]."\t";
if(strlen($err[3]) == 0 ){continue;}



$seer = trim($err[3]);
switch ($seer)
{
case "1600360": $ssts = $ssts."\t".$err[3].$err[4]."\t".$err[5]."\t"."Groundkey high detected"."\t"; break;
case "1600370": $ssts = $ssts."\t".$err[3].$err[4]."\t".$err[5]."\t"."Groundkey detected"."\t"; break;
case "1600380": $ssts = $ssts."\t".$err[3].$err[4]."\t".$err[5]."\t"."Link parked"."\t"; break;
case "1600510": $ssts = $ssts."\t".$err[3].$err[4]."\t".$err[5]."\t"."Subscriber line parameters degraded" . "\t"; break;
case "1600520": $ssts = $ssts."\t".$err[3].$err[4]."\t".$err[5]."\t"."Subscriber terminal equipment not connected" . "\t"; break;
case "1600210": $ssts = $ssts."\t".$err[3].$err[4]."\t".$err[5]."\t"."Maintenance local blocking"."\t"; break;
case "1100110": $ssts = $ssts."\t".$err[3].$err[4]."\t".$err[5]."\t"."Overheating of module"."\t"; break;
case "1100120": $ssts = $ssts."\t".$err[3].$err[4]."\t".$err[5]."\t"."Critical overheating of module" . "\t"; break;
case "1100150": $ssts = $ssts."\t".$err[3].$err[4]."\t".$err[5]."\t". "Overheating detected"."\t"; break;
case "2500010": $ssts = $ssts."\t".$err[3].$err[4]."\t".$err[5]."\t"."System overload - analog periphery" . "\t"; break;
default: $ssts = $ssts."\t".$err[3].$err[4]."\t".$err[5]."\t"."Go to Look F_TROUBLESHOOTING_GUIDE.PDF"."\t"; break;
}
//echo $ssts."\n";

/////////////////////////////////
///kss
foreach($err as $c ){
if($c == ""){continue;}
//echo $c."\n";
$t_pos = stripos($c,"line=");

if($t_pos === 0){
//echo $c."   "."****\n";
$kss = substr($c,5,strlen($c)-5);
//echo $kss."\n";
//$a = readline();
$kss = trim($kss);  //наконец то вытащил из строки номер порта
//echo $kss."\n";
$ssts = $ssts."line=\t".$kss."\t";  // и подготовил строку,
                                    // к  которой буду пристёгивать номер абонента

//echo $ssts."\n";
}

}///kss
/////////////////////////////////

///////////////////////////////////  Все в верхний регистр
//////////////////////////////////   Весь сыр-бор из за названий плат
$t_nim = explode("-",$name);
//echo $name."\n";
//echo count($t_nim)."\n";
if(count($t_nim) == 3){$nim = strtoupper($t_nim[0])."-".strtoupper($t_nim[1])."-".$t_nim[2];}
else
{
if(count($t_nim) == 4){$nim = strtoupper($t_nim[0])."-".strtoupper($t_nim[1])."-".$t_nim[2]."-".$t_nim[3];}

}
////////////////////////////////////////////

//debug
//for($u=0;$u<$pl;$u++){
//echo $ana[$u]."    ".$aca[$u]."\n";
//echo $aca[$u]."\n";
//}


/////////////Select access begin    Мазохизм
$nam = $nim."+".$kss;
//echo $nam."\n";
for($u=0;$u<$pl;$u++)//
{
if($kss === "") {continue;}// ведь номера порта может и не быть, если номер не прописан на порту 
//echo $nam."   ".$aca[$u]."\n";
if($nam === $aca[$u])
{
$kosmos = $ana[$u];// достаём номер абонента  из массива
//echo $ana[$u];
break;
}

}


////////////select access end

//////////////////////////////////////////****Ещё немного мазохизма
if ($kss != ""){$t_not = strpos($ssts,"not");
                    //    if (!ssts.Contains("not"))
if($t_pos === false ){
                            $ssts = $ssts."\t"."\t".$kosmos."\t";
                     }
                        else { $ssts = $ssts."\t".$kosmos."\t"; }
              }
////////////  Наконец пристегнул номер абонента  к строке с портом
/////////////////////////////////////////**************
///////////////////
///////////////////    Пишем строки в файлы: 1 общий
//////////////////     и по региону
                    $tfull=fwrite($full,$nim."\t".$ssts."\n");

                    $t_pos = stripos($name,"rgn-city-65");
                    if($t_pos === 0){$t65=fwrite($fa65,$nim."\t".$ssts."\n");}


//////

}//End Reading dat file




fclose($fdat);
}///End HARD

//if(!){ echo "Error: fgets\n"; }
//fclose($fports);






//fclose($fa62);
//fclose($fa63);
fclose($fa65);
fclose($fports);
$etl = date("Y-m-d H:m:s");
$fl = fwrite($log,$etl."  "."End script\n" );
fclose($log);
fclose($full);
?>