#! /tools/bin/perl

use DBI;
use strict;
require '/usr/www/push/common20.pl';
my $dbh=&ConnectToDatabase("push20");

my @ar=&yp;
foreach my $person (@ar) {
	&check_user($dbh,$person);
} # End of foreach

sub yp
{
my @array;

open (T,"ypcat passwd|") || die "cannot get yp info :$! \n";
while (<T>){
	my ($id,$pw,$uid,$gid,$name,$hd) = split (/\:/);
	push(@array,$id);
} # End of while
return(@array);
} # End of yp

sub ConnectToDatabase {
    my $database = shift ;
    my ($dsn)="DBI:mysql:$database:keefer.epinions.com";
        $dbh = DBI->connect($dsn, "root", "push")
            || die "$DBI::errstr - Can't connect to database server: .";
} # End of ConnectToDatabase