Administrace komentářů

Takhle --> jde tam je hlavicka mailu:
@mail=<>;
$i=0;
foreach $radka(@mail){     #vim,ze by slo foreach $radka(<>)
    $vstup[$i]=$radka    #v poli uchovam puvodni hlavicku mailu
   if ($radka =~/^To:|(>,|>\s)$/){    #nahrubo vyberu radky, kde se vyskytují adresy
       if ($radka =~/^To:/){
          $adr[$i]=substr($radka,3);    #oriznu To:
       }else{
          $adr[$i]=$radka;    #jinak nactu vsechny radky vyhovující prvnímu if
       }
       }
       $i++;
}
potom odfiltruju vsechy hlavicky From: Message-ID...... a oriznu prazdne znaky z adres (odsazení.. atd).
ve finale jsem udelal prazdne radky pres :
$a=grep /^\S/, @addr;    #coz mi spocita kolik je tam plnych radku
@addr=reverse(@addr);
splice(@addr, $a)    #cimz jsem to pole zredukoval jen na plne radky no a pak uz jen vezmu puvodni hlavicku a pridam k ni pomoci for cyklu X-Original-To: + $addr[0-x].
Cela tahle kasparina vznikla tim, ze mame u providera mailovy kos a nejakym zahadnym zpusobem nedokaze poslat nejakou jednoznacne identifikujici hlavicku s urcenim adresata (X-Original-To nebo neco podobneho) a veskere prijemce posila v To: --> cimz me dostava do situace, kdy mi dojde treba 5 mailu, kteri maji v To stejne udelane prijemce no a me to procmail nezkousne a vsech 5 mailu doruci tomu, kdo je z tech 5ti prijemcu na prvnim miste. Diky za kazdou radu Michal