|
|
NEWS ARCHIVE
If you have any information about tour dates, appearances, or anything else about Carly please let us know.
#!/usr/local/bin/perl
#######################################################################
# #
# News Publisher #
# Archives #
# Version 1.02 #
# #
# Created by Grant Williams #
# #
# Created on: 6/11/99 Last Modified on: 8/16/99 #
# I can be reached at: gcw07@ionet.net #
# Scripts Found at: http://www.roosh.com/news_publisher/ #
#######################################################################
# Please use the forum at the site for support questions and not #
# email them. The forum is checked often. #
#######################################################################
# COPYRIGHT NOTICE: #
# #
# Copyright 1999 - 2000 Grant Williams All Rights Reserved. #
# #
# This program may be used and modified free of charge by anyone, as #
# long as this copyright notice and the header above remain intact. #
# By using this program you agree to indemnify Grant Williams from #
# any liability that might arise from it's use. #
# #
# Selling the code for this program without prior written consent is #
# expressly forbidden. Obtain permission before redistributing this #
# software over the Internet or in any other medium. In all cases #
# copyright and header must remain intact. #
# #
#######################################################################
# Define Variables
require "config.cgi";
require "np-lib.cgi";
##########################################################################
# #
# DO NOT EDIT BELOW THIS LINE #
# #
##########################################################################
&parse_query;
&get_general_configuration;
&get_individual_configuration;
@text_months = ("January","February","March","April","May","June","July","August","September","October","November","December");
print "Content-Type: text/html\n\n";
&pageheader;
if($query{'view'}){
if($archivetype == 2){
&viewweek;
}
else{
&viewmonth;
}
}
else{
if($archivetype == 2){
&viewweeklist;
}
else{
&viewmonthlist;
}
}
&pagefooter;
######################
sub viewmonthlist {
if($query{'category'}){
$cat_database = $query{'category'};
}
else {
$cat_database = 1;
}
####
@cat_data = ();
if(! -e "$datadir/categories.file"){
push (@cat_data, "1|:|Default\n");
}
else {
open(DIR,"$datadir/categories.file");
@cat_data = ;
close(DIR);
}
push (@category_names, "");
@data = @temp_data = @temp_data2 = ();
if($cat_database eq "all"){
foreach $allcategorylist (@cat_data){
chomp($allcategorylist);
($cat_data_Id_h, $cat_data_Name) = split(/\|:\|/,$allcategorylist);
push (@category_names, $cat_data_Name);
@temp_data = @temp_data2 = ();
open(DIR,"$datadir/$cat_data_Id_h\.news");
@temp_data = ;
close(DIR);
foreach $tmp_line (@temp_data){
$tmp_line2 = "$cat_data_Id_h,$tmp_line";
push (@temp_data2, $tmp_line2);
}
push (@data, @temp_data2);
}
@data = (sort { (split(/\|:\|/,$b))[6] <=> (split(/\|:\|/,$a))[6] } @data);
}
else {
@temp_data = @temp_data2 = ();
open(DIR,"$datadir/$cat_database\.news");
@temp_data = ;
close(DIR);
foreach $allcategorylist (@cat_data){
chomp($allcategorylist);
($cat_data_Id_h, $cat_data_Name) = split(/\|:\|/,$allcategorylist);
push (@category_names, $cat_data_Name);
if($cat_data_Id_h == $cat_database){
foreach $tmp_line (@temp_data){
$tmp_line2 = "$cat_data_Id_h,$tmp_line";
push (@temp_data2, $tmp_line2);
}
push (@data, @temp_data2);
}
}
}
####
print "$archivesname";
foreach $line (@data) {
@dataA = split(/\|:\|/,$line);
($temp_category_num, $temp_date) = split(/\,/,$dataA[0]);
$dataA[0] = $temp_date;
($month,$day,$year) = split(/\//,$dataA[0]);
$newmonth = "$month-$year";
if ($newmonth ne $prevmonth){
push (@months, $newmonth);
}
$prevmonth = $newmonth;
}
foreach $monthA (@months) {
($monthNum,$yearNum) = split(/\-/,$monthA);
$tmonth = $monthNum - 1;
$yearNum += 100 if($yearNum < 90);
$fullyear = 1900 + $yearNum;
$textmonth = "$text_months[$tmonth] $fullyear";
print "$textmonth
\n";
}
}
####################################
sub viewweeklist {
if($query{'category'}){
$cat_database = $query{'category'};
}
else {
$cat_database = 1;
}
####
@cat_data = ();
if(! -e "$datadir/categories.file"){
push (@cat_data, "1|:|Default\n");
}
else {
open(DIR,"$datadir/categories.file");
@cat_data = ;
close(DIR);
}
push (@category_names, "");
@data = @temp_data = @temp_data2 = ();
if($cat_database eq "all"){
foreach $allcategorylist (@cat_data){
chomp($allcategorylist);
($cat_data_Id_h, $cat_data_Name) = split(/\|:\|/,$allcategorylist);
push (@category_names, $cat_data_Name);
@temp_data = @temp_data2 = ();
open(DIR,"$datadir/$cat_data_Id_h\.news");
@temp_data = ;
close(DIR);
foreach $tmp_line (@temp_data){
$tmp_line2 = "$cat_data_Id_h,$tmp_line";
push (@temp_data2, $tmp_line2);
}
push (@data, @temp_data2);
}
@data = (sort { (split(/\|:\|/,$b))[6] <=> (split(/\|:\|/,$a))[6] } @data);
}
else {
@temp_data = @temp_data2 = ();
open(DIR,"$datadir/$cat_database\.news");
@temp_data = ;
close(DIR);
foreach $allcategorylist (@cat_data){
chomp($allcategorylist);
($cat_data_Id_h, $cat_data_Name) = split(/\|:\|/,$allcategorylist);
push (@category_names, $cat_data_Name);
if($cat_data_Id_h == $cat_database){
foreach $tmp_line (@temp_data){
$tmp_line2 = "$cat_data_Id_h,$tmp_line";
push (@temp_data2, $tmp_line2);
}
push (@data, @temp_data2);
}
}
}
####
print "$archivesname";
$dailycount = 0;
$weeklydata = "";
foreach $line (@data) {
@dataA = split(/\|:\|/,$line);
($temp_category_num, $temp_date) = split(/\,/,$dataA[0]);
$dataA[0] = $temp_date;
if ($dataA[0] ne $prevday){
$dailycount++;
if ($dailycount > 7){
$dailycount = 1;
push (@archiveNews, "$weeklydata\n");
$weeklydata = "";
}
$weeklydata = "$weeklydata\:$dataA[0]";
}
$prevday = $dataA[0];
}
push (@archiveNews, "$weeklydata\n");
foreach $weeklyArchive (@archiveNews) {
chop($weeklyArchive);
@weekdata = split(/\:/,$weeklyArchive);
($monthA1,$dayA1,$yearA1) = split(/\//,$weekdata[1]);
$begin = "$monthA1\.$dayA1\.$yearA1";
@newWeekdata = @weekdata;
$end = pop(@newWeekdata);
($monthNum,$dayNum,$yearNum) = split(/\//,$end);
$end = "$monthNum\.$dayNum\.$yearNum";
$tmonth = $monthNum - 1;
$yearNum += 100 if($yearNum < 90);
$fullyear = 1900 + $yearNum;
$textdate = "$text_months[$tmonth] $dayNum, $fullyear - ";
#######
$tmonthA = $monthA1 - 1;
$yearA1 += 100 if($yearA1 < 90);
$fullyearA = 1900 + $yearA1;
$textdate1 = "$text_months[$tmonthA] $dayA1, $fullyearA";
print "$textdate$textdate1
\n";
}
}
####################################
sub viewmonth {
if($query{'category'}){
$cat_database = $query{'category'};
}
else {
$cat_database = 1;
}
my $beforeDateStory = $ct_beforeDateStory{$cat_database};
my $afterDateStory = $ct_afterDateStory{$cat_database};
my $Cnumonnews = $ct_numonnews{$cat_database};
my $storyDate = $ct_storyDate{$cat_database};
####
@cat_data = ();
if(! -e "$datadir/categories.file"){
push (@cat_data, "1|:|Default\n");
}
else {
open(DIR,"$datadir/categories.file");
@cat_data = ;
close(DIR);
}
push (@category_names, "");
@data = @temp_data = @temp_data2 = ();
if($cat_database eq "all"){
foreach $allcategorylist (@cat_data){
chomp($allcategorylist);
($cat_data_Id_h, $cat_data_Name) = split(/\|:\|/,$allcategorylist);
push (@category_names, $cat_data_Name);
@temp_data = @temp_data2 = ();
open(DIR,"$datadir/$cat_data_Id_h\.news");
@temp_data = ;
close(DIR);
foreach $tmp_line (@temp_data){
$tmp_line2 = "$cat_data_Id_h,$tmp_line";
push (@temp_data2, $tmp_line2);
}
push (@data, @temp_data2);
}
@data = (sort { (split(/\|:\|/,$b))[6] <=> (split(/\|:\|/,$a))[6] } @data);
}
else {
@temp_data = @temp_data2 = ();
open(DIR,"$datadir/$cat_database\.news");
@temp_data = ;
close(DIR);
foreach $allcategorylist (@cat_data){
chomp($allcategorylist);
($cat_data_Id_h, $cat_data_Name) = split(/\|:\|/,$allcategorylist);
push (@category_names, $cat_data_Name);
if($cat_data_Id_h == $cat_database){
foreach $tmp_line (@temp_data){
$tmp_line2 = "$cat_data_Id_h,$tmp_line";
push (@temp_data2, $tmp_line2);
}
push (@data, @temp_data2);
}
}
}
### date ###
($monthNum,$yearNum) = split(/\-/,$query{'view'});
$tmonth = $monthNum - 1;
$yearNum += 100 if($yearNum < 90);
$fullyear = 1900 + $yearNum;
$textmonth = "$text_months[$tmonth] $fullyear";
print "$beforedate$textmonth$afterdate\n";
### date ###
foreach $story (@data) {
@newdata = split(/\|:\|/,$story);
($temp_category_num, $temp_date) = split(/\,/,$newdata[0]);
$newdata[0] = $temp_date;
($monthA1,$dayA,$yearA) = split(/\//,$newdata[0]);
$newmonthA = "$monthA1-$yearA";
if ($newmonthA eq $query{'view'}){
%hash = (
0 => '<>',
1 => '<>',
2 => '<>',
3 => '< |
