Next Welcome to my ~/bin 102

print: Main loop

       if ($type eq '???') {
         die "I can't figure out what type of data is in that file.\n";
       }
       my @path = conversion_path($type, $CONF{printable});
       warn "Conversion path: @path\n" if $opt_v;
       unless (@path) {
         die "I don't know how to convert from file type $type to
         $CONF{printable}.\n";
       }
       shift @path;          # the first element is the source type
       for my $next_type (@path) {
         $file = convert($file, $next_type,
             $CONF{"$type\->$next_type"});
         $type = $next_type;
       }
       spool($file) for 1 .. $NCOPIES;
       unlink @TMPFILES;
       @TMPFILES = ();
     }


Next Menu Copyright © 2005 M. J. Dominus