1 package Torrus::Freeside;
7 use FS::Mason qw( mason_interps );
8 use FS::NetworkMonitoringSystem;
11 my( $fs_interp, $rt_interp ) = mason_interps('standalone', 'outbuf'=>\$outbuf);
14 my($self, $title, $stylesheet) = @_;
16 #from html-incblocks.txt
18 # <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=UTF-8">
19 # [% IF expires %]<META HTTP-EQUIV="Refresh" CONTENT="[% expires %]"/>[% END %]
20 '<STYLE type="text/css" media="all">
21 @import url( '. $Torrus::Renderer::plainURL. $stylesheet. ' );
25 $self->freesideComponent('/elements/header.html',
38 $self->freesideComponent('/elements/footer.html');
43 sub freesideComponent {
44 my($self, $comp) = (shift, shift);
46 # my $conf = new FS::Conf;
47 $FS::Mason::Request::FSURL = $FSURL;
48 $FS::Mason::Request::FSURL .= '/' unless $FS::Mason::Request::FSURL =~ /\/$/;
49 # $FS::Mason::Request::QUERY_STRING = $packet->{'query_string'} || '';
54 #$fs_interp->exec($comp, @args); #only FS for now alas...
55 $fs_interp->exec($comp, @_); #only FS for now alas...
57 #errors? (turn off in-line error reporting?)
65 my $nms = new FS::NetworkMonitoringSystem;