Changeset 13092 for trunk/Nebulous-Server/lib/Nebulous/Server.pm

Timestamp:

Apr 30, 2007, 4:52:04 PM (19 years ago)

Author:

jhoblitt

Message:

remove $class_id & $comment params from Nebulous::Server->create() and Nebulous::Client->create*() and all supporting functions and tests

File:

• trunk/Nebulous-Server/lib/Nebulous/Server.pm (modified) (5 diffs)

trunk/Nebulous-Server/lib/Nebulous/Server.pm

@@ -1 +1 @@
 # Copyright (c) 2004  Joshua Hoblitt
 #
-# $Id: Server.pm,v 1.27 2007-05-01 02:00:07 jhoblitt Exp $
+# $Id: Server.pm,v 1.28 2007-05-01 02:52:04 jhoblitt Exp $
 
 package Nebulous::Server;
@@ -123 +123 @@
     my $self = shift;
 
-    my ( $key, $class, $volume, $comment ) = validate_pos( @_,
-        {
-            type        => SCALAR,
-        },
-        {
-            type        => SCALAR,
-            callbacks   => {
-                'is + integer' => sub { $_[0] =~ /^\d+$/ },
-                # check that the class requested is valid
-                'is valid class id' => sub { $self->_is_valid_class_id( $_[0] ) },
-            },
-            default     => 0,
+    my ($key, $volume) = validate_pos(@_,
+        {
+            type        => SCALAR,
         },
         {
@@ -144 +135 @@
             optional    => 1,
         },
-        {
-            type        => SCALAR,
-            callbacks   => {
-                # check that the comment isn't too long
-                'comment length' => sub { length $_[0] < 256 },
-            },
-            optional    => 1,
-        },
     );
 
@@ -185 +168 @@
             # create storage_object_attr
             my $query = $db->prepare_cached( $sql->new_object_attr ); 
-            $query->execute( $object_id, $class, $comment );
+            $query->execute( $object_id );
         }
 
@@ -1070 +1053 @@
 }
 
-sub _is_valid_class_id {
-    my ($self, $class_id) = @_;
-
-    my $log = $self->log;
-    my $sql = $self->sql;
-    my $db  = $self->db;
-
-    my $class;
-    eval {
-        my $query = $db->prepare_cached( $sql->get_class_by_id ); 
-        $query->execute( $class_id );
-        ( $class ) = $query->fetchrow_array;
-
-        $query->finish;
-    };
-    if ( $@ ) {
-        $db->rollback;
-        $log->logdie( "database error: $@" );
-    }
-
-    return ( defined $class ) ? 1 : undef;
-}
-
 sub _is_valid_volume_name  {
     my ($self, $vol_name) = @_;