Changeset 4440 for trunk/Nebulous/scripts/stest.pl

Timestamp:

Jun 29, 2005, 4:35:06 PM (21 years ago)

Author:

jhoblitt

Message:

rename PS::IPP::IData -> Nebulous

File:

• trunk/Nebulous/scripts/stest.pl (modified) (2 diffs)

trunk/Nebulous/scripts/stest.pl

@@ -6 +6 @@
 use lib "./lib";
 
-use PS::IPP::IData::Client; # trace => 'debug';
+use Nebulous::Client; # trace => 'debug';
 
-my $idata = PS::IPP::IData::Client->new(
-    proxy   => 'http://localhost:80/idata'
+my $neb = Nebulous::Client->new(
+    proxy   => 'http://localhost:80/nebulous'
 );
 
 my $fname = shift;
 
-#my $fh = $idata->create( $fname );
-#$idata->unlock( $fname, 'write' );
+#my $fh = $neb->create( $fname );
+#$neb->unlock( $fname, 'write' );
 
-$idata->create( $fname, 1 );
-$idata->unlock( $fname, 'write' );
-$idata->delete( $fname );
+$neb->create( $fname, 1 );
+$neb->unlock( $fname, 'write' );
+$neb->delete( $fname );
 
 __END__
@@ -28 +28 @@
     print $fh "fooby\n";
     close $fh;
-    #$idata->unlock( $fname, 'write' );
+    #$neb->unlock( $fname, 'write' );
     my $filesize =  (stat( $key ))[7];
     print "created file $key, ${filesize}bytes\n";