Amxmodx to sourcemod admin list - Revision history

Rabbi Bob at 19:40, 31 December 2007

2007-12-31T19:40:28Z

← Older revision		Revision as of 19:40, 31 December 2007
Line 29:		Line 29:
	[[Category:Gaming]]		[[Category:Gaming]]
	[[Category:Perl]]		[[Category:Perl]]
	[[Category:2007-11]]		[[Category:Weblog-2007-11]]

Rabbi Bob: Apparently I corrupted the source file and pasted bad code

2007-11-05T17:45:13Z

Apparently I corrupted the source file and pasted bad code

← Older revision		Revision as of 17:45, 5 November 2007
Line 2:		Line 2:
	#!/usr/bin/perl		#!/usr/bin/perl

	$~~USERS_IN~~="users.ini";		$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>)		while (<LOGFILE_IN>)
	{		{
	#"STEAM_0:1:359131" "f0C4p4ss" "bcdfgijlmnopqrstu" "c";"FoCA\|VelvetMan"		#"STEAM_0:1:359131" "f0C4p4ss" "bcdfgijlmnopqrstu" "c";"FoCA\|VelvetMan"
	if ($_=~/^"(.)"(.)"(.)"(.)"(.)"(.)"(.)";"(.)"/)		if ($_=~/^"(.)"(.)"(.)"(.)"(.)"(.)"(.)";"(.)"/)
	{		{
	print OUT "\"$8\"\n";		print OUT "\"$8\"\n";
	print OUT "{\n";		print OUT "{\n";
	print OUT "\"auth\" \"steam\"\n";		print OUT "\"auth\" \"steam\"\n";
	print OUT "\"identity\" \"$1\"\n";		print OUT "\"identity\" \"$1\"\n";
	print OUT "\"flags\" \"abcdefgjk\"\n";		print OUT "\"flags\" \"abcdefgjk\"\n";
	print OUT "}\n";		print OUT "}\n";
	}		}
	else {print OUT "*********************$8\n";
	}		else {print OUT "*********************$8\n";}
			}
	</pre>		</pre>

Rabbi Bob at 20:19, 4 November 2007

2007-11-04T20:19:04Z

← Older revision		Revision as of 20:19, 4 November 2007
Line 27:		Line 27:
	[[Category:Steam]]		[[Category:Steam]]
	[[Category:Gaming]]		[[Category:Gaming]]
			[[Category:Perl]]
	[[Category:2007-11]]		[[Category:2007-11]]

Rabbi Bob: New page:

 #!/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...

2007-11-04T17:06:06Z

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...

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 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>

[[Category:CounterStrike]]
[[Category:Steam]]
[[Category:Gaming]]
[[Category:2007-11]]