#!/usr/bin/perl #Include current script directory in the module path (needed on Microsoft IIS). #This allows this script to work by copying ChartDirector to the same directory #as the script (as an alternative to installation in Perl module directory) use File::Basename; use lib dirname($0) =~ /(.*)/; use perlchartdir; print "Content-type: text/html\n\n"; print <
ChartDirector Information
  • Description : ${\(perlchartdir::getDescription())}

  • Version : ${\((perlchartdir::getVersion() & 0xff000000) / 0x1000000)}.${\((perlchartdir::getVersion() & 0xff0000) / 0x10000)}.${\(perlchartdir::getVersion() & 0xffff)}

  • Copyright : ${\(perlchartdir::getCopyright())}

  • Boot Log :
    • ${\(join("
    • ", split("\n", perlchartdir::getBootLog())))}

  • Font Loading Test :
    • ${\(join("
    • ", split("\n", perlchartdir::libgTTFTest())))}
EndOfHTML ;