bin/sqwebmail2mutt

   1 #!/usr/bin/php4 -qC
   2 <?
   3 // Convertidor de mailboxes de sqwebmail (hidden) a mutt (via muttrc).
   4
   5 array_shift( $argv );
   6 foreach ( $argv as $dir )
   7     if ( is_dir( $dir ) ) {
   8         echo "# Maildirs en los cuales chequeo los mails.\n";
   9         echo "mailboxes ! \\\n";
  10         $d = dir( $dir );
  11         while ( ( $f = $d->read() ) !== false )
  12             if ( is_dir("$dir/$f") and preg_match('/^\.[^\.]/', $f) and !strpos($f, 'historial') and !strpos($f, 'Spam') )
  13                 $dirs[] = "          \"=$f\"";
  14         sort( $dirs );
  15         echo join( " \\\n", $dirs);
  16     }
  17
  18 ?>