package ISPMan::Utils;
use strict;
use vars qw($AUTOLOAD $VERSION @ISA @EXPORT @EXPORT_OK $Config);
require Exporter;
@ISA = qw(ISPMan Exporter AutoLoader);
@EXPORT = qw(
cat
getTemplate
refreshSignal
menu
start
printHeaders
ispman
);
$VERSION = '0.01';
use ISPMan::Config;
$Config=ISPMan::Config->new();
use ISPMan::Log;
sub getTemplate {
my $self=shift;
my ($file)=@_;
my $source=($file=~/^\//)?$file:"./tmpl/$file";
log_event("opening $source as template");
my $template= new Text::Template(
DELIMITERS => ['', ''],
TYPE => "FILE",
SOURCE => $source,
);
return $template;
}
sub cat {
my $file=shift;
return unless $file;
open "F", $file || die "Cant open $file\n";
my $text=join "", ;
close("F");
return $text;
}
sub refreshSignal {
my $self=shift;
return unless $ENV{'HTTP_USER_AGENT'};
return qq|
|;
}
sub printHeaders {
my $self=shift;
my $template=$self->getTemplate("headers.tmpl");
print $template->fill_in();
}
sub start {
my $self=shift;
my $template=$self->getTemplate("index.tmpl");
print $template->fill_in();
}
sub menu {
my $self=shift;
my $template=$self->getTemplate("menu.tmpl");
print $template->fill_in(PACKAGE => "ISPMan");
}
sub ispman {
my $self=shift;
my $template=$self->getTemplate("ispman.tmpl");
print $template->fill_in();
}
1;
__END__
# Below is the stub of documentation for your module. You better edit it!
=head1 NAME
ISPMan::Utils - Perl extension for blah blah blah
=head1 SYNOPSIS
use ISPMan::Utils;
blah blah blah
=head1 DESCRIPTION
Stub documentation for ISPMan::Utils was created by h2xs. It looks like the
author of the extension was negligent enough to leave the stub
unedited.
Blah blah blah.
=head1 AUTHOR
A. U. Thor, a.u.thor@a.galaxy.far.far.away
=head1 SEE ALSO
perl(1).
=cut