Just slap on your logo here
Junky Banner Exchange

Home
Party Search
Add A Party
Pictures
Join The Team

Add A Party
Top Parties
Party Search

 

Pic Gallery
Discussion Forum
Chat Room
Ganja Lounge
Drinks
Gear
Cars
Headlines
Free Musik
Reviews
Columns
PJ Services
AD Exchange

About Us
Feedback
Join The Team
Contact
Affiliates


Aaliyah - Timbaland Try Again (Mp3 Download) - May 23 2019

#!/usr/bin/perl use CGI qw(:standard) ; ############################################ ## ## ## Schlabo's Scripts ## ## by Andreas Jakl ## ## (e-mail andreas@schlabo.com) ## ## ## ## version: 2.01 ## ## last modified: 09/01/02 ## ## copyright (c) 1999-2002 ## ## ## ## latest version is available from ## ## http://www.schlabo.com/ ## ## ## ############################################ # Find an explanation of $require_path in admin.pl $require_path = substr($ENV{'SCRIPT_FILENAME'},0,rindex($ENV{'SCRIPT_FILENAME'},"/")); $IIS = 0; # You don't have to modify anything below here. if ($IIS != 2) { if ($IIS == 0) { if ($ENV{'SERVER_SOFTWARE'} =~ m!IIS!) { $IIS = 1 } } if (($IIS) && ($0 =~ m!(.*)(\\|\/)!)) { chdir($1); } if ($IIS == 1) { print "HTTP/1.0 200 OK\n"; } } if ($require_path) { push(@INC, $require_path); } require "config.pl"; require "config_potd.pl"; umask (0111); print "Content-type: text/html\n\n"; &get_date; $cur_date=$m."-".$month_day."-".$y; open(curpotd_f,"<${server_datapath}potd_current.txt") || ($curpotd_found=3); @curpotd = ; close(curpotd_f); if ($curpotd_found ne "3") { $prev_date=@curpotd[0]; $prev_date=~ s/\<\!--//g; $prev_date=~ s/\/\/--\>//g; $curpotdline = @curpotd[1]; $prev_date =~ s/\r|\n//g; if ($prev_date eq $cur_date) { $curpotd_found=1; # 3=file not found, 2=pic old, 1=found } else { $curpotd_found=2; } } if (param('updatepic') eq "1") { $curpotd_found=2; $updatepiconly=1; } if ($curpotd_found ne "1") { # The POTD specified in the potd_current.txt-file isn't from today, look if there's a new one. $filename="potd_".$m."-".$y.".txt"; open(data,"<${server_datapath}$filename"); @all_data = ; close(data); $max_num = @all_data; for ($count_d=0;$count_d<$max_num;$count_d++) { $pic_data = @all_data[$count_d]; ($pic_date,$pic_url,$pic_filename,$pic_info,$pic_source_email,$pic_source) = split(/::/,$pic_data); if ($pic_date eq $cur_date) { # Picture found for today $curpotdline = ""; $curpotdline.= "
$pic_info"; $curpotd_found = 1; last; } } if ($curpotd_found == 1) { # New picture found for today open(curpotd_f,">${server_datapath}potd_current.txt") || (print "[potd_thumbnail: Unable to create Current Potd-file in Schlabo's Scripts-directory]"); print curpotd_f "\n"; print curpotd_f $curpotdline; close(curpotd_f); } } if ($updatepiconly == 1) { exit; } if (($curpotd_found == 1) || (($curpotd_found == 2) && ($p_showprevious eq "on") && $curpotdline)) { # script has a pic to display if ($p_newwindow eq "on") { print "\n"; } unless (param('display')) { print "
"; print ""; print $curpotdline; print "
\n"; } else { if (param('display') eq "text") { $curpotdline =~ s!^.*(\)!!; print $curpotdline; } else { $curpotdline =~ s!(\).*$!!; print $curpotdline; } } } else { # display N/A-pic unless (param('display')) { print "
"; print "\n"; print "
\n"; } else { unless (param('display') eq "text") { print "\n"; } } } sub get_date { ($Second,$Minute,$Hour,$month_day,$Month,$Year,$Week_Day,$IsDST) = (localtime); #Y2k fix $y = $Year + 1900; $m = $Month + 1; }



#!/usr/bin/perl ################################## ## Quote of the Day v1.01 ## ## (C)2001 Perl-Scripts.co.uk ## ## http://perl-scripts.co.uk ## ################################## use CGI::Carp qw(fatalsToBrowser); use Fcntl ":flock"; ## Change quote every: second=0, minute=1, hour=2, day=3, month=4, year=5 $when = 3; $quotefile = 'quotes.txt'; $markerfile = 'quotes.dat'; open(FILE, "$quotefile") || die "Can't open quotes file: $!"; @quotes = ; close (FILE); $size = $#quotes; open(FILE, "$markerfile") || die "Can't open marker file: $!"; ($date, $offset) = ; close (FILE); chomp ($date, $offset); $now = (localtime)[$when]; chomp $now; if ($date ne $now) { &update } $output = @quotes[$offset]; chomp $output; print "Content-type: text/html\n\n"; print "$output"; exit; sub update { if ($offset < $size) { $offset = $offset + 1; } else { $offset = 0; } open(FILE, "+>$markerfile") || die "Can't open marker file for appending: $!"; flock FILE, LOCK_EX; print FILE "$now\n$offset"; close (FILE); }




 Last Updated
 

Top #!/usr/bin/perl ######################################################### # # # MaximumEdge.com News Headlines # # # ######################################################### # # # This perl script will fetch news headlines from # # MaximumEdge.com and display them on your site. # # # # To install this script simply upload it to your # # CGI-BIN and CHMOD it 755. You will also have to # # rename is to "newsheadlines.txt" for it to work. # # You may also have to change the first line of this # # script to the correct location of perl on your web # # server. On any page where you want headlines to # # appear, rename the page ending with '.shtml' and # # add this code: # # # # # # # # Make sure that it points to the correct directory. # # Replace "top" with whatever headlines you wish # # to use. Your choices are "entertainment", # # "health", "national", "politics", "science", # # "technology", "top", and "world". # # # # If you have any questions or comments regarding # # this script please send an e-mail using this form: # # http://www.maximumedge.com/contact.shtml # # # ######################################################### use LWP::Simple; use LWP::UserAgent; use File::stat; print "Content-type:text/html\n\n"; print "

    "; if ($ENV{'QUERY_STRING'} eq "entertainment" || $ENV{'QUERY_STRING'} eq "science" || $ENV{'QUERY_STRING'} eq "world" || $ENV{'QUERY_STRING'} eq "national" || $ENV{'QUERY_STRING'} eq "politics" || $ENV{'QUERY_STRING'} eq "health" || $ENV{'QUERY_STRING'} eq "technology"){ $file = "$ENV{'QUERY_STRING'}.txt"; $url = "http://www.maximumedge.com/cgi/news/$ENV{'QUERY_STRING'}.txt"; } else { $file = "top.txt"; $url = "http://www.maximumedge.com/cgi/news/top.txt"; } open(IN,$file); $date = ; @lines = ; close(IN); chomp(@lines); chomp($date); if (time - $date > 14400) { my $ua = new LWP::UserAgent; my $res = $ua->request(HTTP::Request->new(GET => $url)); my $content = $res->content; @lines = split("\n",$content); open(OUT,">$file"); print OUT time; print OUT "\n"; foreach $line (@lines) { print OUT "$line\n"; } close(OUT); } foreach $line (@lines) { @parts = split(/\|/,$line); print "
  • $parts[1] $parts[2]
  • "; } print "
";

Entertainment #!/usr/bin/perl ######################################################### # # # MaximumEdge.com News Headlines # # # ######################################################### # # # This perl script will fetch news headlines from # # MaximumEdge.com and display them on your site. # # # # To install this script simply upload it to your # # CGI-BIN and CHMOD it 755. You will also have to # # rename is to "newsheadlines.txt" for it to work. # # You may also have to change the first line of this # # script to the correct location of perl on your web # # server. On any page where you want headlines to # # appear, rename the page ending with '.shtml' and # # add this code: # # # # # # # # Make sure that it points to the correct directory. # # Replace "top" with whatever headlines you wish # # to use. Your choices are "entertainment", # # "health", "national", "politics", "science", # # "technology", "top", and "world". # # # # If you have any questions or comments regarding # # this script please send an e-mail using this form: # # http://www.maximumedge.com/contact.shtml # # # ######################################################### use LWP::Simple; use LWP::UserAgent; use File::stat; print "Content-type:text/html\n\n"; print "

    "; if ($ENV{'QUERY_STRING'} eq "entertainment" || $ENV{'QUERY_STRING'} eq "science" || $ENV{'QUERY_STRING'} eq "world" || $ENV{'QUERY_STRING'} eq "national" || $ENV{'QUERY_STRING'} eq "politics" || $ENV{'QUERY_STRING'} eq "health" || $ENV{'QUERY_STRING'} eq "technology"){ $file = "$ENV{'QUERY_STRING'}.txt"; $url = "http://www.maximumedge.com/cgi/news/$ENV{'QUERY_STRING'}.txt"; } else { $file = "top.txt"; $url = "http://www.maximumedge.com/cgi/news/top.txt"; } open(IN,$file); $date = ; @lines = ; close(IN); chomp(@lines); chomp($date); if (time - $date > 14400) { my $ua = new LWP::UserAgent; my $res = $ua->request(HTTP::Request->new(GET => $url)); my $content = $res->content; @lines = split("\n",$content); open(OUT,">$file"); print OUT time; print OUT "\n"; foreach $line (@lines) { print OUT "$line\n"; } close(OUT); } foreach $line (@lines) { @parts = split(/\|/,$line); print "
  • $parts[1] $parts[2]
  • "; } print "
";

Health #!/usr/bin/perl ######################################################### # # # MaximumEdge.com News Headlines # # # ######################################################### # # # This perl script will fetch news headlines from # # MaximumEdge.com and display them on your site. # # # # To install this script simply upload it to your # # CGI-BIN and CHMOD it 755. You will also have to # # rename is to "newsheadlines.txt" for it to work. # # You may also have to change the first line of this # # script to the correct location of perl on your web # # server. On any page where you want headlines to # # appear, rename the page ending with '.shtml' and # # add this code: # # # # # # # # Make sure that it points to the correct directory. # # Replace "top" with whatever headlines you wish # # to use. Your choices are "entertainment", # # "health", "national", "politics", "science", # # "technology", "top", and "world". # # # # If you have any questions or comments regarding # # this script please send an e-mail using this form: # # http://www.maximumedge.com/contact.shtml # # # ######################################################### use LWP::Simple; use LWP::UserAgent; use File::stat; print "Content-type:text/html\n\n"; print "

    "; if ($ENV{'QUERY_STRING'} eq "entertainment" || $ENV{'QUERY_STRING'} eq "science" || $ENV{'QUERY_STRING'} eq "world" || $ENV{'QUERY_STRING'} eq "national" || $ENV{'QUERY_STRING'} eq "politics" || $ENV{'QUERY_STRING'} eq "health" || $ENV{'QUERY_STRING'} eq "technology"){ $file = "$ENV{'QUERY_STRING'}.txt"; $url = "http://www.maximumedge.com/cgi/news/$ENV{'QUERY_STRING'}.txt"; } else { $file = "top.txt"; $url = "http://www.maximumedge.com/cgi/news/top.txt"; } open(IN,$file); $date = ; @lines = ; close(IN); chomp(@lines); chomp($date); if (time - $date > 14400) { my $ua = new LWP::UserAgent; my $res = $ua->request(HTTP::Request->new(GET => $url)); my $content = $res->content; @lines = split("\n",$content); open(OUT,">$file"); print OUT time; print OUT "\n"; foreach $line (@lines) { print OUT "$line\n"; } close(OUT); } foreach $line (@lines) { @parts = split(/\|/,$line); print "
  • $parts[1] $parts[2]
  • "; } print "
";

National #!/usr/bin/perl ######################################################### # # # MaximumEdge.com News Headlines # # # ######################################################### # # # This perl script will fetch news headlines from # # MaximumEdge.com and display them on your site. # # # # To install this script simply upload it to your # # CGI-BIN and CHMOD it 755. You will also have to # # rename is to "newsheadlines.txt" for it to work. # # You may also have to change the first line of this # # script to the correct location of perl on your web # # server. On any page where you want headlines to # # appear, rename the page ending with '.shtml' and # # add this code: # # # # # # # # Make sure that it points to the correct directory. # # Replace "top" with whatever headlines you wish # # to use. Your choices are "entertainment", # # "health", "national", "politics", "science", # # "technology", "top", and "world". # # # # If you have any questions or comments regarding # # this script please send an e-mail using this form: # # http://www.maximumedge.com/contact.shtml # # # ######################################################### use LWP::Simple; use LWP::UserAgent; use File::stat; print "Content-type:text/html\n\n"; print "

    "; if ($ENV{'QUERY_STRING'} eq "entertainment" || $ENV{'QUERY_STRING'} eq "science" || $ENV{'QUERY_STRING'} eq "world" || $ENV{'QUERY_STRING'} eq "national" || $ENV{'QUERY_STRING'} eq "politics" || $ENV{'QUERY_STRING'} eq "health" || $ENV{'QUERY_STRING'} eq "technology"){ $file = "$ENV{'QUERY_STRING'}.txt"; $url = "http://www.maximumedge.com/cgi/news/$ENV{'QUERY_STRING'}.txt"; } else { $file = "top.txt"; $url = "http://www.maximumedge.com/cgi/news/top.txt"; } open(IN,$file); $date = ; @lines = ; close(IN); chomp(@lines); chomp($date); if (time - $date > 14400) { my $ua = new LWP::UserAgent; my $res = $ua->request(HTTP::Request->new(GET => $url)); my $content = $res->content; @lines = split("\n",$content); open(OUT,">$file"); print OUT time; print OUT "\n"; foreach $line (@lines) { print OUT "$line\n"; } close(OUT); } foreach $line (@lines) { @parts = split(/\|/,$line); print "
  • $parts[1] $parts[2]
  • "; } print "
";

Politics #!/usr/bin/perl ######################################################### # # # MaximumEdge.com News Headlines # # # ######################################################### # # # This perl script will fetch news headlines from # # MaximumEdge.com and display them on your site. # # # # To install this script simply upload it to your # # CGI-BIN and CHMOD it 755. You will also have to # # rename is to "newsheadlines.txt" for it to work. # # You may also have to change the first line of this # # script to the correct location of perl on your web # # server. On any page where you want headlines to # # appear, rename the page ending with '.shtml' and # # add this code: # # # # # # # # Make sure that it points to the correct directory. # # Replace "top" with whatever headlines you wish # # to use. Your choices are "entertainment", # # "health", "national", "politics", "science", # # "technology", "top", and "world". # # # # If you have any questions or comments regarding # # this script please send an e-mail using this form: # # http://www.maximumedge.com/contact.shtml # # # ######################################################### use LWP::Simple; use LWP::UserAgent; use File::stat; print "Content-type:text/html\n\n"; print "

    "; if ($ENV{'QUERY_STRING'} eq "entertainment" || $ENV{'QUERY_STRING'} eq "science" || $ENV{'QUERY_STRING'} eq "world" || $ENV{'QUERY_STRING'} eq "national" || $ENV{'QUERY_STRING'} eq "politics" || $ENV{'QUERY_STRING'} eq "health" || $ENV{'QUERY_STRING'} eq "technology"){ $file = "$ENV{'QUERY_STRING'}.txt"; $url = "http://www.maximumedge.com/cgi/news/$ENV{'QUERY_STRING'}.txt"; } else { $file = "top.txt"; $url = "http://www.maximumedge.com/cgi/news/top.txt"; } open(IN,$file); $date = ; @lines = ; close(IN); chomp(@lines); chomp($date); if (time - $date > 14400) { my $ua = new LWP::UserAgent; my $res = $ua->request(HTTP::Request->new(GET => $url)); my $content = $res->content; @lines = split("\n",$content); open(OUT,">$file"); print OUT time; print OUT "\n"; foreach $line (@lines) { print OUT "$line\n"; } close(OUT); } foreach $line (@lines) { @parts = split(/\|/,$line); print "
  • $parts[1] $parts[2]
  • "; } print "
";

Science #!/usr/bin/perl ######################################################### # # # MaximumEdge.com News Headlines # # # ######################################################### # # # This perl script will fetch news headlines from # # MaximumEdge.com and display them on your site. # # # # To install this script simply upload it to your # # CGI-BIN and CHMOD it 755. You will also have to # # rename is to "newsheadlines.txt" for it to work. # # You may also have to change the first line of this # # script to the correct location of perl on your web # # server. On any page where you want headlines to # # appear, rename the page ending with '.shtml' and # # add this code: # # # # # # # # Make sure that it points to the correct directory. # # Replace "top" with whatever headlines you wish # # to use. Your choices are "entertainment", # # "health", "national", "politics", "science", # # "technology", "top", and "world". # # # # If you have any questions or comments regarding # # this script please send an e-mail using this form: # # http://www.maximumedge.com/contact.shtml # # # ######################################################### use LWP::Simple; use LWP::UserAgent; use File::stat; print "Content-type:text/html\n\n"; print "

    "; if ($ENV{'QUERY_STRING'} eq "entertainment" || $ENV{'QUERY_STRING'} eq "science" || $ENV{'QUERY_STRING'} eq "world" || $ENV{'QUERY_STRING'} eq "national" || $ENV{'QUERY_STRING'} eq "politics" || $ENV{'QUERY_STRING'} eq "health" || $ENV{'QUERY_STRING'} eq "technology"){ $file = "$ENV{'QUERY_STRING'}.txt"; $url = "http://www.maximumedge.com/cgi/news/$ENV{'QUERY_STRING'}.txt"; } else { $file = "top.txt"; $url = "http://www.maximumedge.com/cgi/news/top.txt"; } open(IN,$file); $date = ; @lines = ; close(IN); chomp(@lines); chomp($date); if (time - $date > 14400) { my $ua = new LWP::UserAgent; my $res = $ua->request(HTTP::Request->new(GET => $url)); my $content = $res->content; @lines = split("\n",$content); open(OUT,">$file"); print OUT time; print OUT "\n"; foreach $line (@lines) { print OUT "$line\n"; } close(OUT); } foreach $line (@lines) { @parts = split(/\|/,$line); print "
  • $parts[1] $parts[2]
  • "; } print "
";

World#!/usr/bin/perl ######################################################### # # # MaximumEdge.com News Headlines # # # ######################################################### # # # This perl script will fetch news headlines from # # MaximumEdge.com and display them on your site. # # # # To install this script simply upload it to your # # CGI-BIN and CHMOD it 755. You will also have to # # rename is to "newsheadlines.txt" for it to work. # # You may also have to change the first line of this # # script to the correct location of perl on your web # # server. On any page where you want headlines to # # appear, rename the page ending with '.shtml' and # # add this code: # # # # # # # # Make sure that it points to the correct directory. # # Replace "top" with whatever headlines you wish # # to use. Your choices are "entertainment", # # "health", "national", "politics", "science", # # "technology", "top", and "world". # # # # If you have any questions or comments regarding # # this script please send an e-mail using this form: # # http://www.maximumedge.com/contact.shtml # # # ######################################################### use LWP::Simple; use LWP::UserAgent; use File::stat; print "Content-type:text/html\n\n"; print "

    "; if ($ENV{'QUERY_STRING'} eq "entertainment" || $ENV{'QUERY_STRING'} eq "science" || $ENV{'QUERY_STRING'} eq "world" || $ENV{'QUERY_STRING'} eq "national" || $ENV{'QUERY_STRING'} eq "politics" || $ENV{'QUERY_STRING'} eq "health" || $ENV{'QUERY_STRING'} eq "technology"){ $file = "$ENV{'QUERY_STRING'}.txt"; $url = "http://www.maximumedge.com/cgi/news/$ENV{'QUERY_STRING'}.txt"; } else { $file = "top.txt"; $url = "http://www.maximumedge.com/cgi/news/top.txt"; } open(IN,$file); $date = ; @lines = ; close(IN); chomp(@lines); chomp($date); if (time - $date > 14400) { my $ua = new LWP::UserAgent; my $res = $ua->request(HTTP::Request->new(GET => $url)); my $content = $res->content; @lines = split("\n",$content); open(OUT,">$file"); print OUT time; print OUT "\n"; foreach $line (@lines) { print OUT "$line\n"; } close(OUT); } foreach $line (@lines) { @parts = split(/\|/,$line); print "
  • $parts[1] $parts[2]
  • "; } print "
";

Sign Up for E-mail and Cell Phone Text Messaging
and Get updated every weekend with what parties are going down in your local area. We will send you the Information including the info line and directions. SIGN UP and Peep the Scene
 FIELDS MARKED WITH * ARE REQUIRED!

►Your Name:*  ►E-Mail Address: ►Cell Phone Number:
►State:  ►City:     ►Zip:

►Check How You Want Us to hit you Up  ?

►How did you hear about us ? :
E-mail Cell Phone Text Messaging

 When Done - Please



Search Events: Press Search Events & Leave All Fields Empty For Full Listing
Keyword: Only events posted for last days
Date of Event: Event Name:
Address: City:
State: Zip/Postal Code:
Brief Description:
      Only events with flyers
All search fields are optional - Press Search Events for Full Listing