tnetfileget - plan9port - [fork] Plan 9 from user space
  HTML git clone git://src.adamsgaard.dk/plan9port
   DIR Log
   DIR Files
   DIR Refs
   DIR README
   DIR LICENSE
       ---
       tnetfileget (552B)
       ---
            1 #!/usr/local/plan9/bin/rc
            2 
            3 f=getfile
            4 if(~ $1 -d){
            5         f=getdir
            6         shift
            7 }
            8 
            9 if(! ~ $#* 2){
           10         echo 'usage: netfileget [-d] system path' >[1=2]
           11         exit usage
           12 }
           13 
           14 . netfilelib.rc $1
           15 
           16 fn getfile9p {
           17         if(! 9p read $1/$2)
           18                 exit 1
           19 }
           20 
           21 fn getdir9p {
           22         9p ls -l $1/$2 | awk '{s=$NF; if($0 ~ /^d/) s=s"/"; print s}'
           23 }
           24 
           25 fn getfile {
           26         rm -f $t
           27         echo get $2 $t | runsftp -e $1
           28         cat $t
           29 }
           30 
           31 fn getdir {
           32         {echo cd $2; echo ls -l} | runsftp $1
           33         awk '
           34                 $NF == "." || $NF == ".." { next } 
           35                 {
           36                         s = $NF
           37                         if($0 ~ /^d/)
           38                                 s = s "/"
           39                         print s
           40                 }
           41         ' $t.sftp
           42 }
           43 
           44 $f $1 $2
           45 exit 0
           46