Amxmodx to sourcemod admin list: Difference between revisions
From Mike Beane's Blog
m (Apparently I corrupted the source file and pasted bad code) |
mNo edit summary |
||
| Line 29: | Line 29: | ||
[[Category:Gaming]] | [[Category:Gaming]] | ||
[[Category:Perl]] | [[Category:Perl]] | ||
[[Category:2007-11]] | [[Category:Weblog-2007-11]] | ||
Latest revision as of 19:40, 31 December 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";}
}