#!/usr/bin/php4 -qC
<?
// Convertidor de mailboxes de sqwebmail (hidden) a mutt (via muttrc).

array_shift( $argv );
foreach ( $argv as $dir )
    if ( is_dir( $dir ) ) {
        echo "# Maildirs en los cuales chequeo los mails.\n";
        echo "mailboxes ! \\\n";
        $d = dir( $dir );
        while ( ( $f = $d->read() ) !== false )
            if ( is_dir("$dir/$f") and preg_match('/^\.[^\.]/', $f) and !strpos($f, 'historial') and !strpos($f, 'Spam') )
                $dirs[] = "          \"=$f\"";
        sort( $dirs );
        echo join( " \\\n", $dirs);
    }

?>