Welcome to Jaimal's BMW page!

Jaimal's Homepage, BMW's Gallore!!!!!!!!!!

Welcome to my web page! This page will contain lots of pictures of BMW cars.(Mostly Z3's) This page is under construction but I will update it regulary. Please sign the guestbook. I will later come around to putting on the three series and five series BMW's. THE NEXT ADDITION TO THIS PAGE WILL BE PORCHE CARS.

Sign My Guestbook View My Guestbook

Sign My Guestbook

View My Guestbook

Search

Explore

SmartLinks from LookSmart (sm)

You need a Java-capable web browser to see the applet. $cgi_location = 'chat.cgi'; #===> URL to the chat script $root = '/path/to/chat/directory'; #===> physical path to the chat.cgi scripts directory, #===> this is not the url. NO TRAILING SLASHES @rooms = ("Doorstep","Teens","Hot_Tub","Pool","Office", "Library","Youth","Misc"); #===> chat rooms you want #===> THE RULES AND REGULATIONS ARE AT THE BOTTOM OF THE CHAT SCRIPT!! #===> Please change them to match your situation. $rules = 1; # 0 = print above chat login # 1 = print as a link $lines = 25; #===> defult lines of chat will be shown @admins = ("nick1","nick2","nick3"); #===> administrators nicknames. MORE NAMES CAN BE ADDED just continue the pattern @pass = ("nick1_password","nick2_password","nick3_password"); #===> admins passwords, they need to correspond with order of admins or passwords #===> will be messed up. $title = "Chat"; #===> Title of the chat $bgcolor = "#009ABE"; #===> chat background color (this is for the entire chat) $backgroundimage = ""; #===> chat background image (this is for the entire chat) $text = "Black"; #===> chat text color (this is for the entire chat) $alink = "Black"; #===> chat active link color (this is for the entire chat) $vlink = "Black"; # chat visited link color (this is for the entire chat) $loginheader = "Chat Login"; #===> login screen header shows what ever you want at the top of the login screen $loginfooter = ""; #===> login screen footer shows what ever you want at the bottom of the login screen $chatheader = ""; #===> header of the chat screen shows what ever you want at the top of the chat screen $chatfooter = ""; #===> footer of the chat screen shows what ever you want at the bottom of the chat screen $html = 'no'; #===> yes = html tags are allowed #===> no = html tags are filtered out $adminhtml = 'yes'; #===> yes = admins allowed html tags even though $html is set to no (this bypasses $html for admins) #===> no = admins cannot use html tags $idle = 300; #===> seconds of idle allowed before getting kicked $msg_time = 200; #===> seconds private messages stay before they are deleted $maxusers = 100; #===> max users allowed on a one time $os = 'unix'; #===> what operating system are u using? unix or win $amc = "Red"; #===> automatic message color $amc_size = 2; #===> font size of $amc $loops = 10; #===> how many times the script is run before checking idle time, #===> this helps loading time #===> and also doesn't bog down the server as much. @unwanted_name_char = ('�','�','�','�','�','�','�','�','�','�','�','�','�','�','�','�','�','�','�','�','�', '�','�','�','�','�','�','�','�','�','�','�','�','�','�','�','�','�','�','�','�', '�','�','�','�','�','�','�','�','�','�','�','�','�','�','�','�','�','�','�','�','�', '�','�','�','�','�','�','�','�','�','�','�','�','�','�','�','�','�','�','�','�', '�','�','�','�','�','�','�','�','�','�','�','�','�','�','�','�','�','�','�','�'); #===> These are characters you do not want in the nickname. Pleas add others if you like. ########################################################################################## ########################################################################################## # make sure that the main directory and all the sub-directories # have chmod 777 permissions on them!!!!! ########################################################################################## # done. there should be nothing else to edit # Please report any problems or suggestions to nick@jellybeanz.com ########################################################################################## # set and check things print "Content-type: text/html\n\n"; $bypass = 0; $q = $ENV{'QUERY_STRING'}; $| = 1; $errors = ""; &check_ban; $adminchat = 0; if ($q =~ /help/ ){ &printhelp; } ########################################################################################## # print logon screen if ($q =~ "rules" || @ARGV[0] =~ "rules"){ print "$title : Chat Guidlines\n"; print "\n"; &print_rules; exit 0; } if ($q =~ "login" || $ENV{'CONTENT_LENGTH'} eq ""){ print "$title : LOGIN\n"; print "\n"; print "$loginheader

\n"; if ($rules eq 0){ &print_rules; }elsif ($rules eq 1){ print "

Chat Guidlines

"; } print "\n"; print "\n"; print "$loginfooter\n"; exit; } ########################################################################################## # read form data read(STDIN, $input,$ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $input); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $name =~ tr/+/ /; $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $IN{$name} = $value; } $IN{'mesg'} =~ s/<//; $IN{'mesg'} =~ s/>//; $IN{'mesg'} =~ s/"//; ########################################################################################## # check to see if the name is reserved for admin and if it is ask for the password $i = 0; foreach $key (@admins){ if ($IN{'nickname'} eq $key && $IN{'pass'} eq @pass[$i]){ $adminchat = 1; }elsif ($IN{'nickname'} eq $key && $adminchat ne @pass[$i]){ print "\n"; print "Your nickname is reserved for a chat room admin, you need a password to access the admin controls\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; exit 0; } $i++; } ########################################################################################## # HTML filter if ($html =~ 'no' && $adminchat ne 1){ &htmlfilter; }elsif ($adminhtml eq 'no'){ &htmlfilter; } ########################################################################################## # check to see how many users are on if ($IN{'new'} eq 'yes'){ open(MAX,"$root/names.txt"); @total = ; close(MAX); $e = 0; foreach $line (@total){ $e++; } if ($e >= $maxusers && $adminchat ne 1){ print "$chatheader\n
Sorry, to many users on at the moment. Please try again later"; exit 0; } } &error_nickname unless $IN{'nickname'}; ########################################################################################## # CHECK IF NAME ALREADY USED if ($IN{'new'} eq 'yes'){ if (!(open(CHECK,"$root/users/$IN{'nickname'}.txt"))){ print; }else{ &repeat_name; exit 0; } close(CHECK); } &date; ########################################################################################## # if its a new user log them on if ($IN{'new'} eq 'yes'){&login;} $IN{'mesg'} =~ s/<//; $IN{'mesg'} =~ s/>//; $IN{'mesg'} =~ s/"//; ########################################################################################## # Get the users info out of there file open(USERINFO,"$root/log/$IN{'nickname'}.txt"); $user_info = ; close(USERINFO); ($nickname, $room, $remote_host, $remote_addr) = split(/\|\"\'\|/, $user_info); &check_kick; ########################################################################################## # if the user wants to change rooms do that first if ($IN{'new'} ne 'yes'){ if ($IN{'room'} ne $IN{'changeroom'}){ &change_rooms; } } ########################################################################################## # reset idle time open(WRDATE,">$root/log/$IN{'nickname'}.txt"); print WRDATE "$time"; close(WRDATE); ################################################################################ # find out who has been idling for to long and get rid of them open(COUNTS,"$root/count.txt"); $counts = ; close(COUNTS); open(COUNTS2,">$root/count.txt"); $counts++; print COUNTS2 $counts; close(COUNTS2); if ($loops <= $counts){ open(CCOO,">$root/count.txt"); print CCOO "0"; close(CCOO); if (!(opendir(STAT,"$root/log"))){ print "DIRECTORY READING ERROR
\n"; } @dir = readdir(STAT); closedir(STAT); foreach $line (sort @dir){ if ($line ne '.' && $line ne '..'){ $line =~ s/.txt*//; open(USER,"$root/log/$line.txt"); $userr = ; close(USER); $check = $time-$userr; if ($check >= $idle){ open(DELL,"$root/names.txt"); @this = ; close(DELL); open(USERS,"$root/users/$line.txt"); $otuser = ; close(USERS); @nickrooms = split(/\|\"\'\|/, $otuser); $nicks = @nickrooms[0]; $rooms = @nickrooms[1]; open(DE,">$root/names.txt"); foreach $namer (@this){ if ($namer =~ /$nicks $$rooms$/){ print DE; }else{ print DE $namer; } } close(DE); unlink ("$root/log/$line.txt"); unlink ("$root/users/$line.txt"); unlink ("$root/private/$line.txt"); &chopline($rooms.txt); open(RE,">>$root/rooms/$rooms.txt"); print RE "***$nicks has been kicked for idle time.\n"; close(RE); } } } } if ($IN{'mesg'} eq ""){ &print_chat; exit 0; } ##############################################

Search for the Album or Artist of Your Choice!
Artist
Album Title
Song Title

Search: Tripod The Web �

Download Free Chank Rockstar Fonts on Tripod!

Check Out Tyler's Mad Crib for Teens on Tripod Ask Evel Knievel on Tripod

\n"; print "Room:	\n"; print "
\n"; print "Nickname:
	\n"; print "\n"; print "

My Funky List of Links