slackware-current/source/a/bin/scripts/xx

#
# 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
Slackware 13.0 Wed Aug 26 10:00:38 CDT 2009 Slackware 13.0 x86_64 is released as stable! Thanks to everyone who helped make this release possible -- see the RELEASE_NOTES for the credits. The ISOs are off to the replicator. This time it will be a 6 CD-ROM 32-bit set and a dual-sided 32-bit/64-bit x86/x86_64 DVD. We're taking pre-orders now at store.slackware.com. Please consider picking up a copy to help support the project. Once again, thanks to the entire Slackware community for all the help testing and fixing things and offering suggestions during this development cycle. As always, have fun and enjoy! -P. 2009-08-26 17:00:38 +02:00			`#`
			`# 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`