fmlsummary is obsolete.

7 files changed, 5 insertions, 295 deletions

diff --git a/configure.in b/configure.in
index 2772de85..0688afe7 100644
--- a/configure.in
+++ b/configure.in
@@ -1,5 +1,5 @@
 dnl
-dnl $FML: configure.in,v 1.32 2003/01/28 04:13:32 fukachan Exp $
+dnl $FML: configure.in,v 1.33 2003/03/14 03:44:14 fukachan Exp $
 dnl
 AC_REVISION($Revision$)
 
@@ -132,7 +132,6 @@ AC_OUTPUT(\
 	fml/bin/fmlerror \
 	fml/bin/fmlhtmlify \
 	fml/bin/fmlsch \
-	fml/bin/fmlsummary \
 	fml/bin/fmlthread \
 	fml/bin/fmlspool \
 	fml/bin/fml \
diff --git a/fml/etc/command_line_options b/fml/etc/command_line_options
index 3e7f7e88..2139aa2c 100644
--- a/fml/etc/command_line_options
+++ b/fml/etc/command_line_options
@@ -1,5 +1,5 @@
 #
-# $FML: command_line_options,v 1.1 2003/03/06 12:34:23 fukachan Exp $
+# $FML: command_line_options,v 1.2 2003/03/14 03:44:15 fukachan Exp $
 #
 # map between programs and options
 #
@@ -24,7 +24,6 @@ fmldoc		debug! help! params=s -c=s v! t! u! m! l!
 fmlerror	debug! help!
 fmlhtmlify	debug! help! -I=s
 fmlspool	debug! help! -I=s convert! style=s srcdir=s
-fmlsummary	debug! help! -c=s n!
 fmlthread	debug! help! article_id_max=i spool_dir=s base_url=s msg_base_url=s reverse! params=s -f=s -c=s
 makefml		debug! help! force! params=s -c=s
 
diff --git a/fml/etc/default_config.cf.ja.in b/fml/etc/default_config.cf.ja.in
index 146c4b22..e4f0df75 100644
--- a/fml/etc/default_config.cf.ja.in
+++ b/fml/etc/default_config.cf.ja.in
@@ -1913,14 +1913,6 @@ sql_find	=	select fml_address from $sql_table
 # $fmlspool_run_start_hook = q{ 1;};
 # $fmlspool_verify_request_end_hook = q{ 1;};
 # $fmlspool_verify_request_start_hook = q{ 1;};
-# $fmlsummary_finish_end_hook = q{ 1;};
-# $fmlsummary_finish_start_hook = q{ 1;};
-# $fmlsummary_prepare_end_hook = q{ 1;};
-# $fmlsummary_prepare_start_hook = q{ 1;};
-# $fmlsummary_run_end_hook = q{ 1;};
-# $fmlsummary_run_start_hook = q{ 1;};
-# $fmlsummary_verify_request_end_hook = q{ 1;};
-# $fmlsummary_verify_request_start_hook = q{ 1;};
 # $fmlthread_finish_end_hook = q{ 1;};
 # $fmlthread_finish_start_hook = q{ 1;};
 # $fmlthread_prepare_end_hook = q{ 1;};
diff --git a/fml/etc/install.cf.in b/fml/etc/install.cf.in
index ca6abbea..a8e8d94e 100644
--- a/fml/etc/install.cf.in
+++ b/fml/etc/install.cf.in
@@ -3,7 +3,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: install.cf.in,v 1.6 2003/03/11 06:20:51 fukachan Exp $
+# $FML: install.cf.in,v 1.7 2003/03/14 03:44:15 fukachan Exp $
 #
 
 
@@ -95,7 +95,6 @@ bin_programs	=	fml
 			fmlsch
 			fmlhtmlify
 			fmlspool
-			fmlsummary
 
 
 libexec_programs 	=	fml.pl
diff --git a/fml/etc/modules b/fml/etc/modules
index 0eec37ad..82977ba7 100644
--- a/fml/etc/modules
+++ b/fml/etc/modules
@@ -1,5 +1,5 @@
 #
-# $FML: modules,v 1.1 2003/03/06 11:29:11 fukachan Exp $
+# $FML: modules,v 1.2 2003/03/14 03:44:15 fukachan Exp $
 #
 # map between programs and modules (like /etc/name_to_sysnum on solaris ?)
 #
@@ -25,7 +25,7 @@ fmldoc			FML::Process::DocViewer
 fmlerror		FML::Process::ErrorViewer	$ml
 fmlhtmlify		FML::Process::HTMLify		$ml
 fmlspool		FML::Process::Spool		$ml
-fmlsummary		FML::Process::Summary		$ml
+fmlsummary		FML::Process::Obsolete		$ml
 fmlsuper		FML::Process::Obsolete		$ml
 fmlthread		FML::Process::ThreadTrack	$ml
 makefml			FML::Process::Configure		$command $ml $opts
diff --git a/fml/etc/src/hooks.cf b/fml/etc/src/hooks.cf
index 34114436..7922ff31 100644
--- a/fml/etc/src/hooks.cf
+++ b/fml/etc/src/hooks.cf
@@ -92,14 +92,6 @@
 # $fmlspool_run_start_hook = q{ 1;};
 # $fmlspool_verify_request_end_hook = q{ 1;};
 # $fmlspool_verify_request_start_hook = q{ 1;};
-# $fmlsummary_finish_end_hook = q{ 1;};
-# $fmlsummary_finish_start_hook = q{ 1;};
-# $fmlsummary_prepare_end_hook = q{ 1;};
-# $fmlsummary_prepare_start_hook = q{ 1;};
-# $fmlsummary_run_end_hook = q{ 1;};
-# $fmlsummary_run_start_hook = q{ 1;};
-# $fmlsummary_verify_request_end_hook = q{ 1;};
-# $fmlsummary_verify_request_start_hook = q{ 1;};
 # $fmlthread_finish_end_hook = q{ 1;};
 # $fmlthread_finish_start_hook = q{ 1;};
 # $fmlthread_prepare_end_hook = q{ 1;};
diff --git a/fml/lib/FML/Process/Summary.pm b/fml/lib/FML/Process/Summary.pm
deleted file mode 100644
index f64f4c96..00000000
--- a/fml/lib/FML/Process/Summary.pm
+++ /dev/null
@@ -1,271 +0,0 @@
-#-*- perl -*-
-#
-# Copyright (C) 2002 Ken'ichi Fukamachi
-#          All rights reserved.
-#
-# $FML: Summary.pm,v 1.3 2002/11/26 10:47:22 fukachan Exp $
-#
-
-package FML::Process::Summary;
-
-use strict;
-use Carp;
-use vars qw($debug @ISA @EXPORT @EXPORT_OK);
-use FML::Log qw(Log LogWarn LogError);
-use FML::Config;
-use FML::Process::Kernel;
-@ISA = qw(FML::Process::Kernel);
-
-
-=head1 NAME
-
-FML::Process::Summary -- maintain article summary
-
-=head1 SYNOPSIS
-
-    use FML::Process::Summary;
-    $curproc = new FML::Process::Summary;
-    $curproc->run();
-
-=head1 DESCRIPTION
-
-FML::Process::Summary provides the main function for C<fmlsummary>.
-
-See C<FML::Process::Flow> for the flow detail.
-
-=head1 METHODS
-
-=head2 C<new($args)>
-
-constructor.
-It make a C<FML::Process::Kernel> object and return it.
-
-=head2 C<prepare($args)>
-
-adjust ml_* variables, load config files and fix @INC.
-
-=head2 C<verify_request($args)>
-
-show help if enough arguments not specified.
-
-=cut
-
-
-# Descriptions: ordinary constructor
-#    Arguments: OBJ($self) HASH_REF($args)
-# Side Effects: none
-# Return Value: OBJ
-sub new
-{
-    my ($self, $args) = @_;
-    my $type    = ref($self) || $self;
-    my $curproc = new FML::Process::Kernel $args;
-    return bless $curproc, $type;
-}
-
-
-# Descriptions: dummy
-#    Arguments: OBJ($curproc) HASH_REF($args)
-# Side Effects: none
-# Return Value: none
-sub prepare
-{
-    my ($curproc, $args) = @_;
-    my $config = $curproc->{ config };
-
-    my $eval = $config->get_hook( 'fmlsummary_prepare_start_hook' );
-    if ($eval) { eval qq{ $eval; }; LogWarn($@) if $@; }
-
-    $curproc->resolve_ml_specific_variables( $args );
-    $curproc->load_config_files( $args->{ cf_list } );
-    $curproc->fix_perl_include_path();
-
-    $eval = $config->get_hook( 'fmlsummary_prepare_end_hook' );
-    if ($eval) { eval qq{ $eval; }; LogWarn($@) if $@; }
-}
-
-
-# Descriptions: check @ARGV, call help() if needed.
-#    Arguments: OBJ($curproc) HASH_REF($args)
-# Side Effects: exit ASAP.
-#               longjmp() to help() if appropriate
-# Return Value: none
-sub verify_request
-{
-    my ($curproc, $args) = @_;
-    my $argv   = $curproc->command_line_argv();
-    my $len    = $#$argv;
-    my $config = $curproc->{ config };
-
-    my $eval = $config->get_hook( 'fmlsummary_verify_request_start_hook' );
-    if ($eval) { eval qq{ $eval; }; LogWarn($@) if $@; }
-
-    if ($len < 1) {
-	print STDERR "Error: missing argument(s)\n";
-	$curproc->help();
-	exit(0);
-    }
-
-    $eval = $config->get_hook( 'fmlsummary_verify_request_end_hook' );
-    if ($eval) { eval qq{ $eval; }; LogWarn($@) if $@; }
-}
-
-
-=head2 C<run($args)>
-
-the top level dispatcher for C<fmlconf> and C<fmlsummary>.
-
-It kicks off internal function
-C<_fmlconf($args)> for C<fmlconf>
-    and
-C<_fmlsummary($args)> for fmlsummary.
-
-NOTE:
-C<$args> is passed from parrent libexec/loader.
-See <FML::Process::Switch()> on C<$args> for more details.
-
-=cut
-
-
-# Descriptions: just a switch, call _fmlsummary().
-#    Arguments: OBJ($curproc) HASH_REF($args)
-# Side Effects: none
-# Return Value: none
-sub run
-{
-    my ($curproc, $args) = @_;
-
-    $curproc->_fmlsummary($args);
-}
-
-
-# Descriptions: dummy
-#    Arguments: OBJ($curproc) HASH_REF($args)
-# Side Effects: none
-# Return Value: none
-sub finish
-{
-    my ($curproc, $args) = @_;
-    my $config = $curproc->{ config };
-
-    my $eval = $config->get_hook( 'fmlsummary_finish_start_hook' );
-    if ($eval) { eval qq{ $eval; }; LogWarn($@) if $@; }
-
-    $eval = $config->get_hook( 'fmlsummary_finish_end_hook' );
-    if ($eval) { eval qq{ $eval; }; LogWarn($@) if $@; }
-}
-
-
-=head2 help()
-
-show help.
-
-=cut
-
-
-# Descriptions: show help
-#    Arguments: none
-# Side Effects: none
-# Return Value: none
-sub help
-{
-    my $name = $0;
-    eval {
-	use File::Basename;
-	$name = basename($0);
-    };
-
-print <<"_EOF_";
-
-Usage: $name \$command \$ml_name [options]
-
-$name help         \$ml_name                   show this help
-
-$name rebuild      \$ml_name                   rebuild summary file.
-
-_EOF_
-}
-
-
-=head2 C<_fmlsummary($args)> (INTERNAL USE)
-
-the main switch of C<fmlsummary> command.
-
-C<Caution:>
-C<$args> is passed from parrent libexec/loader.
-We construct a new struct C<$command_args> here to pass parameters
-to child objects.
-C<FML::Command::$command> object takes them as arguments not pure
-C<$args>. It is a little mess. Pay attention.
-
-See <FML::Process::Switch()> on C<$args> for more details.
-
-=cut
-
-
-# Descriptions: fmlsummary top level dispacher
-#    Arguments: OBJ($curproc) HASH_REF($args)
-# Side Effects: load FML::Command::command module and execute it.
-# Return Value: none
-sub _fmlsummary
-{
-    my ($curproc, $args) = @_;
-    my $config  = $curproc->{ config };
-    my $myname  = $curproc->myname();
-    my $argv    = $curproc->command_line_argv();
-    my $id_max  = $curproc->article_id_max();
-
-    my $eval = $config->get_hook( 'fmlsummary_run_start_hook' );
-    if ($eval) { eval qq{ $eval; }; LogWarn($@) if $@; }
-
-    use FML::Article::Summary;
-    my $summary = new FML::Article::Summary $curproc;
-
-    my ($method, $argv_ml_name, @options) =  @$argv;
-
-    if ($method eq 'update') {
-	LogError("update not implemented");
-    }
-    elsif ($method eq 'rebuild') {
-	$summary->rebuild(1, $id_max);
-    }
-    else {
-	if ($method) {
-	    LogError("unknown method=$method");
-	    print STDERR "Error: unknown method=$method\n";
-	}
-	else {
-	    LogError("method not given");
-	    print STDERR "Error: method not given\n";
-	}
-    }
-
-    $eval = $config->get_hook( 'fmlsummary_run_end_hook' );
-    if ($eval) { eval qq{ $eval; }; LogWarn($@) if $@; }
-}
-
-
-=head1 CODING STYLE
-
-See C<http://www.fml.org/software/FNF/> on fml coding style guide.
-
-=head1 AUTHOR
-
-Ken'ichi Fukamachi
-
-=head1 COPYRIGHT
-
-Copyright (C) 2002 Ken'ichi Fukamachi
-
-All rights reserved. This program is free software; you can
-redistribute it and/or modify it under the same terms as Perl itself.
-
-=head1 HISTORY
-
-FML::Process::Summary first appeared in fml8 mailing list driver package.
-See C<http://www.fml.org/> for more details.
-
-=cut
-
-
-1;