use Apache2::Response;
use Apache2::RequestUtil;
use ND::DB;
-use ND::Web::Page;
+use NDWeb::Page;
use strict;
use warnings;
if ($ENV{'SCRIPT_NAME'} =~ /(\w+)(\.(pl|php|pm))?$/){
$page = $1 unless $1 eq 'index' and $3 eq 'pl';
}
- $page = ND::Web::Page->new(PAGE => $page, DBH => $ND::DBH, URI => $ENV{REQUEST_URI}, USER_AGENT => $ENV{HTTP_USER_AGENT}, HTTP_ACCEPT => $ENV{HTTP_ACCEPT}, R => $r);
+ $page = NDWeb::Page->new(PAGE => $page, DBH => $ND::DBH, URI => $ENV{REQUEST_URI}, USER_AGENT => $ENV{HTTP_USER_AGENT}, HTTP_ACCEPT => $ENV{HTTP_ACCEPT}, R => $r);
$page->render;
$ND::DBH->rollback unless $ND::DBH->{AutoCommit};
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::AuthHandler;
+package NDWeb::AuthHandler;
use strict;
use warnings FATAL => 'all';
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Forum;
+package NDWeb::Forum;
use strict;
use warnings FATAL => 'all';
use CGI qw{:standard};
use HTML::Template;
-use ND::Web::Include;
+use NDWeb::Include;
require Exporter;
our @ISA = qw/Exporter/;
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Graph;
+package NDWeb::Graph;
use strict;
use warnings;
use ND::Include;
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Image;
+package NDWeb::Image;
use strict;
use warnings;
-use base qw/ND::Web::Page/;
+use base qw/NDWeb::Page/;
sub render {
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Include;
+package NDWeb::Include;
use strict;
use warnings;
use CGI qw{:standard};
# Free Software Foundation, Inc., *
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Page;
+package NDWeb::Page;
use strict;
use warnings;
use CGI qw/:standard/;
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Pages::AddIntel;
+package NDWeb::Pages::AddIntel;
use strict;
use warnings FATAL => 'all';
use CGI qw/:standard/;
-use ND::Web::Forum;
-use ND::Web::Include;
+use NDWeb::Forum;
+use NDWeb::Include;
-use base qw/ND::Web::XMLPage/;
+use base qw/NDWeb::XMLPage/;
-$ND::Web::Page::PAGES{addintel} = 'ND::Web::Pages::AddIntel';
+$NDWeb::Page::PAGES{addintel} = 'NDWeb::Pages::AddIntel';
sub render_body {
my $self = shift;
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Pages::AllianceRankings;
+package NDWeb::Pages::AllianceRankings;
use strict;
use warnings FATAL => 'all';
use CGI qw/:standard/;
-use ND::Web::Include;
+use NDWeb::Include;
-use base qw/ND::Web::XMLPage/;
+use base qw/NDWeb::XMLPage/;
-$ND::Web::Page::PAGES{alliancerankings} = __PACKAGE__;
+$NDWeb::Page::PAGES{alliancerankings} = __PACKAGE__;
sub parse {
#TODO: Need to fix some links first
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Pages::Alliances;
+package NDWeb::Pages::Alliances;
use strict;
use warnings FATAL => 'all';
use ND::Include;
use CGI qw/:standard/;
-use ND::Web::Include;
+use NDWeb::Include;
-use base qw/ND::Web::XMLPage/;
+use base qw/NDWeb::XMLPage/;
-$ND::Web::Page::PAGES{alliances} = __PACKAGE__;
+$NDWeb::Page::PAGES{alliances} = __PACKAGE__;
sub render_body {
my $self = shift;
# Free Software Foundation, Inc., *
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Pages::Calls;
+package NDWeb::Pages::Calls;
use strict;
use warnings FATAL => 'all';
use ND::Include;
use CGI qw/:standard/;
-use ND::Web::Include;
+use NDWeb::Include;
-use base qw/ND::Web::XMLPage/;
+use base qw/NDWeb::XMLPage/;
-$ND::Web::Page::PAGES{calls} = __PACKAGE__;
+$NDWeb::Page::PAGES{calls} = __PACKAGE__;
sub render_body {
my $self = shift;
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Pages::Check;
+package NDWeb::Pages::Check;
use strict;
use warnings FATAL => 'all';
no warnings qw(uninitialized);
use ND::Include;
use CGI qw/:standard/;
-use ND::Web::Include;
+use NDWeb::Include;
-use base qw/ND::Web::XMLPage/;
+use base qw/NDWeb::XMLPage/;
-$ND::Web::Page::PAGES{check} = __PACKAGE__;
+$NDWeb::Page::PAGES{check} = __PACKAGE__;
sub parse {
my $self = shift;
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Pages::CovOp;
+package NDWeb::Pages::CovOp;
use strict;
use warnings FATAL => 'all';
use CGI qw/:standard/;
-use ND::Web::Include;
+use NDWeb::Include;
-use base qw/ND::Web::XMLPage/;
+use base qw/NDWeb::XMLPage/;
-$ND::Web::Page::PAGES{covop} = __PACKAGE__;
+$NDWeb::Page::PAGES{covop} = __PACKAGE__;
sub parse {
my ($uri) = @_;
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Pages::DefLeeches;
+package NDWeb::Pages::DefLeeches;
use strict;
use warnings FATAL => 'all';
use CGI qw/:standard/;
-use ND::Web::Include;
+use NDWeb::Include;
-use base qw/ND::Web::XMLPage/;
+use base qw/NDWeb::XMLPage/;
-$ND::Web::Page::PAGES{defLeeches} = __PACKAGE__;
+$NDWeb::Page::PAGES{defLeeches} = __PACKAGE__;
sub render_body {
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Pages::DefRequest;
+package NDWeb::Pages::DefRequest;
use strict;
use warnings FATAL => 'all';
use CGI qw/:standard/;
-use ND::Web::Include;
+use NDWeb::Include;
-use base qw/ND::Web::XMLPage/;
+use base qw/NDWeb::XMLPage/;
-$ND::Web::Page::PAGES{defrequest} = __PACKAGE__;
+$NDWeb::Page::PAGES{defrequest} = __PACKAGE__;
sub render_body {
my $self = shift;
# Free Software Foundation, Inc., *
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Pages::EditRaid;
+package NDWeb::Pages::EditRaid;
use strict;
use warnings FATAL => 'all';
use ND::Include;
use CGI qw/:standard/;
-use ND::Web::Include;
+use NDWeb::Include;
-use base qw/ND::Web::XMLPage/;
+use base qw/NDWeb::XMLPage/;
-$ND::Web::Page::PAGES{editRaid} = __PACKAGE__;
+$NDWeb::Page::PAGES{editRaid} = __PACKAGE__;
sub render_body {
my $self = shift;
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Pages::Forum;
+package NDWeb::Pages::Forum;
use strict;
use warnings;
-use ND::Web::Forum;
+use NDWeb::Forum;
use CGI qw/:standard/;
-use ND::Web::Include;
+use NDWeb::Include;
use ND::Include;
-use base qw/ND::Web::XMLPage/;
+use base qw/NDWeb::XMLPage/;
-$ND::Web::Page::PAGES{forum} = __PACKAGE__;
+$NDWeb::Page::PAGES{forum} = __PACKAGE__;
sub parse {
my $self = shift;
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Pages::GalaxyRankings;
+package NDWeb::Pages::GalaxyRankings;
use strict;
use warnings FATAL => 'all';
use CGI qw/:standard/;
-use ND::Web::Include;
+use NDWeb::Include;
-use base qw/ND::Web::XMLPage/;
+use base qw/NDWeb::XMLPage/;
-$ND::Web::Page::PAGES{galaxyrankings} = __PACKAGE__;
+$NDWeb::Page::PAGES{galaxyrankings} = __PACKAGE__;
sub parse {
#TODO: Need to fix some links first
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Pages::Graph;
+package NDWeb::Pages::Graph;
use strict;
use warnings FATAL => 'all';
use ND::Include;
-use ND::Web::Graph;
+use NDWeb::Graph;
use DBI qw(:sql_types);
use DBD::Pg qw(:pg_types);
-use base qw/ND::Web::Image/;
+use base qw/NDWeb::Image/;
-$ND::Web::Page::PAGES{graph} = 'ND::Web::Pages::Graph';
+$NDWeb::Page::PAGES{graph} = 'NDWeb::Pages::Graph';
sub render_body {
my $self = shift;
# Free Software Foundation, Inc., *
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Pages::HostileAlliances;
+package NDWeb::Pages::HostileAlliances;
use strict;
use warnings FATAL => 'all';
use ND::Include;
use CGI qw/:standard/;
-use ND::Web::Include;
+use NDWeb::Include;
-use base qw/ND::Web::XMLPage/;
+use base qw/NDWeb::XMLPage/;
-$ND::Web::Page::PAGES{hostileAlliances} = __PACKAGE__;
+$NDWeb::Page::PAGES{hostileAlliances} = __PACKAGE__;
sub render_body {
my $self = shift;
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Pages::Intel;
+package NDWeb::Pages::Intel;
use strict;
use warnings FATAL => 'all';
-use ND::Web::Forum;
-use ND::Web::Include;
+use NDWeb::Forum;
+use NDWeb::Include;
use ND::Include;
use CGI qw/:standard/;
-use base qw/ND::Web::XMLPage/;
+use base qw/NDWeb::XMLPage/;
-$ND::Web::Page::PAGES{intel} = __PACKAGE__;
+$NDWeb::Page::PAGES{intel} = __PACKAGE__;
sub parse {
my $self = shift;
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Pages::LaunchCoonfirmation;
+package NDWeb::Pages::LaunchCoonfirmation;
use strict;
use warnings FATAL => 'all';
use CGI qw/:standard/;
-use ND::Web::Include;
+use NDWeb::Include;
use ND::Include;
-use base qw/ND::Web::XMLPage/;
+use base qw/NDWeb::XMLPage/;
-$ND::Web::Page::PAGES{launchConfirmation} = __PACKAGE__;
+$NDWeb::Page::PAGES{launchConfirmation} = __PACKAGE__;
sub render_body {
my $self = shift;
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Pages::Mail;
+package NDWeb::Pages::Mail;
use strict;
use warnings FATAL => 'all';
use CGI qw/:standard/;
use Mail::Sendmail;
-use ND::Web::Forum;
-use ND::Web::Include;
+use NDWeb::Forum;
+use NDWeb::Include;
-use base qw/ND::Web::XMLPage/;
+use base qw/NDWeb::XMLPage/;
-$ND::Web::Page::PAGES{mail} = __PACKAGE__;
+$NDWeb::Page::PAGES{mail} = __PACKAGE__;
sub render_body {
my $self = shift;
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Pages::Main;
+package NDWeb::Pages::Main;
use strict;
use warnings;
use CGI qw/:standard/;
use ND::Include;
-use ND::Web::Include;
+use NDWeb::Include;
-use base qw/ND::Web::XMLPage/;
+use base qw/NDWeb::XMLPage/;
-$ND::Web::Page::PAGES{main} = 'ND::Web::Pages::Main';
+$NDWeb::Page::PAGES{main} = 'NDWeb::Pages::Main';
sub render_body {
my $self = shift;
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Pages::MemberIntel;
+package NDWeb::Pages::MemberIntel;
use strict;
use warnings FATAL => 'all';
use CGI qw/:standard/;
-use ND::Web::Include;
+use NDWeb::Include;
-use base qw/ND::Web::XMLPage/;
+use base qw/NDWeb::XMLPage/;
-$ND::Web::Page::PAGES{memberIntel} = __PACKAGE__;
+$NDWeb::Page::PAGES{memberIntel} = __PACKAGE__;
sub render_body {
my $self = shift;
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Pages::Motd;
+package NDWeb::Pages::Motd;
use strict;
use warnings FATAL => 'all';
use ND::Include;
use CGI qw/:standard/;
-use ND::Web::Include;
+use NDWeb::Include;
-use base qw/ND::Web::XMLPage/;
+use base qw/NDWeb::XMLPage/;
-$ND::Web::Page::PAGES{motd} = __PACKAGE__;
+$NDWeb::Page::PAGES{motd} = __PACKAGE__;
sub render_body {
my $self = shift;
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Pages::PlanetNaps;
+package NDWeb::Pages::PlanetNaps;
use strict;
use warnings FATAL => 'all';
use CGI qw/:standard/;
-use ND::Web::Include;
+use NDWeb::Include;
-use base qw/ND::Web::XMLPage/;
+use base qw/NDWeb::XMLPage/;
-$ND::Web::Page::PAGES{planetNaps} = __PACKAGE__;
+$NDWeb::Page::PAGES{planetNaps} = __PACKAGE__;
sub render_body {
my $self = shift;
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Pages::PlanetRankings;
+package NDWeb::Pages::PlanetRankings;
use strict;
use warnings FATAL => 'all';
use CGI qw/:standard/;
-use ND::Web::Include;
+use NDWeb::Include;
-use base qw/ND::Web::XMLPage/;
+use base qw/NDWeb::XMLPage/;
-$ND::Web::Page::PAGES{planetrankings} = __PACKAGE__;
+$NDWeb::Page::PAGES{planetrankings} = __PACKAGE__;
sub parse {
#TODO: Need to fix some links first
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Pages::Points;
+package NDWeb::Pages::Points;
use strict;
use warnings FATAL => 'all';
use CGI qw/:standard/;
-use ND::Web::Include;
+use NDWeb::Include;
-use base qw/ND::Web::XMLPage/;
+use base qw/NDWeb::XMLPage/;
-$ND::Web::Page::PAGES{points} = __PACKAGE__;
+$NDWeb::Page::PAGES{points} = __PACKAGE__;
sub render_body {
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Pages::Raids;
+package NDWeb::Pages::Raids;
use strict;
use warnings;
use ND::Include;
use POSIX;
use CGI qw/:standard/;
-use ND::Web::Include;
+use NDWeb::Include;
-use base qw/ND::Web::XMLPage/;
+use base qw/NDWeb::XMLPage/;
-$ND::Web::Page::PAGES{raids} = __PACKAGE__;
+$NDWeb::Page::PAGES{raids} = __PACKAGE__;
sub process {
my $self = shift;
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Pages::Resources;
+package NDWeb::Pages::Resources;
use strict;
use warnings FATAL => 'all';
use CGI qw/:standard/;
-use ND::Web::Include;
+use NDWeb::Include;
-use base qw/ND::Web::XMLPage/;
+use base qw/NDWeb::XMLPage/;
-$ND::Web::Page::PAGES{resources} = __PACKAGE__;
+$NDWeb::Page::PAGES{resources} = __PACKAGE__;
sub render_body {
my $self = shift;
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Pages::Settings;
+package NDWeb::Pages::Settings;
use strict;
use warnings FATAL => 'all';
use ND::Include;
use CGI qw/:standard/;
-use ND::Web::Include;
+use NDWeb::Include;
-use base qw/ND::Web::XMLPage/;
+use base qw/NDWeb::XMLPage/;
-$ND::Web::Page::PAGES{settings} = __PACKAGE__;
+$NDWeb::Page::PAGES{settings} = __PACKAGE__;
sub render_body {
my $self = shift;
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Pages::TargetList;
+package NDWeb::Pages::TargetList;
use strict;
use warnings FATAL => 'all';
use ND::Include;
use CGI qw/:standard/;
-use ND::Web::Include;
+use NDWeb::Include;
-use base qw/ND::Web::XMLPage/;
+use base qw/NDWeb::XMLPage/;
-$ND::Web::Page::PAGES{targetList} = __PACKAGE__;
+$NDWeb::Page::PAGES{targetList} = __PACKAGE__;
sub render_body {
my $self = shift;
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::Pages::Users;
+package NDWeb::Pages::Users;
use strict;
use warnings;
use ND::Include;
use CGI qw/:standard/;
-use ND::Web::Include;
+use NDWeb::Include;
-use base qw/ND::Web::XMLPage/;
+use base qw/NDWeb::XMLPage/;
-$ND::Web::Page::PAGES{users} = __PACKAGE__;
+$NDWeb::Page::PAGES{users} = __PACKAGE__;
sub render_body {
my $self = shift;
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
#**************************************************************************/
-package ND::Web::XMLPage;
+package NDWeb::XMLPage;
use strict;
use warnings;
use CGI qw/:standard/;
use HTML::Template;
use ND::Include;
-use ND::Web::Page;
-use ND::Web::Include;
+use NDWeb::Page;
+use NDWeb::Include;
-use base qw/ND::Web::Page/;
+use base qw/NDWeb::Page/;
sub noAccess () {
HTML::Template->new(filename => 'templates/NoAccess.tmpl', global_vars => 1, cache => 1);
AuthName "NewDawn authentication"
AuthType basic
- PerlAuthenHandler ND::Web::AuthHandler
+ PerlAuthenHandler NDWeb::AuthHandler
Order Deny,Allow
Require valid-user
use ND;
use ND::DB;
use ND::Include;
-use ND::Web::AuthHandler;
-use ND::Web::Include;
-use ND::Web::Forum;
-use ND::Web::Graph;
-
-use ND::Web::Page;
-use ND::Web::Image;
-use ND::Web::XMLPage;
-
-use ND::Web::Pages::Main;
-use ND::Web::Pages::AddIntel;
-use ND::Web::Pages::Points;
-use ND::Web::Pages::LaunchConfirmation;
-use ND::Web::Pages::CovOp;
-use ND::Web::Pages::PlanetRankings;
-use ND::Web::Pages::DefRequest;
-use ND::Web::Pages::Check;
-use ND::Web::Pages::Raids;
-use ND::Web::Pages::EditRaid;
-use ND::Web::Pages::Calls;
-use ND::Web::Pages::Users;
-use ND::Web::Pages::Intel;
-use ND::Web::Pages::Alliances;
-use ND::Web::Pages::MemberIntel;
-use ND::Web::Pages::Resources;
-use ND::Web::Pages::PlanetNaps;
-use ND::Web::Pages::Motd;
-use ND::Web::Pages::Forum;
-use ND::Web::Pages::Settings;
-use ND::Web::Pages::Graph;
-use ND::Web::Pages::Mail;
-use ND::Web::Pages::HostileAlliances;
-use ND::Web::Pages::AllianceRankings;
-use ND::Web::Pages::GalaxyRankings;
-use ND::Web::Pages::TargetList;
-use ND::Web::Pages::DefLeeches;
+use NDWeb::AuthHandler;
+use NDWeb::Include;
+use NDWeb::Forum;
+use NDWeb::Graph;
+
+use NDWeb::Page;
+use NDWeb::Image;
+use NDWeb::XMLPage;
+
+use NDWeb::Pages::Main;
+use NDWeb::Pages::AddIntel;
+use NDWeb::Pages::Points;
+use NDWeb::Pages::LaunchConfirmation;
+use NDWeb::Pages::CovOp;
+use NDWeb::Pages::PlanetRankings;
+use NDWeb::Pages::DefRequest;
+use NDWeb::Pages::Check;
+use NDWeb::Pages::Raids;
+use NDWeb::Pages::EditRaid;
+use NDWeb::Pages::Calls;
+use NDWeb::Pages::Users;
+use NDWeb::Pages::Intel;
+use NDWeb::Pages::Alliances;
+use NDWeb::Pages::MemberIntel;
+use NDWeb::Pages::Resources;
+use NDWeb::Pages::PlanetNaps;
+use NDWeb::Pages::Motd;
+use NDWeb::Pages::Forum;
+use NDWeb::Pages::Settings;
+use NDWeb::Pages::Graph;
+use NDWeb::Pages::Mail;
+use NDWeb::Pages::HostileAlliances;
+use NDWeb::Pages::AllianceRankings;
+use NDWeb::Pages::GalaxyRankings;
+use NDWeb::Pages::TargetList;
+use NDWeb::Pages::DefLeeches;