my $template;
+sub setprotocolparam {
+ {
+ no warnings 'uninitialized';
+ if( length $ENV{HTTPS} ) {
+ $template->param(PROTOCOL => "https");
+ }
+ else {
+ $template->param(PROTOCOL => "http");
+ }
+ }
+}
+
sub printpage {
$template->param(COINLIFETIME => $COINLIFETIME);
$template->param(FLIPPEDCOINSINDB => $flippedcoinsindb);
$template->param(COINSINDB => $coinsindb);
+
+ my $rootloc = $ENV{SCRIPT_FILENAME};
+ $rootloc =~ s/$ENV{DOCUMENT_ROOT}//g;
+ $rootloc =~ s/\/[^\/]*$//g;
+ $template->param( ROOTURL => $ENV{HTTP_HOST} . $rootloc );
+
print "Content-type: text/html\n\n", $template->output;
}
$template = HTML::Template->new(filename => 'created.html');
$template->param(NEWCOINID => $newcoinid);
- $template->param(HTTP_HOST => $ENV{HTTP_HOST});
+ setprotocolparam();
}
elsif ( length($requestedcoinid) > 0 ) {
if ( ! exists $coins_db{$requestedcoinid} ) {
$template = HTML::Template->new(filename => 'usecoin.html');
$template->param(REQUESTEDCOINID => $requestedcoinid);
- $template->param(HTTP_HOST => $ENV{HTTP_HOST});
$template->param(COINCREATIONTIME => localtime($coininfo[0])."");
+ setprotocolparam();
if ( $coininfosize == 1 && $requestedaction eq "" ) {
$template->param(STATUS_NOTYETFLIPPED => 1);