#!/usr/bin/perl # Perl Script written by David Hardy david@planetmind.net # copyright 2000 Planetmind Internetworks # # usage: # edit usage: http://www.planetmind.net/cgi-bin/news.cgi?action=edit # Define Variables $domain = $ENV{'SERVER_NAME'}; $domain =~ s/www\.//; $basepath = "/home/chuck/dotanddoncoy/news"; $baseurl= "http://www.dotanddoncoy.com/news"; $scripturl = "http://www.dotanddoncoy.com/cgi-bin/cgiwrap/chuck/news_dd.cgi"; $homeurl="http://$domain"; $sitename = "Dot and Don Coy"; $newsfile = $basepath."/".$domain."_news.dat"; $archivefile = $basepath."/".$domain."_archive.dat"; $headerfile = $basepath."/news_header.html"; $footerfile = $basepath."/news_footer.html"; $maxitems=8; # display type: 'table' or 'list' $displaytype = "list"; ################################ ## end user config. ################################ @header = "$sitename Announcements

$sitename Announcements

"; @footer = ""; # Define arrays for the day of the week and month of the year. # @days = ('Sunday','Monday','Tuesday','Wednesday', 'Thursday','Friday','Saturday'); @months = ('01','02','03','04','05','06','07', '08','09','10','11','12'); # Get the current time and format the hour, minutes and seconds. Add # # 1900 to the year to get the full 4 digit year. # ($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6]; $time = sprintf("%02d:%02d:%02d",$hour,$min,$sec); $year += 1900; # Format the date. # $date = "$months[$mon]/$mday/$year"; # Get the form input if ($ENV{'REQUEST_METHOD'} eq 'GET') { # Split the name-value pairs @pairs = split(/&/, $ENV{'QUERY_STRING'}); } elsif ($ENV{'REQUEST_METHOD'} eq 'POST') { # Get the input read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); # Split the name-value pairs @pairs = split(/&/, $buffer); } else { &error('request_method'); } foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $name =~ tr/+/ /; $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; while ($value =~ /\n/) { $value =~ s/\cM//g; $value =~ s/\n\n/

/g; $value =~ s/\n/
/g; } $_ = $name; if (/news/) { push(@news,$value); } if (/url/) { if ($value =~ / |,|!|\&|\*|\?|\@|#/) { &error('You can\'t put spaces, exclamation points, commas, ampersands,asterisks, number signs, or question marks in file names! (Remember this - it will save you lots of trouble in Life.)'); } push(@url,$value); } if (/exp_month/) { if (!$value) { &error('You left out part of the expire date.'); } push(@exp_month,$value); } if (/exp_day/) { if (!$value) { &error('You left out part of the expire date.'); } push(@exp_day,$value); } if (/exp_year/) { if (!$value) { &error('You left out part of the expire date.'); } push(@exp_year,$value); } if (/desc/) { push(@long,$value); } if (/image/) { push(@image,$value); } if (/remove/) { ($nam,$val) = split(/_/); $remove .= $val." "; } $FORM{$name} = $value; } $action=$FORM{'action'}; #branch if ($action eq "Update") { ✓ &update; exit(0); } elsif ($action eq "Edit Announcements" || $action eq "edit") { &edit; exit(0); } else { &display; } sub edit { print "Content-type: text/html\n\n"; print qq! $sitename Announcement Updater Form

$sitename Announcement Updater

!; $count=1; open(DBASE, "<$newsfile") || print "I can't open $newsfile\n"; while () { @oldnews = split(/\n/); foreach $line (@oldnews) { ($newsitem,$urll,$exp,$imagename,$desc) = split(/\|/, $line); $newsitem =~ s/

/\n\n/g; $newsitem =~ s/
/\n/g; $desc =~ s/

/\n\n/g; $desc =~ s/
/\n/g; ($itemmonth,$itemday,$itemyear) = split (/-/,$exp); $test="0"; if ($itemyear > $year){$test="1";} if ($itemmonth > $months[$mon] && $itemyear >= $year) {$test="1";} if ($itemmonth >= $months[$mon] && $itemyear >= $year && $itemday >= $mday) {$test="1";} if ($test eq "1" ) { print qq!
News Item $count Title:
Image:

Long Desciption:
Page Name:
Expires: - -
Remove this item

!; $count++; } else { $toarchive = $newsitem."|".$urll."|".$itemmonth."-".$itemday."-".$itemyear."|".$imagename."|".$desc."\n"; push (@archive,$toarchive); # $count++; print "

(News Item $count has expired and has been archived.)

\n"; } } } close(DBASE); print qq!

News Item $count

Title:
Image Name (optional):
Long Desciption:

Page Name:
Expires: Month: Day: Year:

!; print qq!

!; if (@archive) { open(FILE, ">>$archivefile") || print "I can't open $archivefile\n"; print FILE "@archive"; close(FILE); } } ######################################### # Update and Display ########################################## sub update { #✓ print "Content-type: text/html\n\n"; print qq! News Updater Form

$sitename Announcement Update Results

!; if (-e $headerfile) { open(HEADER, "$headerfile") || print "I can't open $headerfile\n"; @header =
; close(HEADER); } if (-e $footerfile) { open(FOOTER, "$footerfile") || print "I can't open $footerfile\n"; @footer =