Select Code to Download

    159 sub wanted
    160 {
...
    164     # We only care about files.
    165     #
    166     return if ( -d $file );

    167 
    168     #
    169     # Skip some mailboxes.
    170     #
    171     foreach my $exclude ( split( /,/, $CONFIG{'exclude'} ) )

    172     {
    173         if ( $file =~ /$exclude/i )

    174         {
    175             $CONFIG{'verbose'} && print "Excluded mail file: $
+file\n";
...
    193     else
    194     {
    195         $CONFIG{'verbose'} && print "Failed to stat: $file - $
+!\n";

    196         return;
    197     }