use strict; use Perlwikipedia; print "\nStarting polbot\n" ; my $pw=Perlwikipedia->new(); #$pw->{debug} = 1; $pw->{mech}->agent('Bot/WP/EN/Quadell/polbot'); print "Logging in\n"; my $login_status=$pw->login('Polbot','(bot password)'); die "I can't log in." unless ($login_status eq 0); my %courts; my @judges = (); print "Reading master list.\n"; my $main_wiki = $pw->get_text('Wikipedia:WikiProject United States courts and judges/judgestats'); my @lines = split(/\n/, $main_wiki); foreach my $line (@lines) { # judge court president recess_d nom_d conf_d comm_d senior_d end_d end_reason race gender if ($line =~ /^\| ([^\|]+) \|\| ([^\|]+) \|\| ([^\|]+) \|\| ([^\|]+) \|\| ([^\|]+) \|\| ([^\|]+) \|\| ([^\|]+) \|\| ([^\|]+) \|\| ([^\|]+) \|\| ([^\|]+) \|\| ([^\|]+) \|\| ([^\|]+)/) { my $judge = $1; my $court = $2; my $president = $3; my $recess_date = $4; my $nominated_date = $5; my $confirmed_date = $6; my $commission_date = $7; my $senior_date = $8; my $end_date = $9; my $end_reason = $10; my $race = $11; my $gender = $12; $courts{$court} = $court; my $temphash; $temphash->{"judge"} = $judge; $temphash->{"court"} = $court; $temphash->{"president"} = $president; $temphash->{"recess_date"} = $recess_date; $temphash->{"nominated_date"} = $nominated_date; $temphash->{"confirmed_date"} = $confirmed_date; $temphash->{"commission_date"} = $commission_date; $temphash->{"senior_date"} = $senior_date; if ($end_date eq "-") {$end_date = "Incumbent";} $temphash->{"end_date"} = $end_date; $temphash->{"end_reason"} = $end_reason; $temphash->{"race"} = $race; $temphash->{"gender"} = $gender; push @judges, $temphash; } } foreach my $court (sort keys %courts) { print "Making $court hash;"; my $outputpage = "User:Polbot/scrap/$court"; $outputpage =~ s/ /_/g; $outputpage =~ s/[\[\]]//g; my @localarray; my $hasnotes = 0; my $hassenior = 0; foreach my $judge (@judges) { if ($judge->{"court"} eq "$court") { my $temphash; $temphash->{"president"} = $judge->{"president"}; $temphash->{"judge"} = $judge->{"judge"}; if ($judge->{"senior_date"} eq "-") { $temphash->{"end_date"} = fmtdate($judge->{"end_date"}); $temphash->{"senior_date"} = "-"; } else { $hassenior = 1; $temphash->{"end_date"} = fmtdate($judge->{"senior_date"}); $temphash->{"senior_date"} = fmtdate($judge->{"end_date"}); } if ($judge->{"recess_date"} eq "-") { $temphash->{"start_date"} = fmtdate($judge->{"commission_date"}); } else { $hasnotes = 1; if ($judge->{"commission_date"} eq "-") { $temphash->{"start_date"} = fmtdate($judge->{"recess_date"}) . "<ref>Recess appointment; the United States Senate later rejected the appointment.</ref>"; $temphash->{"end_date"} = "(date)"; } else { $temphash->{"start_date"} = fmtdate($judge->{"recess_date"}) . "<ref>Recess appointment; formally nominated on " . $judge->{"nominated_date"} . ", confirmed by the United States Senate on " . $judge->{"confirmed_date"} . ", and received commission on " . $judge->{"commission_date"} . ".</ref>"; } } $temphash->{"end_reason"} = $judge->{"end_reason"}; push @localarray, $temphash; } } if (@localarray) { print " prepping output. "; my $wiki_out = '{| class="sortable wikitable"' . "\n" . '|- bgcolor="#ececec"' . "\n|'''Judge'''||'''Appointed by'''"; $wiki_out .= "||'''Began active<br>service'''||'''Ended active<br>service'''"; if ($hassenior) { $wiki_out .= "||'''Ended senior<br>status'''"; } $wiki_out .= "||'''End reason'''\n"; foreach my $judge (@localarray) { $wiki_out .= "|-\n| " . fmtjudge($judge->{"judge"}); $wiki_out .= " || " . $judge->{"president"}; $wiki_out .= " || " . $judge->{"start_date"}; $wiki_out .= " || " . $judge->{"end_date"}; if ($hassenior) { $wiki_out .= " || " . $judge->{"senior_date"}; } $wiki_out .= "|| " . $judge->{"end_reason"} . "\n"; } $wiki_out .= "|}\n"; if ($hasnotes) { $wiki_out .= "\n==Notes==\n{{reflist}}\n"; } $wiki_out =~ s/United States Senate/[[United States Senate]]/; $wiki_out =~ s/Recess appointment/[[Recess appointment]]/; $wiki_out =~ s/later rejected/later [[Rejected recess appointments to United States federal courts|rejected]]/; print "Writing...\n"; $pw->edit($outputpage, $wiki_out, "Writing auto-generated list of judges"); } else { print " no judges.\n"; } } print "Done\n"; sub fmtjudge { my $judgein = shift; $judgein =~ s/^\[\[(.*)( \(.*\))\]\]$/[[$1$2|$1]]/; return $judgein; } sub fmtdate { my $datein = shift; if ($datein =~ m/^(.*) (\d+), (\d+)$/) { my $month = $1; my $day = $2; my $year = $3; if ($month eq "January") {$month = "01"} elsif ($month eq "February") {$month = "02"} elsif ($month eq "March") {$month = "03"} elsif ($month eq "April") {$month = "04"} elsif ($month eq "May") {$month = "05"} elsif ($month eq "June") {$month = "06"} elsif ($month eq "July") {$month = "07"} elsif ($month eq "August") {$month = "08"} elsif ($month eq "September") {$month = "09"} elsif ($month eq "October") {$month = "10"} elsif ($month eq "November") {$month = "11"} elsif ($month eq "December") {$month = "12"} if (length($day) == 1) {$day = "0" . $day} $datein = '<span style="display:none">' . $year . $month . $day . '</span>' . $datein; } return $datein; } sub abbrevdist { my $district = shift; # District courts if ($district eq "[[United States District Court for the Southern District of Alabama]]") {$district = "[[United States District Court for the Southern District of Alabama|S.D. Ala.]]";} elsif ($district eq "[[United States District Court for the Northern District of Alabama]]") {$district = "[[United States District Court for the Northern District of Alabama|N.D. Ala.]]";} elsif ($district eq "[[United States District Court for the Middle District of Alabama]]") {$district = "[[United States District Court for the Middle District of Alabama|M.D. Ala.]]";} elsif ($district eq "[[United States District Court for the District of Alaska]]") {$district = "[[United States District Court for the District of Alaska|D. Alaska]]";} elsif ($district eq "[[United States District Court for the District of Arizona]]") {$district = "[[United States District Court for the District of Arizona|D. Ariz.]]";} elsif ($district eq "[[United States District Court for the Eastern District of Arkansas]]") {$district = "[[United States District Court for the Eastern District of Arkansas|E.D. Ark.]]";} elsif ($district eq "[[United States District Court for the Western District of Arkansas]]") {$district = "[[United States District Court for the Western District of Arkansas|W.D. Ark.]]";} elsif ($district eq "[[United States District Court for the Southern District of California]]") {$district = "[[United States District Court for the Southern District of California|S.D. Cal.]]";} elsif ($district eq "[[United States District Court for the Northern District of California]]") {$district = "[[United States District Court for the Northern District of California|N.D. Cal.]]";} elsif ($district eq "[[United States District Court for the Eastern District of California]]") {$district = "[[United States District Court for the Eastern District of California|E.D. Cal.]]";} elsif ($district eq "[[United States District Court for the Central District of California]]") {$district = "[[United States District Court for the Central District of California|C.D. Cal.]]";} elsif ($district eq "[[United States District Court for the District of Colorado]]") {$district = "[[United States District Court for the District of Colorado|D. Colo.]]";} elsif ($district eq "[[United States District Court for the District of Connecticut]]") {$district = "[[United States District Court for the District of Connecticut|D. Conn.]]";} elsif ($district eq "[[United States District Court for the District of Delaware]]") {$district = "[[United States District Court for the District of Delaware|D. Del.]]";} elsif ($district eq "[[United States District Court for the District of Columbia]]") {$district = "[[United States District Court for the District of Columbia|D.D.C.]]";} elsif ($district eq "[[United States District Court for the Northern District of Florida]]") {$district = "[[United States District Court for the Northern District of Florida|N.D. Fla.]]";} elsif ($district eq "[[United States District Court for the Middle District of Florida]]") {$district = "[[United States District Court for the Middle District of Florida|M.D. Fla.]]";} elsif ($district eq "[[United States District Court for the Southern District of Florida]]") {$district = "[[United States District Court for the Southern District of Florida|S.D. Fla.]]";} elsif ($district eq "[[United States District Court for the Northern District of Georgia]]") {$district = "[[United States District Court for the Northern District of Georgia|N.D. Ga.]]";} elsif ($district eq "[[United States District Court for the Middle District of Georgia]]") {$district = "[[United States District Court for the Middle District of Georgia|M.D. Ga.]]";} elsif ($district eq "[[United States District Court for the Southern District of Georgia]]") {$district = "[[United States District Court for the Southern District of Georgia|S.D. Ga.]]";} elsif ($district eq "[[United States District Court for the District of Hawaii]]") {$district = "[[United States District Court for the District of Hawaii|D. Haw.]]";} elsif ($district eq "[[United States District Court for the District of Idaho]]") {$district = "[[United States District Court for the District of Idaho|D. Idaho]]";} elsif ($district eq "[[United States District Court for the Northern District of Illinois]]") {$district = "[[United States District Court for the Northern District of Illinois|N.D. Ill.]]";} elsif ($district eq "[[United States District Court for the Central District of Illinois]]") {$district = "[[United States District Court for the Central District of Illinois|C.D. Ill.]]";} elsif ($district eq "[[United States District Court for the Southern District of Illinois]]") {$district = "[[United States District Court for the Southern District of Illinois|S.D. Ill.]]";} elsif ($district eq "[[United States District Court for the Northern District of Indiana]]") {$district = "[[United States District Court for the Northern District of Indiana|N.D. Ind.]]";} elsif ($district eq "[[United States District Court for the Southern District of Indiana]]") {$district = "[[United States District Court for the Southern District of Indiana|S.D. Ind.]]";} elsif ($district eq "[[United States District Court for the Northern District of Iowa]]") {$district = "[[United States District Court for the Northern District of Iowa|N.D. Iowa]]";} elsif ($district eq "[[United States District Court for the Southern District of Iowa]]") {$district = "[[United States District Court for the Southern District of Iowa|S.D. Iowa]]";} elsif ($district eq "[[United States District Court for the District of Kansas]]") {$district = "[[United States District Court for the District of Kansas|D. Kan.]]";} elsif ($district eq "[[United States District Court for the Eastern District of Kentucky]]") {$district = "[[United States District Court for the Eastern District of Kentucky|E.D. Ky.]]";} elsif ($district eq "[[United States District Court for the Western District of Kentucky]]") {$district = "[[United States District Court for the Western District of Kentucky|W.D. Ky.]]";} elsif ($district eq "[[United States District Court for the Eastern District of Louisiana]]") {$district = "[[United States District Court for the Eastern District of Louisiana|E.D. La.]]";} elsif ($district eq "[[United States District Court for the Middle District of Louisiana]]") {$district = "[[United States District Court for the Middle District of Louisiana|M.D. La.]]";} elsif ($district eq "[[United States District Court for the Western District of Louisiana]]") {$district = "[[United States District Court for the Western District of Louisiana|W.D. La.]]";} elsif ($district eq "[[United States District Court for the District of Maine]]") {$district = "[[United States District Court for the District of Maine|D. Me.]]";} elsif ($district eq "[[United States District Court for the District of Maryland]]") {$district = "[[United States District Court for the District of Maryland|D. Md.]]";} elsif ($district eq "[[United States District Court for the District of Massachusetts]]") {$district = "[[United States District Court for the District of Massachusetts|D. Mass.]]";} elsif ($district eq "[[United States District Court for the Eastern District of Michigan]]") {$district = "[[United States District Court for the Eastern District of Michigan|E.D. Mich.]]";} elsif ($district eq "[[United States District Court for the Western District of Michigan]]") {$district = "[[United States District Court for the Western District of Michigan|W.D. Mich.]]";} elsif ($district eq "[[United States District Court for the District of Minnesota]]") {$district = "[[United States District Court for the District of Minnesota|D. Minn.]]";} elsif ($district eq "[[United States District Court for the Northern District of Mississippi]]") {$district = "[[United States District Court for the Northern District of Mississippi|N.D. Miss.]]";} elsif ($district eq "[[United States District Court for the Southern District of Mississippi]]") {$district = "[[United States District Court for the Southern District of Mississippi|S.D. Miss.]]";} elsif ($district eq "[[United States District Court for the Eastern District of Missouri]]") {$district = "[[United States District Court for the Eastern District of Missouri|E.D. Mo.]]";} elsif ($district eq "[[United States District Court for the Western District of Missouri]]") {$district = "[[United States District Court for the Western District of Missouri|W.D. Mo.]]";} elsif ($district eq "[[United States District Court for the District of Montana]]") {$district = "[[United States District Court for the District of Montana|D. Mont.]]";} elsif ($district eq "[[United States District Court for the District of Nebraska]]") {$district = "[[United States District Court for the District of Nebraska|D. Neb.]]";} elsif ($district eq "[[United States District Court for the District of Nevada]]") {$district = "[[United States District Court for the District of Nevada|D. Nev.]]";} elsif ($district eq "[[United States District Court for the District of New Hampshire]]") {$district = "[[United States District Court for the District of New Hampshire|D.N.H.]]";} elsif ($district eq "[[United States District Court for the District of New Jersey]]") {$district = "[[United States District Court for the District of New Jersey|D.N.J.]]";} elsif ($district eq "[[United States District Court for the District of New Mexico]]") {$district = "[[United States District Court for the District of New Mexico|D.N.M.]]";} elsif ($district eq "[[United States District Court for the Eastern District of New York]]") {$district = "[[United States District Court for the Eastern District of New York|E.D.N.Y.]]";} elsif ($district eq "[[United States District Court for the Northern District of New York]]") {$district = "[[United States District Court for the Northern District of New York|N.D.N.Y.]]";} elsif ($district eq "[[United States District Court for the Southern District of New York]]") {$district = "[[United States District Court for the Southern District of New York|S.D.N.Y.]]";} elsif ($district eq "[[United States District Court for the Western District of New York]]") {$district = "[[United States District Court for the Western District of New York|W.D.N.Y.]]";} elsif ($district eq "[[United States District Court for the Eastern District of North Carolina]]") {$district = "[[United States District Court for the Eastern District of North Carolina|E.D.N.C.]]";} elsif ($district eq "[[United States District Court for the Middle District of North Carolina]]") {$district = "[[United States District Court for the Middle District of North Carolina|M.D.N.C.]]";} elsif ($district eq "[[United States District Court for the Western District of North Carolina]]") {$district = "[[United States District Court for the Western District of North Carolina|W.D.N.C.]]";} elsif ($district eq "[[United States District Court for the District of North Dakota]]") {$district = "[[United States District Court for the District of North Dakota|D.N.D.]]";} elsif ($district eq "[[United States District Court for the Northern District of Ohio]]") {$district = "[[United States District Court for the Northern District of Ohio|N.D. Ohio]]";} elsif ($district eq "[[United States District Court for the Southern District of Ohio]]") {$district = "[[United States District Court for the Southern District of Ohio|S.D. Ohio]]";} elsif ($district eq "[[United States District Court for the District of South Carolina]]") {$district = "[[United States District Court for the District of South Carolina|D.S.C.]]";} elsif ($district eq "[[United States District Court for the District of South Dakota]]") {$district = "[[United States District Court for the District of South Dakota|D.S.D.]]";} elsif ($district eq "[[United States District Court for the Eastern District of Oklahoma]]") {$district = "[[United States District Court for the Eastern District of Oklahoma|E.D. Okla.]]";} elsif ($district eq "[[United States District Court for the Northern District of Oklahoma]]") {$district = "[[United States District Court for the Northern District of Oklahoma|N.D. Okla.]]";} elsif ($district eq "[[United States District Court for the Western District of Oklahoma]]") {$district = "[[United States District Court for the Western District of Oklahoma|W.D. Okla.]]";} elsif ($district eq "[[United States District Court for the District of Oregon]]") {$district = "[[United States District Court for the District of Oregon|D. Or.]]";} elsif ($district eq "[[United States District Court for the Western District of Pennsylvania]]") {$district = "[[United States District Court for the Western District of Pennsylvania|W.D. Pa.]]";} elsif ($district eq "[[United States District Court for the Eastern District of Pennsylvania]]") {$district = "[[United States District Court for the Eastern District of Pennsylvania|E.D. Pa.]]";} elsif ($district eq "[[United States District Court for the Middle District of Pennsylvania]]") {$district = "[[United States District Court for the Middle District of Pennsylvania|M.D. Pa.]]";} elsif ($district eq "[[United States District Court for the District of Puerto Rico]]") {$district = "[[United States District Court for the District of Puerto Rico|D.P.R.]]";} elsif ($district eq "[[United States District Court for the District of Rhode Island]]") {$district = "[[United States District Court for the District of Rhode Island|D.R.I.]]";} elsif ($district eq "[[United States District Court for the Western District of Tennessee]]") {$district = "[[United States District Court for the Western District of Tennessee|W.D. Tenn.]]";} elsif ($district eq "[[United States District Court for the Eastern District of Tennessee]]") {$district = "[[United States District Court for the Eastern District of Tennessee|E.D. Tenn.]]";} elsif ($district eq "[[United States District Court for the Middle District of Tennessee]]") {$district = "[[United States District Court for the Middle District of Tennessee|M.D. Tenn.]]";} elsif ($district eq "[[United States District Court for the Eastern District of Texas]]") {$district = "[[United States District Court for the Eastern District of Texas|E.D. Tex.]]";} elsif ($district eq "[[United States District Court for the Northern District of Texas]]") {$district = "[[United States District Court for the Northern District of Texas|N.D. Tex.]]";} elsif ($district eq "[[United States District Court for the Southern District of Texas]]") {$district = "[[United States District Court for the Southern District of Texas|S.D. Tex.]]";} elsif ($district eq "[[United States District Court for the Western District of Texas]]") {$district = "[[United States District Court for the Western District of Texas|W.D. Tex.]]";} elsif ($district eq "[[United States District Court for the District of Utah]]") {$district = "[[United States District Court for the District of Utah|D. Utah]]";} elsif ($district eq "[[United States District Court for the District of Vermont]]") {$district = "[[United States District Court for the District of Vermont|D. Vt.]]";} elsif ($district eq "[[United States District Court for the Western District of Virginia]]") {$district = "[[United States District Court for the Western District of Virginia|W.D. Va.]]";} elsif ($district eq "[[United States District Court for the Eastern District of Virginia]]") {$district = "[[United States District Court for the Eastern District of Virginia|E.D. Va.]]";} elsif ($district eq "[[United States District Court for the Western District of Washington]]") {$district = "[[United States District Court for the Western District of Washington|W.D. Wash.]]";} elsif ($district eq "[[United States District Court for the Eastern District of Washington]]") {$district = "[[United States District Court for the Eastern District of Washington|E.D. Wash.]]";} elsif ($district eq "[[United States District Court for the Northern District of West Virginia]]") {$district = "[[United States District Court for the Northern District of West Virginia|N.D.W.Va.]]";} elsif ($district eq "[[United States District Court for the Southern District of West Virginia]]") {$district = "[[United States District Court for the Southern District of West Virginia|S.D.W.Va.]]";} elsif ($district eq "[[United States District Court for the Western District of Wisconsin]]") {$district = "[[United States District Court for the Western District of Wisconsin|W.D. Wis.]]";} elsif ($district eq "[[United States District Court for the Eastern District of Wisconsin]]") {$district = "[[United States District Court for the Eastern District of Wisconsin|E.D. Wis.]]";} elsif ($district eq "[[United States District Court for the District of Wyoming]]") {$district = "[[United States District Court for the District of Wyoming|D. Wyo.]]";} elsif ($district eq "[[United States District Court for the Canal Zone]]") {$district = "[[United States District Court for the Canal Zone|D.C.Z.]]";} elsif ($district eq "[[District Court of Guam]]") {$district = "[[District Court of Guam|D. Guam]]";} elsif ($district eq "[[United States District Court for the District of Puerto Rico]]") {$district = "[[United States District Court for the District of Puerto Rico|D.P.R.]]";} elsif ($district eq "[[District Court of the Virgin Islands]]") {$district = "[[District Court of the Virgin Islands|D.V.I.]]";} # Obsolete district courts elsif ($district eq "[[United States District Court for the District of Alabama]]") {$district = "[[United States District Court for the District of Alabama|D. Ala.]]";} elsif ($district eq "[[United States District Court for the District of Arkansas]]") {$district = "[[United States District Court for the District of Arkansas|D. Ark.]]";} elsif ($district eq "[[United States District Court for the District of California]]") {$district = "[[United States District Court for the District of California|D. Cal.]]";} elsif ($district eq "[[United States District Court for the District of Florida]]") {$district = "[[United States District Court for the District of Florida|D. Fla.]]";} elsif ($district eq "[[United States District Court for the District of Georgia]]") {$district = "[[United States District Court for the District of Georgia|D. Ga.]]";} elsif ($district eq "[[United States District Court for the District of Illinois]]") {$district = "[[United States District Court for the District of Illinois|D. Ill.]]";} elsif ($district eq "[[United States District Court for the Eastern District of Illinois]]") {$district = "[[United States District Court for the Eastern District of Illinois|E.D. Ill.]]";} elsif ($district eq "[[United States District Court for the District of Iowa]]") {$district = "[[United States District Court for the District of Iowa|D. Iowa.]]";} elsif ($district eq "[[United States District Court for the District of Louisiana]]") {$district = "[[United States District Court for the District of Louisiana|D. La.]]";} elsif ($district eq "[[United States District Court for the District of Michigan]]") {$district = "[[United States District Court for the District of Michigan|D. Mich.]]";} elsif ($district eq "[[United States District Court for the District of Mississippi]]") {$district = "[[United States District Court for the District of Mississippi|D. Miss.]]";} elsif ($district eq "[[United States District Court for the District of Missouri]]") {$district = "[[United States District Court for the District of Missouri|D. Mo.]]";} elsif ($district eq "[[United States District Court for the Eastern District of New Jersey]]") {$district = "[[United States District Court for the Eastern District of New Jersey|E.D.N.J.]]";} elsif ($district eq "[[United States District Court for the Western District of New Jersey]]") {$district = "[[United States District Court for the Western District of New Jersey|W.D.N.J.]]";} elsif ($district eq "[[United States District Court for the District of New York]]") {$district = "[[United States District Court for the District of New York|D.N.Y.]]";} elsif ($district eq "[[United States District Court for the District of North Carolina]]") {$district = "[[United States District Court for the District of North Carolina|D.N.C.]]";} elsif ($district eq "[[United States District Court for the District of Ohio]]") {$district = "[[United States District Court for the District of Ohio|D. Ohio.]]";} elsif ($district eq "[[United States District Court for the District of Pennsylvania]]") {$district = "[[United States District Court for the District of Pennsylvania|D. Pa.]]";} elsif ($district eq "[[United States District Court for the Eastern District of South Carolina]]") {$district = "[[United States District Court for the Eastern District of South Carolina|E.D.S.C.]]";} elsif ($district eq "[[United States District Court for the Western District of South Carolina]]") {$district = "[[United States District Court for the Western District of South Carolina|W.D.S.C.]]";} elsif ($district eq "[[United States District Court for the District of Tennessee]]") {$district = "[[United States District Court for the District of Tennessee|D. Tenn.]]";} elsif ($district eq "[[United States District Court for the District of Texas]]") {$district = "[[United States District Court for the District of Texas|D. Tex.]]";} elsif ($district eq "[[United States District Court for the District of Virginia]]") {$district = "[[United States District Court for the District of Virginia|D. Va.]]";} elsif ($district eq "[[United States District Court for the District of Washington]]") {$district = "[[United States District Court for the District of Washington|D. Wash.]]";} elsif ($district eq "[[United States District Court for the District of West Virginia]]") {$district = "[[United States District Court for the District of West Virginia|D.W.Va.]]";} elsif ($district eq "[[United States District Court for the District of Wisconsin]]") {$district = "[[United States District Court for the District of Wisconsin|D. Wis.]]";} elsif ($district eq "[[United States District Court for the District of Kentucky]]") {$district = "[[United States District Court for the District of Kentucky|D. Ky.]]";} elsif ($district eq "[[United States District Court for the District of Indiana]]") {$district = "[[United States District Court for the District of Indiana|D. In.]]";} # Appelate courts elsif ($district eq "[[United States Court of Appeals for the First Circuit]]") {$district = "[[United States Court of Appeals for the First Circuit|First]]";} elsif ($district eq "[[United States Court of Appeals for the Second Circuit]]") {$district = "[[United States Court of Appeals for the Second Circuit|Second]]";} elsif ($district eq "[[United States Court of Appeals for the Third Circuit]]") {$district = "[[United States Court of Appeals for the Third Circuit|Third]]";} elsif ($district eq "[[United States Court of Appeals for the Fourth Circuit]]") {$district = "[[United States Court of Appeals for the Fourth Circuit|Fourth]]";} elsif ($district eq "[[United States Court of Appeals for the Fifth Circuit]]") {$district = "[[United States Court of Appeals for the Fifth Circuit|Fifth]]";} elsif ($district eq "[[United States Court of Appeals for the Sixth Circuit]]") {$district = "[[United States Court of Appeals for the Sixth Circuit|Sixth]]";} elsif ($district eq "[[United States Court of Appeals for the Seventh Circuit]]") {$district = "[[United States Court of Appeals for the Seventh Circuit|Seventh]]";} elsif ($district eq "[[United States Court of Appeals for the Eighth Circuit]]") {$district = "[[United States Court of Appeals for the Eighth Circuit|Eighth]]";} elsif ($district eq "[[United States Court of Appeals for the Ninth Circuit]]") {$district = "[[United States Court of Appeals for the Ninth Circuit|Ninth]]";} elsif ($district eq "[[United States Court of Appeals for the Tenth Circuit]]") {$district = "[[United States Court of Appeals for the Tenth Circuit|Tenth]]";} elsif ($district eq "[[United States Court of Appeals for the Eleventh Circuit]]") {$district = "[[United States Court of Appeals for the Eleventh Circuit|Eleventh]]";} elsif ($district eq "[[United States Court of Appeals for the D.C. Circuit]]") {$district = "[[United States Court of Appeals for the District of Columbia Circuit|D.C. Cir.]]";} elsif ($district eq "[[United States Court of Appeals for the Federal Circuit]]") {$district = "[[United States Court of Appeals for the Federal Circuit|Fed. Cir.]]";} # Circuit courts elsif ($district =~ /\[\[United States circuit court\]\] for the (.*) Circuit/) {$district = $1;} return $district; }