#!/usr/bin/perl
BEGIN {
my $homedir = ( getpwuid($>) )[7];
my @user_include;
foreach my $path (@INC) {
if ( -d $homedir . '/perl' . $path ) {
push @user_include, $homedir . '/perl' . $path;
}
}
unshift @INC, @user_include;
}
#
# This code may be freely reproduced, distributed, transmitted, used, modified,
# built upon, or otherwise exploited by anyone for any purpose, commercial or non-commercial,
# and in any way, including by methods that have not yet been invented or conceived.
#
# Purpose: Provide link/citation directly to various US Federal legislative docs and sublevels
# Example URL: http://LegisLink.org/us?PL-110-234-5
# DOCUMENTATION
#
# CODE CONTRIBUTORS
# Joe Carmel,
# CHANGE HISTORY
use HTTP::Lite;
$http = new HTTP::Lite;
# Get URL string after the ? from the URL.
$posted_information=$ENV{QUERY_STRING};
print "Content-type: text/html\n\n";
########################################
# Public Law Sections
########################################
if ($posted_information=~m|act-(\d+)-(\d+)-(\d+)|i)
{
$year=$1;
$num=$2;
$sec=$3;
# Get the file from GPO
$legdoc=GetPublicLawTxtDocFromGPO($congress,$plnum);
# Add the HTML anchor to the text file.
$legdoc=~s|\nSEC\. ($plsection)\.|\n\nSEC. \1.|;
# Store the file and Display the Stored File with the Anchor.
$outfn="PublicLaws/".$congress."-".$plnum.".html";
$anchor="SEC";
StoreFileandDisplayToAnchor($legdoc,$outfn,"SEC");
}
########################################
# Public Act, whole
########################################
elsif ($posted_information=~m|public-act-(\d+)-(\d+)|i)
{
$year=$1;
$num=$2;
$website=sprintf("http://www.legislation.govt.nz/act/public/%d/%04d/latest/whole.html",$year,$num);
RedirectToWebsite($website);
exit;
}
########################################
# Private Act, whole
########################################
elsif ($posted_information=~m|private-act-(\d+)-(\d+)|i)
{
$year=$1;
$num=$2;
$website=sprintf("http://www.legislation.govt.nz/act/private/%d/%04d/latest/whole.html",$year,$num);
RedirectToWebsite($website);
exit;
}
########################################
# Display the list of LegisLink formats
########################################
else
{
print "";
# When the following line is uncommented, the page disappears in IE
# print "Electronic Citations for New Zealand Legislation.<title></head>\n";
print "<body>";
print "<center><h1>LegisLink<a href=\"http://legislink.org\">*</a> for New Zealand Legislation</h1>";
print "<h2>Simplified Electronic Links for Legislation</h2></center>\n";
print "<p><b>Public Acts</b><br/>\n";
print " <b>Format: </b>Act-[year]-[act-number]]<br/>\n";
print " <b>Example:</b> <a href=\"http://legislink.org/nz?public-act-2009-28\">http://legislink.org/nz?public-act-2009-28</a><br/>";
print " <b>Source:</b> <a href=\"http://www.legislation.govt.nz\">New Zealand Legislation: Act (HTML)</a><br/>";
print " <b>Availability:</b> 1275 - 2009<br/>\n";
print "<p><b>Private Acts</b><br/>\n";
print " <b>Format: </b>Act-[year]-[act-number]]<br/>\n";
print " <b>Example:</b> <a href=\"http://legislink.org/nz?private-act-1981-5\">http://legislink.org/nz?private-act-1981-5</a><br/>";
print " <b>Source:</b> <a href=\"http://www.legislation.govt.nz\">New Zealand Legislation: Act (HTML)</a><br/>";
print " <b>Availability:</b> 1275 - 2009<br/>\n";
print "<br/><a rel=\"license\" href=\"http://creativecommons.org/licenses/publicdomain/\"><img alt=\"Creative Commons License\" ";
print "style=\"border-width:0\" src=\"http://i.creativecommons.org/l/publicdomain/88x31.png\" /></a><br />";
print "This work is in the <a rel=\"license\" href=\"http://creativecommons.org/licenses/publicdomain/\">Public Domain</a>.\n";
print "</body></html>\n";
exit;
}
#######################################
# Redirect to Website
#######################################
sub RedirectToWebsite {
my $website=$_[0];
# Check for URL existence
if (!($req = $http->request($website)))
{
print "<html><title>New Zealand Legialtion\n";
print "\n";
print "\n";
print "";
exit;
}
# my $body="";
# $body = $http->body();
print "\n";
print "\n";
print "\n";
print "\n";
print "";
print "Redirecting page to ".$website."
\n";
print "