#!/usr/local/bin/perl

$be_font_dir = '.' unless $be_font_dir = $ENV{'BE_FONT_DIR'};

$char{'0'} = '0.pnm';
$char{'1'} = '1.pnm';
$char{'2'} = '2.pnm';
$char{'3'} = '3.pnm';
$char{'4'} = '4.pnm';
$char{'5'} = '5.pnm';
$char{'6'} = '6.pnm';
$char{'7'} = '7.pnm';
$char{'8'} = '8.pnm';
$char{'9'} = '9.pnm';
$char{'/'} = 'slash.pnm';
$char{':'} = 'colon.pnm';
$char{'.'} = 'dot.pnm';
$char{'-'} = 'hyfun.pnm';
$char{'('} = 'oblace.pnm';
$char{')'} = 'cblace.pnm';

while(<>) {
    if (/^DisplayDate\s*=\s*(.*)$/) {
	$date = $1;
	last;
    }
}

foreach $c (split(//, $date)) {
    print "$be_font_dir/$char{$c} ";
}

