summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--fml/lib/Calendar/Lite.pm4
-rw-r--r--fml/lib/Calender/Lite.pm4
-rw-r--r--fml/lib/FML/Command.pm4
-rw-r--r--fml/lib/FML/Command/Admin/htmlify.pm4
-rw-r--r--fml/lib/FML/Command/Admin/log.pm4
-rw-r--r--fml/lib/FML/Command/User/unsubscribe.pm4
-rw-r--r--fml/lib/FML/Restriction/Base.pm6
-rw-r--r--fml/lib/Mail/Message/ToHTML.pm20
8 files changed, 25 insertions, 25 deletions
diff --git a/fml/lib/Calendar/Lite.pm b/fml/lib/Calendar/Lite.pm
index 3880379c..116ed6fb 100644
--- a/fml/lib/Calendar/Lite.pm
+++ b/fml/lib/Calendar/Lite.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: Lite.pm,v 1.2 2002/02/17 03:13:47 fukachan Exp $
+# $FML: Lite.pm,v 1.3 2002/04/03 03:39:32 fukachan Exp $
#
package Calender::Lite;
@@ -93,7 +93,7 @@ sub new
# XXX-AUDIT (we should use FML::Restriction ?)
# simple check (not enough mature).
- # This code is not for security but to avoid -T (taint mode) error ;)
+ # This code is not for security but to avoid -T (taint mode) error ;)
if ($home_dir =~ /^([\w\d\.\/]+)$/) {
$home_dir = $1;
}
diff --git a/fml/lib/Calender/Lite.pm b/fml/lib/Calender/Lite.pm
index 3880379c..116ed6fb 100644
--- a/fml/lib/Calender/Lite.pm
+++ b/fml/lib/Calender/Lite.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: Lite.pm,v 1.2 2002/02/17 03:13:47 fukachan Exp $
+# $FML: Lite.pm,v 1.3 2002/04/03 03:39:32 fukachan Exp $
#
package Calender::Lite;
@@ -93,7 +93,7 @@ sub new
# XXX-AUDIT (we should use FML::Restriction ?)
# simple check (not enough mature).
- # This code is not for security but to avoid -T (taint mode) error ;)
+ # This code is not for security but to avoid -T (taint mode) error ;)
if ($home_dir =~ /^([\w\d\.\/]+)$/) {
$home_dir = $1;
}
diff --git a/fml/lib/FML/Command.pm b/fml/lib/FML/Command.pm
index 9758e2e6..c35a4922 100644
--- a/fml/lib/FML/Command.pm
+++ b/fml/lib/FML/Command.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: Command.pm,v 1.23 2002/03/23 12:20:25 fukachan Exp $
+# $FML: Command.pm,v 1.24 2002/04/07 05:08:23 fukachan Exp $
#
package FML::Command;
@@ -112,7 +112,7 @@ sub AUTOLOAD
# mode
my $mode = 'User';
if (defined $command_args->{ command_mode }) {
- $mode =
+ $mode =
$command_args->{ command_mode } =~ /admin/i ? 'Admin' : 'User';
}
diff --git a/fml/lib/FML/Command/Admin/htmlify.pm b/fml/lib/FML/Command/Admin/htmlify.pm
index 866c3477..5ae4cefd 100644
--- a/fml/lib/FML/Command/Admin/htmlify.pm
+++ b/fml/lib/FML/Command/Admin/htmlify.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: htmlify.pm,v 1.10 2002/03/31 03:39:13 fukachan Exp $
+# $FML: htmlify.pm,v 1.11 2002/04/07 05:01:06 fukachan Exp $
#
package FML::Command::Admin::htmlify;
@@ -75,7 +75,7 @@ sub process
}
use Mail::Message::ToHTML;
- &Mail::Message::ToHTML::htmlify_dir($src_dir, {
+ &Mail::Message::ToHTML::htmlify_dir($src_dir, {
directory => $dst_dir,
});
}
diff --git a/fml/lib/FML/Command/Admin/log.pm b/fml/lib/FML/Command/Admin/log.pm
index e6f2519b..82ffb63e 100644
--- a/fml/lib/FML/Command/Admin/log.pm
+++ b/fml/lib/FML/Command/Admin/log.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: log.pm,v 1.2 2002/03/30 11:08:35 fukachan Exp $
+# $FML: log.pm,v 1.3 2002/04/07 05:02:23 fukachan Exp $
#
package FML::Command::Admin::log;
@@ -138,7 +138,7 @@ sub _html_to_text
{
my ($str) = @_;
- eval q{
+ eval q{
use HTML::FromText;
};
unless ($@) {
diff --git a/fml/lib/FML/Command/User/unsubscribe.pm b/fml/lib/FML/Command/User/unsubscribe.pm
index 839afb00..bc1f4130 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.9 2002/02/18 14:14:53 fukachan Exp $
+# $FML: unsubscribe.pm,v 1.10 2002/04/06 14:46:13 fukachan Exp $
#
package FML::Command::User::unsubscribe;
@@ -86,7 +86,7 @@ sub process
# try confirmation before unsubscribe
else {
Log("unsubscriber request, try confirmation");
- eval q{
+ eval q{
use FML::Confirm;
};
if ($@) {
diff --git a/fml/lib/FML/Restriction/Base.pm b/fml/lib/FML/Restriction/Base.pm
index c5fd2f49..3976aa8e 100644
--- a/fml/lib/FML/Restriction/Base.pm
+++ b/fml/lib/FML/Restriction/Base.pm
@@ -3,7 +3,7 @@
# Copyright (C) 2001,2002 Ken'ichi Fukamachi
# All rights reserved.
#
-# $FML: Base.pm,v 1.7 2002/03/26 03:59:44 fukachan Exp $
+# $FML: Base.pm,v 1.8 2002/04/06 02:42:39 fukachan Exp $
#
package FML::Restriction::Base;
@@ -56,7 +56,7 @@ definitions for conveninece and security.
=head2 domain name
-A domain name is case insensitive (see RFC). For example,
+A domain name is case insensitive (see RFC). For example,
fml.org
FML.org
123.f-m-l.org
@@ -112,7 +112,7 @@ sub basic_variable
# debug
#
if ($0 eq __FILE__) {
- for my $k (keys %basic_variable) {
+ for my $k (keys %basic_variable) {
printf "%-20s => %s\n", $k, $basic_variable{ $k };
}
}
diff --git a/fml/lib/Mail/Message/ToHTML.pm b/fml/lib/Mail/Message/ToHTML.pm
index 643c8b00..bfa96ff5 100644
--- a/fml/lib/Mail/Message/ToHTML.pm
+++ b/fml/lib/Mail/Message/ToHTML.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: ToHTML.pm,v 1.4 2002/03/31 12:11:04 fukachan Exp $
+# $FML: ToHTML.pm,v 1.5 2002/04/06 02:02:19 fukachan Exp $
#
package Mail::Message::ToHTML;
@@ -16,10 +16,10 @@ use Carp;
my $is_strict_warn = 0;
my $debug = 0;
-my $URL =
+my $URL =
"<A HREF=\"http://www.fml.org/software/\">Mail::Message::ToHTML</A>";
-my $version = q$FML: ToHTML.pm,v 1.4 2002/03/31 12:11:04 fukachan Exp $;
+my $version = q$FML: ToHTML.pm,v 1.5 2002/04/06 02:02:19 fukachan Exp $;
if ($version =~ /,v\s+([\d\.]+)\s+/) {
$version = "$URL $1";
}
@@ -1255,7 +1255,7 @@ sub _update_relation
}
}
else {
- unless (defined $file) {
+ unless (defined $file) {
$new = $old = '(null string)';
}
warn("cannot open $old (id=$id)\n") unless defined $rh;
@@ -1372,12 +1372,12 @@ sub evaluate_safe_preamble
}
if (defined $link_prev_thread_id) {
- $preamble .=
+ $preamble .=
"<A HREF=\"${prefix}$link_prev_thread_id\">[Prev by Thread]</A>\n";
}
else {
if (defined $link_prev_id) {
- $preamble .=
+ $preamble .=
"<A HREF=\"${prefix}$link_prev_id\">[Prev by Thread]</A>\n";
}
else {
@@ -1386,12 +1386,12 @@ sub evaluate_safe_preamble
}
if (defined $link_next_thread_id) {
- $preamble .=
+ $preamble .=
"<A HREF=\"${prefix}$link_next_thread_id\">[Next by Thread]</A>\n";
}
else {
if (defined $link_next_id) {
- $preamble .=
+ $preamble .=
"<A HREF=\"${prefix}$link_next_id\">[Next by Thread]</A>\n";
}
else {
@@ -1443,7 +1443,7 @@ sub evaluate_safe_footer
if (defined $link_prev_thread_id) {
$footer .= "<BR>\n";
- $footer .=
+ $footer .=
"<A HREF=\"${prefix}$link_prev_thread_id\">Prev by Thread: ";
if (defined $subject->{ prev_thread_id }) {
$footer .= _sprintf_safe_str($subject->{ prev_thread_id });
@@ -1453,7 +1453,7 @@ sub evaluate_safe_footer
if (defined $link_next_thread_id) {
$footer .= "<BR>\n";
- $footer .=
+ $footer .=
"<A HREF=\"${prefix}$link_next_thread_id\">Next by Thread: ";
if (defined $subject->{ next_thread_id }) {
$footer .= _sprintf_safe_str($subject->{ next_thread_id });
generated by cgit v1.2.1 (git 2.18.0) at 2026-09-08 17:36:40 +0000