Mine

use strict;
use DBI;

our $dbh = DBI->connect("DBI:mysql:opera") or die("Could not connect to db\n");
our $isA = $dbh->prepare("SELECT admin from bruker where brukernavn = ?");
our $insertUser	= $dbh->prepare("INSERT INTO bruker(brukernavn) values(?)");
our $listUser 	= $dbh->prepare("SELECT brukernavn,admin,bid from bruker");
our $insertNews	= $dbh->prepare("INSERT INTO news(modified_by, modified, title, content) VALUES((select bid from bruker where brukernavn = ?), now(), ?, ?)");
our $getUsers	= $dbh->prepare("INSERT INTO news(modified_by, modified, title, content) VALUES((select bid from bruker where brukernavn = ?), now(), ?, ?)");
our $removeUser = $dbh->prepare("DELETE FROM bruker where brukernavn = ?");
our $modUser	= $dbh->prepare("UPDATE bruker SET admin = ? where brukernavn = ?");

sub isAdmin {
	$isA->execute(pop);
	return $isA->fetchrow_array;
}

sub getUsers {
	return $listUser->execute();	
}

sub addUser {
	# Add a user to the database
	( my $myUser, my $newUser ) = @_;
	if ( isAdmin($myUser) ){
		$insertUser->execute($newUser);
	} else{ return -1; }
	return 1;
}