source: companies/serpro/scripts-listas/apagaListasMailman.php @ 903

#!/usr/bin/php

<?php
        $listaListas = "list_lists -b";
        $listaTotal = `$listaListas`;
        $lista = explode("\n", $listaTotal);
        $contaLista = count($lista);
        echo "$contaLista\n";
        for ($i=0;$i<$contaLista;$i++)
        {
                if (($lista[$i] <> "mailman") && ($lista[$i]<>""))
                {
                   echo "\nRemove a lista -> $lista[$i]\n";
                   $removeLista = "rmlist -a $lista[$i]";
                   $erroRemoveLista = `$removeLista`;
                                                                                                                                           }

        }
?>