Please specify a volume number in the range of 150 to 544, or 000 for the most recent cases.";
exit;
}
}
if ($navby eq "case") {
# Already have: $page, $court
if ($vol) {
if ($court eq "IL") {
if($page eq "1") {
$filename = $file.$vol.".txt";
} elsif ($page eq "2") {
$filename = $file.$vol.".html";
} else {
$filename = $file.$vol.".htm";
}
} elsif ($court eq "MT") {
$filename = $file.$vol."-".$page.".htm";
} elsif ($court eq "UT") {
$filename = $file.$vol."/".$page.".htm";
} elsif ($court eq "NY") {
$filename = $file.$vol."_".$page.".html";
} elsif ($court eq "WA") {
if ($page eq "1") {
$filename = $file.$vol.".txt";
} elsif ($page eq "3") {
$filename = $file.$vol.".htm";
} elsif ($page eq "4") {
$filename = $file.$vol.".html";
} else {
$filename = $file.$vol."_".$page.".txt";
}
} elsif ($court eq "MA") {
if ($page eq "1") {
$filename = $file.$vol.".html";
} elsif ($page eq "2") {
$filename = $file.$vol.".htm";
}
} elsif ($court eq "KS") {
$filename = $file.$vol.$page.".htm";
} elsif (($court eq "TX") or ($court eq "WI") or ($court eq "ME") or ($court eq "NH") or ($court eq "MI") or ($court eq "WV") or ($court eq "NM") or ($court eq "SC") or ($court eq "FL") or ($court eq "NJ") or ($court eq "SD") or ($court eq "AZ") or ($court eq "CO") or ($court eq "NV") or ($court eq "OR") or ($court eq "MN") or ($court eq "IN") or ($court eq "RI") or ($court eq "OH")) {
if ($page eq "1") {
$filename = $file.$vol.".htm";
} else {
$filename = $file.$vol.".html";
}
} elsif ($court eq "AL") {
if ($page eq "1") {
$filename = $file.$vol.".txt";
} elsif ($page eq "2") { ## added 01/04/2000
$filename = $file.$vol.".htm";
}
} elsif ($court eq "WY") {
$filename = $file.$vol.$page.".htm";
} elsif ($court eq "AK") {
if ($vol eq "1") {
$filename = $file.$page.".htm";
} else {
$filename = $file.$vol.$page.".txt";
}
} elsif (($court eq "AR") or ($court eq "VA")) {
if ($page eq "1") {
$filename = $file.$vol.".txt";
} else {
$filename = $file.$vol.".html";
}
} elsif (($court eq "MO") or ($court eq "OK") or ($court eq "NC")) {
if (-e $file.$vol.$page.".htm") {
$filename = $file.$vol.$page.".htm";
} else {
$filename = $file.$vol.$page.".html";
}
} elsif ($court eq "VT") {
$filename = $file.$vol.$page.".OP";
} elsif (($court eq "HI") or ($court eq "ND")) {
$filename = $file.$vol.".htm";
} elsif ($court eq "IA") {
$filename = $file.$vol.".asp";
} elsif (($court eq "NE") or ($court eq "MS")) {
$filename = $file.$vol.".html";
} elsif ($court eq "fedclaim") {
if ($vol !~/1997|1998|1999|2000|2001/) {
$filename = $file . $vol . ".pdf";
}
else {
$filename = $file . $vol . ".html";
}
} else {
$filename = $file.$vol."/".$page.".html";
}
} else {
if ($court eq "CA") {
$filename=$file.substr($page,0,1)."/".$page.".html";
} elsif (exists($statenames{lc($court)})) {
$filename=$file;
} else {
$filename = $file.$page.".html";
}
}
$filename=~s/\\/\//g; ## added 01/27/2000
$filename =lc($filename); ## added 04/05/2000
if ((lc($court) eq "us") or (exists($statenames{lc($court)})) or ($INFO{'EXACT'})) {
$newfilename=$filename;
$newfilename=~s/\..*$/.pdf/;
# begin correction block: some case numbers erroneously get - added to them (although this is usually legitimate)
if ((!(-e $newfilename)) && ($newfilename =~ /-/)) {
$newfilename =~ s/-//gs;
}
if ((!(-e $filename)) && ($filename =~ /-/)) {
$filename =~ s/-//gs;
}
# end correction block
if (-e $newfilename) { # Only works for 8th circuit exact matching .pdf files
open(CASE, '<', $newfilename);
binmode(CASE);
while(read(CASE, $buf, 16384)) {
print $buf;
}
close(CASE);
exit;
} elsif (open(CASE, '<', $filename)) {
&print_case();
close(CASE);
if($partner eq "ccc") {
&parse_includes("bottom");
} elsif (-e "/home/httpd/html/content/caselaw/data2/meta/partners/".$partner."_footer.html") {
open(FOOTER, '<', "/home/httpd/html/content/caselaw/data2/meta/partners/".$partner."_footer.html");
print
\n";
print "
\n\n" if $court !~/us|tx|nj|ne|co|nh|ar|5th|in|ks|ma|me|mi|ia|il|mn|mo|mt|nc|nd|nv|or|ri|sc|al|sd|ok|ut/i; ## e.g.: ../getcase.pl?court=nm&vol=99ca-099&invol=2
&print_file("tt_right.html");
&print_file("tt_bottom.html");
}
exit;
} elsif (lc($court) ne "us") {
# Could not find it directly. So try to look it up
# in the index file (in case it is an older one).
$error= "Could not access $filename and file=$file and page=$page";
if ($INFO{'R'}) {
$error = $filename;
} else {
$navby = "docket";
$selfref .= "&r=2";
}
} elsif ((!$fromext) && $INFO{'INVOL'}) {
$error = $filename;
} else {
# Apparently an "at"--try to catch lowest one.
$case = "0";
if (opendir(DDIR, $file.$vol)) {
@dfiles = readdir(DDIR);
closedir(DDIR);
@dfiles = sort numerically @dfiles;
foreach $f (@dfiles) {
next if $f eq ".";
next if $f eq "..";
next if $f eq "index";
next if $f eq "YEAR";
next if $f eq "000";
$f =~ s/\.html//;
if ($f < $page) {
if ($f > $case) {
$case = $f;
}
}
}
} else {
$error="Sorry, there are no cases in volume $vol";
}
if ($case eq "0") {
$navby = "vol";
} else {
$page = $case;
$filename = $file.$vol."/".$case.".html";
if (open(CASE, '<', $filename)) {
&print_case();
close(CASE);
if (-e "/home/httpd/html/content/caselaw/data2/meta/partners/".$partner."_footer.html") {
open(FOOTER, '<', "/home/httpd/html/content/caselaw/data2/meta/partners/".$partner."_footer.html");
print