Changeset 17643

Timestamp:

May 12, 2008, 2:09:06 PM (18 years ago)

Author:

jhoblitt

Message:

modernize neb-touch API calls

Location:

trunk/Nebulous

Files:

• Changes (modified) (1 diff)
• bin/neb-touch (modified) (4 diffs)

trunk/Nebulous/Changes

@@ -2 +2 @@
 
 0.09
+    - modernize neb-touch API calls
     - change Nebulous::Client->replicate() to check the md5sum of the
       replicated file and to not leave empty instances laying around if there

trunk/Nebulous/bin/neb-touch

@@ -3 +3 @@
 # Copyright (C) 2007-2008  Joshua Hoblitt
 #
-# $Id: neb-touch,v 1.7 2008-01-25 20:54:04 jhoblitt Exp $
+# $Id: neb-touch,v 1.8 2008-05-13 00:09:06 jhoblitt Exp $
 
 use strict;
@@ -25 +25 @@
 ) || pod2usage( 2 );
 
-my $file = shift;
+my $key = shift;
 
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
@@ -31 +31 @@
     unless $server;
 pod2usage( -msg => "missing file operand", exitval => 2 )
-    unless defined $file;
+    unless defined $key;
 
 my $neb = Nebulous::Client->new(
@@ -40 +40 @@
     unless defined $neb;
 
-unless (scalar @{$neb->find_objects($file)}) {
-    if (defined $volume) {
-        $neb->create($file, $volume)
-            or die "failed to create Nebulous key $file";
-    } else {
-        $neb->create($file)
-            or die "failed to create Nebulous key $file";
-    }
+unless ($neb->stat($key)) {
+    my $fh = $neb->create($key, $volume)
+        or die "failed to create Nebulous key: $key";
 }