Anonymous

      if (*PRE* iswm $1-) {
        set %clean $strip($1-,burc)
        set %pre_ $replace(%clean,.:[,$chr(32),]::[,$chr(32),]:.,$chr(32))
        var %t 1, %z $scid(0)
        while (%t <= %z) {
          if ($scid(%t).network == %presistemsaida) || ($scid(%t).network == %presistemsaida2) {
            if (%presistemstatus = ligado) { scid %t msg $iif($scid(%t).network = %presistemsaida,%presistemsaidacanal,%presistemsaidacanal2)  0,10[07 $gettok(%pre_,2,32) 0] 0- 0[  $gettok(%pre_,3,32) 0] }

          }
          inc %t
        }
        set %date $date $time
        ;write -il1 db.txt PRE $strip(%cor2 %prename) %date
        ;write -l1 DataBase.txt PRE $calc($gettok($read(DataBase.txt,1),2,32) + 1)

        ;set %ahhetalques $replace($strip(%prename),-,$chr(32))
        ;set %groupdoahetal $gettok(%ahhetalques,$numtok(%ahhetalques,32),32)
        ;set %grouprelease $calc($readini(groups.ini,%groupdoahetal,release) + 1)


        if (!$readini(groups.ini,%groupdoahetal,first)) { 
          ;writeini -n groups.ini %groupdoahetal first PRE $strip(%cor2 %prename) %date 
        }

        ;writeini -n groups.ini %groupdoahetal last PRE $strip(%cor2 %prename) %date
        ;writeini -n groups.ini %groupdoahetal release %grouprelease

        ;write groups\ $+ %groupdoahetal $+ .txt PRE $strip(%cor2 %prename) %date

        inc %pres.count

      }