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

Timestamp:

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

Author:

jhoblitt

Message:

rename PS::IPP::IData -> Nebulous

File:

• trunk/Nebulous/scripts/ptest.pl (modified) (3 diffs)

trunk/Nebulous/scripts/ptest.pl

@@ -6 +6 @@
 use lib "./lib";
 
-use PS::IPP::IData::Client;
+use Nebulous::Client;
 
-my $idata = PS::IPP::IData::Client->new(
-    uri     => 'http://localhost:80/PS/IPP/IData/Server',
-    proxy   => 'http://localhost:80/idata'
+my $neb = Nebulous::Client->new(
+    proxy   => 'http://localhost:80/nebulous'
 );
 
@@ -22 +21 @@
     unless ( $pid )  {
         my $fname = "${key}_$id";
-        my $fh = $idata->create( $fname );
+        my $fh = $neb->create( $fname );
         die "can't create file $fname" unless $fh;
 
@@ -28 +27 @@
 
         close $fh;
-        $idata->unlock( $fname, 'write' );
+        $neb->unlock( $fname, 'write' );
 
-        $fh = $idata->open( $fname, 'read' ) or die "can't open file";
+        $fh = $neb->open( $fname, 'read' ) or die "can't open file";
         close $fh;
-        $idata->unlock( $fname, 'read' );
+        $neb->unlock( $fname, 'read' );
 
-        $idata->replicate( $fname );
-        $idata->cull( $fname );
-        $idata->find( $fname );
-        $idata->copy( $fname, $fname . "_copy" );
-        $idata->move( $fname, $fname . "_move" );
-        $idata->delete( $fname . "_copy" );
-        $idata->delete( $fname . "_move" );
+        $neb->replicate( $fname );
+        $neb->cull( $fname );
+        $neb->find( $fname );
+        $neb->copy( $fname, $fname . "_copy" );
+        $neb->move( $fname, $fname . "_move" );
+        $neb->delete( $fname . "_copy" );
+        $neb->delete( $fname . "_move" );
 
         exit 0;