1 #!nfsh
   2 #
   3 # CDDL HEADER START
   4 #
   5 # The contents of this file are subject to the terms of the
   6 # Common Development and Distribution License (the "License").
   7 # You may not use this file except in compliance with the License.
   8 #
   9 # You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
  10 # or http://www.opensolaris.org/os/licensing.
  11 # See the License for the specific language governing permissions
  12 # and limitations under the License.
  13 #
  14 # When distributing Covered Code, include this CDDL HEADER in each
  15 # file and include the License file at usr/src/OPENSOLARIS.LICENSE.
  16 # If applicable, add the following below this CDDL HEADER, with the
  17 # fields enclosed by brackets "[]" replaced with your own identifying
  18 # information: Portions Copyright [yyyy] [name of copyright owner]
  19 #
  20 # CDDL HEADER END
  21 #
  22 
  23 #
  24 # Copyright 2006 Sun Microsystems, Inc.  All rights reserved.
  25 # Use is subject to license terms.
  26 #
  27 
  28 #
  29 # Test script for NFS TCL
  30 #
  31 
  32 if { $argc != 2 } {
  33     puts "Usage: $argv0 <hostname> <pathname>"
  34     exit
  35 }
  36 
  37 set host [ lindex $argv 0 ]
  38 set path [ path2comp [lindex $argv 1] "/" ]
  39 
  40 #connect -t udp -p 9999 $host
  41 connect $host
  42 
  43 set result [compound {Putrootfh; foreach c $path {Lookup $c};
  44         Readdir 0 0 1024 1024 { size type } ; Access t;
  45         Getattr {type size mode time_modify link_support change cansettime}
  46 }]
  47 
  48 disconnect 
  49 
  50 puts "compound returned Status=\[$status\]"
  51 foreach op $result {
  52         if {[lindex $op 0] == "Getattr"} {
  53                 puts "  [lindex $op 0] [lindex $op 1]"
  54                 prn_attrs "[lindex $op 2]"
  55         } else {
  56                 puts "  $op" 
  57         }
  58 }
  59 
  60 exit