##
# file: Fyp/Index.pm ####################################
# Mark O'Donovan 2011
package Fyp::Index;
use strict;
use warnings;
use Apache2::RequestRec ();
use Apache2::RequestIO ();
use Apache2::Const -compile => qw(OK);
use Fyp::Html;
use Fyp::Security;
sub init() {
#my $r = shift;
#$r->content_type('text/plain');
#print "mod_perl 2.0 rocks!\n";
Fyp::Html::printHeader();
Fyp::Security::checkLogin();
Fyp::Html::printFooter();
}
1;
##
##
# file: Fyp/Html.pm #####################################
# Mark O'Donovan 2011
package Fyp::Html;
use strict;
use warnings;
use Apache2::RequestRec ();
use Apache2::RequestIO ();
use Apache2::Const -compile => qw(OK);
sub printHeader() {
print << "END";
Carina - Web Interface
Welcome to Carina
END
}
sub printFooter() {
print << "END";
END
}
1;
##
##
# file: Fyp::Security.pm ################################
# Mark O'Donovan 2011
package Fyp::Security;
use strict;
use warnings;
use Apache2::RequestRec ();
use Apache2::RequestIO ();
use Apache2::Const -compile => qw(OK);
sub checkLogin() {
print "\tYou are not logged in
\n";
}
1;