remove ErrorStatus, FML::Command::Utils;

define new()
call User::Command::XXX without lock since already locked now.

1 files changed, 16 insertions, 7 deletions

diff --git a/fml/lib/FML/Command/User/confirm.pm b/fml/lib/FML/Command/User/confirm.pm
index 4dc4334c..6c83b7b9 100644
--- a/fml/lib/FML/Command/User/confirm.pm
+++ b/fml/lib/FML/Command/User/confirm.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: confirm.pm,v 1.5 2002/02/13 10:41:17 fukachan Exp $
+# $FML: confirm.pm,v 1.6 2002/02/17 08:13:25 fukachan Exp $
 #
 
 package FML::Command::User::confirm;
@@ -12,11 +12,6 @@ use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
 use Carp;
 
-use ErrorStatus;
-use FML::Command::Utils;
-use FML::Log qw(Log LogWarn LogError);
-@ISA = qw(FML::Command::Utils ErrorStatus);
-
 
 =head1 NAME
 
@@ -37,6 +32,19 @@ real process after confirmation succeeds.
 =cut
 
 
+# Descriptions: standard constructor
+#    Arguments: OBJ($self)
+# Side Effects: none
+# Return Value: OBJ
+sub new
+{
+    my ($self) = @_;
+    my ($type) = ref($self) || $self;
+    my $me     = {};
+    return bless $me, $type;
+}
+
+
 # Descriptions: need lock or not
 #    Arguments: none
 # Side Effects: none
@@ -87,7 +95,7 @@ sub process
 	}
     }
     else {
-	croak("no such confirmation request");
+	croak("no such confirmation request id=$id");
     }
 }
 
@@ -114,6 +122,7 @@ sub _switch_command
 	$class eq 'chaddr') {
 	$command_args->{ address }      = $address;
 	$command_args->{ command_mode } = 'Admin';
+	$command_args->{ override_need_no_lock } = 1; # already locked
 	$obj->$class($curproc, $command_args);
     }
     else {