#!/usr/bin/perl
require "/Webs/judicialnetwork.com/cgi-bin/util-lib-5-5.pl";
my $config_file = '/Webs/judicialnetwork.com/cgi-sec/hp_events/config/config.xml';
my $in = &read_parse();
my $xml = &extract_items($config_file);
my $cfg = $xml->{'CONFIG'} if(exists $xml->{'CONFIG'});
&add_filter($cfg);
print "Content-type: text/html\n\n";
my($x_sec,$x_min,$x_hour,$x_day,$x_month,$x_year,$x_wday,$x_yday,$x_isdst) = localtime(time);
$x_month++;
$x_year += 1900;
my $sort = {};
my $db = join($cfg->{'FILE_SEP'},$cfg->{'BASE_DIR'},$cfg->{'CGI_SEC'},$cfg->{'PROGRAM'},$cfg->{'MAIN'},$cfg->{'MAIN_FILE'});
my $c = &extract_items($db);
foreach $id (keys %$c){
my $tmp = $c->{$id};
my $key = sprintf("%04d%02d%02d%06d", $tmp->{'YEAR'}, $tmp->{'MONTH'}, $tmp->{'DAY'}, $tmp->{'ID'});
$sort->{$key} = $c->{$id};
}
my $x_sort = [];
my $stm = ( $cfg->{'SORT'} eq 'REV' ? 'reverse sort keys %$sort' : 'sort keys %$sort');
$x_sort = [(eval($stm))];
my $x_str = '';
foreach $k (@$x_sort){
my $i = $sort->{$k};
if($i->{'STATE'} eq 'A' && int($i->{'YEAR'}) >= $x_year && int($i->{'MONTH'}) >= $x_month && int($i->{'DAY'}) >= $x_day){
$x_str .= &print_item($i);
}
}
if($x_str){
print $x_str;
}
else{
print 'There are no upcoming media appearances at this time - please check back again soon';
}
sub print_item{
my($in) = @_;
my $str = '';
$str .= " \n";
$str .= "Date: ".&post_filter('MONTH_CONVERT', $in->{'MONTH'})." ".&post_filter('DAY_CONVERT', $in->{'DAY'}).", $in->{'YEAR'}
\n";
$str .= "Time: $in->{'TIME'}
\n" if($in->{'TIME'});
$str .= "Who: $in->{'FIELD_WHO'}
\n" if($in->{'FIELD_WHO'});
$str .= "What: $in->{'FIELD_WHAT'}
\n" if($in->{'FIELD_WHAT'});
$str .= "Re: $in->{'FIELD_RE'}\n" if($in->{'FIELD_RE'});
return $str;
}
sub get_date{
my($sep) = @_;
$sep = '-' unless($sep);
my($sec,$min,$hour,$day,$month,$year,$wday,$yday,$isdst) = localtime(time);
$month++;
$year += 1900;
my $str = '%02d'.$sep.'%02d'.$sep.'%04d';
return sprintf($str, $month, $day, $year);
}
...to see the timetable for the last nine Supreme Court nominations, starting with President Ronald Reagan's first nomination in 1981.
|
