#!/usr/bin/perl

use strict ;
use warnings ;
use autodie ;

use CGI qw(:standard) ;
use Stanford::Orange::Util qw /slurp/ ;

my $title = 'Certificate Request Service Outage Page' ;

my $outage_html ;
if (-e 'outage.html') {
    $outage_html = slurp('outage.html') ;
} else {
    $outage_html = "The Certificate Request is currently out-of-service."
}


my $q = CGI->new ;

print $q->header() ;

my $main_body = <<"EOM";
$outage_html
EOM

print $q->start_html($title);

print "<h1>Certificate Request Outage Page</h1>\n" ;

print '<p style="border: 5px solid red; padding: 15px;">' ;
print $main_body ;
print '</p>' ;

print $q->end_html ;
