#!/usr/bin/perl # # Display a list of tip headings for a specific week. # # Revision History # # 2003-MAR-29 DSM Initial revision. $| = 1; use strict; use lib '/store/host/lists.evolt.org/includes'; use DBI; use CGI qw(param); use Date::Calc qw(Add_Delta_Days); require 'evolt-lib.pl'; require 'evolt-db.pl'; my $body = ''; # Contains any dynamically generated content. my ($syear, $smonth, $sday, $eyear, $emonth, $eday); # Parameters passed in. my $week = param('w') || ''; my $orderby = param('orderby') || 'tip_date'; my $orderdir = param('orderdir') || 'DESC'; # Dynamic portions of the page requiring database access. if (!defined($week) || $week !~ /\d{4}\d{2}\d{2}/) { $body .= "
$hdr_date | $hdr_type | $hdr_author |
---|