Probably the easiest way to make your vpage.cgi script password protected is to create a new runmode (to do this by modifying the demo, you would add a new sub in the file Simple.pm, use either 'private' or 'private2' as examples for this. Copy the guts of your original script into the body of this new run mode. You'll also need to create a template file to work with HTML template, for the output.
An alternative (maybe a bit more complicated), is to modify your original script so that it is a package (like my Simple.pm file, but you might call this one VPage.pm - name doesn't matter. It will look something like this:
package MyLib::VPage;
use strict;
use lib '/var/www/cgi-bin/WebApp/libs';
use base 'MyLib::Login';
sub cgiapp_init {
my $self = shift;
$self->SUPER::cgiapp_init;
$self->authen->protected_runmodes(
'myrunmode',
);
}
sub myrunmode: StartRunmode {
my $self = shift;
my $template = $self->load_tmpl("myrunmode.html");
### guts of old vpage.cgi go in here
$template->param({
OUPUT => $output; # your output goes in here...
});
return $template->output;
}
1;
To invoke this, you'll need an app file like this:
#!/usr/bin/perl
use strict;
use lib '/var/www/cgi-bin/WebApp/libs';
use MyLib::VPage;
my $webapp = MyLib::VPage->new(
PARAMS => {
cfg_file => ['simple.ini', 'vpage.ini'],
format => 'equal',
},
);
$webapp->run();
The "use base MyLib::Login" line in VPage.pm makes VPage inherit the login logic. The vpage.ini file is optional - use it if you need to define parameters for the new run mode (or else, lump them into simple.ini).
I hope that helps. Good luck.
|