<?php
// Tom Norris <tom@angrycoder.org>
// Counts the mail users, should be a perl script, but I'm rusty and I need it now

//$debug= 1;
if( posix_getuid() != 0 ) {
        die( "You need to be UID0 to run this, or you can't get into the qmail mailbox directories." );
}
$mailpath= "/var/qmail/mailnames";

if(!empty($argv[1]))
        $mailpath= $argv[1];

dp($mailpath);

$users= array();

foreach( glob($mailpath."/*") as $k => $filename ) {
        dp("DN: $filename");
        foreach( glob($filename."/*") as $k => $v ) {
                dp( "FN: $v" );
                $users[]= $v;
        }
}

if(!empty($debug)) pp($users);

$totalusers= 0;

foreach($users as $_) $totalusers++;
pp($totalusers);

// I'm used to ruby >:|
function pp($n) { var_dump( $n ); }

function dp($n) { global $debug;  if($debug){echo "[DEBUG] $n\n";} }

?>