<%INIT>
my $title = "Articles";
my $root = "/var/www/vhosts/comicraft.com/balloontales.com/";
my $category = "articles";
my $topic = "";
my $keywords = "";
my @results = ();
<& ../../header.mas, category => $category &>
<%$title %>
|
<%perl>
my $directory_location = "$root" . "$category";
opendir (DIRECTORY, "$directory_location") || die ("Cannot open $directory_location");
my @folders = readdir(DIRECTORY);
closedir(DIRECTORY);
foreach my $folder (@folders)
{
unless (($folder =~ ".html") || ($folder =~ ".mas") || ($folder =~ ".xml") || ($folder eq ".") || ($folder eq ".."))
{
my $article_title = "";
my $article_description = "";
my $article_date = "";
open (CONTENTS, "<$directory_location/$folder/index.html") || die ("Cannot open $directory_location/$folder/index.html");
while ()
{
if (($_ =~ "title") && ($article_title eq ""))
{
$_ =~ s/my \$title = "//g;
$_ =~ s/\";//g;
$article_title = "$_";
chomp $article_title;
}
if (($_ =~ "description") && ($article_description eq ""))
{
$_ =~ s/my \$description = "//g;
$_ =~ s/\";//g;
$article_description = "$_";
chomp $article_description;
}
if (($_ =~ "date") && ($article_date eq ""))
{
$_ =~ s/my \$date = "//g;
$_ =~ s/\";//g;
$article_date = "$_";
chomp $article_date;
}
if ($article_title eq "ignore")
{
last;
}
if (($article_title ne "") && ($article_description ne "") && ($article_date ne ""))
{
push (@results, "$article_date|$folder|$article_title|$article_description");
last;
}
} #end while
close (CONTENTS);
} # end unless
} # end foreach
@results = sort (@results);
@results = reverse (@results);
<%perl>
my $counter = "0";
foreach my $result (@results)
{
(my $article_date, my $folder, my $article_title, my $article_description) = split(/\|/,$result);
my $article_year = substr ($article_date,0,4);
my @months = ('January','February','March','April','May','June','July',
'August','September','October','November','December');
my $article_month = substr ($article_date,4,2);
$article_month = $months[$article_month-1];
if ($counter eq "0") # FIRST RESULT
{
print <<"_end_of_html";
_end_of_html
$counter++;
}
else # THE REST
{
print <<"_end_of_html";
$article_title $article_month $article_year
$article_description
_end_of_html
}
}
<& ../../footer.mas, topic => $topic &> 
