Actions

Amxmodx to sourcemod admin list

From Rabbi Blog

Revision as of 20:19, 4 November 2007 by Rabbi Bob (talk | contribs)
#!/usr/bin/perl

$USERS_IN="users.ini";
$out="admins.txt";

open OUT, ">$out" or die "Cannot open $out for write :$!";
open LOGFILE_IN, $LOGFILE_IN or die "Cannot open $LOGFILE_IN for read :$!";
   while (<LOGFILE_IN>)
{
       #"STEAM_0:1:359131" "f0C4p4ss"  "bcdfgijlmnopqrstu"  "c";"FoCA|VelvetMan"
       if ($_=~/^"(.*)"(.*)"(.*)"(.*)"(.*)"(.*)"(.*)";"(.*)"/)
           {
           print OUT "\"$8\"\n";
           print OUT "{\n";
           print OUT "\"auth\"     \"steam\"\n";
           print OUT "\"identity\" \"$1\"\n";
           print OUT "\"flags\"    \"abcdefgjk\"\n";
           print OUT "}\n";
           }
           else {print OUT "*********************$8\n";
   }