blob: 4116c2093763df20a7dcd1ca8335e5d557b0c181 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#
# A script to extract binary files from uudecoded files. Ignores all headers
# and irrelevant stuff. Has shortfalls like all such scripts/programs but works
# (almost) 100% of the time. We tested it against many such tools available
# at many ftp sites and found it having higher success rate. There are
# a few c-programs out there and it is slower as compared to them but it
# works even in those cases when they fail to work.
# The only time it will not work is that if uuencoded source file is cut up
# in many pieces and LAST part contains LESS THAN 3 SOURCE lines in it and
# we know that such cases (almost) never arise....guarenteed....:)
#
# Written by Tahir Zia Khawaja and
# Nasir Ahmed Noor
#umnoor@ccu.umanitoba.ca
#umkhawaj@ccu.umanitoba.ca
#
awk '$0 ~ /^begin / {print $0; exit}' $1 > $$gifile
egrep "^M[^a-z]" $1 >> $$gifile
awk 'NR > 2 {sl=lr; lr=pr; pr=$0} $1 ~ /^end/ {print sl; print lr; print pr; exit}' $1 >> $$gifile
uudecode $$gifile
rm $$gifile
|
