1 b8c9f317 2005-03-21 devnull 
 2 b8c9f317 2005-03-21 devnull ns=`{namespace}
 3 b8c9f317 2005-03-21 devnull if(</dev/null dial 'unix!'^$ns/$1 >[2]/dev/null)
 4 b8c9f317 2005-03-21 devnull 	f=$f^9p
 5 b8c9f317 2005-03-21 devnull 
 6 65fb6fb7 2005-03-24 devnull t=/tmp/netfilexxx.$pid.$USER
 7 65fb6fb7 2005-03-24 devnull fn sigexit { rm -f $t $t.* }
 8 65fb6fb7 2005-03-24 devnull 
 9 65fb6fb7 2005-03-24 devnull fn runsftp {
10 65fb6fb7 2005-03-24 devnull 	eflag=no
11 65fb6fb7 2005-03-24 devnull 	if(~ $1 -e){
12 65fb6fb7 2005-03-24 devnull 		eflag=yes
13 65fb6fb7 2005-03-24 devnull 		shift
14 b8c9f317 2005-03-21 devnull 	}
15 b8c9f317 2005-03-21 devnull 	if(! </dev/null dial 'unix!'^$ns/$1.sftp >[2]/dev/null){
16 78b5635d 2005-03-24 devnull 		sftpcache -D $1 </dev/null >[1=2]
17 b8c9f317 2005-03-21 devnull 	}
18 65fb6fb7 2005-03-24 devnull 	{
19 65fb6fb7 2005-03-24 devnull 		if(! </dev/null dial 'unix!'^$ns/$1.sftp >[2]/dev/null){
20 65fb6fb7 2005-03-24 devnull 			sed 's/^/-/' | sftp -b /dev/stdin $1 && echo DONE
21 65fb6fb7 2005-03-24 devnull 		}
22 65fb6fb7 2005-03-24 devnull 		if not{
23 65fb6fb7 2005-03-24 devnull 			{cat; echo DONE} | dial -e 'unix!'^$ns/$1.sftp
24 65fb6fb7 2005-03-24 devnull 		}
25 65fb6fb7 2005-03-24 devnull 	} >$t.sftp1 >[2=1]
26 65fb6fb7 2005-03-24 devnull 	sed '/^sftp> /d
27 65fb6fb7 2005-03-24 devnull 		/^Connecting to /d
28 65fb6fb7 2005-03-24 devnull 		/^Fetching /d
29 65fb6fb7 2005-03-24 devnull 		/^Uploading /d
30 65fb6fb7 2005-03-24 devnull 		/^DONE$/d
31 65fb6fb7 2005-03-24 devnull 	' $t.sftp1 >$t.sftp
32 65fb6fb7 2005-03-24 devnull 	if(! 9 grep -s '^DONE$' $t.sftp1){
33 65fb6fb7 2005-03-24 devnull 		echo sftp did not finish: >[1=2]
34 65fb6fb7 2005-03-24 devnull 		sed 's/^/	/g' $t.sftp1 >[1=2]
35 65fb6fb7 2005-03-24 devnull 		exit 1
36 b8c9f317 2005-03-21 devnull 	}
37 65fb6fb7 2005-03-24 devnull 	if(~ $eflag yes && test -s $t.sftp){
38 65fb6fb7 2005-03-24 devnull 		echo sftp error output: >[1=2]
39 65fb6fb7 2005-03-24 devnull 		sed '/^DONE$/d; s/^/	/g' $t.sftp1 >[1=2]
40 65fb6fb7 2005-03-24 devnull 		exit 1
41 65fb6fb7 2005-03-24 devnull 	}
42 65fb6fb7 2005-03-24 devnull 	status=''
43 b8c9f317 2005-03-21 devnull }
44 b8c9f317 2005-03-21 devnull