<?
$emails = array('bart@czardybon.net', 'adzia@czardybon.net', 'adrianna.czardybon@gmail.com', 'mat@czardybon.net', 'max@inbox.eu.org', 'misczar@gmail.com', 'pati1908@gmail.com');

$ile = count($emails);
print "Losuje " . $ile . " aniolkow \n";
$beneficjenci = array();
$limit = 100;
# Losowanie
$bylo = array();
while (list($k, $email) = each($emails)) {
        $cnt = 0;
        $problem = 0;
        do {
                $k1 = rand(0,6);
                $cnt++;
                if ($cnt >= $limit) {
                        $problem = 1;
                        break;
                }
        }
        while ((in_array($k1, $bylo)) or $k == $k1);
        $beneficjenci[$k] = $k1;
        if ($problem) {
                print "Losowanie nieudane: sprobuj jeszcze raz\n";
                exit;
        }
        array_push($bylo, $k1);
}

# Wysylanie
reset($emails);
while (list($k, $email) = each($emails)) {
        $daje = $email;
        $komu = $emails[$beneficjenci[$k]];
        print "$daje $komu\n";
        #mail($daje, "Losowanie benificjenta choinkowego 2010 V1 :)", "Bedziesz w roku 2010 aniolkiem dla $komu");
}

?>