sub DB_Connect{
    my $dbh = DBI->connect("DBI:mysql:book", "book", "addison")
      or die "Error connecting to DB! $DBI::errstr\n";

    return($dbh);
}

sub Check_Cookie{
    my $user = cookie('dms');

    if($user){
        return($user);
    }
    else{
        print redirect(-uri=>"auth.cgi");
        exit;
    }
}

sub Get_Group{
    my $user = shift;

    my $dbh = DBI->connect("DBI:mysql:book", "book", "addison")
      or die "Error connecting to DB! $DBI::errstr\n";

    my $sth = $dbh->prepare( qq{ SELECT group_id
                                 FROM dms_users
                                 WHERE
                                 username = ?
                                } );

    $sth->execute($user);
    $group = $sth->fetch->[0];
    redirect(-uri=>"auth.cgi") unless $group;

    $sth->finish;
    $dbh->disconnect;
    return($group);
}

1;