File Coverage

bin/uudecode

Criterion	Covered	Total	%
statement	41	55	74.5
branch	16	26	61.5
condition	1	3	33.3
subroutine	5	6	83.3
pod			n/a
total	63	90	70.0

#!/usr/bin/perl

=begin metadata

Name: uudecode
Description: decode a binary file
Author: Nick Ing-Simmons, [e-mail]
Author: Tom Christiansen, [e-mail]
Author: brian d foy, [e-mail]
License: perl

=end metadata

=cut


use strict;

use File::Basename qw(basename);
use Getopt::Std qw(getopts);

use constant EX_SUCCESS => 0;
use constant EX_FAILURE => 1;

my $Program = basename($0);

my %opt;
getopts('io:', \%opt) or usage();
my $output_file = $opt{'o'};

FILESPEC :
while (<>) {
    my( $mode, $header_name );
    next FILESPEC unless ($mode, $header_name) = /^begin\s+(\d+)\s+(\S+)/;
	$output_file = $header_name unless defined $output_file;

    my $out;
    if ($output_file eq '-') {
    	$out = *STDOUT;
    }
    else               {
    	if ($opt{'i'} && -e $output_file) {
		warn "$Program: won't clobber file '$output_file'\n";
		exit EX_FAILURE;
    	}
    	unless (open $out, '>', $output_file) {
		warn "$Program: can't create '$output_file': $!\n";
		exit EX_FAILURE;
    	}
		# Quickly protect file before data is written.
		# XXX: Does this break on sub-Unix systems, like if
		#      it's a mode 400 or 000 file? If so, then we must
		#      wait until after the close.
    	unless (chmod oct($mode), $output_file) {
		warn "$Program: can't chmod '$output_file' to mode '$mode': $!\n";
		exit EX_FAILURE;
    	}
    }

    binmode($out);	# winsop
    my $ended = 0;

LINE:
    while (<>) {
	if (/^end$/) {
	    $ended = 1;
	    last LINE;
	}
	next LINE if /[a-z]/;
	next LINE unless int((((ord() - 32) & 077) + 2) / 3)
		      == int(length() / 4);
	unless (print $out unpack("u", $_)) {
	    warn "$Program: can't write '$output_file': $!\n";
	    exit EX_FAILURE;
	}
    }
    unless (close $out) {
	warn "$Program: can't close '$output_file': $!\n";
	exit EX_FAILURE;
    }
    unless ($ended) {
	warn "$Program: missing end; '$output_file' may be truncated\n";
	exit EX_FAILURE;
    }
}
exit EX_SUCCESS;

sub usage {
    require Pod::Usage;
    Pod::Usage::pod2usage({ -exitval => 1, -verbose => 0 });
}

__END__