separete database part in FML::Confirm to FML::Cache::Journal which

can be shared between other modules.

change FML::Confirm::new() to take $curproc.

6 files changed, 12 insertions, 12 deletions

diff --git a/fml/lib/FML/Command/User/chaddr.pm b/fml/lib/FML/Command/User/chaddr.pm
index e56f8b28..66cf9f55 100644
--- a/fml/lib/FML/Command/User/chaddr.pm
+++ b/fml/lib/FML/Command/User/chaddr.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: chaddr.pm,v 1.22 2003/08/29 15:34:00 fukachan Exp $
+# $FML: chaddr.pm,v 1.23 2003/10/17 14:00:52 fukachan Exp $
 #
 
 package FML::Command::User::chaddr;
@@ -116,7 +116,7 @@ sub process
 
 	# XXX-TODO: should be FML::Confirm { ... address => [ @addr ] } ?
 	use FML::Confirm;
-	my $confirm = new FML::Confirm {
+	my $confirm = new FML::Confirm $curproc, {
 	    keyword   => $keyword,
 	    cache_dir => $cache_dir,
 	    class     => 'chaddr',
diff --git a/fml/lib/FML/Command/User/confirm.pm b/fml/lib/FML/Command/User/confirm.pm
index 5dab826b..6002b102 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.24 2003/08/29 15:34:00 fukachan Exp $
+# $FML: confirm.pm,v 1.25 2003/11/17 13:06:12 fukachan Exp $
 #
 
 package FML::Command::User::confirm;
@@ -103,7 +103,7 @@ sub process
     }
 
     use FML::Confirm;
-    my $confirm = new FML::Confirm {
+    my $confirm = new FML::Confirm $curproc, {
 	keyword   => $keyword,
 	cache_dir => $cache_dir,
 	class     => $class,
diff --git a/fml/lib/FML/Command/User/off.pm b/fml/lib/FML/Command/User/off.pm
index f5a13769..8cf3db33 100644
--- a/fml/lib/FML/Command/User/off.pm
+++ b/fml/lib/FML/Command/User/off.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: off.pm,v 1.10 2003/08/23 07:24:44 fukachan Exp $
+# $FML: off.pm,v 1.11 2003/08/29 15:34:00 fukachan Exp $
 #
 
 package FML::Command::User::off;
@@ -108,7 +108,7 @@ sub process
 	$curproc->log("off request, try confirmation");
 
         use FML::Confirm;
-	my $confirm = new FML::Confirm {
+	my $confirm = new FML::Confirm $curproc, {
 	    keyword   => $keyword,
 	    cache_dir => $cache_dir,
 	    class     => 'off',
diff --git a/fml/lib/FML/Command/User/on.pm b/fml/lib/FML/Command/User/on.pm
index 3703eb4f..35128b6f 100644
--- a/fml/lib/FML/Command/User/on.pm
+++ b/fml/lib/FML/Command/User/on.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: on.pm,v 1.10 2003/08/23 07:24:44 fukachan Exp $
+# $FML: on.pm,v 1.11 2003/08/29 15:34:00 fukachan Exp $
 #
 
 package FML::Command::User::on;
@@ -110,7 +110,7 @@ sub process
     else {
 	$curproc->log("on request, try confirmation");
 	use FML::Confirm;
-	my $confirm = new FML::Confirm {
+	my $confirm = new FML::Confirm $curproc, {
 	    keyword   => $keyword,
 	    cache_dir => $cache_dir,
 	    class     => 'on',
diff --git a/fml/lib/FML/Command/User/subscribe.pm b/fml/lib/FML/Command/User/subscribe.pm
index 370db4cc..343cb07c 100644
--- a/fml/lib/FML/Command/User/subscribe.pm
+++ b/fml/lib/FML/Command/User/subscribe.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: subscribe.pm,v 1.21 2003/08/23 07:24:44 fukachan Exp $
+# $FML: subscribe.pm,v 1.22 2003/08/29 15:34:01 fukachan Exp $
 #
 
 package FML::Command::User::subscribe;
@@ -103,7 +103,7 @@ sub process
     else {
 	$curproc->log("new subscriber, try confirmation");
 	use FML::Confirm;
-	my $confirm = new FML::Confirm {
+	my $confirm = new FML::Confirm $curproc, {
 	    keyword   => $keyword,
 	    cache_dir => $cache_dir,
 	    class     => 'subscribe',
diff --git a/fml/lib/FML/Command/User/unsubscribe.pm b/fml/lib/FML/Command/User/unsubscribe.pm
index d9e9123e..6a17305a 100644
--- a/fml/lib/FML/Command/User/unsubscribe.pm
+++ b/fml/lib/FML/Command/User/unsubscribe.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: unsubscribe.pm,v 1.21 2003/08/23 07:24:44 fukachan Exp $
+# $FML: unsubscribe.pm,v 1.22 2003/08/29 15:34:01 fukachan Exp $
 #
 
 package FML::Command::User::unsubscribe;
@@ -101,7 +101,7 @@ sub process
 	$curproc->log("unsubscribe request, try confirmation");
 
         use FML::Confirm;
-	my $confirm = new FML::Confirm {
+	my $confirm = new FML::Confirm $curproc, {
 	    keyword   => $keyword,
 	    cache_dir => $cache_dir,
 	    class     => 'unsubscribe',