#!/usr/bin/perl

use strict;
use Cwd;
use File::Basename;
use Sys::Hostname;

my $HOST = hostname;

my $RUN=cwd();
$RUN = basename($RUN);

open(NOTES,"<","notes");
my $NOTES=join("",<NOTES>);
close(NOTES);

my $time = scalar(gmtime());

open(TMPL,"<","/usr/share/chrony-graph/index.html.tmpl");
while(<TMPL>) {
  s/__HOST__/$HOST/g;
  s/__RUN__/$RUN/g;
  s/__NOTES__/$NOTES/g;
  s/__TIME__/$time/g;
  print;
}
