| |
| ns=`{namespace} |
| if(</dev/null dial 'unix!'^$ns/$1 >[2]/dev/null) |
| f=$f^9p |
| |
| t=/tmp/netfilexxx.$pid.$USER |
| fn sigexit { rm -f $t $t.* } |
| |
| fn runsftp { |
| eflag=no |
| if(~ $1 -e){ |
| eflag=yes |
| shift |
| } |
| if(! </dev/null dial 'unix!'^$ns/$1.sftp >[2]/dev/null){ |
| sftpcache -D $1 </dev/null >[1=2] |
| } |
| { |
| if(! </dev/null dial 'unix!'^$ns/$1.sftp >[2]/dev/null){ |
| sed 's/^/-/' | sftp -b /dev/stdin $1 && echo DONE |
| } |
| if not{ |
| {cat; echo DONE} | dial -e 'unix!'^$ns/$1.sftp |
| } |
| } >$t.sftp1 >[2=1] |
| sed '/^sftp> /d |
| /^Connecting to /d |
| /^Fetching /d |
| /^Uploading /d |
| /^DONE$/d |
| ' $t.sftp1 >$t.sftp |
| if(! 9 grep -s '^DONE$' $t.sftp1){ |
| echo sftp did not finish: >[1=2] |
| sed 's/^/ /g' $t.sftp1 >[1=2] |
| exit 1 |
| } |
| if(~ $eflag yes && test -s $t.sftp){ |
| echo sftp error output: >[1=2] |
| sed '/^DONE$/d; s/^/ /g' $t.sftp1 >[1=2] |
| exit 1 |
| } |
| status='' |
| } |
| |
