in reply to mod_perl website structure

Okay, i've put together the framework of what I imagine a small perl website to be, basically I would like to know if I have done anything horrendously wrong yet 
# file:Fyp/Main.pm  ######################################

package Fyp::Main;     #This file is linked to /fyp location

use strict;
use warnings;

use Apache2::RequestRec ();

use Apache2::Const -compile => qw(OK);

use Fyp::Index;

sub handler {
    my $r = shift;

    $r->content_type('text/html');

    Fyp::Index::init();

    return Apache2::Const::OK;
}

1;

[download]
# 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;

[download]
# 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";
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w
+3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
 
<head>
      <title>Carina - Web Interface</title>                           
+     
      <link rel="stylesheet" type="text/css" href="fyp.css" />
</head>
 
<body>
      <h1>Welcome to Carina</h1>   
END
}


sub printFooter() {

print << "END";
</body>
</html>
END
}

1;

[download]
# 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 "\t<p>You are not logged in</p>\n";    
}

1;

[download]
Thanks very much for the info so far,
Mark

Replies are listed 'Best First'.
Re^2: mod_perl website structure
by Anonymous Monk on Oct 14, 2011 at 01:35 UTC
[reply]

In Section Seekers of Perl Wisdom