package counter;

use strict;


my ($db, $pagename, $host) = @_;

#======== Insert or Update pagecounter appropriately, then display it ==========
eval { # Just ignore errors if the record already exists
   $db->do('INSERT INTO counters (pagename, pagecounter) VALUES (?, 0)',
   undef, $pagename);
};

$db->do('UPDATE counters SET pagecounter = pagecounter + 1 WHERE pagename = ?',
undef, $pagename) unless( $host eq 'Admin' );

my ($counter) = $db->selectrow_array('SELECT pagecounter FROM counters WHERE pagename = ?',
undef, $pagename);