fix typo: rename Calender -> Calendar

2 files changed, 11 insertions, 450 deletions

diff --git a/fml/lib/Calendar/Lite.pm b/fml/lib/Calendar/Lite.pm
index d173869d..1f62c695 100644
--- a/fml/lib/Calendar/Lite.pm
+++ b/fml/lib/Calendar/Lite.pm
@@ -4,22 +4,22 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Lite.pm,v 1.11 2003/01/25 09:34:43 fukachan Exp $
+# $FML: Lite.pm,v 1.12 2003/01/25 12:48:17 fukachan Exp $
 #
 
-package Calender::Lite;
+package Calendar::Lite;
 use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
 use Carp;
 
 =head1 NAME
 
-Calender::Lite - show a calender (demonstration module)
+Calendar::Lite - show a calendar (demonstration module)
 
 =head1 SYNOPSIS
 
-    use Calender::Lite;
-    my $schedule = new Calender::Lite;
+    use Calendar::Lite;
+    my $schedule = new Calendar::Lite;
 
     $schedule->parse;
 
@@ -178,7 +178,7 @@ Parse files in ~/.schedule/ or the specified schedule file.
 
 # Descriptions: parse filee(s).
 #    Arguments: OBJ($self) HASH_REF($args)
-# Side Effects: update calender entries in $self object
+# Side Effects: update calendar entries in $self object
 #               (actually by _add_entry() calleded here)
 # Return Value: none
 sub parse
@@ -281,7 +281,7 @@ sub _analyze
 }
 
 
-# Descriptions: add calender entry to $self object
+# Descriptions: add Calendar entry to $self object
 #    Arguments: OBJ($self) STR($day) STR($buf)
 # Side Effects: update $self object
 # Return Value: none
@@ -303,7 +303,7 @@ You can specify the output channel by file descriptor C<$fd>.
 =cut
 
 
-# Descriptions: print calender by HTML::CalenderMonthSimple::as_HTML()
+# Descriptions: print Calendar by HTML::CalendarMonthSimple::as_HTML()
 #               method.
 #    Arguments: OBJ($self) HANDLE($fd)
 # Side Effects: none
@@ -330,7 +330,7 @@ C<$n> is number or string among C<this>, C<next> and C<last>.
 =cut
 
 
-# Descriptions: print calender for specific month as HTML.
+# Descriptions: print Calendar for specific month as HTML.
 #    Arguments: OBJ($self) HANDLE($fh) STR($month) [STR($year)]
 # Side Effects: none
 # Return Value: none
@@ -427,11 +427,11 @@ redistribute it and/or modify it under the same terms as Perl itself.
 
 =head1 HISTORY
 
-Calender::Lite first appeared in fml8 mailing list driver package.
+Calendar::Lite first appeared in fml8 mailing list driver package.
 See C<http://www.fml.org/> for more details.
 
 Firstly this module name is C<TinyScheduler.pm> and renamed to
-Calender::Lite later.
+Calendar::Lite later.
 
 =cut
 
diff --git a/fml/lib/Calender/Lite.pm b/fml/lib/Calender/Lite.pm
deleted file mode 100644
index d173869d..00000000
--- a/fml/lib/Calender/Lite.pm
+++ /dev/null
@@ -1,439 +0,0 @@
-#-*- perl -*-
-#
-#  Copyright (C) 2001,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.
-#
-# $FML: Lite.pm,v 1.11 2003/01/25 09:34:43 fukachan Exp $
-#
-
-package Calender::Lite;
-use strict;
-use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
-use Carp;
-
-=head1 NAME
-
-Calender::Lite - show a calender (demonstration module)
-
-=head1 SYNOPSIS
-
-    use Calender::Lite;
-    my $schedule = new Calender::Lite;
-
-    $schedule->parse;
-
-    # show table by w3m :-)
-    my $tmp = $schedule->tmpfilepath;
-    my $fh  = new FileHandle $tmp, "w";
-    if (defined $wh) {
-	$schedule->print($fh);
-	$fh->close;
-    }
-
-    system "w3m -dump $tmp";
-    unlink $tmp if -f $tmp;
-
-=head1 DESCRIPTION
-
-C<CAUTION:> This module is created just for a demonstration to show
-how to write a module based on FML::Process::* not intended for your
-general use. This module is not enough mature nor secure.
-
-C<Calenter::lite> is also a demonstration module to show how to use
-and build up modules to couple with CPAN and FML modules.  This
-routine needs C<HTML::CalendarMonthSimple>.
-
-It parses files in ~/.schedule/ and output the schedule of this month
-as HTML TABLE by default. To see it, you need a WWW browser
-e.g. "w3m".
-
-
-=head1 METHODS
-
-=head2 new($args)
-
-The standard constructor.
-
-It speculates C<user> by $args->{ user } or $ENV{'USER'} or UID
-and determine the path for ~user/.schedule/.
-
-$args can take the following variables:
-
-   $args = {
-       schedule_dir   => DIR,
-       schedule_file  => FILE,
-       mode           => MODE,
-   };
-
-C<CAUTION:>
-   The string for ~user is restricted to ^[-\w\d\.\/_]+$.
-
-   PATH is reset at the last of new() method.
-
-=cut
-
-
-# Descriptions: usual constructor. $args is optional, passed via CGI.pm
-#               if fmlsci.cgi uses.
-#                    OR
-#               libexec/loaders's $args if fmlsch uses.
-#    Arguments: OBJ($self) HASH_REF($args)
-# Side Effects: none
-# Return Value: OBJ
-sub new
-{
-    my ($self, $args) = @_;
-    my ($type) = ref($self) || $self;
-    my $me     = {};
-    my $user   = defined $args->{ user } ? $args->{ user } : $ENV{'USER'};
-
-    # default directory to hold schdule file(s): ~/.schedule/ by default
-    use User::pwent;
-    unless (defined $user) {
-	my $p = getpwuid($<);
-	$user = $p->name;
-    }
-
-    my $pw       = getpwnam($user);
-    my $home_dir = $pw->dir;
-
-    # simple check (not enough mature).
-    # This code is not for security but to avoid -T (taint mode) error ;)
-    use FML::Restriction::Base;
-    my $safe = new FML::Restriction::Base;
-    unless ($safe->regexp_match('fullpath', $home_dir)) {
-	croak("invalid home directory string");
-    }
-
-    # search files under ~/.schedule/ by default.
-    use File::Spec;
-    $me->{ _user }          = $user;
-    $me->{ _schedule_dir }  = File::Spec->catfile($home_dir, ".schedule");
-    $me->{ _schedule_file } = undef;
-
-    for my $key ('schedule_dir', 'schedule_file', 'mode') {
-	if (defined $args->{ $key }) {
-	    $me->{ "_$key" } = $args->{ $key };
-	}
-    }
-
-    # reset PATH to execute w3m.
-    $ENV{'PATH'} = '/bin/:/usr/bin:/usr/pkg/bin:/usr/local/bin';
-
-    return bless $me, $type;
-}
-
-
-=head2 tmpfilepath($args)
-
-return a tmpfile path name.
-It creates just a file path not file itself.
-
-=cut
-
-
-# Descriptions: determine template file location
-#    Arguments: OBJ($self) HASH_REF($args)
-# Side Effects: none
-# Return Value: STR(filename)
-sub tmpfilepath
-{
-    my ($self, $args) = @_;
-    my $user   = $self->{ _user };
-    my $dir    = $self->{ _schedule_dir };
-    my $tmpdir = undef;
-
-    if (-w $dir) {
-	$tmpdir = $dir;
-    }
-    else {
-	croak("$dir not exists\n")      unless -d $dir;
-	croak("$dir is not writable\n") unless -w $dir;
-    }
-
-    # XXX we should not create a temporary file in the public area
-    # XXX such as /tmp/, so create it in ~/.schedule/.
-    if (defined $tmpdir) {
-	eval q{
-	    use File::Spec;
-	    $self->{ _tmpfile } = File::Spec->catfile($tmpdir, ".tmp.$$.html");
-	};
-	croak($@) if $@;
-
-	return $self->{ _tmpfile };
-    }
-    else {
-	croak("cannot determine \$tmpdir");
-    }
-}
-
-
-=head2 parse($args)
-
-Parse files in ~/.schedule/ or the specified schedule file.
-
-=cut
-
-
-# Descriptions: parse filee(s).
-#    Arguments: OBJ($self) HASH_REF($args)
-# Side Effects: update calender entries in $self object
-#               (actually by _add_entry() calleded here)
-# Return Value: none
-sub parse
-{
-    my ($self, $args) = @_;
-    my ($sec,$min,$hour,$mday,$month,$year,$wday) = localtime(time);
-
-    # get the date to show
-    $year  = defined $args->{ year }  ? $args->{ year }  : (1900 + $year);
-    $month = defined $args->{ month } ? $args->{ month } : ($month + 1);
-
-    # schedule file
-    my $data_dir  = $self->{ _schedule_dir };
-    my $data_file = $self->{ _schedule_file };
-
-    # pick up line matched with this pattern
-    my @pat = (
-	       sprintf("^%04d%02d(\\d{1,2})\\s+(.*)",   $year, $month),
-	       sprintf("^%04d/%02d/(\\d{1,2})\\s+(.*)", $year, $month),
-	       sprintf("^%04d/%d/(\\d{1,2})\\s+(.*)",   $year, $month),
-	       sprintf("^%02d(\\d{1,2})\\s+(.*)",  $month),
-	       sprintf("^%02d/(\\d{1,2})\\s+(.*)", $month),
-	       );
-
-    use HTML::CalendarMonthSimple;
-    my $cal = new HTML::CalendarMonthSimple('year'=> $year, 'month'=> $month);
-
-    if (defined $cal) {
-	$self->{ _schedule } = $cal;
-    }
-    else {
-	croak("cannot get object");
-    }
-
-    $cal->width('70%');
-    $cal->border(10);
-    $cal->header(sprintf("%04d/%02d %s",  $year, $month, "schedule"));
-    $cal->bgcolor('pink');
-
-    if ($data_file && -f $data_file) {
-	$self->_analyze($data_file, \@pat);
-    }
-    elsif (-d $data_dir) {
-	use DirHandle;
-	my $dh = new DirHandle $data_dir;
-
-	if (defined $dh) {
-	    use File::Spec;
-
-	    while (defined($_ = $dh->read)) {
-		next if $_ =~ /~$/;
-		next if $_ =~ /^\./;
-
-		my $schedule_file = File::Spec->catfile($data_dir, $_);
-		if (-f $schedule_file) {
-		    $self->_analyze($schedule_file, \@pat);
-		}
-	    }
-	}
-    }
-    else {
-	croak("invalid data");
-    }
-}
-
-
-# Descriptions: open, read specified $file and
-#               analyze the line which matches $pattern.
-#    Arguments: OBJ($self) STR($file) STR($pattern)
-# Side Effects: update $self object by _add_entry()
-# Return Value: none
-sub _analyze
-{
-    my ($self, $file, $pattern) = @_;
-
-    # ignore if the file not exists.
-    return unless -f $file;
-
-    use FileHandle;
-    my $fh = new FileHandle $file;
-
-    if (defined $fh) {
-      LINE:
-	while (<$fh>) {
-	    for my $pat (@$pattern) {
-		if (/$pat(.*)/) {
-		    $self->_add_entry($1, $2);
-		    next LINE;
-		}
-	    }
-
-	    # for example, "*/24 something"
-	    if (/^\*\/(\d+)\s+(.*)/) {
-		$self->_add_entry($1, $2);
-	    }
-	}
-
-	$fh->close();
-    }
-}
-
-
-# Descriptions: add calender entry to $self object
-#    Arguments: OBJ($self) STR($day) STR($buf)
-# Side Effects: update $self object
-# Return Value: none
-sub _add_entry
-{
-    my ($self, $day, $buf) = @_;
-    my $cal = $self->{ _schedule };
-    $day =~ s/^0//;
-
-    $cal->addcontent($day, "<p>". $buf);
-}
-
-
-=head2 C<print($fd)>
-
-print out the result as HTML.
-You can specify the output channel by file descriptor C<$fd>.
-
-=cut
-
-
-# Descriptions: print calender by HTML::CalenderMonthSimple::as_HTML()
-#               method.
-#    Arguments: OBJ($self) HANDLE($fd)
-# Side Effects: none
-# Return Value: none
-sub print
-{
-    my ($self, $fd) = @_;
-
-    if (defined $self->{ _schedule }) {
-	$fd = defined $fd ? $fd : \*STDOUT;
-	print $fd $self->{ _schedule }->as_HTML;
-    }
-    else {
-	croak("undefined schedule object");
-    }
-}
-
-
-=head2 C<print_specific_month($fh, $n)>
-
-print range specified by C<$n>.
-C<$n> is number or string among C<this>, C<next> and C<last>.
-
-=cut
-
-
-# Descriptions: print calender for specific month as HTML.
-#    Arguments: OBJ($self) HANDLE($fh) STR($month) [STR($year)]
-# Side Effects: none
-# Return Value: none
-sub print_specific_month
-{
-    my ($self, $fh, $month, $year) = @_;
-    my ($month_now, $year_now) = (localtime(time))[4,5];
-    my $default_year           = 1900 + $year_now;
-    my $default_month          = $month_now + 1;
-    my ($thismonth, $thisyear) = ($default_month, $default_year);
-
-    if ($month =~ /^\d+$/) {
-	$thismonth = $month;
-	$thisyear  = $year if defined $year;
-    }
-    else {
-	if ($default_month == 1) {
-	    $thismonth =  2 if $month eq 'next';
-	    $thismonth = 12 if $month eq 'last';
-	}
-	elsif ($default_month == 12) {
-	    $thismonth =  1 if $month eq 'next';
-	    $thismonth = 11 if $month eq 'last';
-	}
-	else {
-	    $thismonth++ if $month eq 'next';
-	    $thismonth-- if $month eq 'last';
-	}
-    }
-
-    print $fh "<A NAME=\"$month\">\n";
-    $self->parse( { month => $thismonth, year => $thisyear } );
-    $self->print($fh);
-}
-
-
-=head2 get_mode( $mode )
-
-show mode (string).
-
-=head2 set_mode( $mode )
-
-override mode.
-The mode is either of 'text' or 'html'.
-
-XXX: The mode is not used in this module itsef.
-     This is a pragma for other module use..
-
-=cut
-
-
-# Descriptions: show the current $mode
-#    Arguments: OBJ($self)
-# Side Effects: none
-# Return Value: STR or undef
-sub get_mode
-{
-    my ($self) = @_;
-    return (defined $self->{ _mode } ? $self->{ _mode } : undef);
-}
-
-
-# Descriptions: overwrite $mode
-#    Arguments: OBJ($self) STR($mode)
-# Side Effects: update $self object
-# Return Value: STR
-sub set_mode
-{
-    my ($self, $mode) = @_;
-
-    if (defined $mode) {
-	$self->{ _mode } = $mode;
-    }
-    else {
-	$self->{ _mode } = undef;
-    }
-}
-
-
-=head1 CODING STYLE
-
-See C<http://www.fml.org/software/FNF/> on fml coding style guide.
-
-=head1 AUTHOR
-
-Ken'chi Fukamachi
-
-=head1 COPYRIGHT
-
-Copyright (C) 2001,2002,2003 Ken'chi 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
-
-Calender::Lite first appeared in fml8 mailing list driver package.
-See C<http://www.fml.org/> for more details.
-
-Firstly this module name is C<TinyScheduler.pm> and renamed to
-Calender::Lite later.
-
-=cut
-
-
-1;