sub remove {
	( my @dat = @_ ) =~ /^\d+$/;
	my $statement = qq~DELETE FROM `gates-post` WHERE id = "$dat[1]"~;
	get( "affected" );
	return( undef ) unless( $rows > 0 );

sub get {
	my $opt = shift;
	( $rows, @rtn ) = '';
	$dbh = DBI->connect( gates->url, gates->accessName, gates->passs, {	AutoCommit => 1, RaiseError => 1 }) || die "DB connect failed: " . $dbh->errstr;
.
.
.
	if ( $opt eq "affected" ) {
		$rows = $dbh->do( $statement ) or die "DB operation failed to affect: " . $dbh->errstr;
		return;
	}