#!/usr/bin/perl

###########################
#		     	  #
#  Dependencies      	  #
#		      	  #
# * ImageMagick	     	  #
# * Bundle::DBI      	  #
# * MySQL	     	  #
#  * db 'signature'	  #
#  * tbl 'signature'	  #
#  * pri(INT), value(INT) #
#		 	  #
###########################


use CGI ':standard';
use DBI;


databaseConnection();
dataCollection();
dataConsolidation();
dataPresentation();
databaseDisconnection();


sub databaseConnection {

	our $dsn = 'DBI:mysql:signature:localhost';
	my $db_user_name = '***';
	my $db_password = '***';
	our $dbh = DBI->connect($dsn, $db_user_name, $db_password);

}

sub dataCollection {

	our $counterCheck = $dbh->prepare(qq{select value from signature});

	$counterCheck->execute();
	our $counter = $counterCheck->fetchrow();
	$counterCheck->finish();

}

sub dataConsolidation {

        our $counterUpdate = $dbh->prepare(qq{update signature set value=value+1});
        $counterUpdate->execute();
        $counterUpdate->finish();

}

sub dataPresentation {

        $counter++;
        my $output = qq(convert -background transparent -font /usr/share/fonts/truetype/ttf-dejavu/DejaVuSans.ttf -pointsize 14 label:$counter png:-);

        print "Content-type: image/png\r\n\r\n";
        print system($output);

}

sub databaseDisconnection {

	$dbh->disconnect;

}