
Aaliyah - Timbaland Try Again (Mp3 Download)
- Dec 9 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);
}

|