From 5cdb01bb9f2cebdde7b59a3d0d4867f63cfa6510 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Sun, 18 Nov 2001 08:57:29 +0000
Subject: fmlthread db_dump $ml [$type] to dump hash table as text for e.g.
 backup

---
 fml/lib/FML/Process/ThreadTrack.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'fml/lib/FML/Process/ThreadTrack.pm')

diff --git a/fml/lib/FML/Process/ThreadTrack.pm b/fml/lib/FML/Process/ThreadTrack.pm
index c7742383..79883f38 100644
--- a/fml/lib/FML/Process/ThreadTrack.pm
+++ b/fml/lib/FML/Process/ThreadTrack.pm
@@ -4,7 +4,7 @@
 # Copyright (C) 2000-2001 Ken'ichi Fukamachi
 #          All rights reserved. 
 #
-# $FML: ThreadTrack.pm,v 1.12 2001/11/11 13:37:41 fukachan Exp $
+# $FML: ThreadTrack.pm,v 1.13 2001/11/18 06:42:17 fukachan Exp $
 #
 
 package FML::Process::ThreadTrack;
@@ -113,6 +113,12 @@ sub run
 	my $str = defined $argv->[2] ? $argv->[ 2 ] : 'last:100';
 	$thread->review( $str , 1, $max_id );
     }
+    elsif ($command eq 'db_dump') {
+	my $type = defined $argv->[ 2 ] ? $argv->[ 2 ] : 'status';
+	$thread->db_open();
+	$thread->db_dump( $type );
+	$thread->db_close();
+    }
     elsif ($command eq 'db_rebuild') {
 	print STDERR "\$thread->db_mkdb(1, $max_id);\n" if $ENV{'debug'};
 	$thread->db_mkdb(1, $max_id);
-- 
cgit v1.2.1