#!/usr/bin/perl -T -I.

use CGI qw(:standard);
use CGI::Cookie;
use print_includes;
use print_sema;
my %court_url=();
# check referer to redirect to corporate channel version
# JR 10/5/2004
if ($ENV{HTTP_REFERER} =~ /corporate/) {
	my $q = new CGI;
	print $q->redirect(
			-location => "/scripts/cases/clcc.html?$ENV{QUERY_STRING}",
			-status => 301);
	exit;
}

$QUERY_STRING = $ENV{'QUERY_STRING'};
local(%INFO);
&format($QUERY_STRING, *INFO);

$court = $INFO{'COURT'};
$navby = $INFO{'NAVBY'};

## we are not displaying any alaska cases... 10242003 - slu
#if ($court eq "ak" or $court eq "AK") {
#    print "Status: 301 Moved Permanently\nLocation: http://www.findlaw.com/11stategov/ak/laws.html\n\n";
#    exit;
#}

print "Content-Type: text/html\n\n";
my $include_path="/home/httpd/html/cobrands/www/guide.lp.findlaw.com/includes/";

$agent = $ENV{'HTTP_USER_AGENT'};
if ($agent =~ /Keynote/i) {
    print "Agent response: Done.";
    exit;
}

%statenames=("al"=>"Alabama","ak"=>"Alaska","az"=>"Arizona","ar"=>"Arkansas",
"ca"=>"California","co"=>"Colorado","ct"=>"Connecticut","dcapp"=>"District of Columbia","de"=>"Delaware",
"fl"=>"Florida","ga"=>"Georgia","hi"=>"Hawaii","id"=>"Idaho","il"=>"Illinois",
"in"=>"Indiana","ia"=>"Iowa","ks"=>"Kansas","ky"=>"Kentucky","la"=>"Louisiana",
"me"=>"Maine","md"=>"Maryland","ma"=>"Massachusetts","mi"=>"Michigan",
"mn"=>"Minnesota","ms"=>"Mississippi","mo"=>"Missouri","mt"=>"Montana",
"ne"=>"Nebraska","nv"=>"Nevada","nh"=>"New Hampshire","nj"=>"New Jersey",
"nm"=>"New Mexico","ny"=>"New York","nc"=>"North Carolina","nd"=>"North Dakota",
"oh"=>"Ohio","ok"=>"Oklahoma","or"=>"Oregon","pa"=>"Pennsylvania",
"ri"=>"Rhode Island","sc"=>"South Carolina","sd"=>"South Dakota",
"tn"=>"Tennessee","tx"=>"Texas","ut"=>"Utah","vt"=>"Vermont","va"=>"Virginia",
"wa"=>"Washington","wv"=>"West Virginia","wi"=>"Wisconsin","wy"=>"Wyoming");


# Site-specific parameters
$codetop = "/home/httpd/html/content/caselaw/data/";
$codetop2 = "/home/httpd/html/content/caselaw/data2/circs/";
$metatop = "/home/httpd/html/content/caselaw/data2/meta/";

if ($court eq "ca") {
    $state_top="/home/httpd/html/content/caselaw/data2/".$court."_cases_html/";
    $state_metatop="/home/httpd/html/content/caselaw/data2/".$court."meta/";
} else {
    $state_metatop = "/home/httpd/html/content/caselaw/data/".$court."/cases/";
    $state_top = "/home/httpd/html/content/caselaw/data/".$court."/cases/";
}

if (exists($statenames{$court})) {
    $court=uc($court);
}




$navby = lc($navby);
if (! $court) {
    if ($navby eq "search") {
	    $court = $INFO{'CASE'};
	    $court =~ s/.*\/data\/US.*/US/i;
	    $court =~ s/.*\/data2\/circs\/([0-9FeDCthrdnus]+)\/.*/$1/i;
	    $court =~ s/.*\/data2\/circs\/(Fedclaim)\/.*/$1/i;
	    $court =~ s/.*\/uscircs\/([0-9FeDCthrdnus]+)\/.*/$1/i;
	    $court =~ s/fed/Fed/i;
	    $court =~ s/dc/DC/i;
	    $court =~ s/Fedclaim/fedclaim/i;

    } else {
	    print "HTTP/1.0 301 OK\nLocation: http://www.findlaw.com/casecode/index.html\n\n";
	    exit;
    }
}

# If there is a page reference without hash mark, 
# get it to add relative hash mark for page requests.
$pageno = $INFO{'PAGENO'};

if ($INFO{"FRIEND"}){
	$selfref = "/scripts/getcase.pl?court=$court&friend=$INFO{'FRIEND'}";
}else{
	$selfref = "/scripts/getcase.pl?court=$court";
}

# Set the directories
if (exists($statenames{lc($court)})) {
    $meta=$state_metatop;
} else {
    $meta = $metatop.$court."/";
}

if (lc($court) eq "us") {
    $file = $codetop.$court."/";
} elsif (exists($statenames{lc($court)})) {
    $file = $state_top;
} else {
    $file = $codetop2.$court."/";
}



# Set some basic locator variables
if ($INFO{'NO'}) {
    $page = $INFO{'NO'};
    $page =~ s/\-//;
    $vol = "";
}  else {
    if ($INFO{'F'}) {
	    $vol = $INFO{'F'}."/".$INFO{'VOL'};
	    $vol =~ s/\//\\/g;
    } else {
	    $vol = $INFO{'VOL'};
        if ($court eq "fedclaim") {
           $page = $INFO{'VOL'};
           $page =~ s/(.*?\/)(.*)/$2/;
        }
    }
    $page = $INFO{'INVOL'} if $court ne "fedclaim";
    if ($INFO{'PAGE'} && !$page) {
       $page = $INFO{'PAGE'};
       $pageno = $page;
    }
}

# Determine the navigational method.
# Assume navigation is by case if page number is given.
# Otherwise, we have a court and volume browsing
if ($page) {


    $navby = "case";
} elsif (! $navby) {
    if (lc($court) eq "us") {
	    $navby = "vol"; 
    } else {
	    $navby = "year";
    }
}

# Determine the court name
if (lc($court) eq "us") {
    $courtname = "Supreme Court";
    $courtlink = "supreme";
} elsif (lc($court) eq "fedclaim") {
    $courtname = "Court of Federal Claims";
    $courtlink = "courts\/".$court;
} elsif (exists($statenames{lc($court)})) {
    $courtname = "$statenames{lc($court)} State Court";
    $courtlink = "states\/".$court;
} else {
    $courtname = $court." Circuit Court";
    $courtlink = "courts\/".$court; 
}
$uc_courtname=uc($courtname);

$fromext = 1;
$add2lnks = "";
$addlnkshtml = "";
$gapartner = "";
$linkurl = $INFO{'LINKURL'};
$graphurl = $INFO{'GRAPHURL'};
$partner = $INFO{'PARTNER'};
$partner = $INFO{'FRIEND'} if ($INFO{'FRIEND'});

$graphurl = "" if ($graphurl =~ /GRAPHURL/);
$linkurl = "" if ($linkurl =~ /LINKURL/);
$partner = "" if (($partner =~ /PARTNER/) || ($partner =~ /FRIEND/));

# Determine whether it is coming from other, "trusted" site 
if ($referer) {
    $fromext = 0 if ($referer =~ /findlaw\.com/i);
    $fromext = 0 if ($referer =~ /uscaselaw\.com/i);

    ################## Begin Annotation Partners ###############
    $gapartner = "oyez" if (($referer =~ /\.nwu\.edu/i) && ($referer =~ /oyez/i) && ($referer =~ /case_id/i));
    $gapartner = "ppfa" if ($referer =~ /www\.ppfa\.org/i);
    $gapartner = "FACT" if ($referer =~ /w3\.trib\.com\/FACT/i);
    $gapartner = "washingtonpost" if ($referer =~ /washingtonpost\.com/i);

    ################### Begin Co-Brand Partners ###############
    if (! $partner) {
        $partner = $gapartner if ($gapartner eq "oyez");
        $partner = "wisbar" if ($referer =~ /www\.wisbar\.org/i);
    }
 
    ################### Automatic Back-Link Gifs #############
    #$graphurl = "http://www.findlaw.com/images/backto/".$partner.".gif" if ($partner eq "oyez");
    $graphurl = "http://www.findlaw.com/images/backto/".$gapartner.".gif" if ($gapartner eq "washingtonpost");
} else {
    $fromext = 0;
}

if ($linkurl) { 
    $linkurlesc = &escape($linkurl);   
    $addlnkshtml .= "<INPUT TYPE=hidden NAME=linkurl VALUE=$linkurlesc>";
    if (! $graphurl) {
		$graphurl = "http://www.findlaw.com/images/linkbacks/linkback.gif";
        $add2lnks = "linkurl=$linkurlesc";
    } else {
        $graphurlesc = &escape($graphurl);   
        $addlnkshtml .= "<INPUT TYPE=hidden NAME=graphurl VALUE=$graphurlesc>";
        $add2lnks = "linkurl=$linkurlesc&graphurl=$graphurlesc";
    }
} else {
    if ($graphurl) {
        $linkurl = $referer if $fromext;
        if (! $linkurl) {
            $graphurl = "http://www.findlaw.com/images/youricon.gif";
            $linkurl = "http://www.findlaw.com/info/link/supreme.html";
        } else {
           $linkurlesc = &escape($linkurl);   
           $graphurlesc = &escape($graphurl);   
           $addlnkshtml .= "<INPUT TYPE=hidden NAME=graphurl VALUE=$graphurlesc><INPUT TYPE=hidden NAME=linkurl VALUE=$linkurlesc>";
           $add2lnks = "linkurl=$linkurlesc&graphurl=$graphurlesc";
        } 
    } else {
       # Take the default ad
       # $graphurl = "http://www.findlaw.com/images/youricon.gif";
       # $linkurl = "http://www.findlaw.com/info/link/supreme.html";
    } 
}

if ($partner) {
    $add2lnks .= "&" if $add2lnks;
    $add2lnks .= "friend=$partner";
}
$selfref .= "&".$add2lnks if ($add2lnks);

## The main rendering routine
$error = 0;

# Check whether someone typed in name for volume
if ($vol) {
    $vol =~ s/ //g;
    if (!(exists($statenames{lc($court)})) && ($court ne "fedclaim")) {
    	$vol =~ s/[a-z]+//i;
    }
    if (! $vol) {
     	&print_headers;
        print "<div class=\"yui-g\" id=\"leftcol-module\">\n";
     	print "<H3>Invalid Entry</H3>Please specify a volume <I>number</I>.";
     	exit;
    } elsif (lc($court) eq "us" && $vol>544) {
     	&print_headers;
        print "<div class=\"yui-g\" id=\"leftcol-module\">\n";
    	print "<H3>Invalid Volume Number</H3>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(<CASE>);
	        close(CASE);
	        if($partner eq "ccc") {
				print "</div>\n";
	        	&parse_includes("right");
	        	&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 <FOOTER>;
            	close(FOOTER);
	        } else {
				print "</div>\n";  
				print "</div>\n<!-- if not us -->\n" if $court !~/us|tx|nj|ne|co|nh|ar|fl|9th|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("right.html");
				&print_file("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(<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 <FOOTER>;
            		    close(FOOTER);
		            } else {
                        print "<script language=\"Javascript\">";
                        print "layer(document.URL,1,468,60,top_rand,\"fl.legal.dart\")\;";
                        print "</script>";

						print "</div>\n";
						&print_file("right.html");
						&print_file("bottom.html");
		    		}
	    	    	exit;
	    		} else {
	    	    	$error = "$filename not found";
	     		}
	    	}
    	}
    } else { # Fed Appeals Court caselaw
        # 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";
	        #Go ahead and search through index here -- not sure why we have to do the stupid R= thing
	        undef(@casematches);
	        undef(@resultlines);
	        $num=$page;
	        $num=~s/v\d+$//; # get JUST the case name
	        $meta=lc($meta); #added 04/05/2000
	        $file=lc($file); #added 04/05/2000
	        if (open(F, '<', $meta."index")) {

	  	        while ($item = <F>) {
	    	        $thisfound = 1;

	    	        if ($item =~ /$num/i) {
	      		        @parts=split(" ", $item);
			            $parts[0]=lc($parts[0]);	## added 1/27/2000
	      		        $casematches[$#casematches+1]=$parts[0];
                        if ($court eq "fedclaim") {
                           $find_date = $item;
                           $find_date =~ s/(.*?\s+\d+\/\d+\/)(\d+)(\s+.*)/$2/;
                           $find_date = $find_date . "/";
                           $find_date =~s/ //g;
                        }
						if ($item =~/p\s*/)
						{
							#A PDF file.
							$selfref= "http://caselaw.findlaw.com/data2/circs/$court";

	      		        	$item =~ s/([\da-zA-Z]+) (\d+\/\d+\/\d+) (.*)\n/<LI><A HREF\=\"$selfref\/$find_date$parts[0].pdf\">$3<\/A><BR><I>No\. $1 \- $2<\/I><\/LI>/;
	      		        	$item =~ s/([23])\/(\d+)\/(\d+) (\d\d\d\d) (\d\d\d+[a-z]?) (.*)\n/<LI><A HREF\=\"$selfref\/$find_date$parts[0].pdf\">$6<\/A><BR><I>No\. $5 \- $4<\/I><\/LI>/;
						}
						else
						{
	      		        	$item =~ s/([\da-zA-Z]+) (\d+\/\d+\/\d+) (.*)\n/<LI><A HREF\=\"$selfref\&navby=case\&no\=$find_date$1&exact\=1\">$3<\/A><BR><I>No\. $1 \- $2<\/I><\/LI>/;
	      		        	$item =~ s/([23])\/(\d+)\/(\d+) (\d\d\d\d) (\d\d\d+[a-z]?) (.*)\n/<LI><A HREF\=\"$selfref\&f\=$find_date$1\&invol\=$3\&vol\=$2&exact\=1\">$6<\/A><BR><I>No\. $5 \- $4<\/I><\/LI>/;
						}
	      		        $resultlines[$#resultlines+1]=$item;
	    	        }
	  	        }
	  	        close(F);
	  	        if ($#casematches == 0) {
                    if ($court eq "fedclaim") {
                       $get_year = $vol;

                       $get_year =~ s/(\d+\/)(.*)/$1/;

                    }
	    	        if (-e $file.$get_year.$casematches[0].".html") {
			            open(CASEFILE, '<', $file.$get_year.$casematches[0].".html"); # I don't know how this works, but it does
			            &print_case(<CASEFILE>);
			            close(CASEFILE);
	      	        } elsif (-e $file.$get_year.$casematches[0].".pdf") {
						&print_headers();
                                                print "<div class=\"yui-g\" id=\"leftcol-module\">\n";   ### added on 4/1/09: print <div> when we have 1 case only. 
						print "<UL>";
	    	        	for($index=0; $index <= $#resultlines; $index++) {
	      		        	print $resultlines[$index]."<P>\n";
	    	        	}
	    	        	print "</UL>";
	      	        } else {
                        &print_headers();
                        print "<div class=\"yui-g\" id=\"leftcol-module\">\n";
                        print "Case not found.<br>\n";
                    }
                    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 "Could not find footer file for $partner\n");
		                print <FOOTER>;
		                close(FOOTER);
                    } else {
						print "</div>\n";
						&print_file("right.html");
						&print_file("bottom.html");
                    }
	    	        exit;
	  	        } elsif ($#casematches > 0) {

	    	        &print_headers();
			print "<div class=\"yui-g\" id=\"leftcol-module\">\n";
	    	        print "There are several versions or parts of this case provided by the court. More recent version usually contain corrections, updates, or other important information.";
	    	        print "<UL>";
	    	        for($index=0; $index <= $#resultlines; $index++) {
	      		        print $resultlines[$index]."<P>\n";
	    	        }
	    	        print "</UL>";
                    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 "Could not find footer file for $partner\n");
		                print <FOOTER>;
		                close(FOOTER);
                    } else {
						print "</div>\n";
						&print_file("right.html");
						&print_file("bottom.html");
                    }
	    	        exit;
	  	        } else {
	    	        $error = "Error: Case not found $page $num\n";
	  	        }
	        } else {
	  	        $error = "Error: Index file not found\n";
	        }
	     }
    }
}

if (! $error) {
    if ($navby eq "vol") {
        &print_headers;
	print "<div class=\"yui-g\" id=\"leftcol-module\">\n";
	    if (! $vol) {
	        print "<CENTER><H2>U.S. $uc_courtname Opinions</H2></CENTER>";
	        &print_vols($court, $selfref, 1);
	    } else {
  	        print "<H2>U.S. $uc_courtname Opinions<\/H2>";
	        print "<B>Cases in Volume $vol:</B><P>";
	        if (open(DDIR, '<', $file.$vol."/index")) {
		        while(<DDIR>) {
		            if ($_ =~ /<A HREF/i) {
			            $_=~s/invol=(.*?)\"/invol=$1&friend=$partner\"/i if($partner);
		            } 
		            print $_;
		        }
	      	    close(DDIR);
	      	    print "<P><BR><table width=468><tr><td><B>Other Volumes:</B><P>";
	      	    &print_vols($court, $selfref, 0);
	        } else {
	      	    print "Sorry, there are no cases in this volume. Index file not found.";
	        }
	    }
	    print "</UL>";
    } elsif ($navby eq "year") {
        &print_headers;
        print "<div class=\"yui-g\" id=\"leftcol-module\">\n";
	    if ($court eq "CA") {
	        print "<h3>California State Court Opinions</h3>";
	    } elsif(!(exists($statenames{lc($court)}))) {
	        print "<h3>U.S. $uc_courtname Opinions</h3>";
	    }
	    $year = $INFO{'YEAR'};
	    $year=lc($year); #added 05/04/2000
	    $year2 = $INFO{'YEAR2'};
	    $year2 = lc($year2);
	    $month = $INFO{'MONTH'};
	    $month = lc($month);

	    if ((!$year) and (lc($court) ne "us")) {
	        $year = $year2;
	        $year .= "\-";
	        $year .= $month;
	    }
		
	    if (!$year) {
	        print "<B>Cases by Year:</B><P>\n";
	        &print_years;
	        print "<p>\n";
	        print " <br><br><a href=http://caselaw.lp.findlaw.com/casesummary/index.html>Opinion Summaries Archive</a>: September 2000 - Present\n";
	        print "<br clear=all>\n";
	    } else {

            if ($year eq "recent" && $navby eq "year" && $court eq "us")
				{
			    &getcase_ad;	
				}            
  
            if ($year eq "recent") {
		        print "<B>Recent Cases:</B><P>";
		        $party = "";
	        } else {
            	$party = $INFO{'PARTY'}; 
	   	        if ($party) {
		            $party = "2.";
		            $partysort = " Second v. first party [<A HREF=\"$selfref&navby=year&year=$year\">Revert</A>]";
	    	    } else {
		            $partysort = " First v. second party [<A HREF=\"$selfref&navby=year&year=$year&party=2\">Revert</A>]";
	    	    }
	     	    $yearname = $year;
	    	    $mname = $year;
	    	    $mname =~ s/\d\d\d\d\-(\d+)/$1/;
	    	    $yname = $year;
	    	    $yname =~ s/(\d\d\d\d)\-(\d+)/$1/;
	    	    $yearname = ("", "January", "February", "March", "April", "May", "June", "July", "Aug", "September", "October", "November", "December")[$mname]." ".$yname if ($mname ne $year);

	    	    if (!(exists($statenames{lc($court)}))) {
	    	        print "<B>Cases of $yearname:</B> $partysort<P>";
	    	    }
       	    }
	        $meta=lc($meta); #added 04/05/2000
	        if (open(F, '<', $meta."year"."/".$party.$year.".html")) {
		        while(<F>) {
		            if ($_ =~ /<A HREF/i) {
			            $_=~s/invol=(.*?)\"/invol=$1&friend=$partner\"/i if($partner);
		            } 
		            print $_;
		        }
		        close(F);
		        if ($court=~/^US\b|^\dTH\b|^\dST\b|^\dND\b|^\dRD\b|^DC\b|^FED\b/i) {
		            print "<p>";
		            print "<br><br><a href=http://caselaw.lp.findlaw.com/casesummary/index.html>Opinion Summaries Archive</a>: September 2000 - Present\n";
		        }
                print "<p>";
		        if (!(exists($statenames{lc($court)}))) {
		            print "<B>Cases of Other Years:</B><P>\n";
		            &print_years;
		        }
		        print "<Br clear=all>\n";
	        } else {
		        print "Sorry, there are no cases for $yearname<P>\n";
	        }
	    }
		# displays sem advantage links for state monthly case index page (navby=year court=state year=yearmonth) 
	my $searchKey = ($court=~/^US\b|^\dTH\b|^\dST\b|^\dND\b|^\dRD\b|^DC\b|^FED\b/i) ? $court."-".$year : $year; # federal court key is composed of court-year
    	includeSema("sem.advantage.linkmodules", $searchKey);
	} elsif ($navby eq "title" || $navby eq "docket") {
        &print_headers;
	print "<div class=\"yui-g\" id=\"leftcol-module\">\n";
        if ($court eq "CA") {	
            print "<H2>California State Opinions<\/H2>";
        } else {
            print "<H2>U.S. $uc_courtname Opinions<\/H2>";
        }
        if ($navby eq "title") {
            $v1 = $INFO{'V1'};
            print "<B>Cases with title containing: $v1</B><P>";
            $v1 =~ s/ v\.? / /i;
        } else {
            $v1 = $INFO{'NO'};
            print "<B>Cases with docket number: $v1</B><P>";
            $v1 =~ s/\-//;
        }
        $found = 0;
        $meta=lc($meta); #added 06/04/2000
        if ($v1) {

            if (open(F, '<', $meta."index")) {

                print "<UL>";
                @vsarray = split(/ /, $v1, 20);
                while ($item = <F>) {
		            $thisfound = 1;
		            foreach $v (@vsarray) {

		    	        if ($item =~ /$v/i) {
			                $error = 0; # pass
			            } else {
			                $thisfound = 0;
			            }
		            }
		            if ($thisfound) {
			            if (lc($court) eq "us") {
			                $item =~ s/(\d+)\/([\dA-Za-z\-]+) (\d+) \d+ (.*)\n/<A HREF\=\"$selfref\&vol\=$1\&invol\=$2\">$4<\/A><BR><I>$1 U\.S\. $2 \($3\)<\/I>/;
			                $date = $item;
			                #$date =~ s/.*\((1\d\d\d)\)<\/I>/$1/;
			                $date =~ s/.*\((\d\d\d\d)\)<\/I>/$1/;
			                print "<LI>", $item if ($date > 1893);
			            } else {
			                $tempcourt=$selfref;
			                $tempcourt=~s/(.*)\=(.*)/$2/;
			                $item =~ /([\da-zA-Z]+) (\d+\/\d+\/\d+) (.*)\n/;
			                $tempcase=$1;
                            $year_dir=$2;
			                $casename=$3;
     
                            $year_dir=~s/(\d+\/\d+\/)(\d+)/$2/;


			                $tempcase=lc($tempcase);

                            if ($tempcourt eq "fedclaim") {
                               $tempcourt=$tempcourt."/$year_dir"."/";
                            }
			                if (-e $codetop2.$tempcourt."\/".$tempcase.".pdf") {
								my $t_selfref= "http://caselaw.findlaw.com/data2/circs/$court";
                                  
                            	if ($court eq "fedclaim") {
                               	   $t_selfref=$t_selfref."/".$year_dir;
                                }


	      		        		$item =~ s/([\da-zA-Z]+) (\d+\/\d+\/\d+) (.*)\n/<A HREF\=\"$t_selfref\/$1.pdf\">$3<\/A><BR><I>No\. $1 \- $2<\/I>/;
	      		        		$item =~ s/([23])\/(\d+)\/(\d+) (\d\d\d\d) (\d\d\d+[a-z]?) (.*)\n/<A HREF\=\"$t_selfref\/$1.pdf\">$6<\/A><BR><I>No\. $5 \- $4<\/I>/;
			                } else {
			    	            $item =~ s/([\da-zA-Z]+) (\d+\/\d+\/\d+) (.*)\n/<A HREF\=\"$selfref\&navby=case\&no\=$1\">$3<\/A><BR><I>No\. $1 \- $2<\/I>/;
			    	            $item =~ s/([23])\/(\d+)\/(\d+) (\d\d\d\d) (\d\d\d+[a-z]?) (.*)\n/<A HREF\=\"$selfref\&f\=$1\&invol\=$3\&vol\=$2\">$6<\/A><BR><I>No\. $5 \- $4<\/I>/;
			                }
			                print "<LI>", $item;
			            }
			            $found = 1;
		            }
		        }
		        print "</UL></div>";  ## closing </div> for pages like this: getcase.pl?court=11th&navby=title&v1=smith
		        close(F);
	        } else {
		        $error = "Error: Index file not found\n";
	        }
	    }

	    &print_error() if ! $found;
    } elsif ($navby eq "search") {
		$case = $INFO{'CASE'};
		$vol = $case;
		$page = $case;
		$page =~ s/.*\/([\dA-Za-z\-]+)\.html/$1/;
		$vol =~ s/.*\/(\d+)\/[\dA-Za-z\-]+\.html/$1/;
		$case =~ s/\/data\/[0-9FeDCthrdnus]+\///i;
		$case =~ s/\/data2\/circs\/[0-9FeDCFedclaimthrdnus]+\///i;
		$case =~ s/\/us\///i;
		$case =~ s/\/uscircs\/[0-9FeDCthrdnus]+\///i;  
		#$case =~ s/\//\\/g;
		$filename = $file.$case; 
		$filename=lc($filename);
		if (open(CASE, '<', $filename)) {
  	    	&print_case(<CASE>);
	    	close(CASE);
        } else {
	    	$error = "$filename not found";
        }  
    } else {
		$error = "Error: Unknown navigation method: $navby";
    }
}

if ($error) {
    &print_headers;
    print "<div class=\"yui-g\" id=\"leftcol-module\">\n";
    &print_error;
    print "<!--".$error."    ".$referer."-->"; 
} 

if ($partner eq "ccc"){
	print "</div>\n";
	&parse_includes("right");
	&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 <FOOTER>;
    close(FOOTER);
} else {
	if ($navby eq "year"){
		print "</div>\n";
	}
	print "</div>\n" if $court =~/us/i;    ####061909
                                       #### getcase.pl?navby=search&court=US&case=/us/53/299.html 
	&print_file("right.html");
	&print_file("bottom.html");
}
exit;

sub print_headers {
    if ($partner) {
    	if($partner eq "ccc") {
    		&parse_includes("top");
			print "<title>FindLaw | Cases & Codes</title>\n";
    		&parse_includes("breadcrumb");

=header
		#TODO 20080619 - this breaks the new page design. Needs a fix.
    			print qq{
	<table width="100%" cellpadding="0" cellspacing="0" border="0" bgcolor="#ffffff">
	<tr>
	<td bgcolor=#F0EDDD valign="top" width="2%" height="7"><img src="http://images.findlaw.com/corporate/scorner_l.gif" width="5" height="5"></td>
	</tr>
	</table>
	<table width="100%" cellpadding="0" cellspacing="0" border="0" bgcolor="#ffffff">
	<tr>
	<td width="30%"><img src="http://images.findlaw.com/corporate/titles/researchtools.gif"></td>
	<td align="right" width="70%" valign="top"><img src="http://images.findlaw.com/corporate/corner6.gif" width="13" height="4"></td>
	</tr>
	</table>
	<table width="100%" cellpadding="0" cellspacing="0" border="0">
	<tr>
	<td bgcolor=cccccc><img src="http://images.findlaw.com/corporate/spacer.gif" width="13" height="1"></td>
	</tr>
	</table>
	<table border="0" cellspacing="1" cellpadding="3" width="100%">
	<tr><td>
};
=cut
    		}
    	else {
		if ($partner =~/oyez/){
			&print_file("top.html");
			print "<title>FindLaw | Cases and Codes</title>\n";
			&print_file("breadcrumb.html");
		}else{
			open(TOP, '<', $metatop."partners/".$partner.".html") || (print "Could not find header file for $partner\n");
			print <TOP>;
	        	close(TOP);	
		}
	    }
    } else {
		&print_file("top.html");
		print "<title>FindLaw | Cases and Codes</title>\n";
		&print_file("breadcrumb.html");
		
	    }

    print "<A NAME=$page><P></A>" if $page;
    local(%SEL);
    $SEL{$court}="SELECTED";
    if ($court eq "CA") {
    	print <<EOM;
<ul id="breadcrumbbar"><li class="lphome"><A HREF="http://www.findlaw.com/">FindLaw</A></li><li><A HREF="http://california.findlaw.com/">FindLaw California</A></li><li><A HREF="http://california.findlaw.com/CA02_caselaw/index.html">Judicial Opinions and Case Law</A></li> <li>California Case Law</li></ul>
<p>&nbsp;</p>
$addlnkshtml
EOM
    } elsif (exists($statenames{lc($court)})) {
    	$temp_court=lc($court);
    	print <<EOM;
<ul id="breadcrumbbar"><li class="lphome"><A HREF=\"http://www.findlaw.com/\">FindLaw</A></li><li><A HREF=\"http://www.findlaw.com/11stategov/\">State Resources</A></li><li><A HREF=\"http://www.findlaw.com/11stategov/$temp_court/index.html\">$statenames{$temp_court}</A></li><li><A HREF=\"http://www.findlaw.com/11stategov/$temp_court/laws.html\">Primary Materials</A></li><li>$statenames{$temp_court} Court Opinions</li></ul>
<p>&nbsp;</p>
$addlnkshtml
EOM
    } else {
	#Breadcrumb for cases was removed in the new design. #Note 20080619: the "new design" must be the "new design a long time ago". This line exists in Feb 2008 getcase.pl.
    }
    if ($graphurl && $linkurl) {
        $graphurl=~s/%3A/:/gi;
        $graphurl=~s/%2F/\//gi;
        $linkurl=~s/%3A/:/gi;
        $linkurl=~s/%2F/\//gi;
    	print <<EOM;
<A HREF=$linkurl><IMG SRC=$graphurl border=1 align=bottom NATURALSIZEFLAG=3 width=50 height=50></A>
EOM
    }
    if (exists($statenames{lc($court)})) {
    	print "</center>";
    }
}


sub getcase_ad {
	print qq{
		<font face="Geneva, helvetica" size="-1" color="#666666"><b>Sponsored Links</b></font><br>
		<table width="100%" border="0" cellspacing="0" cellpadding="1" bgcolor="#AABBCC">
		<tr bgcolor="#CCBBAA"><td>
		<table width=100% border="0" cellspacing="0" cellpadding="5" bgcolor=#ffffff>
		<tr valign=top>
		<td>
		<font face="Geneva, helvetica" size="-1">
		<a href="http://ad.doubleclick.net/clk;42225428;4832115;a?http://www.exemplaris.com">Download the official transcripts from any U.S. district court</a>. Research expert testimony, closing arguments, jury instructions, etc. Search for free!
		</font>
		</td></tr></table>
		</td></tr></table>
        <br>
	}
}

sub numerically { $a <=> $b; }

sub escape {
    local($key)= @_;
    $key =~ s/\&/\%26/g;
    $key =~ s/\?/\%3f/g;
    $key =~ s/\:/\%3a/g;
    $key =~ s/\~/\%7e/g;
    return $key;
}

sub format {
    local($form, *data) = @_;
    local($key);
    $form =~ s/\r\n$//;
    $form =~ s/\r$//;
    $form =~ s/\n$//;
    foreach(split(/&/, $form)) {
	($key, $_) = split(/=/, $_, 2);
	$key  =~ s/\+/ /g;
	$_    =~ s/\<\%FRIEND\%\>/FRIEND/ig; # for stuff from htx files
	$_    =~ s/\+/ /g;
	$_    =~ s/\%26/\&/g;
	$_    =~ s/\%3a/\:/g;
	$_    =~ s/\%3f/\?/g;
	$_    =~ s/\%7e/\~/g;
	$key  =~ s/%([0-9A-Fa-f]{1,2})/pack(C,hex($1))/eig; 
	$_    =~ s/%([0-9A-Fa-f]{1,2})/pack(C,hex($1))/eig; 
	$key  =~ tr/a-z/A-Z/;   
	$_    =~ s/\|//g; # remove pipe in parameter
	$_    =~ s/\,//g; # remove comma in parameter
	$data{$key} = $_;
    }
}

sub print_vols {
    local($court, $selfref, $top) = @_;
    if (lc($court) eq "us") {
		$selfref=~s/US/us/;#added 04/19/2000
		print "<center><table width=468><tr><td><B>Volumes:</B><P>" if $top;
		$f = 150;
		while ($f <= 544) {
	    	print " <A HREF=$selfref&navby=vol&vol=$f><B>$f</B></A><small> ";
	    	$fo = 0;
	    	while (($fo<19) && ($f<544)) {
				$fo = $fo + 1;
				$f = $f + 1;
				print " <A HREF=$selfref&navby=vol&vol=$f>$f</A> ";
	    	}
	    	print "</small><BR>";
	    	$f = $f + 1;
		}
		print " <A HREF=$selfref&navby=vol&vol=000>000 (recent)</A></td></tr></table></center> ";
    } else {
		print "Method unavailable.";
    }
    print "<ul>\n";
    print " <br><br><a href=http://caselaw.lp.findlaw.com/casesummary/index.html>Opinion Summaries Archive</a>: September 2000 - Present<br clear=all>\n";
    print "</ul>\n";
}

sub print_years {
    if (lc($court) eq "us") {
		$f = 1893;
	    #2000 is better to be changed to current year...
		while ($f <= 2009) {
	    	print "&nbsp\;<A HREF=$selfref&navby=year&year=$f>$f</A> ";
	    	$f = $f + 1;
		} 
    } else {
       	if ($court =~ /9th/i) {
         } elsif ($court =~ /claim/i) {
                 print <<EOM;
<B>1997</B> <A HREF="$selfref&navby=year&year=1997-7">Jul</A>
            <A HREF="$selfref&navby=year&year=1997-8">Aug</A>
            <A HREF="$selfref&navby=year&year=1997-9">Sep</A>
            <A HREF="$selfref&navby=year&year=1997-10">Oct</A>
            <A HREF="$selfref&navby=year&year=1997-11">Nov</A>
            <A HREF="$selfref&navby=year&year=1997-12">Dec</A> <BR>
EOM
    	} elsif ($court =~ /dc/i) {
            print <<EOM;
<B>1995</B> <A HREF="$selfref&navby=year&year=1995-2">Feb</A> 
            <A HREF="$selfref&navby=year&year=1995-3">Mar</A> 
            <A HREF="$selfref&navby=year&year=1995-4">Apr</A> 
            <A HREF="$selfref&navby=year&year=1995-5">May</A> 
            <A HREF="$selfref&navby=year&year=1995-6">Jun</A> 
            <A HREF="$selfref&navby=year&year=1995-7">Jul</A> 
            <A HREF="$selfref&navby=year&year=1995-8">Aug</A> 
            <A HREF="$selfref&navby=year&year=1995-9">Sep</A> 
            <A HREF="$selfref&navby=year&year=1995-10">Oct</A> 
            <A HREF="$selfref&navby=year&year=1995-11">Nov</A> 
            <A HREF="$selfref&navby=year&year=1995-12">Dec</A> <BR>
EOM
    	} elsif ($court =~ /7th/i) {
            print <<EOM;
<B>1995</B> <A HREF="$selfref&navby=year&year=1995-6">Jun</A> 
            <A HREF="$selfref&navby=year&year=1995-7">Jul</A> 
            <A HREF="$selfref&navby=year&year=1995-8">Aug</A> 
            <A HREF="$selfref&navby=year&year=1995-9">Sep</A> 
            <A HREF="$selfref&navby=year&year=1995-10">Oct</A> 
            <A HREF="$selfref&navby=year&year=1995-11">Nov</A> 
            <A HREF="$selfref&navby=year&year=1995-12">Dec</A> <BR>
EOM
    	} elsif ($court =~ /10th/i || $court =~ /Fed/i) {
            print <<EOM;
<B>1997</B> <A HREF="$selfref&navby=year&year=1997-10">Oct</A> 
            <A HREF="$selfref&navby=year&year=1997-11">Nov</A> 
            <A HREF="$selfref&navby=year&year=1997-12">Dec</A> <BR>
EOM
    	} elsif ($court =~ /3rd/i) {
            print <<EOM;
<B>1994</B> <A HREF="$selfref&navby=year&year=1994-5">May</A> 
            <A HREF="$selfref&navby=year&year=1994-6">Jun</A> 
            <A HREF="$selfref&navby=year&year=1994-7">Jul</A> 
            <A HREF="$selfref&navby=year&year=1994-8">Aug</A> 
            <A HREF="$selfref&navby=year&year=1994-9">Sep</A> 
            <A HREF="$selfref&navby=year&year=1994-10">Oct</A> 
            <A HREF="$selfref&navby=year&year=1994-11">Nov</A> 
            <A HREF="$selfref&navby=year&year=1994-12">Dec</A> <BR>
<B>1995</B> <A HREF="$selfref&navby=year&year=1995-1">Jan</A> 
            <A HREF="$selfref&navby=year&year=1995-2">Feb</A> 
            <A HREF="$selfref&navby=year&year=1995-3">Mar</A> 
            <A HREF="$selfref&navby=year&year=1995-4">Apr</A> 
            <A HREF="$selfref&navby=year&year=1995-5">May</A> 
            <A HREF="$selfref&navby=year&year=1995-6">Jun</A> 
            <A HREF="$selfref&navby=year&year=1995-7">Jul</A> 
            <A HREF="$selfref&navby=year&year=1995-8">Aug</A> 
            <A HREF="$selfref&navby=year&year=1995-9">Sep</A> 
            <A HREF="$selfref&navby=year&year=1995-10">Oct</A> 
            <A HREF="$selfref&navby=year&year=1995-11">Nov</A> 
            <A HREF="$selfref&navby=year&year=1995-12">Dec</A> <BR>
EOM
    	} elsif ($court =~ /1st/i || $court =~ /8th/i) {
            print <<EOM;
<B>1995</B> <A HREF="$selfref&navby=year&year=1995-11">Nov</A> 
            <A HREF="$selfref&navby=year&year=1995-12">Dec</A> <BR>
EOM
    	} elsif ($court =~ /2nd/i || $court =~ /4th/i || $court =~ /6th/i || $court =~ /11th/i) {
            print <<EOM;
<B>1995</B> <A HREF="$selfref&navby=year&year=1995-1">Jan</A> 
            <A HREF="$selfref&navby=year&year=1995-2">Feb</A> 
            <A HREF="$selfref&navby=year&year=1995-3">Mar</A> 
            <A HREF="$selfref&navby=year&year=1995-4">Apr</A> 
            <A HREF="$selfref&navby=year&year=1995-5">May</A> 
            <A HREF="$selfref&navby=year&year=1995-6">Jun</A> 
            <A HREF="$selfref&navby=year&year=1995-7">Jul</A> 
            <A HREF="$selfref&navby=year&year=1995-8">Aug</A> 
            <A HREF="$selfref&navby=year&year=1995-9">Sep</A> 
            <A HREF="$selfref&navby=year&year=1995-10">Oct</A> 
            <A HREF="$selfref&navby=year&year=1995-11">Nov</A> 
            <A HREF="$selfref&navby=year&year=1995-12">Dec</A> <BR>
EOM
		}
	    if (!($court =~ /10th/i || $court =~ /Fed/i)) {
	 		print <<EOM;
<B>1996</B> <A HREF="$selfref&navby=year&year=1996-1">Jan</A> 
            <A HREF="$selfref&navby=year&year=1996-2">Feb</A> 
            <A HREF="$selfref&navby=year&year=1996-3">Mar</A> 
            <A HREF="$selfref&navby=year&year=1996-4">Apr</A> 
            <A HREF="$selfref&navby=year&year=1996-5">May</A> 
            <A HREF="$selfref&navby=year&year=1996-6">Jun</A> 
            <A HREF="$selfref&navby=year&year=1996-7">Jul</A> 
            <A HREF="$selfref&navby=year&year=1996-8">Aug</A> 
            <A HREF="$selfref&navby=year&year=1996-9">Sep</A> 
            <A HREF="$selfref&navby=year&year=1996-10">Oct</A> 
            <A HREF="$selfref&navby=year&year=1996-11">Nov</A> 
            <A HREF="$selfref&navby=year&year=1996-12">Dec</A> <BR>
<B>1997</B> <A HREF="$selfref&navby=year&year=1997-1">Jan</A> 
            <A HREF="$selfref&navby=year&year=1997-2">Feb</A> 
            <A HREF="$selfref&navby=year&year=1997-3">Mar</A> 
            <A HREF="$selfref&navby=year&year=1997-4">Apr</A> 
            <A HREF="$selfref&navby=year&year=1997-5">May</A> 
            <A HREF="$selfref&navby=year&year=1997-6">Jun</A> 
            <A HREF="$selfref&navby=year&year=1997-7">Jul</A> 
            <A HREF="$selfref&navby=year&year=1997-8">Aug</A> 
            <A HREF="$selfref&navby=year&year=1997-9">Sep</A> 
            <A HREF="$selfref&navby=year&year=1997-10">Oct</A> 
            <A HREF="$selfref&navby=year&year=1997-11">Nov</A> 
            <A HREF="$selfref&navby=year&year=1997-12">Dec</A><BR> 
EOM
		}
     	$thisyear=(localtime())[5]+1900;
     	$thismonth=(localtime())[4]+1;
     	$curyear=1998;
     	while ($curyear <= $thisyear) {
	    	if ($curyear<$thisyear) {
				print <<EOM;		 
<B>$curyear</B> <A HREF="$selfref&navby=year&year=$curyear-1">Jan</A> 
            <A HREF="$selfref&navby=year&year=$curyear-2">Feb</A> 
            <A HREF="$selfref&navby=year&year=$curyear-3">Mar</A> 
            <A HREF="$selfref&navby=year&year=$curyear-4">Apr</A> 
            <A HREF="$selfref&navby=year&year=$curyear-5">May</A> 
            <A HREF="$selfref&navby=year&year=$curyear-6">Jun</A> 
            <A HREF="$selfref&navby=year&year=$curyear-7">Jul</A> 
            <A HREF="$selfref&navby=year&year=$curyear-8">Aug</A> 
            <A HREF="$selfref&navby=year&year=$curyear-9">Sep</A> 
            <A HREF="$selfref&navby=year&year=$curyear-10">Oct</A> 
            <A HREF="$selfref&navby=year&year=$curyear-11">Nov</A> 
            <A HREF="$selfref&navby=year&year=$curyear-12">Dec</A> <BR>
EOM
	    	} else { # curyear is THIS year 
				print "<B>$curyear</B> ";
				for ($curmonth=1; $curmonth<=$thismonth; $curmonth++) {
		    		$monthname=("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")[$curmonth-1];
		    		print "<A HREF=\"$selfref&navby=year&year=$curyear-$curmonth\">$monthname</A>\n"
				}
				print "<BR>";
	    	}
	    	$curyear++;
		}	
    }
}

# Add backlink info to internal urls 
sub print_case {
    local(@case)=@_;
    &print_headers;
    $urlref=$filename;
    $urlref=~s/.*data2?\///i;
    $urlref=~s/circs\///;
    ## open the case with sending article to friends function...
    ## for us supreme court, and circuit court with exact...	## added 01212001...
    if ((lc($court) eq "us") or ($INFO{'EXACT'}) or (-e $file.$get_year.$casematches[0].".html")) {
    &get_court_url;
	print <<HTML;
   <div class="yui-g" id="leftcol-module"> 
<ul id="breadcrumbbar"><li class="lphome"><a href="http://lp.findlaw.com">FindLaw</a></li>
<li>
HTML

print "<a href=\"$court_url{lc($court)}\">".uc($courtname)."</a></li>\n</ul><p>&nbsp\;</p>\n";


print <<HTML;
<!------------ START VIEW & PRINT CASES ------------->
<table border="0" width="100%" cellpadding="0" cellspacing="0">
<tr valign="bottom">
	<td align="left"><li><a href="http://creditcard.westlaw.com/welcome/frameless/default.wl"><span class="textsmall">View enhanced case on Westlaw</span></a></li></td>

<!--
	<td align="right"><a target=new href="/scripts/printer_friendly.pl?page=$urlref"><img src="http://images.findlaw.com/www/lp/printer.gif" border="0" alt="printer"> 

<span class="textsmall">Click for Printable version</span></a>&nbsp;&nbsp;&nbsp;<a href=http://caselaw.lp.findlaw.com/cgi-bin/send_mail_friend.pl?action=send_form&url=$urlref><img src="http://images.findlaw.com/www/lp/email.gif" border="0" alt="email"> <span class="textsmall">Email this case</span></a> 

</td>
-->

</tr>
HTML
print "<tr valign=\"bottom\">\n";
    if (!($statenames{lc($court)})) {
		print "<td align=\"left\" style=\"padding-left: 8px\">\n";
	}else{
		print "<td align=\"left\" style=\"padding-left: 8px\" colspan=\"2\">";
	}

print "<li><a href=\"http://creditcard.westlaw.com/welcome/frameless/default.wl\"><span class=\"textsmall\">KeyCite this case on Westlaw</span></a></li>";

    if (!($statenames{lc($court)})) {
		print "</td>\n<td align=\"right\"><SMALL><B>http://laws.findlaw.com/$urlref</B></SMALL>\n";
	}


		print <<HTML;
</td>
</tr>
</table>
</td></tr></table>
<!------------ END VIEW & PRINT CASES ------------->
HTML
	}

    # generate Westlaw link for credit-card case searches
    west_link(@case);

    if (lc($court) eq "us") {
      	print "<A HREF=#".$pageno.">Jump to cited page $pageno within this case</A><BR>" if $pageno;
      	if ($vol ne "000") {
	    print "<A HREF=\"/scripts/casesearch.pl?court=us&CiRestriction=".$vol."\+u.s.\+".$page."&".$add2lnks."\">Cases citing this case: Supreme Court</A><BR> ";
	    print "<A HREF=\"/scripts/casesearch.pl?court=circs&CiRestriction=%22".$vol."\+U.S.\+".$page."%22&".$add2lnks."\">Cases citing this case: Circuit Courts</A><BR>";
      	} 
    }
    # Figure out whether there are annotations
    # Go into add new annot routine if there should be one but isn't
    $filename =~ s/data2\/9th\/(\d)\/(\d+)\//data2\/meta\/9th\/anns\/$1\-$2\-/i;
    $filename =~ s/data2\/([0-9a-z]+)/data2\/meta\/$1\/anns/i; 
    $filename =~ s/data\/us\/(\d+)\//data2\/meta\/us\/anns\/$1\-/i; 
#The following code is commented to avoid printing some old partner gifs 
    if (!(exists($statenames{lc($court)}))) {
#      	if (open(ANNOTS, '<', $filename)) {
#    	    @annot = <ANNOTS>;
#    	    close(ANNOTS);
#    	    $annot = join("", @annot);
#    	    if ($fromext && $gapartner && !($annot =~ /$gapartner/)) {
#      	      	&addannot(">>", $filename, $gapartner);
#    	    } else {
#      	  		print $annot;
#      	  		print "<P>"; 
#    	    }
#      	} else {
            close(ANNOTS);
    	    &addannot(">", $filename, $gapartner) if ($fromext && $gapartner);
#      	}
    }

    # Print the case
    $case=join("", @case);
    $case=~s/<!-- #INCLUDE[^>]+>//g;
    if ($add2lnks) {
      	$case =~ s/(getcase\.pl\?)/$1$add2lnks\&/g;
    }
    ## added by slu 08052008
    ## to get id leftcol-module for regular state cases, e.g. cosc and coapp
    print "<div class=\"yui-g\" id=\"leftcol-module\">\n" if $court !~ /us|11th|10th|fed|dc|9th|8th|7th|6th|5th|4th|1st|2nd|3rd/i;
    print $case;  
}

sub addannot {
    local($how, $filename, $gapartner) = @_;
    if (open(ANNOTS, '<', $how.$filename)) {
      	print ANNOTS "<P>" if ($how eq ">");
      	print ANNOTS "\n<A HREF=\"$referer\"><IMG ALT=\"$gapartner\" WIDTH=175 HEIGHT=35 BORDER=1 NATURALSIZEFLAG=3 SRC=\"http://www.findlaw.com/images/caselinks/$gapartner.gif\"></A><BR>\n";
      	close(ANNOTS);
    } else {
     	close(ANNOTS);
     	# print "<B>Error: Cannot process annotations...</B> $how$filename";
    }
    if (open(ANNOTS, '<', $filename)) {
      	print <ANNOTS>;
      	print "<P>"; 
    }
    close(ANNOTS);
}

# recursive function for corporate counsel includes
sub parse_includes {
	my $include_name = $_[0];
	my $path = "/home/httpd/html/cobrands/corporate/corporate.findlaw.com/includes/$include_name.html";
	my $v_path = "/home/httpd/html/content";
	open ($include_name, '<', $path) || die "could not open $include_name";
	while(<$include_name>) {
		$_ =~ s/\$section|<!--\#echo var="section" -->/research/;
		
		if($_ =~ /include virtual=\"\/includes\/corporate\/corporate\.findlaw\.com\/includes\/(.*?)\.html/) {
			&parse_includes($1);
		}elsif($_=~/include virtual=\"\/news/){
			$_ =~/.*?virtual=\"(.*?)\".*/;
			my $new_path = $v_path.$1;
			open (IN, $new_path) || die "could not open $new_path";
			while (my $line = <IN>){
				print $line;
			}   
			close (IN);
		}
	
		if($_ !~ /<\!--\#/) {
			print $_;
			}
		}
	close($include_name);
	
}


sub print_error {
    print <<EOM;
No such case was found.  Please note that <I>we do not carry court orders, such as denials of certiorari.</I>  We regret if you came to this error page by 
following a link in one of our cases.
</I><P>
When searching by title, please note that title search is a
case-insensitive search for cases with a title containing the word(s)
provided in your query. For example, searching for "Roe Wade" will
return the corresponding case. <P> If you are having trouble finding
a case by title, try using only one key word in the title of the case,
e.g. Miranda, as it is sometimes difficult to match the official
abbreviations for the full title in a case name query. You might be
able to find the case you are looking for by using a full-text search.
<P>
If you believe a case is missing, please <A HREF="http://company.findlaw.com/write/cases_faq.html">
contact the Findlaw staff</A>, and we will look into it. <P>
EOM
}

use URI;
sub west_link {
	return if $INFO{'FRIEND'};
	my $uri=new URI('http://caselaw.findlaw.com/*http://creditcard.westlaw.com/search/default.wl');
	my %query=();
	$query{'RS'}='CCFL1.0';
	$query{'VR'}='2.0';
	if ($court eq "US") {
	  # my $uri=new URI('http://creditcard.westlaw.com/search/default.wl');
	  $query{'docketnumber'}=$INFO{'INVOL'};
	  $query{'DB'}='SCT';
	  $query{'SCT'}='SCT';
	} elsif ($court =~ /1st|Fed/) {
	  my $docket=$INFO{'NO'};
	  $docket=~s/^../$&-/;
	  $docket=~s/[a-z].*//;
	  $query{'docketnumber'}=$docket;
	  $query{'DB'}='CTA';
	  $query{'CTA'}='CTA' . substr($court,0,1);
	} elsif ($court =~ /4th|6th|10th|DC/) {
	  @dk=grep(/Nos?\.\s*\d\d-\d\d\d\d/,@_);
	  my ($docket)=($dk[0]=~/(\d\d-\d\d\d\d)/);
	  $query{'docketnumber'}=$docket;
	  $query{'DB'}='CTA';
	  $query{'CTA'}='CTA' . ($court=~/(.*)(th)?/)[0];
	}
}

sub set_cookie {
    my ($ck_name, $value, $flag) = @_;
    my $expire ='Thu, 01-Jan-1970 00:00:00 GMT' unless $flag;
	if ($ck_name =~/flpass/){
		$expire = "+24h";
	}
    my $ck = new CGI->cookie(-name=>$ck_name,
                                -domain=>'.findlaw.com',
                                -path=>'/',
                                -value =>$value,
                                -expires=> $expire,
                                );
	print "Set-Cookie:$ck\n";
}



sub get_court_url {

%court_url = ( 
    "us"=>"http://www.findlaw.com/casecode/supreme.html",
    "1st"=>"http://www.findlaw.com/casecode/courts/1st.html",
    "2nd"=>"http://www.findlaw.com/casecode/courts/2nd.html",
    "3rd"=>"http://www.findlaw.com/casecode/courts/3rd.html",
    "4th"=>"http://www.findlaw.com/casecode/courts/4th.html",
    "5th"=>"http://www.findlaw.com/casecode/courts/5th.html",
    "6th"=>"http://www.findlaw.com/casecode/courts/6th.html",
    "7th"=>"http://www.findlaw.com/casecode/courts/7th.html",
    "8th"=>"http://www.findlaw.com/casecode/courts/8th.html",
    "9th"=>"http://www.findlaw.com/casecode/courts/9th.html",
    "10th"=>"http://www.findlaw.com/casecode/courts/10th.html",
    "11th"=>"http://www.findlaw.com/casecode/courts/11th.html",
    "dc"=>"http://www.findlaw.com/casecode/courts/dc.html",
    "fed"=>"http://www.findlaw.com/casecode/courts/fed.html",
    "al"=>"http://www.findlaw.com/11stategov/al/alca.html",
    "ak"=>"http://www.findlaw.com/11stategov/ak/akca.html",
    "az"=>"http://www.findlaw.com/11stategov/az/azca.html",
    "ar"=>"http://www.findlaw.com/11stategov/ar/arca.html",
    "ca"=>"http://www.findlaw.com/cacases/index.html",
    "co"=>"http://www.findlaw.com/11stategov/co/coca.html",
    "ct"=>"http://www.findlaw.com/11stategov/ct/ctca.html",
    "de"=>"http://www.findlaw.com/11stategov/de/deca.html",
    "fl"=>"http://www.findlaw.com/11stategov/fl/flca.html",
    "ga"=>"http://www.findlaw.com/11stategov/ga/gaca.html",
    "hi"=>"http://www.findlaw.com/11stategov/hi/hica.html",
    "id"=>"http://www.findlaw.com/11stategov/id/idca.html",
    "il"=>"http://www.findlaw.com/11stategov/il/ilca.html",
    "in"=>"http://www.findlaw.com/11stategov/in/inca.html",
    "ia"=>"http://www.findlaw.com/11stategov/ia/iaca.html",
    "ks"=>"http://www.findlaw.com/11stategov/ks/ksca.html",
    "ky"=>"http://www.findlaw.com/11stategov/ky/kyca.html",
    "la"=>"http://www.findlaw.com/11stategov/la/laca.html",
    "me"=>"http://www.findlaw.com/11stategov/me/meca.html",
    "md"=>"http://www.findlaw.com/11stategov/md/mdca.html",
    "ma"=>"http://www.findlaw.com/11stategov/ma/maca.html",
    "mi"=>"http://www.findlaw.com/11stategov/mi/mica.html",
    "mn"=>"http://www.findlaw.com/11stategov/mn/mnca.html",
    "ms"=>"http://www.findlaw.com/11stategov/ms/msca.html",
    "mo"=>"http://www.findlaw.com/11stategov/mo/moca.html",
    "mt"=>"http://www.findlaw.com/11stategov/mt/mtca.html",
    "ne"=>"http://www.findlaw.com/11stategov/ne/neca.html",
    "nv"=>"http://www.findlaw.com/11stategov/nv/nvca.html",
    "nh"=>"http://www.findlaw.com/11stategov/nh/nhca.html",
    "nj"=>"http://www.findlaw.com/11stategov/nj/njca.html",
    "nm"=>"http://www.findlaw.com/11stategov/nm/nmca.html",
    "ny"=>"http://www.findlaw.com/11stategov/ny/nyca.html",
    "nc"=>"http://www.findlaw.com/11stategov/nc/ncca.html",
    "nd"=>"http://www.findlaw.com/11stategov/nd/ndca.html",
    "oh"=>"http://www.findlaw.com/11stategov/oh/ohca.html",
    "ok"=>"http://www.findlaw.com/11stategov/ok/okca.html",
    "or"=>"http://www.findlaw.com/11stategov/or/orca.html",
    "pa"=>"http://www.findlaw.com/11stategov/pa/paca.html",
    "ri"=>"http://www.findlaw.com/11stategov/ri/rica.html",
    "sc"=>"http://www.findlaw.com/11stategov/sc/scca.html",
    "sd"=>"http://www.findlaw.com/11stategov/sd/sdca.html",
    "tn"=>"http://www.findlaw.com/11stategov/tn/tnca.html",
    "tx"=>"http://www.findlaw.com/11stategov/tx/txca.html",
    "ut"=>"http://www.findlaw.com/11stategov/ut/utca.html",
    "vt"=>"http://www.findlaw.com/11stategov/vt/vtca.html",
    "va"=>"http://www.findlaw.com/11stategov/va/vaca.html",
    "wa"=>"http://www.findlaw.com/11stategov/wa/waca.html",
    "wv"=>"http://www.findlaw.com/11stategov/wv/wvca.html",
    "wi"=>"http://www.findlaw.com/11stategov/wi/wica.html",
    "wy"=>"http://www.findlaw.com/11stategov/wy/wyca.html",
);

}