added on WebSTLs (webstls.com) at 2026-07-01 22:27:08
| 1 | #!/usr/bin/perl | |
| 2 | use strict; use warnings; | |
| 3 | use lib '/var/www/vhosts/webstls.com/httpdocs'; | |
| 4 | use CGI; use MODS::Template; use MODS::Login; use MODS::WebSTLs::Wrapper; | |
| 5 | my $auth = MODS::Login->new; my $wrap = MODS::WebSTLs::Wrapper->new; my $tfile = MODS::Template->new; | |
| 6 | $|=1; my $userinfo = $auth->login_verify(); | |
| 7 | print "Content-Type: text/html; charset=utf-8\nCache-Control: no-store, no-cache, must-revalidate, max-age=0\nPragma: no-cache\nExpires: 0\n\n"; | |
| 8 | my $body = join('', $tfile->template('webstls_tour.html', {}, $userinfo)); | |
| 9 | $wrap->render({ userinfo => $userinfo, title => 'Product tour', body => $body }); |