Changeset 9703


Ignore:
Timestamp:
2005-04-18T13:18:39+12:00 (19 years ago)
Author:
mdewsnip
Message:

Improvement to previous change so "file not processed" messages are seen in Expert mode.

Location:
trunk/gsdl/perllib/plugins
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/gsdl/perllib/plugins/BasPlug.pm

    r9586 r9703  
    723723        print STDERR "<ProcessingError n='$file' r='File contains no text'>\n";
    724724    }
    725     else {
    726         gsprintf($outhandle, "$plugin_name: {BasPlug.file_has_no_text}\n", $filename) if $self->{'verbosity'};
    727     }
     725    gsprintf($outhandle, "$plugin_name: {BasPlug.file_has_no_text}\n", $filename) if $self->{'verbosity'};
    728726
    729727    my $failhandle = $self->{'failhandle'};

  • trunk/gsdl/perllib/plugins/FOXPlug.pm

    r9584 r9703  
    8989        print STDERR "<ProcessingError n='$file' r='Could not read $fullname'>\n";
    9090    }
    91     else {
    92         print STDERR "FOXPlug::read - couldn't read $fullname\n";
    93     }
     91    print STDERR "FOXPlug::read - couldn't read $fullname\n";
    9492    return -1; # error in processing
    9593    }
    … …  
    107105        print STDERR "<ProcessingError n='$file' r='EOF while reading database header'>\n";
    108106    }
    109     else {
    110         print STDERR "FOXPlug::read - eof while reading database header\n";
    111     }
     107    print STDERR "FOXPlug::read - eof while reading database header\n";
    112108    close (FOXBASEIN);
    113109    return -1;
    … …  
    129125        print STDERR "<ProcessingError n='$file' r='Does not seem to be a Foxbase file'>\n";
    130126    }
    131     else {
    132         print STDERR "FOXPlug:read - $fullname doesn't seem to be a Foxbase file\n";
    133     }
     127    print STDERR "FOXPlug:read - $fullname doesn't seem to be a Foxbase file\n";
    134128    return -1;
    135129    }
    … …  
    163157        print STDERR "<ProcessingError n='$file' r='Could not read $dbtfullname'>\n";
    164158    }
    165     else {
    166         print STDERR "FOXPlug::read - couldn't read $dbtfullname\n";
    167     }
     159    print STDERR "FOXPlug::read - couldn't read $dbtfullname\n";
    168160    close (FOXBASEIN);
    169161    return -1;

  • trunk/gsdl/perllib/plugins/GMLPlug.pm

    r9584 r9703  
    9696        print STDERR "<ProcessingError n='$file' r='Could not read $filename'>\n";
    9797    }
    98     else {
    99         print $outhandle "GMLPlug::read - couldn't read $filename\n";
    100     }
     98    print $outhandle "GMLPlug::read - couldn't read $filename\n";
    10199    return -1;
    102100    }

  • trunk/gsdl/perllib/plugins/ImagePlug.pm

    r9585 r9703  
    381381        print STDERR "<ProcessingError n='$file' r='Windows 95/98 not supported'>\n";
    382382    }
    383     else {
    384         print $outhandle "ImagePlug: Windows 95/98 not supported\n";
    385     }
     383    print $outhandle "ImagePlug: Windows 95/98 not supported\n";
    386384    return -1;
    387385    }
    … …  
    392390        print STDERR "<ProcessingError n='$file' r='ImageMagick not installed'>\n";
    393391    }
    394     else {
    395         print $outhandle "ImagePlug: ImageMagick not installed\n";
    396     }
     392    print $outhandle "ImagePlug: ImageMagick not installed\n";
    397393    return -1;
    398394    }
    … …  
    414410        print STDERR "<ProcessingError n='$file'>\n";
    415411    }
    416     else {
    417         print $outhandle "ImagePlug: couldn't process \"$filename\"\n";
    418     }
     412    print $outhandle "ImagePlug: couldn't process \"$filename\"\n";
    419413    return -1; # error during processing
    420414    }

  • trunk/gsdl/perllib/plugins/RecPlug.pm

    r9584 r9703  
    238238        print STDERR "<ProcessingError n='$file' r='Could not read directory $dirname'>\n";
    239239    }
    240     else {
    241         print $outhandle "RecPlug: WARNING - couldn't read directory $dirname\n";
    242     }
     240    print $outhandle "RecPlug: WARNING - couldn't read directory $dirname\n";
    243241    return -1; # error in processing
    244242    }

  • trunk/gsdl/perllib/plugins/UnknownPlug.pm

    r9584 r9703  
    205205        print STDERR "<ProcessingError n='$file'>\n";
    206206    }
    207     else {
    208         print $outhandle "UnknownPlug: couldn't process \"$filename\"\n";
    209     }
     207    print $outhandle "UnknownPlug: couldn't process \"$filename\"\n";
    210208    return -1; # error during processing
    211209    }
Note: See TracChangeset for help on using the changeset viewer.