waynet@tolerant.UUCP (07/17/87)
unshar will unshar multiple raw files saved from readnews. unpack will unpack archives in the format we get from our neighbor, pyramid. No guarantees are made that their naming conventions are conform to any standard. #! /bin/sh # To extract, remove mail header lines and type "sh filename" echo x - unshar sed -e 's/^X//' > unshar << '!FaR!OuT!' X#! /bin/sh X# unshar multiple files - 12/18/86 - W. Thompson Xfor i Xdo X echo "<-<-<-<-<-<-<-<-<-<- USHARING '$i' ->->->->->->->->->->" X awk ' X /^#/ { pr = 1 } # assumed bof X /^--$/ { exit } # assumed eof X pr == 1 { print } X ' $i | sh Xdone !FaR!OuT! if [ `wc -c unshar | awk '{printf $1}'` -ne 250 ] then echo -n Size change in file unshar: was 250, 'is ' wc -c unshar | awk '{printf $1}' echo '' fi chmod ugo+x unshar echo x - unpack sed -e 's/^X//' > unpack << '!FaR!OuT!' X#! /bin/sh X# unpack archives - W. Thompson - 02/19/87 Xfor i Xdo X while true X do X file=`ls $i*` X case $file in X *.tar) tar xvpf $file X if [ $? -ne 0 ] X then X exit X else X break X fi X ;; X *.shar) sh $file X if [ $? -ne 0 ] X then X exit X else X break X fi X ;; X *.Z) uncompress $file X if [ $? -ne 0 ] X then X exit X fi X ;; X *) break X ;; X esac Xecho $file X done Xdone !FaR!OuT! if [ `wc -c unpack | awk '{printf $1}'` -ne 463 ] then echo -n Size change in file unpack: was 463, 'is ' wc -c unpack | awk '{printf $1}' echo '' fi chmod ugo+x unpack exit -- Which is worse, ignorance or apathy? Who knows, who cares. Wayne Thompson ..{bene,mordor,nsc,oliveb,pyramid,ucbvax}!tolerant!waynet Your mission, should you decide to accept it, is to discern who is responsible for these opinions, the poster or the company he works for. Good luck!!