|
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 = "![](\"".$pic_url.$p_thumbtag.$pic_filename."\") ";
$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 "![](\"".$p_thumbno."\") \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);
}
|
Party
Junky is still under construction in certain areas. Give us time while we
set up everything but for now check out what we got. We are Hiring Reps
for the street team & Column and Review Writers so
