Map Listing - Revision history

Rabbi Bob: /* FPSBANANA EDITION */

2008-08-10T12:17:14Z

FPSBANANA EDITION

@@ Line 152: / Line 152: @@
+                    {
                     print OUT "[url=http://www.google.com/search?hl=en&ie=UTF-8&q=$tempname$zip$download]$tempname$URLend";
                     $counter++;
                      $total++;

Rabbi Bob: /* Code */

2008-02-09T14:07:46Z

Code

← Older revision		Revision as of 14:07, 9 February 2008
Line 35:		Line 35:
	Total maps: 112		Total maps: 112

	=Code=		=Original Code=
	<pre>		<pre>
	#!/usr/bin/perl		#!/usr/bin/perl
Line 100:		Line 100:
	print OUT "\n\nTotal maps: $total\n\n";		print OUT "\n\nTotal maps: $total\n\n";
	</pre>		</pre>

	=FPSBANANA EDITION=		=FPSBANANA EDITION=
	<pre>		<pre>

Rabbi Bob at 14:07, 9 February 2008

2008-02-09T14:07:31Z

← Older revision		Revision as of 14:07, 9 February 2008
Line 1:		Line 1:
	Apparently I've been playing with Perl for since at least 2004. I found this [http://www.deadmen.co.uk/forum/showthread.php?t=6683&highlight=perl thread] recently.		Apparently I've been playing with Perl for since at least 2004. I found this [http://www.deadmen.co.uk/forum/showthread.php?t=6683&highlight=perl thread] recently.

	~~_toc_~~		__toc__

	<br>		<br>

Rabbi Bob: modified and added the FPSBANANA edition

2008-02-09T14:07:18Z

modified and added the FPSBANANA edition

@@ Line 1: / Line 1: @@
 Apparently I've been playing with Perl for since at least 2004.  I found this [http://www.deadmen.co.uk/forum/showthread.php?t=6683&highlight=perl thread] recently.
 <br>
@@ Line 98: / Line 100: @@
 print OUT "\n\nTotal maps: $total\n\n";
 </pre>
 [[Category:Perl]]
 [[Category:Gaming]]

Rabbi Bob: New page: Apparently I've been playing with Perl for since at least 2004. I found this [http://www.deadmen.co.uk/forum/showthread.php?t=6683&highlight=perl thread] recently.
Been in a funk t...

2007-12-06T03:02:18Z

New page: Apparently I've been playing with Perl for since at least 2004. I found this [http://www.deadmen.co.uk/forum/showthread.php?t=6683&highlight=perl thread] recently. <br> Been in a funk t...

New page

Apparently I've been playing with Perl for since at least 2004. I found this [http://www.deadmen.co.uk/forum/showthread.php?t=6683&highlight=perl thread] recently.

<br>

Been in a funk this past week, so I wanted to try something different to get my mind elsewhere. Here it is, very hack and probably full of holes. Written and run under ActivePerl for Win, but should be immediately fit for Linux use. Works for me, your mileage may vary. Feel free to use, hack, rewrite or ignore at your leisure.

What does it do?

Logs into your cstrike server, assumes that your path from logging into the server is then to cd cstrike\maps to get to your bsp files. Then reads the contents, spits them out into a text file which you can then paste into a forum post. It contains the formatting and url links to a google search with mapname.zip+download for the viewer, like so:

'''P&B Map List'''

as_courthouse as_ghetto as_oilrig as_tundra bl_shotgun cs_52sevilla
cs_52villabacho cs_747 cs_arcticbase cs_assault cs_assault_upc cs_assault2k
cs_backalley cs_beirut cs_bikini cs_boxoffice2k cs_bro cs_bwinter
cs_club42 cs_deagle5 cs_docks cs_duke2k cs_estate cs_havana
cs_italy cs_militia cs_office cs_place4 cs_rio cs_shipjack
cs_siege cs_siege_apc cs_snowflake cs_thunder cs_tire cs_trkstp
cs_wildwest_assault cs_winter_assault cs_wpndepot de_52andalusia de_52casco de_52castello
de_52costadelsol de_52lagranja de_52leon de_52mangana de_52puente de_52spania
de_airstrip de_aztec de_aztec3 de_bahrain de_burscheid de_cbble
de_centurion de_chateau de_clan1_mill de_clan2_fire de_daft de_dawn
de_deadlock de_deep6 de_dust de_dust2 de_dustbunnies de_frankzoo
de_frostbound de_gijoe de_gijoe2 de_heat de_herrenberg de_inferno
de_keller de_keller_2k de_luxor de_maya de_motel_x de_museum
de_night de_nuke de_osaka_beta1 de_outrage de_piranesi de_predator
de_prodigy de_prodigy2k de_railroad de_rats de_ratsxl de_rock
de_rotterdam de_scud_2k1 de_silentoperation de_simpsons de_storm de_storm2
de_survivor de_torn de_tot de_train de_vegas de_vertigo
de_winterdust de_winternuke dm_sgarena es_trinity fy_pumpalley mindmaze
scoutzknivez slap_pistols speedball2k1 treefort1

Total maps: 112

=Code=
<pre>
#!/usr/bin/perl

use Net::FTP;

$host="ip";
$username="username";
$password="pass";
$servername="Your Server Here";

$remotedir1="/cstrike/maps";

my $ftp = Net::FTP->new("$host") or die "Can't connect: $@\n";
$ftp->login($username, $password) or die "Couldn't login\n";
$ftp->cwd("$remotedir1") or die "Couldn't change directory to $remotedir1\n";
$PWD=$ftp->pwd;

$out="$servername_mapslist.txt";

open OUT, ">$out" or die "Cannot open $out for write :$!";
print OUT "[b]$servername Map List[/b]\n\n";

print"$PWD\n";
$ftp->type('I');

$LOGDOESNOTEXIST=3;

my @LOGFiles = $ftp->ls();

$total=0;
$zip="zip";
$tempname="";
$URLend="[/url]";
$download="+download";

foreach $LOGfile (@LOGFiles)
{
$tempname=$LOGfile;
chop $tempname;
chop $tempname;
chop $tempname;
chop $tempname;
if ($LOGfile=~"bsp")
{
if ($LOGfile!~"ztmp")
{
print OUT "[url=http://www.google.com/search?hl=en&ie=UTF-8&q=$tempname.$zip$download]$tempname$URLend";
$counter++;
$total++;
}
}
if ($counter<6)
{
print OUT " ";
}
if ($counter==6)
{
print OUT "\n";
$counter=0;
}
}

print OUT "\n\nTotal maps: $total\n\n";
</pre>
[[Category:Perl]]
[[Category:Gaming]]

Map Listing - Revision history

Rabbi Bob: /* FPSBANANA EDITION */

Rabbi Bob: /* Code */

Rabbi Bob at 14:07, 9 February 2008

Rabbi Bob: modified and added the FPSBANANA edition

Rabbi Bob: New page: Apparently I've been playing with Perl for since at least 2004. I found this [http://www.deadmen.co.uk/forum/showthread.php?t=6683&highlight=perl thread] recently. Been in a funk t...

Rabbi Bob: New page: Apparently I've been playing with Perl for since at least 2004. I found this [http://www.deadmen.co.uk/forum/showthread.php?t=6683&highlight=perl thread] recently.
Been in a funk t...