| … | |
… | |
| 99 | } |
99 | } |
| 100 | print "\n"; |
100 | print "\n"; |
| 101 | } |
101 | } |
| 102 | |
102 | |
| 103 | print $uu->filename; |
103 | print $uu->filename; |
|
|
104 | |
|
|
105 | $uu->remove_temp; |
|
|
106 | |
| 104 | if (my $err = $uu->decode_temp) { |
107 | if (my $err = $uu->decode ()) { |
| 105 | print " ", strerror $err, "\n"; |
108 | print ", ", strerror $err, "\n"; |
| 106 | } else { |
109 | } else { |
| 107 | print " temporarily decoded to ", $uu->binfile; |
|
|
| 108 | $uu->remove_temp; |
|
|
| 109 | |
|
|
| 110 | if (my $err = $uu->decode ()) { |
|
|
| 111 | print ", ", strerror $err, "\n"; |
|
|
| 112 | } else { |
|
|
| 113 | print ", saved as uudst/", $uu->filename, "\n"; |
110 | print ", saved as uudst/", $uu->filename, "\n"; |
| 114 | } |
|
|
| 115 | } |
111 | } |
| 116 | } |
112 | } |
| 117 | |
113 | |
| 118 | print "cleanup...\n"; |
114 | print "cleanup...\n"; |
| 119 | |
115 | |
| 120 | CleanUp(); |
116 | CleanUp; |
