Amxmodx to sourcemod admin list: Difference between revisions
From Mike Beane's Blog
mNo edit summary |
m (Apparently I corrupted the source file and pasted bad code) |
||
Line 2: | Line 2: | ||
#!/usr/bin/perl | #!/usr/bin/perl | ||
$ | $LOGFILE_IN="users.ini"; | ||
$out="admins.txt"; | $out="admins.txt"; | ||
open OUT, ">$out" or die "Cannot open $out for write :$!"; | open OUT, ">$out" or die "Cannot open $out for write :$!"; | ||
open LOGFILE_IN, $LOGFILE_IN or die "Cannot open $LOGFILE_IN for read :$!"; | 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";} | |||
} | |||
</pre> | </pre> | ||
Revision as of 17:45, 5 November 2007
#!/usr/bin/perl $LOGFILE_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";} }