fix typo: Calender -> Calendar

1 files changed, 223 insertions, 0 deletions

diff --git a/fml/lib/FML/Process/Calendar.pm b/fml/lib/FML/Process/Calendar.pm
new file mode 100644
index 00000000..f67cd5b3
--- /dev/null
+++ b/fml/lib/FML/Process/Calendar.pm
@@ -0,0 +1,223 @@
+#-*- perl -*-
+#
+# Copyright (C) 2002,2003 Ken'ichi Fukamachi
+#          All rights reserved.
+#
+# $FML: Calendar.pm,v 1.12 2003/01/29 11:34:33 fukachan Exp $
+#
+
+package FML::Process::Calendar;
+
+use vars qw($debug @ISA @EXPORT @EXPORT_OK);
+use strict;
+use Carp;
+
+use FML::Process::Kernel;
+@ISA = qw(FML::Process::Kernel);
+
+=head1 NAME
+
+FML::Process::Calendar -- demonstration of FML module usage
+
+=head1 SYNOPSIS
+
+    use FML::Process::Calendar;
+    $curproc = new FML::Process::Calendar;
+    $curproc->run();
+
+=head1 DESCRIPTION
+
+FML::Process::Calendar is a demonstration module to show fml module
+usage.  This module provides calendar presentation as a simple
+scheduler based on Calendar::Lite class.
+
+=head1 METHODS
+
+=head2 C<new($args)>
+
+standard constructor.
+
+=head2 C<prepare($args)>
+
+dummy.
+
+=head2 C<verify_request($args)>
+
+dummy.
+
+=cut
+
+
+# Descriptions: dummy constructor.
+#               avoid the default fml new() since we do not need it.
+#    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: load default configurations to use $path_* info.
+#    Arguments: OBJ($curproc) HASH_REF($args)
+# Side Effects: none
+# Return Value: none
+sub prepare
+{ 
+    my ($curproc, $args) = @_;
+
+    # load default configurations.
+    use FML::Config;
+    $curproc->{ config } = new FML::Config;
+    $curproc->load_config_files( $args->{ cf_list } );
+}
+
+
+# Descriptions: dummy
+#    Arguments: OBJ($self) HASH_REF($args)
+# Side Effects: none
+# Return Value: none
+sub verify_request { 1; }
+
+
+# Descriptions: dummy
+#    Arguments: OBJ($self) HASH_REF($args)
+# Side Effects: none
+# Return Value: none
+sub finish         { 1; }
+
+
+# Descriptions: prepare parameters and call Calendar::Lite module.
+#               we use w3m to show calendar (HTML table).
+#    Arguments: OBJ($curproc) HASH_REF($args)
+# Side Effects: create temporary file and remove it in the last
+# Return Value: none
+sub run
+{
+    my ($curproc, $args) = @_;
+    my $config = $curproc->config();
+    my $argv   = $args->{ argv };
+    my $option = $args->{ options };
+    my $mode   = 'text';
+
+    # -h or --help
+    if (defined $option->{ h } || defined $option->{ help }) {
+	return $curproc->help();
+    }
+
+    use FileHandle;
+    use Calendar::Lite;
+
+    # prepare new() argument
+    $mode             = $option->{ m } if defined $option->{ m };
+    my $schedule_dir  = $option->{ D } if defined $option->{ D };
+    my $schedule_file = $option->{ F } if defined $option->{ F };
+    my $schargs  = {
+	schedule_dir  => $schedule_dir,
+	schedule_file => undef,
+    };
+    my $schedule = new Calendar::Lite $schargs;
+
+    # prepare output channel
+    my $tmpf     = $schedule->tmpfilepath;
+    my $wh       = new FileHandle $tmpf, "w";
+
+    # set output mode
+    $schedule->set_mode( $mode );
+
+    # -a option: show three calendar for this, next and last month.
+    if (defined($option->{ a })) {
+	for my $month ('this', 'next', 'last') {
+	    $schedule->print_specific_month($wh, $month);
+	}
+    }
+    # if "month" option is specified as an argument,
+    # show the corresponding calendar.
+    elsif (defined(@$argv) && @$argv) {
+	# ($month, $yeer) = @$argv;
+	$schedule->print_specific_month($wh, @$argv);
+    }
+    # show this month calendar by default.
+    else {
+	$schedule->print_specific_month($wh, 'this');
+    }
+
+    $wh->close;
+
+    # XXX-TODO: use $path_w3m not w3m
+    if ($mode eq 'text') {
+	my $w3m = $config->{ path_w3m } || 'w3m';
+	system "$w3m -dump $tmpf";
+    }
+    # XXX-TODO: use $path_cat not cat
+    else {
+	$curproc->cat( [ $tmpf ] );
+    }
+
+    unlink $tmpf if -f $tmpf;
+}
+
+
+
+# Descriptions: show help
+#    Arguments: OBJ($curproc)
+# Side Effects: none
+# Return Value: none
+sub help
+{
+    my ($curproc) = @_;
+
+    my $name = $0;
+    eval q{ use File::Basename;
+	    $name = basename($0);
+	    if ($name =~ /(\w+)$/) { $name = $1;}
+	};
+
+print <<"_EOF_";
+
+Usage: $name [-a] [-m mode] [month] [year]
+
+           show this month if not specified.
+
+-h         show this help
+-a         show calendar at this, next and last month
+-m mode    mode is 'text' or 'html'
+-D DIR     alternative of ~/.schedule/
+-F FILE    specify schedule file to read
+
+--debug    debug mode on
+
+_EOF_
+}
+
+
+=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,2003 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::Calendar first appeared in fml8 mailing list driver package.
+See C<http://www.fml.org/> for more details.
+
+C<FML::Process::Scheduler> is renamed to C<FML::Process::Calendar>.
+
+=cut
+
+
+1;