on *:text:*:#kontrol:{
  if $1 == !port {
    if !$2 { msg $chan Port belirtin. Portlari 4!portlar komutu ile listeleyebilirsiniz  }
    else {
      if !$read(port.txt,w,$+(*,$2-,*)) { msg # Belirttiginiz port bulunamadi. | return }
      .write acport.txt $2-
      .msg # Port kayit edildi. 
      .msg # $read(acport.txt,*) nolu girisler kapatildi. Durdurmak icin !pstop yazin
    }
  }
  if $1 == !portlar { var %:m = 1 | while %:m <= $lines(port.txt) { msg # %:m - $read(port.txt,%:m) | inc %:m } }
  if $1 == !pstop {
    /msg # Port girisleri durduruldu
    .remove acport.txt

  }
}

on *:snotice:*:{ if *$+ $read(acport.txt)* iswm $8 { gline $+(*@,$gettok($gettok($10,2,64),1,41))  :Sunucu Guvenligi }

} 
}