#!/usr/bin/perl 
#########################################################
#BEGIN { open (STDERR, ">>./temp/signature_error.log"); }
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
use strict;

my($q,$params,$mainfolder,$counter,$templatefolder,$stylefolder,$sigdir,$sigurl,$blank);
########################################################
# Define Global settings
$sigdir         = '/home/graphics/web/sig.graphicsfactory.com/public_html/';
$counter        = '/home/graphics/web/sig.graphicsfactory.com/public_html/cgi-bin/temp/sigcounter.log';
$templatefolder = '/home/graphics/web/sig.graphicsfactory.com/public_html/cgi-bin/temp/';
$sigurl         = 'http://sig.graphicsfactory.com/';
########################################################
# Define variables
$q      = new CGI();
$params = $q->Vars();
########################################################
# Display count

 chomp $params->{signature} if $params->{signature} =~ /\n$/;


$stylefolder = $sigdir . $params->{style};

#print $q->header();
#print "$templatefolder $sigdir\n";
#exit();

unless (-d $stylefolder)
  {
   Error("The style selected does not exist, try another signature style","Invalid Signature Style");
  }

my $signature  = lc($params->{signature});
   chomp $signature if $signature =~ /\n$/;
   $signature  =~ s!\s+!+!gi;
my @chars      = split(//,$signature); 
my $samplesig  = '';
my $bbcodesig  = '';
my $htmlsig    = '';
my $excodesig  = '';
my $babysig  = '';

   for (my $i=0; $i<@chars; $i++)
    {
      chomp $chars[$i] if $chars[$i] =~ /\n$/;
      if($chars[$i] eq '+' or length($chars[$i])<1) { $chars[$i] = 'blank'; }
      next unless -e "$stylefolder/$chars[$i].gif";

      my $sigimg  = $sigurl . "$params->{style}/$chars[$i].gif"; 
      $samplesig .= "<IMG SRC=\"$sigimg\" BORDER=\"0\">";
      $bbcodesig .= "[img]" . $sigimg . "[/img]";
      $htmlsig   .= "<IMG SRC=\"$sigimg\" BORDER=\"0\">";
      $excodesig .= "[image noborder]" . $sigimg . "[/image]";
      $babysig .= "<IMG SRC=\"$sigimg\" BORDER=\"0\">";
    }



my $displaypage = $templatefolder . "signature.html";

   open(TMP,"<$displaypage") or die $!;
   local $/;
   my $sigdisplay = <TMP>;
   close(TMP);
      
      $sigdisplay =~ s!%%samplesig%%!$samplesig!gi;
      $sigdisplay =~ s!%%bbcodesig%%!$bbcodesig!gi;
      $sigdisplay =~ s!%%htmlsig%%!$htmlsig!gi;
      $sigdisplay =~ s!%%excodesig%%!$excodesig!gi;
      $sigdisplay =~ s!%%babysig%%!$babysig!gi;
   
   print $q->header();
   print $sigdisplay;
   
   unless(defined($params->{tally})) {  }
   
exit();
###################################################################3
# sub routines
sub Error {
my($message,$title) = @_;

my $errorpage = $templatefolder . "sig_error.html";

     print $q->header();
  print "Hi $templatefolder $errorpage" ;
  exit();

   open(ERR,"<$errorpage") || die $!;
   local $/;
   my $page = <ERR>;
    close(ERR);
    
    $page =~ s!%%title%%!$title!gi;
    $page =~ s!%%message%%!$message!gi;
  
  print $q->header();
  print $page;
  exit();
}



__END__