| |
CHECK OUT OUR NEW BLOG
Is Bob Dylan singing about Lucy Keyes? Take a listen to his new song, "Thunder on the Mountain." Let us know what you think!
LUCY KEYES IS 4th HIGHEST RATED FILM EVER ON LIFETIME MOVIE NETWORK.
NEXT LMN AIRING - AUG. 23 @ 11:18AM
DVD is available on Amazon.com and Netflix.
|
|
Back to News & Information Main Page
#!/usr/bin/perl
$base_dir = "/home/sites/www.lucykeyes.com/web/";
$news_file_base = "/home/sites/www.lucykeyes.com/web/news/";
use File::Find;
### READ IN FORM ###
$buffer = $ENV{'REDIRECT_QUERY_STRING'};
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
# Get Raw Data
if ($RAW{$name}) {
$RAW{$name} .= ",$value";
} else {
$RAW{$name} = $value;
}
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
# $value =~ s/\\//g;
# $value =~ s/\'/\\'/g;
if ($FORM{$name}) {
$FORM{$name} .= ",$value";
} else {
$FORM{$name} = $value;
}
} # End Foreach
### END READ IN FORM ###
print "Content-type:text/html\n\n";
$i = 0;
# Parse all directories and analyze files
find(\&analyze_file, "$news_file_base");
sub analyze_file {
local($filename) = $_;
$path = "$File::Find::dir";
if ($filename ne "index.cgi" && $filename ne ".") {
$filename =~ s/\.txt$//ig;
$articles[$i] = "$filename";
$i++;
} #End if $filename
} #End sub analyze_file
$k = 1;
foreach $article (sort { $b <=> $a } @articles) {
open NEWNEWS, "${news_file_base}${article}.txt";
@article_content = ;
close NEWNEWS;
foreach $line (@article_content) {
$text .= $line;
} #End foreach
$text =~ m/(.*?)<\/ARTICLE\.TEASER>/si;
$teaser = $1;
$text =~ m/(.*?)<\/ARTICLE\.CONTENT>/si;
$content = $1;
$content =~ s/\n/
/g;
print qq~$teaser
$content
***************************
~;
$text = "";
} #End foreach
Back to News & Information Main Page
|
 |
|
