package LiveGeez::WebFonts;
use base qw(Exporter);
BEGIN
{
use strict;
use vars qw($VERSION @EXPORT %WebFonts);
require 5.000;
require Exporter;
@EXPORT = qw(
AddWebFont
);
%WebFonts = (
PFR => {
AmharicBook => 'http://iethiopia.com/pfr/AB.pfr',
},
)
}
sub WritePFRHeader
{
my $pfrHeader = qq (\n \n\n);
$_ = $_[1];
# s|((\s+)?)|$1\n $2|i;
s/((\s+)?)/$1$pfrHeader$2/i
# unless ( m|http://www.bitstream.com/wfplayer/tdserver.js|i );
unless ( m/tdserver.js/i );
$_;
}
sub WriteEFTHeader
{
my $eftHeader = qq ();
$_ = $_[1];
# s|((\s+)?)|$1$2|i;
s/((\s+)?)/$1$eftHeader$2/
unless ( m|http://www.waltainfo.com/vg.css|i );
$_;
}
sub AddWebFont
{
if ( $_[0]->{request}->{WebFont} eq "PFR" ) {
$_ = WritePFRHeader ( $_[0]->{request}->{sysOut}->{sysName}, $_[1] );
}
elsif ( $_[0]->{request}->{WebFont} eq "WEFT" ) {
$_ = WriteEFTHeader ( $_[0]->{request}->{sysOut}->{sysName}, $_[1] );
}
$_;
}
1;
__END__