User:Polbot/source/make prez lists.pl
< User:Polbot | source
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 @prezs = ("Abraham Lincoln", "Andrew Jackson", "Andrew Johnson", "Benjamin Harrison", "Calvin Coolidge", "Chester A. Arthur", "Dwight D. Eisenhower", "Franklin D. Roosevelt", "Franklin Pierce", "George H.W. Bush", "George W. Bush", "George Washington", "Gerald Ford", "Grover Cleveland", "Harry S Truman", "Herbert Hoover", "James A. Garfield", "James Buchanan", "James K. Polk", "James Madison", "James Monroe", "Jimmy Carter", "John Adams", "John F. Kennedy", "John Quincy Adams", "John Tyler", "Lyndon B. Johnson", "Martin Van Buren", "Millard Fillmore", "Richard M. Nixon", "Ronald Reagan", "Rutherford B. Hayes", "Theodore Roosevelt", "Thomas Jefferson", "Ulysses Grant", "Warren G. Harding", "William H. Taft", "William J. Clinton", "William McKinley", "Woodrow Wilson", "Zachary Taylor");
my @court_types = ("Supreme Court", "Appeals", "District", "circuit court");
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;
# Conditions
#if ($president eq "[[James A. Garfield]]" and ($court =~ m/Appeals/)) {
# $outputpage = "User:Polbot/scrap/Garfield_A";
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 $prez (@prezs) {
foreach my $court_type (@court_types) {
print "Making $prez $court_type hash;";
my $outputpage = "User:Polbot/scrap/$prez/$court_type";
$outputpage =~ s/ /_/g;
my @localarray;
my $hasnotes = 0;
my $hassenior = 0;
foreach my $judge (@judges) {
if ($judge->{"president"} eq "[[$prez]]" and $judge->{"court"} =~ m/$court_type/) {
my $temphash;
$temphash->{"president"} = $judge->{"president"};
$temphash->{"judge"} = fmtjudge($judge->{"judge"});
$temphash->{"court"} = abbrevdist($judge->{"court"});
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>";
}
}
push @localarray, $temphash;
}
}
if (@localarray) {
print " prepping output. ";
my $wiki_out = '{| class="sortable wikitable"' . "\n" . '|- bgcolor="#ececec"' . "\n|'''Judge'''";
if ($court_type eq "Supreme Court") {
$wiki_out .= "||'''Seat'''" ;
} else {
if ($court_type eq "circuit court") {
$wiki_out .= "||'''Circuit'''" ;
} else {
$wiki_out .= "||'''Court'''" ;
}
}
$wiki_out .= "||'''Began active<br>service'''||'''Ended active<br>service'''";
if ($hassenior) {
$wiki_out .= "||'''Ended senior<br>status'''";
}
$wiki_out .= "\n";
foreach my $judge (@localarray) {
$wiki_out .= "|-\n| " . $judge->{"judge"};
if ($court_type eq "Supreme Court") {
$wiki_out .= " || ";
} else {
$wiki_out .= " || " . $judge->{"court"};
}
$wiki_out .= " || " . $judge->{"start_date"};
$wiki_out .= " || " . $judge->{"end_date"};
if ($hassenior) {
$wiki_out .= " || " . $judge->{"senior_date"};
}
$wiki_out .= "\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]]/;
while ($wiki_out =~ s/\n\| (\[\[[^\]]*\]\]) \|\| (\[\[[^\]]*\]\]) \|\| ([^\n]*)\n\|\-\n\| \1 \|\| (\[\[[^\]]*\]\]) \|\| \3\n/\n| $1 || $2<br>$4 || $3\n/s) {};
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;
}