Amxmodx to sourcemod admin list: Difference between revisions
From Mike Beane's Blog
(New page: <pre> #!/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 fo...) |
mNo edit summary |
||
| Line 27: | Line 27: | ||
[[Category:Steam]] | [[Category:Steam]] | ||
[[Category:Gaming]] | [[Category:Gaming]] | ||
[[Category:Perl]] | |||
[[Category:2007-11]] | [[Category:2007-11]] | ||
Revision as of 20:19, 4 November 2007
#!/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";
}