Initial commit.

htdocs/wov/magicat/archive/cgi-bin/guestbook.cgi

@@ -0,0 +1,145 @@
+#! /usr/bin/perl -w
+# Woman's Voice
+# 1-guestbook.cgi: The guestbook.
+
+#  Copyright (c) 2003-2021 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2003-04-06
+
+use 5.008;
+use utf8;
+use strict;
+use warnings;
+use lib $ENV{"DOCUMENT_ROOT"} . qw(/magicat/lib/perl5);
+use Selima::wov;
+local $SIG{"__DIE__"} = \&http_500;
+my $d = new Selima::Destroy;
+# Prototype declaration
+sub main();
+sub check_get();
+sub check_post();
+sub html_page($);
+sub html_foreword();
+
+initenv(-session    => 0,
+        -this_table => "guestbook",
+        -dbi_lock   => {"guestbook"             => LOCK_EX},
+        -lastmod    => 1,
+        -page_param => {"keywords"      => N_("your voice"),
+                        "class"         => "guestbook",
+                        "javascripts"   => [qw(/scripts/guestbook.js)]});
+
+main;
+exit 0;
+
+sub main() {
+    local ($_, %_);
+    my ($error, $processor);
+    
+    # If the request is a GET query
+    if ($ENV{"REQUEST_METHOD"} ne "POST") {
+        $error = check_get;
+        # If an error occurs
+        if (defined $error) {
+            html_page $error;
+        
+        # Display the page
+        } else {
+            html_page retrieve_status;
+        }
+    
+    # If a form was POSTed from the client
+    } else {
+        $error = check_post;
+        # If an error occurs
+        if (defined $error) {
+            error_redirect $error;
+        
+        # Else, save the data
+        } else {
+            $processor = new Selima::wov::Processor::Guestbook::Public($POST);
+            $processor->process;
+            http_303 $REQUEST_FILE;
+        }
+    }
+    return;
+}
+
+# check_get: Check the GET arguments
+sub check_get() {
+    local ($_, %_);
+    # Old styled page number
+    http_301 $REQUEST_FILE if defined $GET->param("no");
+    # List handler handles its own error
+    return;
+}
+
+# check_post: Check the POSTed form
+sub check_post() {
+    local ($_, %_);
+    my ($checker, $error);
+    # Run the checker
+    $checker = new Selima::wov::Checker::Guestbook::Public(curform);
+    $error = $checker->check(qw(message name identity location
+        email url flood dup spam));
+    return $error if defined $error;
+    # OK
+    return;
+}
+
+# html_page: Display the page
+sub html_page($) {
+    local ($_, %_);
+    my ($status, $LIST, $FORM, $args);
+    $status = $_[0];
+    $FORM = new Selima::wov::Form::Guestbook::Public($status);
+    $LIST = new Selima::wov::List::Guestbook::Public;
+    $args = $LIST->page_param;
+    html_header "妳的女聲", "Your Voice", $args;
+    html_foreword;
+    html_errmsg $status;
+    $FORM->html;
+    $LIST->html;
+    html_footer $args;
+    return;
+}
+
+
+##################################
+# Subroutines to manage the data #
+##################################
+# html_foreword: Print the HTML foreword
+sub html_foreword() {
+    local ($_, %_);
+    print << "EOT";
+<div class="intro">
+<p>發聲就是政治，是權力，是對主體性的要求。</p>
+
+<p>女聲就是女人的聲音。聲音有的好聽，有的不好聽，有的悅耳，有的嘈雜。
+也許\是學者、是政要、是學生、是女兒、是媽媽、是女同性戀、是雙性戀、是
+女工、是菲傭、是公娼、是私娼、是雛妓、是打工辣妹、是家庭主婦、是心理
+女性。可能都是，也可能都不是。這些都是女人，她們的聲音都同等重要，在
+差異中尋求最適合自己的生存策略。</p>
+
+<p>更重要的是，身為女人，是政治行動，不只是天生的命運。</p>
+
+</div>
+
+EOT
+    return;
+}
+
+no utf8;

htdocs/wov/magicat/archive/cgi-bin/subs_counter.cgi

@@ -0,0 +1,121 @@
+#! /usr/bin/perl -w
+# Woman's Voice
+# 1-subs_counter.cgi: The subscriber counter.
+
+#  Copyright (c) 2003-2021 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2003-05-17
+
+use 5.008;
+use strict;
+use warnings;
+use lib $ENV{"DOCUMENT_ROOT"} . qw(/magicat/lib/perl5);
+use Selima::wov;
+local $SIG{"__DIE__"} = \&http_500;
+my $d = new Selima::Destroy;
+# Prototype declaration
+sub main();
+sub get_counter();
+sub html_image($);
+
+use Fcntl qw(:flock :seek);
+use GD;
+use IO::NestedCapture qw(CAPTURE_STDOUT);
+
+use constant DATA_FILE => "/var/lib/mailman/lists/wov/config.pck";
+use constant COUNTER_PROG => "/usr/libexec/total_members";
+use constant LISTNAME => "wov";
+use vars qw(@FGCOLOR @BGCOLOR $FONT);
+@FGCOLOR = (0, 0, 0);           # #000000 Black
+@BGCOLOR = (255, 255, 255);     # #FFFFFF White
+$FONT = gdLargeFont;
+use constant TRANSPARENT => 1;
+initenv(    -allowed    => [qw(GET HEAD)],
+            -session    => 0,
+            -dbi        => DBI_NONE,
+            -lastmod    => 1,
+            -lmfiles    => [DATA_FILE],
+            -multilang  => 0);
+
+use vars qw($COUNTER $MTIME);
+
+main;
+exit 0;
+
+sub main() {
+    local ($_, %_);
+    
+    get_counter();
+    html_image($COUNTER);
+    
+    return;
+}
+
+# get_counter: Get the subscriber counter
+sub get_counter() {
+    local ($_, %_);
+    my $OUT;
+    
+    # Obtain the mtime of the subscriber database file
+    $_ = (stat DATA_FILE)[9];
+    # We should update the counter
+    if (!defined $MTIME || $MTIME != $_) {
+        # Update the timestamp
+        $MTIME = $_;
+        @_ = (COUNTER_PROG, LISTNAME);
+        open $OUT, "-|", @_         or http_500 COUNTER_PROG . ": $!";
+        defined($COUNTER = <$OUT>)  or http_500 COUNTER_PROG . ": $!";
+        close $OUT                  or http_500 COUNTER_PROG . ": $!";
+        chomp $COUNTER;
+    }
+    
+    return $COUNTER;
+}
+
+# html_image: Make the image from the counter value 
+sub html_image($) {
+    local $_;
+    my ($counter, $image, $width, $height, $fgcolor, $bgcolor);
+    $counter = $_[0];
+    
+    # Group the counter with commas at thousand digits.
+    $counter = fmtno($counter);
+    
+    # Initialize the image object
+    # Get the width and height
+    $width = $FONT->width * (length $counter);
+    $height = $FONT->height;
+    # Create an image object
+    $image = GD::Image->new($width, $height);
+    # Create the forground/background color objects
+    $fgcolor = $image->colorAllocate(@FGCOLOR);
+    $bgcolor = $image->colorAllocate(@BGCOLOR);
+    
+    # Draw the image
+    # Set the transparent background
+    $image->transparent($bgcolor) if TRANSPARENT;
+    # Paint the background
+    $image->filledRectangle(0, 0, $width, $height, $bgcolor);
+    # Write the text
+    $image->string($FONT, 0, 0, $counter, $fgcolor);
+    
+    # Output
+    $CONTENT_TYPE = "image/png";
+    binmode IO::NestedCapture->instance->{"STDOUT_current"}[-1], ":raw";
+    print $image->png;
+    
+    return;
+}

htdocs/wov/magicat/archive/magicat/cgi-bin/acctrecs.cgi

@@ -0,0 +1,242 @@
+#! /usr/bin/perl -w
+# Woman's Voice
+# acctrecs.cgi: The accounting record administration.
+
+#  Copyright (c) 2007-2021 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2007-09-24
+
+use 5.008;
+use strict;
+use warnings;
+use lib $ENV{"DOCUMENT_ROOT"} . qw(/magicat/lib/perl5);
+use Selima::wov;
+local $SIG{"__DIE__"} = \&http_500;
+my $d = new Selima::Destroy;
+# Prototype declaration
+sub main();
+sub check_get();
+sub check_post();
+sub html_page($);
+sub fetch_curitem();
+sub import_seltrx($);
+sub import_selsubj($);
+
+initenv(-restricted => 1,
+        -this_table => "acctrecs",
+        -dbi_lock   => {"acctrecs"              => LOCK_EX,
+                        "accttrx"               => LOCK_SH,
+                        "acctsubj"              => LOCK_SH},
+        -lastmod    => 1,
+        -page_param => {"keywords"              => N_("accounting")});
+
+main;
+exit 0;
+
+sub main() {
+    local ($_, %_);
+    my ($error, $success, $processor);
+    
+    # If the request is a GET query
+    if ($ENV{"REQUEST_METHOD"} ne "POST") {
+        $error = check_get;
+        # If an error occurs
+        if (defined $error) {
+            html_page $error;
+        
+        # Display the page
+        } else {
+            html_page retrieve_status;
+        }
+    
+    # If a form was POSTed from the client
+    } else {
+        $error = check_post;
+        # If an error occurs
+        if (defined $error) {
+            error_redirect $error;
+        
+        # Else, save the data
+        } else {
+            $processor = new Selima::Processor::AcctRec($POST);
+            $success = $processor->process;
+            success_redirect $success;
+        }
+    }
+    return;
+}
+
+# check_get: Check the GET arguments
+sub check_get() {
+    local ($_, %_);
+    my $error;
+    # Only allowing to run on HTTPS
+    http_403 if !is_https;
+    
+    # A form is requested
+    if (is_form) {
+        $_ = form_type;
+        # A form to create a new item
+        if ($_ eq "new") {
+            # Nothing to check on a new form
+        
+        # A form to edit a current item
+        } elsif ($_ eq "cur") {
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+        
+        # A form to delete a current item
+        } elsif ($_ eq "del") {
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+        
+        # Not a valid form
+        } else {
+            return {"msg"=>N_("Incorrect form: [_1]."),
+                    "margs"=>[$_],
+                    "isform"=>0};
+        }
+    }
+    # List handler handles its own error
+    # OK
+    return;
+}
+
+# check_post: Check the POSTed form
+sub check_post() {
+    local ($_, %_);
+    my ($checker, $error);
+    # Only allowing to run on HTTPS
+    http_403 if !is_https;
+    $_ = form_type;
+    # A form to create a new item
+    if ($_ eq "new") {
+        # Run the checker
+        $checker = new Selima::Checker::AcctRec(curform);
+        $checker->redir(qw(seltrx deltrx selsubj delsubj));
+        $error = $checker->check(qw(trx type ord subj summary amount));
+        return $error if defined $error;
+    
+    # A form to edit a current item
+    } elsif ($_ eq "cur") {
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;
+        # Run the checker
+        $checker = new Selima::Checker::AcctRec(curform);
+        $checker->redir(qw(del seltrx deltrx selsubj delsubj));
+        $error = $checker->check(qw(trx type ord subj summary amount));
+        return $error if defined $error;
+    
+    # A form to delete a current item
+    } elsif ($_ eq "del") {
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;;
+        # Run the checker
+        $checker = new Selima::Checker::AcctRec(curform);
+        $checker->redir(qw(cancel));
+    
+    # Not a valid form
+    } else {
+        return {"msg"=>N_("Incorrect form: [_1]."),
+                "margs"=>[$_],
+                "isform"=>0};
+    }
+    # OK
+    return;
+}
+
+# html_page: Display the page
+sub html_page($) {
+    local ($_, %_);
+    my ($status, $LIST, $FORM);
+    $status = $_[0];
+    # A form is requested
+    if (is_form $status) {
+        $FORM = new Selima::Form::AcctRec($status);
+        html_header $FORM->{"title"};
+        html_errmsg $status;
+        $FORM->html;
+        html_footer;
+    
+    # List the available items
+    } else {
+        $LIST = new Selima::List::Accounting::Records;
+        html_header $LIST->{"title"}, undef, $LIST->page_param;
+        html_errmsg $status;
+        $LIST->html;
+        html_footer;
+    }
+    return;
+}
+
+
+##################################
+# Subroutines to manage the data #
+##################################
+# fetch_curitem: Fetch the current item
+sub fetch_curitem() {
+    local ($_, %_);
+    my ($sn, $FORM, $sth, $sql);
+    
+    # Return if fetched before
+    return if scalar(keys %CURRENT) > 0;
+    
+    # Obtain the current form
+    $FORM = curform;
+    # No item specified
+    return {"msg"=>N_("Please select the accounting record."),
+            "isform"=>0}
+        if !defined $FORM->param("sn");
+    $sn = $FORM->param("sn");
+    
+    # Find the record
+    %CURRENT = fetchrec $sn, $THIS_TABLE;
+    # If this record exist
+    return {"msg"=>N_("This accounting record does not exist anymore.  Please select another one."),
+            "isform"=>0}
+        if scalar(keys %CURRENT) == 0;
+    
+    $CURRENT{"type"} = $CURRENT{"credit"}? "credit": "debit";
+    
+    # OK
+    return;
+}
+
+# import_seltrx: Import the selected accounting transaction into the retrieved form
+sub import_seltrx($) {
+    local ($_, %_);
+    my $FORM;
+    $FORM = $_[0];
+    $FORM->param("trx", $GET->param("selsn"))
+        if  defined $GET->param("selsn")
+            && check_sn_in ${$GET->param_fetch("selsn")}[0], "accttrx";
+    return;
+}
+
+# import_selsubj: Import the selected accounting subject into the retrieved form
+sub import_selsubj($) {
+    local ($_, %_);
+    my $FORM;
+    $FORM = $_[0];
+    $FORM->param("subj", $GET->param("selsn"))
+        if  defined $GET->param("selsn")
+            && check_sn_in ${$GET->param_fetch("selsn")}[0], "acctsubj";
+    return;
+}

htdocs/wov/magicat/archive/magicat/cgi-bin/acctreps.cgi

@@ -0,0 +1,107 @@
+#! /usr/bin/perl -w
+# Woman's Voice
+# acctreps.cgi: The accounting report viewer.
+
+#  Copyright (c) 2007-2021 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2007-09-24
+
+use 5.008;
+use strict;
+use warnings;
+use lib $ENV{"DOCUMENT_ROOT"} . qw(/magicat/lib/perl5);
+use Selima::wov;
+local $SIG{"__DIE__"} = \&http_500;
+my $d = new Selima::Destroy;
+# Prototype declaration
+sub main();
+sub check_get();
+sub html_page($);
+
+initenv(-restricted => 1,
+        -dbi_lock   => {"acctsubj"              => LOCK_SH,
+                        "accttrx"               => LOCK_SH,
+                        "acctrecs"              => LOCK_SH},
+        -lastmod    => 1,
+        -page_param => {"keywords"              => N_("accounting"),
+                        "javascripts"   => [qw(/scripts/accounting.js)]});
+
+main;
+exit 0;
+
+sub main() {
+    local ($_, %_);
+    my $error;
+    # Only allowing requests with GET method
+    # Check it here, since we still want list preference handlers to work
+    http_405 qw(GET) if $ENV{"REQUEST_METHOD"} ne "GET";
+    $error = check_get;
+    # If an error occurs
+    if (defined $error) {
+        html_page $error;
+    
+    # Display the page
+    } else {
+        html_page retrieve_status;
+    }
+    return;
+}
+
+# check_get: Check the GET arguments
+sub check_get() {
+    local ($_, %_);
+    # Only allowing to run on HTTPS
+    http_403 if !is_https;
+    # List handler handles its own error
+    # OK
+    return;
+}
+
+# html_page: Display the page
+sub html_page($) {
+    local ($_, %_);
+    my ($status, $LIST, $page_param);
+    $status = $_[0];
+    # List the available items
+    $_ = list_type;
+    if ($_ eq "cashsum") {
+        $LIST = new Selima::List::Accounting::Reports::Cash::Summary;
+    } elsif ($_ eq "ldgr") {
+        $LIST = new Selima::List::Accounting::Reports::Ledger;
+    } elsif ($_ eq "ldgrsum") {
+        $LIST = new Selima::List::Accounting::Reports::Ledger::Summary;
+    } elsif ($_ eq "journal") {
+        $LIST = new Selima::List::Accounting::Reports::Journal;
+    } elsif ($_ eq "tb") {
+        $LIST = new Selima::List::Accounting::Reports::TriBlnc;
+    } elsif ($_ eq "incmstat") {
+        $LIST = new Selima::List::Accounting::Reports::IncmStat;
+    } elsif ($_ eq "blncshet") {
+        $LIST = new Selima::List::Accounting::Reports::BlncShet;
+    } elsif ($_ eq "search") {
+        $LIST = new Selima::List::Accounting::Reports::Search;
+    } else {
+        $LIST = new Selima::List::Accounting::Reports::Cash;
+    }
+    # Return the data as a CSV file
+    return $LIST->html if $LIST->{"iscsv"};
+    # Ordinary list
+    html_header $LIST->{"title"}, undef, $LIST->page_param;
+    html_errmsg $status;
+    $LIST->html;
+    html_footer;
+    return;
+}

htdocs/wov/magicat/archive/magicat/cgi-bin/acctsubj.cgi

@@ -0,0 +1,292 @@
+#! /usr/bin/perl -w
+# Woman's Voice
+# acctsubj.cgi: The accounting subject administraion.
+
+#  Copyright (c) 2007-2021 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2007-09-24
+
+use 5.008;
+use strict;
+use warnings;
+use lib $ENV{"DOCUMENT_ROOT"} . qw(/magicat/lib/perl5);
+use Selima::wov;
+local $SIG{"__DIE__"} = \&http_500;
+my $d = new Selima::Destroy;
+# Prototype declaration
+sub main();
+sub check_get();
+sub check_post();
+sub html_page($);
+sub fetch_curitem();
+sub import_selparent($);
+
+initenv(-restricted => 1,
+        -this_table => "acctsubj",
+        -dbi_lock   => {"acctsubj"              => LOCK_EX,
+                        "acctrecs"              => LOCK_SH},
+        -lastmod    => 1,
+        -page_param => {"keywords"              => N_("accounting")});
+
+main;
+exit 0;
+
+sub main() {
+    local ($_, %_);
+    my ($error, $success, $processor);
+    
+    # If the request is a GET query
+    if ($ENV{"REQUEST_METHOD"} ne "POST") {
+        $error = check_get;
+        # If an error occurs
+        if (defined $error) {
+            html_page $error;
+        
+        # Display the page
+        } else {
+            html_page retrieve_status;
+        }
+    
+    # If a form was POSTed from the client
+    } else {
+        $error = check_post;
+        # If an error occurs
+        if (defined $error) {
+            error_redirect $error;
+        
+        # Else, save the data
+        } else {
+            $processor = new Selima::Processor::AcctSubj($POST);
+            $success = $processor->process;
+            success_redirect $success;
+        }
+    }
+    return;
+}
+
+# check_get: Check the GET arguments
+sub check_get() {
+    local ($_, %_);
+    my $error;
+    # Only allowing to run on HTTPS
+    http_403 if !is_https;
+    
+    # A form is requested
+    if (is_form) {
+        $_ = form_type;
+        # A form to create a new item
+        if ($_ eq "new") {
+            # Start from the default language
+            return {"msg"=>N_("Please add a new accounting subject from [_1]."),
+                    "margs"=>["_DEFAULT_LANG"],
+                    "isform"=>0}
+                if getlang ne $DEFAULT_LANG;
+        
+        # A form to edit a current item
+        } elsif ($_ eq "cur") {
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+        
+        # A form to delete a current item
+        } elsif ($_ eq "del") {
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+            return {"msg"=>N_("This accounting subject has [numerate,_1,an accounting sub-subject,accounting sub-subjects].  It cannot be deleted.  To delete the subject, [numerate,_1,its accounting sub-subject,all of its accounting sub-subjects] must first be deleted."),
+                    "margs"=>[$CURRENT{"ssubcount"}],
+                    "isform"=>0}
+                if $CURRENT{"ssubcount"} > 0;
+            return {"msg"=>N_("This accounting subject has [numerate,_1,an accounting record,accounting records].  It cannot be deleted.  To delete the subject, [numerate,_1,its accounting record,all of its accounting records] must first be deleted."),
+                    "margs"=>[$CURRENT{"reccount"}],
+                    "isform"=>0}
+                if $CURRENT{"reccount"} > 0;
+        
+        # Not a valid form
+        } else {
+            return {"msg"=>N_("Incorrect form: [_1]."),
+                    "margs"=>[$_],
+                    "isform"=>0};
+        }
+    }
+    # List handler handles its own error
+    # OK
+    return;
+}
+
+# check_post: Check the POSTed form
+sub check_post() {
+    local ($_, %_);
+    my ($checker, $error);
+    # Only allowing to run on HTTPS
+    http_403 if !is_https;
+    $_ = form_type;
+    # A form to create a new item
+    if ($_ eq "new") {
+        # Start from the default language
+        return {"msg"=>N_("Please add a new accounting subject from [_1]."),
+                "margs"=>["_DEFAULT_LANG"],
+                "isform"=>0}
+            if getlang ne $DEFAULT_LANG;
+        # Run the checker
+        $checker = new Selima::Checker::AcctSubj(curform);
+        $checker->redir(qw(selparent delparent));
+        $error = $checker->check(qw(parent code title));
+        return $error if defined $error;
+    
+    # A form to edit a current item
+    } elsif ($_ eq "cur") {
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;
+        # Run the checker
+        $checker = new Selima::Checker::AcctSubj(curform);
+        $checker->redir(qw(del zhsync selparent delparent));
+        $error = $checker->check(qw(parent code title));
+        return $error if defined $error;
+    
+    # A form to delete a current item
+    } elsif ($_ eq "del") {
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;;
+        # Run the checker
+        $checker = new Selima::Checker::AcctSubj(curform);
+        $checker->redir(qw(cancel));
+        return {"msg"=>N_("This accounting subject has [numerate,_1,an accounting sub-subject,accounting sub-subjects].  It cannot be deleted.  To delete the subject, [numerate,_1,its accounting sub-subject,all of its accounting sub-subjects] must first be deleted."),
+                "margs"=>[$CURRENT{"ssubcount"}],
+                "isform"=>0}
+            if $CURRENT{"ssubcount"} > 0;
+        return {"msg"=>N_("This accounting subject has [numerate,_1,an accounting record,accounting records].  It cannot be deleted.  To delete the subject, [numerate,_1,its accounting record,all of its accounting records] must first be deleted."),
+                "margs"=>[$CURRENT{"reccount"}],
+                "isform"=>0}
+            if $CURRENT{"reccount"} > 0;
+    
+    # Not a valid form
+    } else {
+        return {"msg"=>N_("Incorrect form: [_1]."),
+                "margs"=>[$_],
+                "isform"=>0};
+    }
+    # OK
+    return;
+}
+
+# html_page: Display the page
+sub html_page($) {
+    local ($_, %_);
+    my ($status, $LIST, $FORM);
+    $status = $_[0];
+    # A form is requested
+    if (is_form $status) {
+        $FORM = new Selima::Form::AcctSubj($status);
+        html_header $FORM->{"title"};
+        html_errmsg $status;
+        $FORM->html;
+        html_footer;
+    
+    # List the available items
+    } else {
+        if (list_type eq "lastlv") {
+            $LIST = new Selima::List::Accounting::Subjects::LastLv;
+        } else {
+            $LIST = new Selima::List::Accounting::Subjects;
+        }
+        html_header $LIST->{"title"}, undef, $LIST->page_param;
+        html_errmsg $status;
+        $LIST->html;
+        html_footer;
+    }
+    return;
+}
+
+
+##################################
+# Subroutines to manage the data #
+##################################
+# fetch_curitem: Fetch the current item
+sub fetch_curitem() {
+    local ($_, %_);
+    my ($sn, $FORM, $sth, $sql, $row);
+    my ($lang, $lndb, $lndbdef, $title);
+    
+    # Return if fetched before
+    return if scalar(keys %CURRENT) > 0;
+    
+    # Obtain the current form
+    $FORM = curform;
+    # No item specified
+    return {"msg"=>N_("Please select the accounting subject."),
+            "isform"=>0}
+        if !defined $FORM->param("sn");
+    $sn = $FORM->param("sn");
+    
+    # Find the record
+    %CURRENT = fetchrec $sn, $THIS_TABLE;
+    # If this record exist
+    return {"msg"=>N_("This accounting subject does not exist anymore.  Please select another one."),
+            "isform"=>0}
+        if scalar(keys %CURRENT) == 0;
+    
+    $lang = getlang;
+    $lndb = getlang LN_DATABASE;
+    $lndbdef = ln $DEFAULT_LANG, LN_DATABASE;
+    
+    # Obtain the belonging subjects list
+    @_ = qw();
+    push @_, "sn AS sn";
+    if (@ALL_LINGUAS > 1) {
+        $title = $lang eq $DEFAULT_LANG? "title_$lndb":
+            "COALESCE(title_$lndb, title_$lndbdef)";
+    } else {;
+        $title = "title";
+    }
+    push @_, $DBH->strcat("code", "' '", $title) . " AS title";
+    $sql = "SELECT " . join(", ", @_) . " FROM acctsubj"
+        . " WHERE parent=$sn"
+        . " ORDER BY code;\n";
+    $sth = $DBH->prepare($sql);
+    $sth->execute;
+    $CURRENT{"ssubcount"} = $sth->rows;
+    for ($_ = 0; $_ < $CURRENT{"ssubcount"}; $_++) {
+        $row = $sth->fetchrow_hashref;
+        $CURRENT{"ssub$_" . "sn"} = $$row{"sn"};
+        $CURRENT{"ssub$_" . "title"} = $$row{"title"};
+    }
+    
+    # Obtain the belonging records list
+    $sql = "SELECT sn FROM acctrecs"
+        . " WHERE subj=$sn;\n";
+    $sth = $DBH->prepare($sql);
+    $sth->execute;
+    $CURRENT{"reccount"} = $sth->rows;
+    
+    # OK
+    return;
+}
+
+# import_selparent: Import the selected parent into the retrieved form
+sub import_selparent($) {
+    local ($_, %_);
+    my $FORM;
+    $FORM = $_[0];
+    if (    defined $GET->param("selsn")
+            && check_sn_in ${$GET->param_fetch("selsn")}[0], "acctsubj") {
+        $FORM->param("parent", $GET->param("selsn"));
+        $FORM->param("topmost", "false");
+    }
+    return;
+}

htdocs/wov/magicat/archive/magicat/cgi-bin/accttrx.cgi

@@ -0,0 +1,278 @@
+#! /usr/bin/perl -w
+# Woman's Voice
+# accttrx.cgi: The accounting transaction administraion.
+
+#  Copyright (c) 2007-2021 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2007-09-24
+
+use 5.008;
+use strict;
+use warnings;
+use lib $ENV{"DOCUMENT_ROOT"} . qw(/magicat/lib/perl5);
+use Selima::wov;
+local $SIG{"__DIE__"} = \&http_500;
+my $d = new Selima::Destroy;
+# Prototype declaration
+sub main();
+sub check_get();
+sub check_post();
+sub html_page($);
+sub fetch_curitem();
+sub import_selsubj($);
+
+initenv(-restricted => 1,
+        -this_table => "accttrx",
+        -dbi_lock   => {"accttrx"               => LOCK_EX,
+                        "acctrecs"              => LOCK_EX,
+                        "acctsubj"              => LOCK_SH},
+        -lastmod    => 1,
+        -page_param => {"keywords"              => N_("accounting"),
+                        "javascripts"   => [qw(/scripts/accounting.js)]});
+
+main;
+exit 0;
+
+sub main() {
+    local ($_, %_);
+    my ($error, $success, $processor);
+    
+    # If the request is a GET query
+    if ($ENV{"REQUEST_METHOD"} ne "POST") {
+        $error = check_get;
+        # If an error occurs
+        if (defined $error) {
+            html_page $error;
+        
+        # Display the page
+        } else {
+            html_page retrieve_status;
+        }
+    
+    # If a form was POSTed from the client
+    } else {
+        $error = check_post;
+        # If an error occurs
+        if (defined $error) {
+            error_redirect $error;
+        
+        # Else, save the data
+        } else {
+            $processor = new Selima::Processor::AcctTrx($POST);
+            $success = $processor->process;
+            success_redirect $success;
+        }
+    }
+    return;
+}
+
+# check_get: Check the GET arguments
+sub check_get() {
+    local ($_, %_);
+    my $error;
+    # Only allowing to run on HTTPS
+    http_403 if !is_https;
+    
+    # A form is requested
+    if (is_form) {
+        $_ = form_type;
+        # A form to create a new item
+        if ($_ eq "new") {
+            # Nothing to check on a new form
+        
+        # A form to edit a current item
+        } elsif ($_ eq "cur") {
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+        
+        # A form to delete a current item
+        } elsif ($_ eq "del") {
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+        
+        # Not a valid form
+        } else {
+            return {"msg"=>N_("Incorrect form: [_1]."),
+                    "margs"=>[$_],
+                    "isform"=>0};
+        }
+    }
+    # List handler handles its own error
+    # OK
+    return;
+}
+
+# check_post: Check the POSTed form
+sub check_post() {
+    local ($_, %_);
+    my ($checker, $error);
+    # Only allowing to run on HTTPS
+    http_403 if !is_https;
+    $_ = form_type;
+    # A form to create a new item
+    if ($_ eq "new") {
+        # Run the checker
+        $checker = new Selima::Checker::AcctTrx(curform);
+        $checker->redir(qw(cnvttrans selsubj));
+        $error = $checker->check(qw(date ord note recs));
+        return $error if defined $error;
+    
+    # A form to edit a current item
+    } elsif ($_ eq "cur") {
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;
+        # Run the checker
+        $checker = new Selima::Checker::AcctTrx(curform);
+        $checker->redir(qw(del cnvttrans selsubj));
+        $error = $checker->check(qw(date ord note recs));
+        return $error if defined $error;
+    
+    # A form to delete a current item
+    } elsif ($_ eq "del") {
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;;
+        # Run the checker
+        $checker = new Selima::Checker::AcctTrx(curform);
+        $checker->redir(qw(cancel));
+    
+    # Not a valid form
+    } else {
+        return {"msg"=>N_("Incorrect form: [_1]."),
+                "margs"=>[$_],
+                "isform"=>0};
+    }
+    # OK
+    return;
+}
+
+# html_page: Display the page
+sub html_page($) {
+    local ($_, %_);
+    my ($status, $LIST, $FORM);
+    $status = $_[0];
+    # A form is requested
+    if (is_form $status) {
+        $FORM = new Selima::Form::AcctTrx($status);
+        html_header $FORM->{"title"};
+        html_errmsg $status;
+        $FORM->html;
+        html_footer;
+    
+    # List the available items
+    } else {
+        $LIST = new Selima::List::Accounting::Transacts;
+        html_header $LIST->{"title"}, undef, $LIST->page_param;
+        html_errmsg $status;
+        $LIST->html;
+        html_footer;
+    }
+    return;
+}
+
+
+##################################
+# Subroutines to manage the data #
+##################################
+# fetch_curitem: Fetch the current item
+sub fetch_curitem() {
+    local ($_, %_);
+    my ($sn, $FORM, $sth, $sql, $row);
+    
+    # Return if fetched before
+    return if scalar(keys %CURRENT) > 0;
+    
+    # Obtain the current form
+    $FORM = curform;
+    # No item specified
+    return {"msg"=>N_("Please select the accounting transaction."),
+            "isform"=>0}
+        if !defined $FORM->param("sn");
+    $sn = $FORM->param("sn");
+    
+    # Find the record
+    %CURRENT = fetchrec $sn, $THIS_TABLE;
+    # If this record exist
+    return {"msg"=>N_("This accounting transaction does not exist anymore.  Please select another one."),
+            "isform"=>0}
+        if scalar(keys %CURRENT) == 0;
+    
+    # Obtain the belonging debit records list
+    $sql = "SELECT * FROM acctrecs"
+        . " WHERE trx=$sn"
+        . " AND NOT credit"
+        . " ORDER BY ord;\n";
+    $sth = $DBH->prepare($sql);
+    $sth->execute;
+    $CURRENT{"debtcount"} = $sth->rows;
+    for ($_ = 0; $_ < $CURRENT{"debtcount"}; $_++) {
+        $row = $sth->fetchrow_hashref;
+        $CURRENT{"debt$_" . "sn"} = $$row{"sn"};
+        $CURRENT{"debt$_" . "ord"} = $$row{"ord"};
+        $CURRENT{"debt$_" . "subj"} = $$row{"subj"};
+        $CURRENT{"debt$_" . "summary"} = $$row{"summary"};
+        $CURRENT{"debt$_" . "amount"} = $$row{"amount"};
+    }
+    
+    # Obtain the belonging credit records list
+    $sql = "SELECT * FROM acctrecs"
+        . " WHERE trx=$sn"
+        . " AND credit"
+        . " ORDER BY ord;\n";
+    $sth = $DBH->prepare($sql);
+    $sth->execute;
+    $CURRENT{"crdtcount"} = $sth->rows;
+    for ($_ = 0; $_ < $CURRENT{"crdtcount"}; $_++) {
+        $row = $sth->fetchrow_hashref;
+        $CURRENT{"crdt$_" . "sn"} = $$row{"sn"};
+        $CURRENT{"crdt$_" . "ord"} = $$row{"ord"};
+        $CURRENT{"crdt$_" . "subj"} = $$row{"subj"};
+        $CURRENT{"crdt$_" . "summary"} = $$row{"summary"};
+        $CURRENT{"crdt$_" . "amount"} = $$row{"amount"};
+    }
+    
+    # Determine the subform type
+    if (        $CURRENT{"debtcount"} == 1
+                && acctsubj_code($CURRENT{"debt0subj"}) eq ACCTSUBJ_CASH
+                && !defined $CURRENT{"debt0summary"}) {
+        $CURRENT{"formsub"} = "income";
+    } elsif (   $CURRENT{"crdtcount"} == 1
+                && acctsubj_code($CURRENT{"crdt0subj"}) eq ACCTSUBJ_CASH
+                && !defined $CURRENT{"crdt0summary"}) {
+        $CURRENT{"formsub"} = "expense";
+    } else {
+        $CURRENT{"formsub"} = "trans";
+    }
+    
+    # OK
+    return;
+}
+
+# import_selsubj: Import the selected subject into the retrieved form
+sub import_selsubj($) {
+    my $FORM;
+    $FORM = $_[0];
+    # Sanity checks
+    return $FORM
+        if  !defined $GET->param("selsn")
+            || !check_sn_in ${$GET->param_fetch("selsn")}[0], "acctsubj"
+            || !defined $FORM->param("caller_index");
+    $FORM->param($FORM->param("caller_index") . "subj", $GET->param("selsn"));
+    return $FORM;
+}

htdocs/wov/magicat/bin/r703alog

@@ -0,0 +1,343 @@
+#! /usr/bin/perl -w
+# Filename:     r703alog
+# Description:  Perl script to download r703a log files
+# Author:       imacat <imacat@mail.imacat.idv.tw>
+# Date:         2000-12-21
+# Copyright:    (c) 2000-2007 imacat
+
+use 5.006;
+use strict;
+use warnings;
+use Compress::Zlib qw(gzopen);
+use Fcntl qw(:flock :seek);
+use File::Basename qw(basename);
+use File::Temp qw(tempfile);
+use Getopt::Long qw(GetOptions);
+use IO::Handle qw(autoflush);
+use IPC::Open3 qw(open3);
+use Net::FTP qw();
+use Socket qw();
+# Prototype declaration
+sub main();
+sub parse_args();
+sub is_member($@);
+sub format_number($);
+sub xfread($);
+
+use vars qw($THIS_FILE $VERSION $VERBOSE);
+$THIS_FILE = basename($0);
+$VERSION = "2.03";
+$VERBOSE = 1;
+
+use vars qw($R_HOST $R_ID $R_PASSWD $R_DIR $L_DIR $FILELIST %DNS @RESLOG @ARCLOG);
+$R_HOST = "r703a.chem.nthu.edu.tw";
+$R_ID = "wov";
+$R_PASSWD = undef;
+$R_DIR = "/srv/www/logs";
+$L_DIR = "/var/log/apache/wov/r703a";
+$FILELIST = "$L_DIR/filelist.txt";
+%DNS = qw();
+@RESLOG = qw(/usr/sbin/reslog.pl --stdout);
+@ARCLOG = qw(/usr/sbin/arclog.pl --keep=all --override=append --sort - /var/log/apache/wov/r703a/access_log);
+
+use vars qw($VERMSG $SHORTHELP $HELPMSG);
+$VERMSG = "$THIS_FILE v$VERSION by imacat <imacat\@mail.imacat.idv.tw>";
+$SHORTHELP = "Try `$THIS_FILE --help' for more information.";
+$HELPMSG = << "EOT";
+Usage: $THIS_FILE [options]
+Download and archive the r703a apache access log files.
+
+  -d,--debug    Display debug messages.  Multiple --debug to debug more.
+  -q,--quiet    Disable debug messages.  An opposite that cancels the
+                effect of --debug.
+  -h,--help     Display this help.
+  -v,--version  Display version number.
+
+EOT
+
+main;
+exit 0;
+
+# main: Main program
+sub main() {
+    local ($_, %_);
+    my ($FTP, @downloaded, @files, $t0, $t);
+    my ($WORKING, $FH);
+    my ($file, $gz, $bytes);
+    my ($fc_total, $fc_acc, $fc_new);
+    my ($rc_total, $rc_valid, $rc_file_total, $rc_file_valid);
+    my ($errline, @errmsgs);
+    
+    # Parse the arguments
+    parse_args;
+    
+    # No longer a working script
+    print "Mission completed long time ago.  Program stopped to avoid further problems.\n";
+    return;
+    
+    # Get the downloaded files list
+    print STDERR "Fetching the downloaded list... " if $VERBOSE >= 2;
+    @downloaded = xfread $FILELIST;
+    @downloaded = grep /\S/, @downloaded;
+    @downloaded = grep !/^#/, @downloaded;
+    chomp foreach @downloaded;
+    print STDERR "done\n" if $VERBOSE >= 2;
+    print STDERR "" . format_number(scalar @downloaded) . " downloaded files recorded in the downloaded list.\n" if $VERBOSE >= 1;
+    
+    # Get the files list
+    print STDERR "Connecting to $R_HOST... " if $VERBOSE >= 2;
+    $FTP = new Net::FTP($R_HOST)        or die "$THIS_FILE: Failed FTP connection: $@";
+    $FTP->login($R_ID, $R_PASSWD)       or die "$THIS_FILE: Failed login: " . $FTP->code . " " . $FTP->message;
+    print STDERR "done\n" if $VERBOSE >= 2;
+    print STDERR "Fetching the files list... " if $VERBOSE >= 2;
+    $FTP->cwd($R_DIR)                   or die "$THIS_FILE: Failed cwd $R_DIR: " . $FTP->code . " " . $FTP->message;
+    (@files = $FTP->ls())               or die "$THIS_FILE: Failed ls: " . $FTP->code . " " . $FTP->message;
+    print STDERR "done\n" if $VERBOSE >= 2;
+    print STDERR "Filtering new access logs... " if $VERBOSE >= 2;
+    $fc_total = format_number(scalar @files);
+    @files = grep /^httpd-log\.[A-Z][a-z]{2}\d{4}\.gz$/, @files;
+    $fc_acc = format_number(scalar @files);
+    @files = grep !is_member($_, @downloaded), @files;
+    $fc_new = format_number(scalar @files);
+    print STDERR "done\n" if $VERBOSE >= 2;
+    print STDERR "$fc_new new files found in $fc_acc access logs in $fc_total files.\n" if $VERBOSE >= 1;
+    
+    if ($fc_new == 0) {
+        print STDERR "No new files found. Program exists\n" if $VERBOSE >= 1;
+        # Close the connection
+        print STDERR "Closing the FTP connection... " if $VERBOSE >= 2;
+        $FTP->quit                      or die "$THIS_FILE: ftp close: " . $FTP->code . " " . $FTP->message;
+        print STDERR "done\n" if $VERBOSE >= 2;
+        print STDERR "Done. " . format_number($fc_new) . " files processed, " . format_number(time - $^T) . " seconds elapsed\n" if $VERBOSE >= 1;
+        return;
+    }
+    
+    # Download the files
+    print STDERR "Now we will download the new files\n" if $VERBOSE >= 2;
+    $t0 = time;
+    foreach (@files) {
+        print STDERR "Downloading $_... " if $VERBOSE >= 1;
+        $t = time;
+        $FTP->get($_, "$L_DIR/$_")      or die "$THIS_FILE: Failed get $L_DIR/$_: " . $FTP->code . " " . $FTP->message;
+        print STDERR "done, " . format_number(time - $t) . " seconds elapsed\n" if $VERBOSE >= 1;
+    }
+    print STDERR "Downloading finished, " . format_number(scalar @files) . " new files downloaded, " . format_number(time - $t0) . " seconds elapsed\n" if $VERBOSE >= 2;
+    
+    # Close the connection
+    print STDERR "Closing the FTP connection... " if $VERBOSE >= 2;
+    $FTP->quit                          or die "$THIS_FILE: ftp close: " . $FTP->code . " " . $FTP->message;
+    print STDERR "done\n" if $VERBOSE >= 2;
+    
+    # Create the temporary working file
+    print STDERR "Creating temporary working file... " if $VERBOSE >= 2;
+    ($WORKING = tempfile)               or die "$THIS_FILE: $!";
+    print STDERR "done\n" if $VERBOSE >= 2;
+    
+    # Copy the needed records into temporary working file
+    print STDERR "Now we will copy records to the temporary working file\n" if $VERBOSE >= 2;
+    ($rc_total, $rc_valid) = (0, 0);
+    foreach $file (@files) {
+        # Open the file
+        print STDERR "Opening $file... " if $VERBOSE >= 2;
+        $gz = gzopen("$L_DIR/$file", "rb")
+                                        or die "$THIS_FILE: $!";
+        print STDERR "done\n" if $VERBOSE >= 2;
+        
+        # Copy to the temporary working file
+        print STDERR "Copying records... " if $VERBOSE >= 2;
+        ($rc_file_total, $rc_file_valid) = (0, 0);
+        while (($bytes = $gz->gzreadline($_)) != 0) {
+            die "$THIS_FILE: " . $gz->gzerror() if $bytes == -1;
+            $rc_file_total++;
+            next unless / \/(~|%7E)wov/;
+            print $WORKING $_;
+            $rc_file_valid++;
+        }
+        print STDERR "done\n" if $VERBOSE >= 2;
+        print "" . format_number($rc_file_valid) . " valid records copied in " . format_number($rc_file_total) . " found records.\n"  if $VERBOSE >= 2;
+        $rc_total += $rc_file_total;
+        $rc_valid += $rc_file_valid;
+        
+        # Close the source file
+        print STDERR "Closing $file... " if $VERBOSE >= 2;
+        $gz->gzclose() && die "$THIS_FILE: " . $gz->gzerror();
+        print STDERR "done\n" if $VERBOSE >= 2;
+        
+        # Deleting the source file
+        print STDERR "Deleting $file... " if $VERBOSE >= 2;
+        unlink "$L_DIR/$file"           or die "$THIS_FILE: $L_DIR/$file: $!";
+        print STDERR "done\n" if $VERBOSE >= 2;
+    }
+    print STDERR "Copying finished\n" if $VERBOSE >= 2;
+    print STDERR "Totally " . format_number($rc_valid) . " valid records copied in " . format_number($rc_total) . " found records.\n" if $VERBOSE >= 1;
+    
+    # Resolve the records
+    print STDERR "Now we will resolve the records\n" if $VERBOSE >= 1;
+    $t = time;
+    if ($VERBOSE >= 2) {
+        open3(\*DATA_W, \*DATA_R, \*DATA_E, @RESLOG, "--debug")
+                                        or die "$THIS_FILE: $!";
+    } else {
+        open3(\*DATA_W, \*DATA_R, \*DATA_E, @RESLOG, "--quiet")
+                                        or die "$THIS_FILE: $!";
+    }
+    
+    seek $WORKING, 0, SEEK_SET          or die "$THIS_FILE: $!";
+    print DATA_W $_ while defined($_ = <$WORKING>);
+    
+    close DATA_W                        or die "$THIS_FILE: $!";
+    if ($VERBOSE >= 2) {
+        $errline = "";
+        while (defined($_ = getc DATA_E)) {
+            print STDERR $_ if $VERBOSE >= 2;
+            $errline =~ s/^[^\n]*\n$//;
+            $errline .= $_;
+            if ($errline eq "Printing to STDOUT... ") {
+                seek $WORKING, 0, SEEK_SET
+                                        or die "$THIS_FILE: $!";
+                truncate $WORKING, 0    or die "$THIS_FILE: $!";
+                print $WORKING $_ while defined($_ = <DATA_R>);
+            }
+        }
+    } else {
+        seek $WORKING, 0, SEEK_SET      or die "$THIS_FILE: $!";
+        truncate $WORKING, 0            or die "$THIS_FILE: $!";
+        print $WORKING $_ while defined($_ = <DATA_R>);
+    }
+    close DATA_E                        or die "$THIS_FILE: $!";
+    close DATA_R                        or die "$THIS_FILE: $!";
+    wait;
+    die "$THIS_FILE: Failed reslog.pl with error code $?" if $? != 0;
+    print STDERR "Resolving finished, " . format_number(time - $t) . " seconds elapsed\n" if $VERBOSE >= 1;
+    
+    # Archive the records
+    print STDERR "Now we will archive the records\n" if $VERBOSE >= 1;
+    $t = time;
+    if ($VERBOSE >= 2) {
+        open3(\*DATA_W, \*DATA_R, \*DATA_E, @ARCLOG)
+                                        or die "$THIS_FILE: $!";
+    } else {
+        open3(\*DATA_W, \*DATA_R, \*DATA_E, @ARCLOG, "--quiet")
+                                        or die "$THIS_FILE: $!";
+    }
+    
+    seek $WORKING, 0, SEEK_SET          or die "$THIS_FILE: $!";
+    print DATA_W $_ while defined($_ = <$WORKING>);
+    
+    close DATA_W                        or die "$THIS_FILE: $!";
+    while (defined($_ = getc DATA_E)) {
+        print STDERR $_ if $VERBOSE >= 2;
+    }
+    close DATA_R                        or die "$THIS_FILE: $!";
+    close DATA_E                        or die "$THIS_FILE: $!";
+    wait;
+    die "$THIS_FILE: Failed arclog.pl with error code $?" if $? != 0;
+    print STDERR "Archiving finished, " . format_number(time - $t) . " seconds elapsed\n" if $VERBOSE >= 1;
+    
+    # Close the temporary working file
+    print STDERR "Closing temporary working file... " if $VERBOSE >= 2;
+    close $WORKING                      or die "$THIS_FILE: $!";
+    print STDERR "done\n" if $VERBOSE >= 2;
+    
+    # Write the new files to the downloaded list
+    print STDERR "Updating the downloaded list... " if $VERBOSE >= 2;
+    open $FH, ">>$FILELIST"             or die "$THIS_FILE: $FILELIST: $!";
+    flock $FH, LOCK_EX                  or die "$THIS_FILE: $FILELIST: $!";
+    print $FH join "", map "$_\n", @files;
+    flock $FH, LOCK_UN                  or die "$THIS_FILE: $FILELIST: $!";
+    close $FH                           or die "$THIS_FILE: $FILELIST: $!";
+    print STDERR "done\n" if $VERBOSE >= 2;
+    
+    print STDERR format_number(scalar @files) . " files processed\n"
+        if $VERBOSE > 0;
+    print STDERR "Done.  " . (time - $^T) . " seconds elapsed.\n"
+        if $VERBOSE > 0;
+    return;
+}
+
+# parse_args: Parse the arguments
+sub parse_args() {
+    local ($_, %_);
+    
+    # Get the arguments
+    eval {
+        local $SIG{"__WARN__"} = sub { die $_[0]; };
+        Getopt::Long::Configure(qw(no_auto_abbrev bundling));
+        GetOptions( "debug|d+"=>\$VERBOSE,
+                    "quiet|q"=>sub { $VERBOSE-- if $VERBOSE > 0; },
+                    "help|h"=>sub { print $HELPMSG; exit 0; },
+                    "version|v"=>sub { print "$VERMSG\n"; exit 0; });
+    };
+    die "$THIS_FILE: $@$SHORTHELP\n" if $@ ne "";
+    
+    $| = 1 if $VERBOSE > 0;
+    
+    # Check the arguments
+    # We have no arguments
+    die "$THIS_FILE: Too many arguments: $ARGV[0]\n$SHORTHELP\n"
+        if @ARGV > 0;
+    
+    return;
+}
+
+# is_member: If a variable is a member of an array
+sub is_member($@) {
+    local ($_, %_);
+    my ($v, @a);
+    ($v, @a) = @_;
+    return 1 if grep ($_ eq $v, @a) > 0;
+    return 0;
+}
+
+# format_number: Format the number every 3 digit
+sub format_number($) {
+    local ($_, %_);
+    $_ = $_[0];
+    # Group every 3 digit
+    $_ = $1 . "," . $2 . $3 while /^([^\.]*\d)(\d\d\d)(.*)$/;
+    return $_;
+}
+
+# xfread: Read from a file
+sub xfread($) {
+    local ($_, %_);
+    my ($FH, $file);
+    $file = $_[0];
+    
+    # Return as lines
+    if (wantarray) {
+        open $FH, $file                 or die "$THIS_FILE: $file: $!";
+        flock $FH, LOCK_SH              or die "$THIS_FILE: $file: $!";
+        @_ = <$FH>;
+        flock $FH, LOCK_UN              or die "$THIS_FILE: $file: $!";
+        close $FH                       or die "$THIS_FILE: $file: $!";
+        return @_;
+    
+    # A scalar file content
+    } else {
+        # Regular files
+        if (-f $file) {
+            my $size;
+            @_ = stat $file             or die "$THIS_FILE: $file: $!";
+            $size = $_[7];
+            return "" if $size == 0;
+            open $FH, $file             or die "$THIS_FILE: $file: $!";
+            flock $FH, LOCK_SH          or die "$THIS_FILE: $file: $!";
+            read $FH, $_, $size         or die "$THIS_FILE: $file: $!";
+            flock $FH, LOCK_UN          or die "$THIS_FILE: $file: $!";
+            close $FH                   or die "$THIS_FILE: $file: $!";
+            return $_;
+        
+        # Special files
+        } else {
+            open $FH, $file             or die "$THIS_FILE: $file: $!";
+            flock $FH, LOCK_SH          or die "$THIS_FILE: $file: $!";
+            $_ = join "", <$FH>;
+            flock $FH, LOCK_UN          or die "$THIS_FILE: $file: $!";
+            close $FH                   or die "$THIS_FILE: $file: $!";
+            return $_;
+        }
+    }
+}
+
+__END__

htdocs/wov/magicat/cgi-bin/actlog.cgi

@@ -0,0 +1,51 @@
+#! /usr/bin/perl -w
+# Woman's Voice
+# actlog.cgi: The activity log viewer.
+
+#  Copyright (c) 2005-2021 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2005-05-10
+
+use 5.008;
+use strict;
+use warnings;
+use lib $ENV{"DOCUMENT_ROOT"} . qw(/magicat/lib/perl5);
+use Selima::wov;
+local $SIG{"__DIE__"} = \&http_500;
+my $d = new Selima::Destroy;
+# Prototype declaration
+sub main();
+
+initenv(-restricted => 1,
+        -allowed    => [qw(GET HEAD)],
+        -lastmod    => 0,
+        -lmfiles    => [$ACTLOG],
+        -page_param => {"keywords"              => N_("activity, logs")});
+
+main;
+exit 0;
+
+sub main() {
+    local ($_, %_);
+    my $LIST;
+    # List handler handles its own error
+    $LIST = new Selima::List::ActLog;
+    html_header $LIST->{"title"};
+    html_errmsg retrieve_status;
+    $LIST->html;
+    html_footer;
+    return;
+}

htdocs/wov/magicat/cgi-bin/groupmem.cgi

@@ -0,0 +1,236 @@
+#! /usr/bin/perl -w
+# Woman's Voice
+# groupmem.cgi: The group-to-group membership administration.
+
+#  Copyright (c) 2004-2021 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2004-10-16
+
+use 5.008;
+use strict;
+use warnings;
+use lib $ENV{"DOCUMENT_ROOT"} . qw(/magicat/lib/perl5);
+use Selima::wov;
+local $SIG{"__DIE__"} = \&http_500;
+my $d = new Selima::Destroy;
+# Prototype declaration
+sub main();
+sub check_get();
+sub check_post();
+sub html_page($);
+sub fetch_curitem();
+sub import_selgrp($);
+sub import_selmember($);
+
+initenv(-restricted => 1,
+        -this_table => "groupmem",
+        -dbi_lock   => {"groupmem"              => LOCK_EX,
+                        "groups"                => LOCK_SH,
+                        "groups AS grpmembers"  => LOCK_SH},
+        -lastmod    => 1,
+        -page_param => {"keywords"              => N_("group membership")});
+
+main;
+exit 0;
+
+sub main() {
+    local ($_, %_);
+    my ($error, $success, $processor);
+    
+    # If the request is a GET query
+    if ($ENV{"REQUEST_METHOD"} ne "POST") {
+        $error = check_get;
+        # If an error occurs
+        if (defined $error) {
+            html_page $error;
+        
+        # Display the page
+        } else {
+            html_page retrieve_status;
+        }
+    
+    # If a form was POSTed from the client
+    } else {
+        $error = check_post;
+        # If an error occurs
+        if (defined $error) {
+            error_redirect $error;
+        
+        # Else, save the data
+        } else {
+            $processor = new Selima::Processor::GroupMem($POST);
+            $success = $processor->process;
+            success_redirect $success;
+        }
+    }
+    return;
+}
+
+# check_get: Check the GET arguments
+sub check_get() {
+    local ($_, %_);
+    my $error;
+    
+    # A form is requested
+    if (is_form) {
+        $_ = form_type;
+        # A form to create a new item
+        if ($_ eq "new") {
+            # Nothing to check on a new form
+        
+        # A form to edit a current item
+        } elsif ($_ eq "cur") {
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+        
+        # A form to delete a current item
+        } elsif ($_ eq "del") {
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+        
+        # Not a valid form
+        } else {
+            return {"msg"=>N_("Incorrect form: [_1]."),
+                    "margs"=>[$_],
+                    "isform"=>0};
+        }
+    }
+    # List handler handles its own error
+    # OK
+    return;
+}
+
+# check_post: Check the POSTed form
+sub check_post() {
+    local ($_, %_);
+    my ($checker, $error);
+    $_ = form_type;
+    # A form to create a new item
+    if ($_ eq "new") {
+        # Run the checker
+        $checker = new Selima::Checker::GroupMem(curform);
+        $checker->redir(qw(selgrp delgrp selmember delmember));
+        $error = $checker->check(qw(grp member));
+        return $error if defined $error;
+    
+    # A form to edit a current item
+    } elsif ($_ eq "cur") {
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;
+        # Run the checker
+        $checker = new Selima::Checker::GroupMem(curform);
+        $checker->redir(qw(del selgrp delgrp selmember delmember));
+        $error = $checker->check(qw(grp member));
+        return $error if defined $error;
+    
+    # A form to delete a current item
+    } elsif ($_ eq "del") {
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;;
+        # Run the checker
+        $checker = new Selima::Checker::GroupMem(curform);
+        $checker->redir(qw(cancel));
+    
+    # Not a valid form
+    } else {
+        return {"msg"=>N_("Incorrect form: [_1]."),
+                "margs"=>[$_],
+                "isform"=>0};
+    }
+    # OK
+    return;
+}
+
+# html_page: Display the page
+sub html_page($) {
+    local ($_, %_);
+    my ($status, $LIST, $FORM);
+    $status = $_[0];
+    # A form is requested
+    if (is_form $status) {
+        $FORM = new Selima::Form::GroupMem($status);
+        html_header $FORM->{"title"};
+        html_errmsg $status;
+        $FORM->html;
+        html_footer;
+    
+    # List the available items
+    } else {
+        $LIST = new Selima::List::GroupMem;
+        html_header $LIST->{"title"}, undef, $LIST->page_param;
+        html_errmsg $status;
+        $LIST->html;
+        html_footer;
+    }
+    return;
+}
+
+
+##################################
+# Subroutines to manage the data #
+##################################
+# fetch_curitem: Fetch the current item
+sub fetch_curitem() {
+    local ($_, %_);
+    my ($sn, $FORM);
+    
+    # Return if fetched before
+    return if scalar(keys %CURRENT) > 0;
+    
+    # Obtain the current form
+    $FORM = curform;
+    # No item specified
+    return {"msg"=>N_("Please select the membership record."),
+            "isform"=>0}
+        if !defined $FORM->param("sn");
+    $sn = $FORM->param("sn");
+    
+    # Find the record
+    %CURRENT = fetchrec $sn, $THIS_TABLE;
+    # If this record exist
+    return {"msg"=>N_("This membership record does not exist anymore.  Please select another one."),
+            "isform"=>0}
+        if scalar(keys %CURRENT) == 0;
+    
+    # OK
+    return;
+}
+
+# import_selgrp: Import the selected group into the retrieved form
+sub import_selgrp($) {
+    local ($_, %_);
+    my $FORM;
+    $FORM = $_[0];
+    $FORM->param("grp", $GET->param("selsn"))
+        if  defined $GET->param("selsn")
+            && check_sn_in ${$GET->param_fetch("selsn")}[0], "groups";
+    return;
+}
+
+# import_selmember: Import the selected member into the retrieved form
+sub import_selmember($) {
+    local ($_, %_);
+    my $FORM;
+    $FORM = $_[0];
+    $FORM->param("member", $GET->param("selsn"))
+        if  defined $GET->param("selsn")
+            && check_sn_in ${$GET->param_fetch("selsn")}[0], "groups AS grpmembers";
+    return $FORM;
+}

htdocs/wov/magicat/cgi-bin/groups.cgi

@@ -0,0 +1,357 @@
+#! /usr/bin/perl -w
+# Woman's Voice
+# groups.cgi: The account group administration.
+
+#  Copyright (c) 2004-2021 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2004-10-16
+
+use 5.008;
+use strict;
+use warnings;
+use lib $ENV{"DOCUMENT_ROOT"} . qw(/magicat/lib/perl5);
+use Selima::wov;
+local $SIG{"__DIE__"} = \&http_500;
+my $d = new Selima::Destroy;
+# Prototype declaration
+sub main();
+sub check_get();
+sub check_post();
+sub html_page($);
+sub fetch_curitem();
+sub import_selsubuser($);
+sub import_selsubgroup($);
+sub import_selsupgroup($);
+
+initenv(-restricted => 1,
+        -this_table => "groups",
+        -dbi_lock   => {"groups"                => LOCK_EX,
+                        "usermem"               => LOCK_EX,
+                        "groupmem"              => LOCK_EX,
+                        "users"                 => LOCK_SH,
+                        "users AS members"      => LOCK_SH,
+                        "groups AS members"     => LOCK_SH},
+        -lastmod    => 1,
+        -page_param => {"keywords"              => N_("groups")});
+
+main;
+exit 0;
+
+sub main() {
+    local ($_, %_);
+    my ($error, $success, $processor);
+    
+    # If the request is a GET query
+    if ($ENV{"REQUEST_METHOD"} ne "POST") {
+        $error = check_get;
+        # If an error occurs
+        if (defined $error) {
+            html_page $error;
+        
+        # Display the page
+        } else {
+            html_page retrieve_status;
+        }
+    
+    # If a form was POSTed from the client
+    } else {
+        $error = check_post;
+        # If an error occurs
+        if (defined $error) {
+            error_redirect $error;
+        
+        # Else, save the data
+        } else {
+            $processor = new Selima::Processor::Group($POST);
+            $success = $processor->process;
+            success_redirect $success;
+        }
+    }
+    return;
+}
+
+# check_get: Check the GET arguments
+sub check_get() {
+    local ($_, %_);
+    my ($error, $FORM, $sn);
+    
+    # A form is requested
+    if (is_form) {
+        $_ = form_type;
+        # A form to create a new item
+        if ($_ eq "new") {
+            # Nothing to check on a new form
+        
+        # A form to edit a current item
+        } elsif ($_ eq "cur") {
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+        
+        # A form to delete a current item
+        } elsif ($_ eq "del") {
+            # Check the privilege to manage this table
+            $FORM = curform;
+            $sn = defined $FORM->param("sn")? $FORM->param("sn"): -1;
+            unauth if !is_su && $sn == su_group_sn;
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+        
+        # Not a valid form
+        } else {
+            return {"msg"=>N_("Incorrect form: [_1]."),
+                    "margs"=>[$_],
+                    "isform"=>0};
+        }
+    }
+    # List handler handles its own error
+    # OK
+    return;
+}
+
+# check_post: Check the POSTed form
+sub check_post() {
+    local ($_, %_);
+    my ($checker, $error, $FORM, $sn);
+    $_ = form_type;
+    # A form to create a new item
+    if ($_ eq "new") {
+        # Run the checker
+        $checker = new Selima::Checker::Group(curform);
+        $checker->redir(qw(selsubuser selsubgroup selsupgroup));
+        $error = $checker->check(qw(id dsc subuser subgroup supgroup));
+        return $error if defined $error;
+    
+    # A form to edit a current item
+    } elsif ($_ eq "cur") {
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;
+        # Run the checker
+        $checker = new Selima::Checker::Group(curform);
+        $checker->redir(qw(del selsubuser selsubgroup selsupgroup));
+        $error = $checker->check(qw(id dsc subuser subgroup supgroup));
+        return $error if defined $error;
+    
+    # A form to delete a current item
+    } elsif ($_ eq "del") {
+        # Check the privilege to manage this table
+        $FORM = curform;
+        $sn = defined $FORM->param("sn")? $FORM->param("sn"): -1;
+        unauth if !is_su && $sn == su_group_sn;
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;
+        # Run the checker
+        $checker = new Selima::Checker::Group(curform);
+        $checker->redir(qw(cancel));
+    
+    # Not a valid form
+    } else {
+        return {"msg"=>N_("Incorrect form: [_1]."),
+                "margs"=>[$_],
+                "isform"=>0};
+    }
+    # OK
+    return;
+}
+
+# html_page: Display the page
+sub html_page($) {
+    local ($_, %_);
+    my ($status, $LIST, $FORM);
+    $status = $_[0];
+    # A form is requested
+    if (is_form $status) {
+        $FORM = new Selima::Form::Group($status);
+        html_header $FORM->{"title"};
+        html_errmsg $status;
+        $FORM->html;
+        html_footer;
+    
+    # List the available items
+    } else {
+        $LIST = new Selima::List::Groups;
+        html_header $LIST->{"title"}, undef, $LIST->page_param;
+        html_errmsg $status;
+        $LIST->html;
+        html_footer;
+    }
+    return;
+}
+
+
+##################################
+# Subroutines to manage the data #
+##################################
+# fetch_curitem: Fetch the current item
+sub fetch_curitem() {
+    local ($_, %_);
+    my ($sn, $FORM, $sth, $sql, $row, $title);
+    
+    # Return if fetched before
+    return if scalar(keys %CURRENT) > 0;
+    
+    # Obtain the current form
+    $FORM = curform;
+    # No item specified
+    return {"msg"=>N_("Please select the group."),
+            "isform"=>0}
+        if !defined $FORM->param("sn");
+    $sn = $FORM->param("sn");
+    
+    # Find the record
+    %CURRENT = fetchrec $sn, $THIS_TABLE;
+    # If this record exist
+    return {"msg"=>N_("This group does not exist anymore.  Please select another one."),
+            "isform"=>0}
+        if scalar(keys %CURRENT) == 0;
+    
+    # Obtain the user members list
+    $title = $DBH->strcat("users.id", "' ('", "users.name", "')'");
+    $sql = "SELECT users.sn AS sn,"
+        . " $title AS title"
+        . " FROM usermem"
+        . " INNER JOIN users ON usermem.member=users.sn"
+        . " WHERE usermem.grp=$sn"
+        . " ORDER BY users.id;\n";
+    $sth = $DBH->prepare($sql);
+    $sth->execute;
+    $CURRENT{"subusercount"} = $sth->rows;
+    for ($_ = 0; $_ < $CURRENT{"subusercount"}; $_++) {
+        $row = $sth->fetchrow_hashref;
+        $CURRENT{"subuser$_"} = 1;
+        $CURRENT{"subuser$_" . "sn"} = $$row{"sn"};
+        $CURRENT{"subuser$_" . "title"} = $$row{"title"};
+    }
+    
+    # Obtain the group members list
+    $sql = "SELECT groups.sn AS sn,"
+        . " groups.dsc AS title FROM groupmem"
+        . " INNER JOIN groups ON groupmem.member=groups.sn"
+        . " WHERE groupmem.grp=$sn"
+        . " ORDER BY groups.id;\n";
+    $sth = $DBH->prepare($sql);
+    $sth->execute;
+    $CURRENT{"subgroupcount"} = $sth->rows;
+    for ($_ = 0; $_ < $CURRENT{"subgroupcount"}; $_++) {
+        $row = $sth->fetchrow_hashref;
+        $CURRENT{"subgroup$_"} = 1;
+        $CURRENT{"subgroup$_" . "sn"} = $$row{"sn"};
+        $CURRENT{"subgroup$_" . "title"} = $$row{"title"};
+    }
+    
+    # Obtain the belonging groups list
+    $sql = "SELECT groups.sn AS sn,"
+        . " groups.dsc AS title FROM groupmem"
+        . " INNER JOIN groups ON groupmem.grp=groups.sn"
+        . " WHERE groupmem.member=$sn"
+        . " ORDER BY groups.id;\n";
+    $sth = $DBH->prepare($sql);
+    $sth->execute;
+    $CURRENT{"supgroupcount"} = $sth->rows;
+    for ($_ = 0; $_ < $CURRENT{"supgroupcount"}; $_++) {
+        $row = $sth->fetchrow_hashref;
+        $CURRENT{"supgroup$_"} = 1;
+        $CURRENT{"supgroup$_" . "sn"} = $$row{"sn"};
+        $CURRENT{"supgroup$_" . "title"} = $$row{"title"};
+    }
+    
+    # OK
+    return;
+}
+
+# import_selsubuser: Import the selected user into the retrieved form
+sub import_selsubuser($) {
+    local ($_, %_);
+    my $FORM;
+    $FORM = $_[0];
+    # Sanity checks
+    if (    defined $GET->param("selsn")
+            && check_sn_in ${$GET->param_fetch("selsn")}[0], "users AS members") {
+        # Get the current member list
+        %_ = map { $FORM->param($_) => 1 } grep /^subuser\d+sn$/, $FORM->param;
+        $_{$GET->param("selsn")} = 1;
+        @_ = sort { userid $a cmp userid $b } keys %_;
+        # Get the checked member list
+        %_ = map { $FORM->param($_ . "sn") => 1 }
+            grep /^subuser\d+$/ && defined $FORM->param($_ . "sn"), $FORM->param;
+        $_{$GET->param("selsn")} = 1;
+        # Remove the old values
+        $FORM->delete(grep /^subuser\d+/, $FORM->param);
+        # Add the current values
+        for ($_ = 0; $_ < @_; $_++) {
+            $FORM->param("subuser$_" . "sn", $_[$_]);
+            $FORM->param("subuser$_", 1) if exists $_{$_[$_]};
+        }
+    }
+    return;
+}
+
+# import_selsubgroup: Import the selected user into the retrieved form
+sub import_selsubgroup($) {
+    local ($_, %_);
+    my $FORM;
+    $FORM = $_[0];
+    # Sanity checks
+    if (    defined $GET->param("selsn")
+            && check_sn_in ${$GET->param_fetch("selsn")}[0], "groups AS members") {
+        # Get the current member list
+        %_ = map { $FORM->param($_) => 1 } grep /^subgroup\d+sn$/, $FORM->param;
+        $_{$GET->param("selsn")} = 1;
+        @_ = sort { groupid $a cmp groupid $b } keys %_;
+        # Get the checked member list
+        %_ = map { $FORM->param($_ . "sn") => 1 }
+            grep /^subgroup\d+$/ && defined $FORM->param($_ . "sn"), $FORM->param;
+        $_{$GET->param("selsn")} = 1;
+        # Remove the old values
+        $FORM->delete(grep /^subgroup\d+/, $FORM->param);
+        # Add the current values
+        for ($_ = 0; $_ < @_; $_++) {
+            $FORM->param("subgroup$_" . "sn", $_[$_]);
+            $FORM->param("subgroup$_", 1) if exists $_{$_[$_]};
+        }
+    }
+    return;
+}
+
+# import_selsupgroup: Import the selected user into the retrieved form
+sub import_selsupgroup($) {
+    local ($_, %_);
+    my $FORM;
+    $FORM = $_[0];
+    # Sanity checks
+    if (    defined $GET->param("selsn")
+            && check_sn_in ${$GET->param_fetch("selsn")}[0], "groups") {
+        # Get the current member list
+        %_ = map { $FORM->param($_) => 1 } grep /^supgroup\d+sn$/, $FORM->param;
+        $_{$GET->param("selsn")} = 1;
+        @_ = sort { groupid $a cmp groupid $b } keys %_;
+        # Get the checked member list
+        %_ = map { $FORM->param($_ . "sn") => 1 }
+            grep /^supgroup\d+$/ && defined $FORM->param($_ . "sn"), $FORM->param;
+        $_{$GET->param("selsn")} = 1;
+        # Remove the old values
+        $FORM->delete(grep /^supgroup\d+/, $FORM->param);
+        # Add the current values
+        for ($_ = 0; $_ < @_; $_++) {
+            $FORM->param("supgroup$_" . "sn", $_[$_]);
+            $FORM->param("supgroup$_", 1) if exists $_{$_[$_]};
+        }
+    }
+    return;
+}

htdocs/wov/magicat/cgi-bin/guestbook.cgi

@@ -0,0 +1,211 @@
+#! /usr/bin/perl -w
+# Woman's Voice
+# guestbook.cgi: The guestbook administration.
+
+#  Copyright (c) 2003-2021 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2003-05-11
+
+use 5.008;
+use strict;
+use warnings;
+use lib $ENV{"DOCUMENT_ROOT"} . qw(/magicat/lib/perl5);
+use Selima::wov;
+local $SIG{"__DIE__"} = \&http_500;
+my $d = new Selima::Destroy;
+# Prototype declaration
+sub main();
+sub check_get();
+sub check_post();
+sub html_page($);
+sub fetch_curitem();
+
+initenv(-restricted => 1,
+        -this_table => "guestbook",
+        -dbi_lock   => {"guestbook"             => LOCK_EX},
+        -lastmod    => 1,
+        -page_param => {"keywords"              => N_("guestbook")});
+
+main;
+exit 0;
+
+sub main() {
+    local ($_, %_);
+    my ($error, $success, $processor);
+    
+    # If the request is a GET query
+    if ($ENV{"REQUEST_METHOD"} ne "POST") {
+        $error = check_get;
+        # If an error occurs
+        if (defined $error) {
+            html_page $error;
+        
+        # Display the page
+        } else {
+            html_page retrieve_status;
+        }
+    
+    # If a form was POSTed from the client
+    } else {
+        $error = check_post;
+        # If an error occurs
+        if (defined $error) {
+            error_redirect $error;
+        
+        # Else, save the data
+        } else {
+            $processor = new Selima::Processor::Guestbook($POST);
+            $success = $processor->process;
+            success_redirect $success;
+        }
+    }
+    return;
+}
+
+# check_get: Check the GET arguments
+sub check_get() {
+    local ($_, %_);
+    my $error;
+    
+    # A form is requested
+    if (is_form) {
+        $_ = form_type;
+        # A form to create a new item
+        if ($_ eq "new") {
+            # Nothing to check on a new form
+        
+        # A form to edit a current item
+        } elsif ($_ eq "cur") {
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+        
+        # A form to delete a current item
+        } elsif ($_ eq "del") {
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+        
+        # Not a valid form
+        } else {
+            return {"msg"=>N_("Incorrect form: [_1]."),
+                    "margs"=>[$_],
+                    "isform"=>0};
+        }
+    }
+    # List handler handles its own error
+    # OK
+    return;
+}
+
+# check_post: Check the POSTed form
+sub check_post() {
+    local ($_, %_);
+    my ($checker, $error);
+    $_ = form_type;
+    # A form to create a new item
+    if ($_ eq "new") {
+        # Run the checker
+        $checker = new Selima::wov::Checker::Guestbook(curform);
+        $error = $checker->check(qw(name identity location
+            email url message));
+        return $error if defined $error;
+    
+    # A form to edit a current item
+    } elsif ($_ eq "cur") {
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;
+        # Run the checker
+        $checker = new Selima::wov::Checker::Guestbook(curform);
+        $checker->redir(qw(del));
+        $error = $checker->check(qw(name identity location
+            email url message));
+        return $error if defined $error;
+    
+    # A form to delete a current item
+    } elsif ($_ eq "del") {
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;;
+        # Run the checker
+        $checker = new Selima::wov::Checker::Guestbook(curform);
+        $checker->redir(qw(cancel));
+    
+    # Not a valid form
+    } else {
+        return {"msg"=>N_("Incorrect form: [_1]."),
+                "margs"=>[$_],
+                "isform"=>0};
+    }
+    # OK
+    return;
+}
+
+# html_page: Display the page
+sub html_page($) {
+    local ($_, %_);
+    my ($status, $LIST, $FORM);
+    $status = $_[0];
+    # A form is requested
+    if (is_form $status) {
+        $FORM = new Selima::wov::Form::Guestbook($status);
+        html_header $FORM->{"title"};
+        html_errmsg $status;
+        $FORM->html;
+        html_footer;
+    
+    # List the available items
+    } else {
+        $LIST = new Selima::wov::List::Guestbook;
+        html_header $LIST->{"title"}, undef, $LIST->page_param;
+        html_errmsg $status;
+        $LIST->html;
+        html_footer;
+    }
+    return;
+}
+
+
+##################################
+# Subroutines to manage the data #
+##################################
+# fetch_curitem: Fetch the current item
+sub fetch_curitem() {
+    local ($_, %_);
+    my ($sn, $FORM);
+    
+    # Return if fetched before
+    return if scalar(keys %CURRENT) > 0;
+    
+    # Obtain the current form
+    $FORM = curform;
+    # No item specified
+    return {"msg"=>N_("Please select the message."),
+            "isform"=>0}
+        if !defined $FORM->param("sn");
+    $sn = $FORM->param("sn");
+    
+    # Find the record
+    %CURRENT = fetchrec $sn, $THIS_TABLE;
+    # If this record exist
+    return {"msg"=>N_("This message does not exist anymore.  Please select another one."),
+            "isform"=>0}
+        if scalar(keys %CURRENT) == 0;
+    
+    # OK
+    return;
+}

htdocs/wov/magicat/cgi-bin/linkcat.cgi

@@ -0,0 +1,297 @@
+#! /usr/bin/perl -w
+# Woman's Voice
+# linkcat.cgi: The related-link category administration.
+
+#  Copyright (c) 2004-2021 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2004-11-02
+
+use 5.008;
+use utf8;
+use strict;
+use warnings;
+use lib $ENV{"DOCUMENT_ROOT"} . qw(/magicat/lib/perl5);
+use Selima::wov;
+local $SIG{"__DIE__"} = \&http_500;
+my $d = new Selima::Destroy;
+# Prototype declaration
+sub main();
+sub check_get();
+sub check_post();
+sub html_page($);
+sub fetch_curitem();
+sub import_selparent($);
+
+initenv(-restricted => 1,
+        -this_table => "linkcat",
+        -dbi_lock   => {"linkcat"               => LOCK_EX,
+                        "links"                 => LOCK_SH,
+                        "linkcatz"              => LOCK_SH},
+        -lastmod    => 0,
+        -page_param => {"keywords"              => N_("link categories")});
+
+main;
+exit 0;
+
+sub main() {
+    local ($_, %_);
+    my ($error, $success, $processor);
+    
+    # If the request is a GET query
+    if ($ENV{"REQUEST_METHOD"} ne "POST") {
+        $error = check_get;
+        # If an error occurs
+        if (defined $error) {
+            html_page $error;
+        
+        # Display the page
+        } else {
+            html_page retrieve_status;
+        }
+    
+    # If a form was POSTed from the client
+    } else {
+        $error = check_post;
+        # If an error occurs
+        if (defined $error) {
+            error_redirect $error;
+        
+        # Else, save the data
+        } else {
+            $processor = new Selima::wov::Processor::LinkCat($POST);
+            $success = $processor->process;
+            success_redirect $success;
+        }
+    }
+    return;
+}
+
+# check_get: Check the GET arguments
+sub check_get() {
+    local ($_, %_);
+    my $error;
+    
+    # A form is requested
+    if (is_form) {
+        $_ = form_type;
+        # A form to create a new item
+        if ($_ eq "new") {
+            # Nothing to check on a new form
+        
+        # A form to edit a current item
+        } elsif ($_ eq "cur") {
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+        
+        # A form to delete a current item
+        } elsif ($_ eq "del") {
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+            return {"msg"=>N_("This category has [numerate,_1,a subcategory,subcategories].  It cannot be deleted.  To delete the category, [numerate,_1,its subcategory,all of its subcategories] must first be deleted."),
+                    "margs"=>[$CURRENT{"scatcount"}],
+                    "isform"=>0}
+                if $CURRENT{"scatcount"} > 0;
+            return {"msg"=>N_("This category has [numerate,_1,a link,links].  It cannot be deleted.  To delete the category, [numerate,_1,its link,all of its links] must first be deleted."),
+                    "margs"=>[$CURRENT{"linkcount"}],
+                    "isform"=>0}
+                if $CURRENT{"linkcount"} > 0;
+        
+        # Not a valid form
+        } else {
+            return {"msg"=>N_("Incorrect form: [_1]."),
+                    "margs"=>[$_],
+                    "isform"=>0};
+        }
+    }
+    # List handler handles its own error
+    # OK
+    return;
+}
+
+# check_post: Check the POSTed form
+sub check_post() {
+    local ($_, %_);
+    my ($checker, $error);
+    $_ = form_type;
+    # A form to create a new item
+    if ($_ eq "new") {
+        # Run the checker
+        $checker = new Selima::Checker::LinkCat(curform);
+        $checker->redir(qw(selparent delparent));
+        $error = $checker->check(qw(parent id ord title title_en kw));
+        return $error if defined $error;
+    
+    # A form to edit a current item
+    } elsif ($_ eq "cur") {
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;
+        # Run the checker
+        $checker = new Selima::Checker::LinkCat(curform);
+        $checker->redir(qw(del selparent delparent));
+        $error = $checker->check(qw(parent id ord title title_en kw));
+        return $error if defined $error;
+    
+    # A form to delete a current item
+    } elsif ($_ eq "del") {
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;
+        # Run the checker
+        $checker = new Selima::Checker::LinkCat(curform);
+        $checker->redir(qw(cancel));
+        return {"msg"=>N_("This category has [numerate,_1,a subcategory,subcategories].  It cannot be deleted.  To delete the category, [numerate,_1,its subcategory,all of its subcategories] must first be deleted."),
+                "margs"=>[$CURRENT{"scatcount"}],
+                "isform"=>0}
+            if $CURRENT{"scatcount"} > 0;
+        return {"msg"=>N_("This category has [numerate,_1,a link,links].  It cannot be deleted.  To delete the category, [numerate,_1,its link,all of its links] must first be deleted."),
+                "margs"=>[$CURRENT{"linkcount"}],
+                "isform"=>0}
+            if $CURRENT{"linkcount"} > 0;
+    
+    # Not a valid form
+    } else {
+        return {"msg"=>N_("Incorrect form: [_1]."),
+                "margs"=>[$_],
+                "isform"=>0};
+    }
+    # OK
+    return;
+}
+
+# html_page: Display the page
+sub html_page($) {
+    local ($_, %_);
+    my ($status, $LIST, $FORM);
+    $status = $_[0];
+    # A form is requested
+    if (is_form $status) {
+        $FORM = new Selima::wov::Form::LinkCat($status);
+        html_header $FORM->{"title"};
+        html_errmsg $status;
+        $FORM->html;
+        html_footer;
+    
+    # List the available items
+    } else {
+        $LIST = new Selima::List::LinkCat;
+        $LIST->{"title"} = "管理女網牽手分類"
+            unless $LIST->{"is_called_form"};
+        html_header $LIST->{"title"}, undef, $LIST->page_param;
+        html_errmsg $status;
+        $LIST->html;
+        html_footer;
+    }
+    return;
+}
+
+
+##################################
+# Subroutines to manage the data #
+##################################
+# fetch_curitem: Fetch the current item
+sub fetch_curitem() {
+    local ($_, %_);
+    my ($sn, $FORM, $sth, $sql, $row);
+    my ($lang, $lndb, $lndbdef, $langfile, $title);
+    
+    # Return if fetched before
+    return if scalar(keys %CURRENT) > 0;
+    
+    # Obtain the current form
+    $FORM = curform;
+    # No item specified
+    return {"msg"=>N_("Please select the category."),
+            "isform"=>0}
+        if !defined $FORM->param("sn");
+    $sn = $FORM->param("sn");
+    
+    # Find the record
+    %CURRENT = fetchrec $sn, $THIS_TABLE;
+    # If this record exist
+    return {"msg"=>N_("This category does not exist anymore.  Please select another one."),
+            "isform"=>0}
+        if scalar(keys %CURRENT) == 0;
+    
+    $lang = getlang;
+    $lndb = getlang LN_DATABASE;
+    $lndbdef = ln $DEFAULT_LANG, LN_DATABASE;
+    $langfile = getlang LN_FILENAME;
+    
+    # Obtain the belonging subcategories list
+    @_ = qw();
+    push @_, "sn AS sn";
+    if (@ALL_LINGUAS > 1) {
+        $title = $lang eq $DEFAULT_LANG? "title_$lndb":
+            "COALESCE(title_$lndb, title_$lndbdef)";
+        push @_, "linkcat_fulltitle('$lang', parent, $title) AS title";
+    } else {
+        push @_, "linkcat_fulltitle(parent, title) AS title";
+    }
+    push @_, $DBH->strcat("'/links'", "linkcat_path(sn, id, parent)")
+        . " AS url";
+    $sql = "SELECT " . join(", ", @_) . " FROM linkcat"
+        . " WHERE linkcat_ischild($sn, sn)"
+        . " ORDER BY linkcat_fullord(parent, ord);\n";
+    $sth = $DBH->prepare($sql);
+    $sth->execute;
+    $CURRENT{"scatcount"} = $sth->rows;
+    for ($_ = 0; $_ < $CURRENT{"scatcount"}; $_++) {
+        $row = $sth->fetchrow_hashref;
+        $CURRENT{"scat$_" . "sn"} = $$row{"sn"};
+        $CURRENT{"scat$_" . "title"} = $$row{"title"};
+        $CURRENT{"scat$_" . "url"} = $$row{"url"};
+    }
+    
+    # Obtain the belonging links list
+    @_ = qw();
+    push @_, "links.sn AS sn";
+    push @_, "links.title AS title";
+    push @_, "url AS url";
+    $sql = "SELECT " . join(", ", @_) . " FROM links"
+        . " INNER JOIN linkcatz ON linkcatz.link=links.sn"
+        . " WHERE linkcatz.cat=$sn"
+        . " ORDER BY title;\n";
+    $sth = $DBH->prepare($sql);
+    $sth->execute;
+    $CURRENT{"linkcount"} = $sth->rows;
+    for ($_ = 0; $_ < $CURRENT{"linkcount"}; $_++) {
+        $row = $sth->fetchrow_hashref;
+        $CURRENT{"link$_" . "sn"} = $$row{"sn"};
+        $CURRENT{"link$_" . "title"} = $$row{"title"};
+        $CURRENT{"link$_" . "url"} = $$row{"url"};
+    }
+    
+    # OK
+    return;
+}
+
+# import_selparent: Import the selected parent into the retrieved form
+sub import_selparent($) {
+    local ($_, %_);
+    my $FORM;
+    $FORM = $_[0];
+    if (    defined $GET->param("selsn")
+            && check_sn_in ${$GET->param_fetch("selsn")}[0], "linkcat") {
+        $FORM->param("parent", $GET->param("selsn"));
+        $FORM->param("topmost", "false");
+    }
+    return;
+}
+
+no utf8;

htdocs/wov/magicat/cgi-bin/linkcatz.cgi

@@ -0,0 +1,241 @@
+#! /usr/bin/perl -w
+# Woman's Voice
+# linkcatz.cgi: The related-link category membership administration.
+
+#  Copyright (c) 2004-2021 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2004-11-02
+
+use 5.008;
+use utf8;
+use strict;
+use warnings;
+use lib $ENV{"DOCUMENT_ROOT"} . qw(/magicat/lib/perl5);
+use Selima::wov;
+local $SIG{"__DIE__"} = \&http_500;
+my $d = new Selima::Destroy;
+# Prototype declaration
+sub main();
+sub check_get();
+sub check_post();
+sub html_page($);
+sub fetch_curitem();
+sub import_selcat($);
+sub import_sellink($);
+
+initenv(-restricted => 1,
+        -this_table => "linkcatz",
+        -dbi_lock   => {"linkcatz"              => LOCK_EX,
+                        "linkcat"               => LOCK_SH,
+                        "links"                 => LOCK_SH},
+        -lastmod    => 1,
+        -page_param => {"keywords"              => N_("link categorization")});
+
+main;
+exit 0;
+
+sub main() {
+    local ($_, %_);
+    my ($error, $success, $processor);
+    
+    # If the request is a GET query
+    if ($ENV{"REQUEST_METHOD"} ne "POST") {
+        $error = check_get;
+        # If an error occurs
+        if (defined $error) {
+            html_page $error;
+        
+        # Display the page
+        } else {
+            html_page retrieve_status;
+        }
+    
+    # If a form was POSTed from the client
+    } else {
+        $error = check_post;
+        # If an error occurs
+        if (defined $error) {
+            error_redirect $error;
+        
+        # Else, save the data
+        } else {
+            $processor = new Selima::Processor::LinkCatz($POST);
+            $success = $processor->process;
+            success_redirect $success;
+        }
+    }
+    return;
+}
+
+# check_get: Check the GET arguments
+sub check_get() {
+    local ($_, %_);
+    my $error;
+    
+    # A form is requested
+    if (is_form) {
+        $_ = form_type;
+        # A form to create a new item
+        if ($_ eq "new") {
+            # Nothing to check on a new form
+        
+        # A form to edit a current item
+        } elsif ($_ eq "cur") {
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+        
+        # A form to delete a current item
+        } elsif ($_ eq "del") {
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+        
+        # Not a valid form
+        } else {
+            return {"msg"=>N_("Incorrect form: [_1]."),
+                    "margs"=>[$_],
+                    "isform"=>0};
+        }
+    }
+    # List handler handles its own error
+    # OK
+    return;
+}
+
+# check_post: Check the POSTed form
+sub check_post() {
+    local ($_, %_);
+    my ($checker, $error);
+    $_ = form_type;
+    # A form to create a new item
+    if ($_ eq "new") {
+        # Run the checker
+        $checker = new Selima::Checker::LinkCatz(curform);
+        $checker->redir(qw(selcat delcat sellink dellink));
+        $error = $checker->check(qw(cat link));
+        return $error if defined $error;
+    
+    # A form to edit a current item
+    } elsif ($_ eq "cur") {
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;
+        # Run the checker
+        $checker = new Selima::Checker::LinkCatz(curform);
+        $checker->redir(qw(del selcat delcat sellink dellink));
+        $error = $checker->check(qw(cat link));
+        return $error if defined $error;
+    
+    # A form to delete a current item
+    } elsif ($_ eq "del") {
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;;
+        # Run the checker
+        $checker = new Selima::Checker::LinkCatz(curform);
+        $checker->redir(qw(cancel));
+    
+    # Not a valid form
+    } else {
+        return {"msg"=>N_("Incorrect form: [_1]."),
+                "margs"=>[$_],
+                "isform"=>0};
+    }
+    # OK
+    return;
+}
+
+# html_page: Display the page
+sub html_page($) {
+    local ($_, %_);
+    my ($status, $LIST, $FORM);
+    $status = $_[0];
+    # A form is requested
+    if (is_form $status) {
+        $FORM = new Selima::Form::LinkCatz($status);
+        html_header $FORM->{"title"};
+        html_errmsg $status;
+        $FORM->html;
+        html_footer;
+    
+    # List the available items
+    } else {
+        $LIST = new Selima::List::LinkCatz;
+        $LIST->{"title"} = "管理女網牽手分類表"
+            unless $LIST->{"is_called_form"};
+        html_header $LIST->{"title"}, undef, $LIST->page_param;
+        html_errmsg $status;
+        $LIST->html;
+        html_footer;
+    }
+    return;
+}
+
+
+##################################
+# Subroutines to manage the data #
+##################################
+# fetch_curitem: Fetch the current item
+sub fetch_curitem() {
+    local ($_, %_);
+    my ($sn, $FORM);
+    
+    # Return if fetched before
+    return if scalar(keys %CURRENT) > 0;
+    
+    # Obtain the current form
+    $FORM = curform;
+    # No item specified
+    return {"msg"=>N_("Please select the categorization record."),
+            "isform"=>0}
+        if !defined $FORM->param("sn");
+    $sn = $FORM->param("sn");
+    
+    # Find the record
+    %CURRENT = fetchrec $sn, $THIS_TABLE;
+    # If this record exist
+    return {"msg"=>N_("This categorization record does not exist anymore.  Please select another one."),
+            "isform"=>0}
+        if scalar(keys %CURRENT) == 0;
+    
+    # OK
+    return;
+}
+
+# import_selcat: Import the selected category into the retrieved form
+sub import_selcat($) {
+    local ($_, %_);
+    my $FORM;
+    $FORM = $_[0];
+    $FORM->param("cat", $GET->param("selsn"))
+        if  defined $GET->param("selsn")
+            && check_sn_in ${$GET->param_fetch("selsn")}[0], "linkcat";
+    return;
+}
+
+# import_sellink: Import the selected link into the retrieved form
+sub import_sellink($) {
+    local ($_, %_);
+    my $FORM;
+    $FORM = $_[0];
+    $FORM->param("link", $GET->param("selsn"))
+        if  defined $GET->param("selsn")
+            && check_sn_in ${$GET->param_fetch("selsn")}[0], "links";
+    return $FORM;
+}
+
+no utf8;

htdocs/wov/magicat/cgi-bin/links.cgi

@@ -0,0 +1,245 @@
+#! /usr/bin/perl -w
+# Woman's Voice
+# links.cgi: The related-link administration.
+
+#  Copyright (c) 2004-2021 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2004-11-02
+
+use 5.008;
+use utf8;
+use strict;
+use warnings;
+use lib $ENV{"DOCUMENT_ROOT"} . qw(/magicat/lib/perl5);
+use Selima::wov;
+local $SIG{"__DIE__"} = \&http_500;
+my $d = new Selima::Destroy;
+# Prototype declaration
+sub main();
+sub check_get();
+sub check_post();
+sub html_page($);
+sub fetch_curitem();
+
+initenv(-restricted => 1,
+        -this_table => "links",
+        -dbi_lock   => {"links"                 => LOCK_EX,
+                        "linkcatz"              => LOCK_EX,
+                        "linkcat"               => LOCK_SH},
+        -lastmod    => 1,
+        -page_param => {"keywords"              => N_("related links")});
+
+main;
+exit 0;
+
+sub main() {
+    local ($_, %_);
+    my ($error, $success, $processor);
+    
+    # If the request is a GET query
+    if ($ENV{"REQUEST_METHOD"} ne "POST") {
+        $error = check_get;
+        # If an error occurs
+        if (defined $error) {
+            html_page $error;
+        
+        # Display the page
+        } else {
+            html_page retrieve_status;
+        }
+    
+    # If a form was POSTed from the client
+    } else {
+        $error = check_post;
+        # If an error occurs
+        if (defined $error) {
+            error_redirect $error;
+        
+        # Else, save the data
+        } else {
+            $processor = new Selima::Processor::Link($POST);
+            $success = $processor->process;
+            success_redirect $success;
+        }
+    }
+    return;
+}
+
+# check_get: Check the GET arguments
+sub check_get() {
+    local ($_, %_);
+    my $error;
+    
+    # A form is requested
+    if (is_form) {
+        $_ = form_type;
+        # A form to create a new item
+        if ($_ eq "new") {
+        
+        # A form to edit a current item
+        } elsif ($_ eq "cur") {
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+        
+        # A form to delete a current item
+        } elsif ($_ eq "del") {
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+        
+        # Not a valid form
+        } else {
+            return {"msg"=>N_("Incorrect form: [_1]."),
+                    "margs"=>[$_],
+                    "isform"=>0};
+        }
+    }
+    # List handler handles its own error
+    # OK
+    return;
+}
+
+# check_post: Check the POSTed form
+sub check_post() {
+    local ($_, %_);
+    my ($checker, $error);
+    $_ = form_type;
+    # A form to create a new item
+    if ($_ eq "new") {
+        # Run the checker
+        $checker = new Selima::Checker::Link(curform);
+        $error = $checker->check(qw(title title_2ln url icon
+            email addr tel fax dsc cats));
+        return $error if defined $error;
+    
+    # A form to edit a current item
+    } elsif ($_ eq "cur") {
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;
+        # Run the checker
+        $checker = new Selima::Checker::Link(curform);
+        $checker->redir(qw(del));
+        $error = $checker->check(qw(title title_2ln url icon
+            email addr tel fax dsc cats));
+        return $error if defined $error;
+    
+    # A form to delete a current item
+    } elsif ($_ eq "del") {
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;;
+        # Run the checker
+        $checker = new Selima::Checker::Link(curform);
+        $checker->redir(qw(cancel));
+    
+    # Not a valid form
+    } else {
+        return {"msg"=>N_("Incorrect form: [_1]."),
+                "margs"=>[$_],
+                "isform"=>0};
+    }
+    # OK
+    return;
+}
+
+# html_page: Display the page
+sub html_page($) {
+    local ($_, %_);
+    my ($status, $LIST, $FORM);
+    $status = $_[0];
+    # A form is requested
+    if (is_form $status) {
+        $FORM = new Selima::Form::Link($status);
+        html_header $FORM->{"title"};
+        html_errmsg $status;
+        $FORM->html;
+        html_footer;
+    
+    # List the available items
+    } else {
+        $LIST = new Selima::List::Links;
+        $LIST->{"title"} = "管理女網牽手"
+            unless $LIST->{"is_called_form"};
+        html_header $LIST->{"title"}, undef, $LIST->page_param;
+        html_errmsg $status;
+        $LIST->html;
+        html_footer;
+    }
+    return;
+}
+
+
+##################################
+# Subroutines to manage the data #
+##################################
+# fetch_curitem: Fetch the current item
+sub fetch_curitem() {
+    local ($_, %_);
+    my ($sn, $FORM, $sth, $sql, $row);
+    my ($lang, $lndb, $lndbdef, $title);
+    
+    # Return if fetched before
+    return if scalar(keys %CURRENT) > 0;
+    
+    # Obtain the current form
+    $FORM = curform;
+    # No item specified
+    return {"msg"=>N_("Please select the related link."),
+            "isform"=>0}
+        if !defined $FORM->param("sn");
+    $sn = $FORM->param("sn");
+    
+    # Find the record
+    %CURRENT = fetchrec $sn, $THIS_TABLE;
+    # If this record exist
+    return {"msg"=>N_("This related link does not exist anymore.  Please select another one."),
+            "isform"=>0}
+        if scalar(keys %CURRENT) == 0;
+    
+    $lang = getlang;
+    $lndb = getlang LN_DATABASE;
+    $lndbdef = ln $DEFAULT_LANG, LN_DATABASE;
+    
+    # Obtain the parent categories list
+    @_ = qw();
+    push @_, "linkcat.sn AS sn";
+    if (@ALL_LINGUAS > 1) {
+        $title = $lang eq $DEFAULT_LANG? "linkcat.title_$lndb":
+            "COALESCE(linkcat.title_$lndb, linkcat.title_$lndbdef)";
+        push @_, "linkcat_fulltitle('$lang', linkcat.parent, $title) AS title";
+    } else {
+        push @_, "linkcat_fulltitle(linkcat.parent, linkcat.title) AS title";
+    }
+    $sql = "SELECT " . join(", ", @_) . " FROM linkcat"
+        . " INNER JOIN linkcatz ON linkcatz.cat=linkcat.sn"
+        . " WHERE linkcatz.link=$sn"
+        . " ORDER BY linkcat_fullord(linkcat.parent, linkcat.ord);\n";
+    $sth = $DBH->prepare($sql);
+    $sth->execute;
+    $CURRENT{"catcount"} = $sth->rows;
+    for ($_ = 0; $_ < $CURRENT{"catcount"}; $_++) {
+        $row = $sth->fetchrow_hashref;
+        $CURRENT{"cat$_"} = $$row{"sn"};
+        $CURRENT{"cat$_" . "title"} = $$row{"title"};
+    }
+    
+    # OK
+    return;
+}
+
+no utf8;

htdocs/wov/magicat/cgi-bin/logout.cgi

@@ -0,0 +1,158 @@
+#! /usr/bin/perl -w
+# Woman's Voice
+# logout.cgi: The log-out script.
+
+#  Copyright (c) 2004-2021 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2004-10-16
+
+use 5.008;
+use strict;
+use warnings;
+use lib $ENV{"DOCUMENT_ROOT"} . qw(/magicat/lib/perl5);
+use Selima::wov;
+local $SIG{"__DIE__"} = \&http_500;
+my $d = new Selima::Destroy;
+# Prototype declaration
+sub main();
+sub check_get();
+sub check_post();
+sub html_page($);
+sub html_logoutform();
+sub html_relogin();
+
+initenv(-dbi        => DBI_NONE,
+        -lastmod    => 1,
+        -page_param => {"keywords"              => N_("log out")});
+
+main;
+exit 0;
+
+sub main() {
+    local ($_, %_);
+    my ($error, $success, $processor);
+    
+    # If the request is a GET query
+    if ($ENV{"REQUEST_METHOD"} ne "POST") {
+        $error = check_get;
+        # If an error occurs
+        if (defined $error) {
+            html_page $error;
+        
+        # Display the page
+        } else {
+            html_page retrieve_status;
+        }
+    
+    # If a form was POSTed from the client
+    } else {
+        $error = check_post;
+        # If an error occurs
+        if (defined $error) {
+            error_redirect $error;
+        
+        # Else, save the data
+        } else {
+            $processor = new Selima::Processor::LogOut($POST);
+            $success = $processor->process;
+            success_redirect $success;
+        }
+    }
+    return;
+}
+
+# check_get: Check the GET arguments
+sub check_get() {
+    local ($_, %_);
+    my $status;
+    # There is a result to display
+    $status = retrieve_status;
+    # Successfully logged out
+    if (    defined $status
+            && exists $$status{"status"}
+            && $$status{"status"} eq "success") {
+        # Nothing to check
+        return;
+    }
+    # Check if this user has logged in
+    unauth unless defined get_login_sn;
+    # OK
+    return;
+}
+
+# check_post: Check the POSTed form
+sub check_post() {
+    local ($_, %_);
+    # Check if this user has logged in
+    unauth unless defined get_login_sn;
+    # OK
+    return;
+}
+
+# html_page: Display the page
+sub html_page($) {
+    local ($_, %_);
+    my $status;
+    $status = $_[0];
+    # Not logged out yet
+    if (defined get_login_sn) {
+        html_header __("Log Out");
+        html_errmsg $status;
+        html_logoutform;
+        html_footer;
+    
+    # Logged out
+    } else {
+        html_header __("Log Out");
+        html_errmsg $status;
+        html_relogin;
+        html_footer;
+    }
+    return;
+}
+
+
+##################################
+# Subroutines to manage the data #
+##################################
+# html_logoutform: Display a form to log out
+sub html_logoutform() {
+    local ($_, %_);
+    my ($msg, $submit);
+    $msg = h(__("Are you sure you want to log out?"));
+    $submit = h(__("Log out"));
+    print << "EOT";
+<form action="$REQUEST_FILE" method="post">
+<div>
+<p>$msg</p>
+<input type="submit" value="$submit" />
+</div>
+</form>
+
+EOT
+    return;
+}
+
+# html_relogin: Display links to log in again
+sub html_relogin() {
+    local ($_, %_);
+    $_ = h(__("Log in again."));
+    print << "EOT";
+<p><a href="/magicat/cgi-bin/login.cgi">$_</a></p>
+
+EOT
+    return;
+}

htdocs/wov/magicat/cgi-bin/newslets.cgi

@@ -0,0 +1,271 @@
+#! /usr/bin/perl -w
+# Woman's Voice
+# newslets.cgi: The newsletter administration.
+
+#  Copyright (c) 2004-2021 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2004-11-17
+
+use 5.008;
+use strict;
+use warnings;
+use lib $ENV{"DOCUMENT_ROOT"} . qw(/magicat/lib/perl5);
+use Selima::wov;
+local $SIG{"__DIE__"} = \&http_500;
+my $d = new Selima::Destroy;
+# Prototype declaration
+sub main();
+sub check_get();
+sub check_post();
+sub html_page($);
+sub fetch_curitem();
+
+use Date::Parse qw(str2time);
+
+initenv(-restricted => 1,
+        -this_table => "newslets",
+        -dbi_lock   => {"newslets"              => LOCK_EX,
+                        "nlarts"                => LOCK_EX},
+        -lastmod    => 1,
+        -page_param => {"keywords"              => N_("newsletters")});
+
+main;
+exit 0;
+
+sub main() {
+    local ($_, %_);
+    my ($error, $success, $processor);
+    
+    # If the request is a GET query
+    if ($ENV{"REQUEST_METHOD"} ne "POST") {
+        $error = check_get;
+        # If an error occurs
+        if (defined $error) {
+            html_page $error;
+        
+        # Display the page
+        } else {
+            html_page retrieve_status;
+        }
+    
+    # If a form was POSTed from the client
+    } else {
+        $error = check_post;
+        # If an error occurs
+        if (defined $error) {
+            error_redirect $error;
+        
+        # Else, save the data
+        } else {
+            $processor = new Selima::wov::Processor::Newslet($POST);
+            $success = $processor->process;
+            success_redirect $success;
+        }
+    }
+    return;
+}
+
+# check_get: Check the GET arguments
+sub check_get() {
+    local ($_, %_);
+    my $error;
+    
+    # A form is requested
+    if (is_form) {
+        $_ = form_type;
+        # A form to create a new item
+        if ($_ eq "new") {
+        
+        # A form to edit a current item
+        } elsif ($_ eq "cur") {
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+        
+        # A form to delete a current item
+        } elsif ($_ eq "del") {
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+        
+        # A form to preview a submitted item
+        } elsif ($_ eq "preview") {
+            my ($sql, $sth, $count, $row, @allno);
+            # Check at fetch_preview()
+            $error = fetch_preview;
+            return $error if defined $error;
+            $PREVIEW{"path"} = sprintf "/newsletters/wov%04d.html", $PREVIEW{"no"};
+            $PREVIEW{"date"} = str2time $PREVIEW{"date"};
+            $PREVIEW{"title"} = newslet_textno($PREVIEW{"no"}) . " " . $PREVIEW{"title"};
+            
+            # Obtain all the pages
+            @_ = qw();
+            push @_, "sn!=" . $PREVIEW{"sn"} if exists $PREVIEW{"sn"};
+            push @_, "NOT hid";
+            $sql = "SELECT no FROM newslets"
+                . " WHERE " . join(" AND ", @_)
+                . " ORDER BY no;\n";
+            $sth = $DBH->prepare($sql);
+            $sth->execute;
+            $count = $sth->rows;
+            for (my $i = 0, @allno = qw(); $i < $count; $i++) {
+                push @allno, ${$sth->fetch}[0];
+            }
+            undef $sth;
+            # Insert this page
+            for ($_ = 0; $_ < @allno; $_++) {
+                last if $PREVIEW{"no"} < $allno[$_];
+            }
+            @allno = (
+                @allno[0..$_-1],
+                $PREVIEW{"no"},
+                @allno[$_..$#allno]);
+            $PREVIEW{"allno"} = [@allno];
+        
+        # Not a valid form
+        } else {
+            return {"msg"=>N_("Incorrect form: [_1]."),
+                    "margs"=>[$_],
+                    "isform"=>0};
+        }
+    }
+    # List handler handles its own error
+    # OK
+    return;
+}
+
+# check_post: Check the POSTed form
+sub check_post() {
+    local ($_, %_);
+    my ($checker, $error);
+    $_ = form_type;
+    # A form to create a new item
+    if ($_ eq "new") {
+        # Run the checker
+        $checker = new Selima::wov::Checker::Newslet(curform);
+        $error = $checker->check(qw(no date title cred_t cred_h kw arts));
+        return $error if defined $error;
+    
+    # A form to edit a current item
+    } elsif ($_ eq "cur") {
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;
+        # Run the checker
+        $checker = new Selima::wov::Checker::Newslet(curform);
+        $checker->redir(qw(del));
+        $error = $checker->check(qw(no date title cred_t cred_h kw arts));
+        return $error if defined $error;
+    
+    # A form to delete a current item
+    } elsif ($_ eq "del") {
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;;
+        # Run the checker
+        $checker = new Selima::wov::Checker::Newslet(curform);
+        $checker->redir(qw(cancel));
+    
+    # Not a valid form
+    } else {
+        return {"msg"=>N_("Incorrect form: [_1]."),
+                "margs"=>[$_],
+                "isform"=>0};
+    }
+    # OK
+    return;
+}
+
+# html_page: Display the page
+sub html_page($) {
+    local ($_, %_);
+    my ($status, $LIST, $FORM);
+    $status = $_[0];
+    # A form is requested
+    if (is_form $status) {
+        # A form to preview a submitted item
+        if (form_type eq "preview") {
+            html_preview;
+        
+        } else {
+            $FORM = new Selima::wov::Form::Newslet($status);
+            html_header $FORM->{"title"};
+            html_errmsg $status;
+            $FORM->html;
+            html_footer;
+        }
+    
+    # List the available items
+    } else {
+        $LIST = new Selima::wov::List::Newslets;
+        html_header $LIST->{"title"}, undef, $LIST->page_param;
+        html_errmsg $status;
+        $LIST->html;
+        html_footer;
+    }
+    return;
+}
+
+
+##################################
+# Subroutines to manage the data #
+##################################
+# fetch_curitem: Fetch the current item
+sub fetch_curitem() {
+    local ($_, %_);
+    my ($sn, $FORM, $sth, $sql, $row);
+    
+    # Return if fetched before
+    return if scalar(keys %CURRENT) > 0;
+    
+    # Obtain the current form
+    $FORM = curform;
+    # No item specified
+    return {"msg"=>N_("Please select the newsletter."),
+            "isform"=>0}
+        if !defined $FORM->param("sn");
+    $sn = $FORM->param("sn");
+    
+    # Find the record
+    %CURRENT = fetchrec $sn, $THIS_TABLE;
+    # If this record exist
+    return {"msg"=>N_("This newsletter does not exist anymore.  Please select another one."),
+            "isform"=>0}
+        if scalar(keys %CURRENT) == 0;
+    
+    # Obtain the date
+    $CURRENT{"date"} = fmtdate $CURRENT{"date"};
+    
+    # Obtain the articles list
+    $sql = "SELECT * FROM nlarts WHERE newslet=$sn ORDER BY ord;\n";
+    $sth = $DBH->prepare($sql);
+    $sth->execute;
+    $CURRENT{"artcount"} = $sth->rows;
+    for ($_ = 0; $_ < $CURRENT{"artcount"}; $_++) {
+        $row = $sth->fetchrow_hashref;
+        $CURRENT{"art$_"} = 1;
+        $CURRENT{"art$_" . "sn"} = $$row{"sn"};
+        $CURRENT{"art$_" . "ord"} = $$row{"ord"};
+        $CURRENT{"art$_" . "title"} = $$row{"title"};
+        $CURRENT{"art$_" . "author"} = $$row{"author"};
+        $CURRENT{"art$_" . "body_t"} = $$row{"body_t"};
+        $CURRENT{"art$_" . "body_h"} = $$row{"body_h"};
+        $CURRENT{"art$_" . "hid"} = $$row{"hid"};
+    }
+    
+    # OK
+    return;
+}

htdocs/wov/magicat/cgi-bin/nlarts.cgi

@@ -0,0 +1,223 @@
+#! /usr/bin/perl -w
+# Woman's Voice
+# nlarts.cgi: The newsletter article administration.
+
+#  Copyright (c) 2004-2021 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2004-11-24
+
+use 5.008;
+use strict;
+use warnings;
+use lib $ENV{"DOCUMENT_ROOT"} . qw(/magicat/lib/perl5);
+use Selima::wov;
+local $SIG{"__DIE__"} = \&http_500;
+my $d = new Selima::Destroy;
+# Prototype declaration
+sub main();
+sub check_get();
+sub check_post();
+sub html_page($);
+sub fetch_curitem();
+sub import_selnewslet($);
+
+initenv(-restricted => 1,
+        -this_table => "nlarts",
+        -dbi_lock   => {"nlarts"                => LOCK_EX,
+                        "newslets"              => LOCK_SH},
+        -lastmod    => 1,
+        -page_param => {"keywords"              => N_("newsletter articles")});
+
+main;
+exit 0;
+
+sub main() {
+    local ($_, %_);
+    my ($error, $success, $processor);
+    
+    # If the request is a GET query
+    if ($ENV{"REQUEST_METHOD"} ne "POST") {
+        $error = check_get;
+        # If an error occurs
+        if (defined $error) {
+            html_page $error;
+        
+        # Display the page
+        } else {
+            html_page retrieve_status;
+        }
+    
+    # If a form was POSTed from the client
+    } else {
+        $error = check_post;
+        # If an error occurs
+        if (defined $error) {
+            error_redirect $error;
+        
+        # Else, save the data
+        } else {
+            $processor = new Selima::wov::Processor::NLArt($POST);
+            $success = $processor->process;
+            success_redirect $success;
+        }
+    }
+    return;
+}
+
+# check_get: Check the GET arguments
+sub check_get() {
+    local ($_, %_);
+    my $error;
+    
+    # A form is requested
+    if (is_form) {
+        $_ = form_type;
+        # A form to create a new item
+        if ($_ eq "new") {
+            # Nothing to check on a new form
+        
+        # A form to edit a current item
+        } elsif ($_ eq "cur") {
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+        
+        # A form to delete a current item
+        } elsif ($_ eq "del") {
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+        
+        # Not a valid form
+        } else {
+            return {"msg"=>N_("Incorrect form: [_1]."),
+                    "margs"=>[$_],
+                    "isform"=>0};
+        }
+    }
+    # List handler handles its own error
+    # OK
+    return;
+}
+
+# check_post: Check the POSTed form
+sub check_post() {
+    local ($_, %_);
+    my ($checker, $error);
+    $_ = form_type;
+    # A form to create a new item
+    if ($_ eq "new") {
+        # Run the checker
+        $checker = new Selima::wov::Checker::NLArt(curform);
+        $checker->redir(qw(selnewslet delnewslet));
+        $error = $checker->check(qw(newslet ord title author body_t body_h));
+        return $error if defined $error;
+    
+    # A form to edit a current item
+    } elsif ($_ eq "cur") {
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;
+        # Run the checker
+        $checker = new Selima::wov::Checker::NLArt(curform);
+        $checker->redir(qw(del selnewslet delnewslet));
+        $error = $checker->check(qw(newslet ord title author body_t body_h));
+        return $error if defined $error;
+    
+    # A form to delete a current item
+    } elsif ($_ eq "del") {
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;;
+        # Run the checker
+        $checker = new Selima::wov::Checker::NLArt(curform);
+        $checker->redir(qw(cancel));
+    
+    # Not a valid form
+    } else {
+        return {"msg"=>N_("Incorrect form: [_1]."),
+                "margs"=>[$_],
+                "isform"=>0};
+    }
+    # OK
+    return;
+}
+
+# html_page: Display the page
+sub html_page($) {
+    local ($_, %_);
+    my ($status, $LIST, $FORM);
+    $status = $_[0];
+    # A form is requested
+    if (is_form $status) {
+        $FORM = new Selima::wov::Form::NLArt($status);
+        html_header $FORM->{"title"};
+        html_errmsg $status;
+        $FORM->html;
+        html_footer;
+    
+    # List the available items
+    } else {
+        $LIST = new Selima::wov::List::NLArts;
+        html_header $LIST->{"title"}, undef, $LIST->page_param;
+        html_errmsg $status;
+        $LIST->html;
+        html_footer;
+    }
+    return;
+}
+
+
+##################################
+# Subroutines to manage the data #
+##################################
+# fetch_curitem: Fetch the current item
+sub fetch_curitem() {
+    local ($_, %_);
+    my ($sn, $FORM);
+    
+    # Return if fetched before
+    return if scalar(keys %CURRENT) > 0;
+    
+    # Obtain the current form
+    $FORM = curform;
+    # No item specified
+    return {"msg"=>N_("Please select the article."),
+            "isform"=>0}
+        if !defined $FORM->param("sn");
+    $sn = $FORM->param("sn");
+    
+    # Find the record
+    %CURRENT = fetchrec $sn, $THIS_TABLE;
+    # If this record exist
+    return {"msg"=>N_("This article does not exist anymore.  Please select another one."),
+            "isform"=>0}
+        if scalar(keys %CURRENT) == 0;
+    
+    # OK
+    return;
+}
+
+# import_selnewslet: Import the selected newsletter into the retrieved form
+sub import_selnewslet($) {
+    local ($_, %_);
+    my $FORM;
+    $FORM = $_[0];
+    $FORM->param("newslet", $GET->param("selsn"))
+        if  defined $GET->param("selsn")
+            && check_sn_in ${$GET->param_fetch("selsn")}[0], "newslets";
+    return;
+}

htdocs/wov/magicat/cgi-bin/pages.cgi

@@ -0,0 +1,221 @@
+#! /usr/bin/perl -w
+# Woman's Voice
+# pages.cgi: The web page administration.
+
+#  Copyright (c) 2006-2021 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2006-04-03
+
+use 5.008;
+use strict;
+use warnings;
+use lib $ENV{"DOCUMENT_ROOT"} . qw(/magicat/lib/perl5);
+use Selima::wov;
+local $SIG{"__DIE__"} = \&http_500;
+my $d = new Selima::Destroy;
+# Prototype declaration
+sub main();
+sub check_get();
+sub check_post();
+sub html_page($);
+sub fetch_curitem();
+
+initenv(-restricted => 1,
+        -this_table => "pages",
+        -dbi_lock   => {"pages"                 => LOCK_EX},
+        -lastmod    => 1,
+        -page_param => {"keywords"              => N_("pages")});
+
+main;
+exit 0;
+
+sub main() {
+    local ($_, %_);
+    my ($error, $success, $processor);
+    
+    # If the request is a GET query
+    if ($ENV{"REQUEST_METHOD"} ne "POST") {
+        $error = check_get;
+        # If an error occurs
+        if (defined $error) {
+            html_page $error;
+        
+        # Display the page
+        } else {
+            html_page retrieve_status;
+        }
+    
+    # If a form was POSTed from the client
+    } else {
+        $error = check_post;
+        # If an error occurs
+        if (defined $error) {
+            error_redirect $error;
+        
+        # Else, save the data
+        } else {
+            $processor = new Selima::wov::Processor::Page($POST);
+            $success = $processor->process;
+            success_redirect $success;
+        }
+    }
+    return;
+}
+
+# check_get: Check the GET arguments
+sub check_get() {
+    local ($_, %_);
+    my $error;
+    
+    # A form is requested
+    if (is_form) {
+        $_ = form_type;
+        # A form to create a new item
+        if ($_ eq "new") {
+            # Nothing to check on a new form
+        
+        # A form to edit a current item
+        } elsif ($_ eq "cur") {
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+        
+        # A form to delete a current item
+        } elsif ($_ eq "del") {
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+        
+        # A form to preview a submitted item
+        } elsif ($_ eq "preview") {
+            # Check at fetch_preview()
+            $error = fetch_preview;
+            return $error if defined $error;
+        
+        # Not a valid form
+        } else {
+            return {"msg"=>N_("Incorrect form: [_1]."),
+                    "margs"=>[$_],
+                    "isform"=>0};
+        }
+    }
+    # List handler handles its own error
+    # OK
+    return;
+}
+
+# check_post: Check the POSTed form
+sub check_post() {
+    local ($_, %_);
+    my ($checker, $error);
+    $_ = form_type;
+    # A form to create a new item
+    if ($_ eq "new") {
+        # Run the checker
+        $checker = new Selima::Checker::Page(curform);
+        $error = $checker->check(qw(path ord title title_en body kw));
+        return $error if defined $error;
+    
+    # A form to edit a current item
+    } elsif ($_ eq "cur") {
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;
+        # Run the checker
+        $checker = new Selima::Checker::Page(curform);
+        $checker->redir(qw(del));
+        $error = $checker->check(qw(path ord title title_en body kw));
+        return $error if defined $error;
+    
+    # A form to delete a current item
+    } elsif ($_ eq "del") {
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;;
+        # Run the checker
+        $checker = new Selima::Checker::Page(curform);
+        $checker->redir(qw(cancel));
+    
+    # Not a valid form
+    } else {
+        return {"msg"=>N_("Incorrect form: [_1]."),
+                "margs"=>[$_],
+                "isform"=>0};
+    }
+    # OK
+    return;
+}
+
+# html_page: Display the page
+sub html_page($) {
+    local ($_, %_);
+    my ($status, $LIST, $FORM);
+    $status = $_[0];
+    # A form is requested
+    if (is_form $status) {
+        # A form to preview a submitted item
+        if (form_type eq "preview") {
+            html_preview;
+        
+        } else {
+            $FORM = new Selima::wov::Form::Page($status);
+            html_header $FORM->{"title"};
+            html_errmsg $status;
+            $FORM->html;
+            html_footer;
+        }
+    
+    # List the available items
+    } else {
+        $LIST = new Selima::List::Pages;
+        html_header $LIST->{"title"}, undef, $LIST->page_param;
+        html_errmsg $status;
+        $LIST->html;
+        html_footer;
+    }
+    return;
+}
+
+
+##################################
+# Subroutines to manage the data #
+##################################
+# fetch_curitem: Fetch the current item
+sub fetch_curitem() {
+    local ($_, %_);
+    my ($sn, $FORM);
+    
+    # Return if fetched before
+    return if scalar(keys %CURRENT) > 0;
+    
+    # Obtain the current form
+    $FORM = curform;
+    # No item specified
+    return {"msg"=>N_("Please select the page."),
+            "isform"=>0}
+        if !defined $FORM->param("sn");
+    $sn = $FORM->param("sn");
+    
+    # Find the record
+    %CURRENT = fetchrec $sn, $THIS_TABLE;
+    # If this record exist
+    return {"msg"=>N_("This page does not exist anymore.  Please select another one."),
+            "isform"=>0}
+        if scalar(keys %CURRENT) == 0;
+    
+    # OK
+    return;
+}

htdocs/wov/magicat/cgi-bin/rebuild.cgi

@@ -0,0 +1,105 @@
+#! /usr/bin/perl -w
+# Woman's Voice
+# rebuild.cgi: The web page rebuilder.
+
+#  Copyright (c) 2006-2021 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2006-04-04
+
+use 5.008;
+use strict;
+use warnings;
+use lib $ENV{"DOCUMENT_ROOT"} . qw(/magicat/lib/perl5);
+use Selima::wov;
+local $SIG{"__DIE__"} = \&http_500;
+my $d = new Selima::Destroy;
+# Prototype declaration
+sub main();
+sub check_get();
+sub check_post();
+sub html_page($);
+
+initenv(-restricted => 1,
+        -lastmod    => 1,
+        -page_param => {"keywords"              => N_("rebuild pages")});
+
+main;
+exit 0;
+
+sub main() {
+    local ($_, %_);
+    my ($error, $success, $processor);
+    
+    # If the request is a GET query
+    if ($ENV{"REQUEST_METHOD"} ne "POST") {
+        $error = check_get;
+        # If an error occurs
+        if (defined $error) {
+            html_page $error;
+        
+        # Display the page
+        } else {
+            html_page retrieve_status;
+        }
+    
+    # If a form was POSTed from the client
+    } else {
+        $error = check_post;
+        # If an error occurs
+        if (defined $error) {
+            error_redirect $error;
+        
+        # Else, save the data
+        } else {
+            $processor = new Selima::Processor::Rebuild($POST);
+            $success = $processor->process;
+            success_redirect $success;
+        }
+    }
+    return;
+}
+
+# check_get: Check the GET arguments
+sub check_get() {
+    # Nothing to check here
+    # OK
+    return;
+}
+
+# check_post: Check the POSTed form
+sub check_post() {
+    local ($_, %_);
+    my ($checker, $error);
+    # Run the checker
+    $checker = new Selima::Checker::Rebuild(curform);
+    $error = $checker->check(qw(type));
+    return $error if defined $error;
+    # OK
+    return;
+}
+
+# html_page: Display the page
+sub html_page($) {
+    local ($_, %_);
+    my ($status, $FORM);
+    $status = $_[0];
+    $FORM = new Selima::Form::Rebuild($status);
+    html_header $FORM->{"title"};
+    html_errmsg $status;
+    $FORM->html;
+    html_footer;
+    return;
+}

htdocs/wov/magicat/cgi-bin/scptpriv.cgi

@@ -0,0 +1,223 @@
+#! /usr/bin/perl -w
+# Woman's Voice
+# scptpriv.cgi: The script privilege administration.
+
+#  Copyright (c) 2004-2021 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2004-10-16
+
+use 5.008;
+use strict;
+use warnings;
+use lib $ENV{"DOCUMENT_ROOT"} . qw(/magicat/lib/perl5);
+use Selima::wov;
+local $SIG{"__DIE__"} = \&http_500;
+my $d = new Selima::Destroy;
+# Prototype declaration
+sub main();
+sub check_get();
+sub check_post();
+sub html_page($);
+sub fetch_curitem();
+sub import_selgrp($);
+
+initenv(-restricted => 1,
+        -this_table => "scptpriv",
+        -dbi_lock   => {"scptpriv"              => LOCK_EX,
+                        "groups"                => LOCK_SH},
+        -lastmod    => 1,
+        -page_param => {"keywords"              => N_("script privilege")});
+
+main;
+exit 0;
+
+sub main() {
+    local ($_, %_);
+    my ($error, $success, $processor);
+    
+    # If the request is a GET query
+    if ($ENV{"REQUEST_METHOD"} ne "POST") {
+        $error = check_get;
+        # If an error occurs
+        if (defined $error) {
+            html_page $error;
+        
+        # Display the page
+        } else {
+            html_page retrieve_status;
+        }
+    
+    # If a form was POSTed from the client
+    } else {
+        $error = check_post;
+        # If an error occurs
+        if (defined $error) {
+            error_redirect $error;
+        
+        # Else, save the data
+        } else {
+            $processor = new Selima::Processor::ScptPriv($POST);
+            $success = $processor->process;
+            success_redirect $success;
+        }
+    }
+    return;
+}
+
+# check_get: Check the GET arguments
+sub check_get() {
+    local ($_, %_);
+    my $error;
+    
+    # A form is requested
+    if (is_form) {
+        $_ = form_type;
+        # A form to create a new item
+        if ($_ eq "new") {
+            # Nothing to check on a new form
+        
+        # A form to edit a current item
+        } elsif ($_ eq "cur") {
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+        
+        # A form to delete a current item
+        } elsif ($_ eq "del") {
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+        
+        # Not a valid form
+        } else {
+            return {"msg"=>N_("Incorrect form: [_1]."),
+                    "margs"=>[$_],
+                    "isform"=>0};
+        }
+    }
+    # List handler handles its own error
+    # OK
+    return;
+}
+
+# check_post: Check the POSTed form
+sub check_post() {
+    local ($_, %_);
+    my ($checker, $error);
+    $_ = form_type;
+    # A form to create a new item
+    if ($_ eq "new") {
+        # Run the checker
+        $checker = new Selima::Checker::ScptPriv(curform);
+        $checker->redir(qw(selgrp delgrp));
+        $error = $checker->check(qw(script grp));
+        return $error if defined $error;
+    
+    # A form to edit a current item
+    } elsif ($_ eq "cur") {
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;
+        # Run the checker
+        $checker = new Selima::Checker::ScptPriv(curform);
+        $checker->redir(qw(del selgrp delgrp));
+        $error = $checker->check(qw(script grp));
+        return $error if defined $error;
+    
+    # A form to delete a current item
+    } elsif ($_ eq "del") {
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;;
+        # Run the checker
+        $checker = new Selima::Checker::ScptPriv(curform);
+        $checker->redir(qw(cancel));
+    
+    # Not a valid form
+    } else {
+        return {"msg"=>N_("Incorrect form: [_1]."),
+                "margs"=>[$_],
+                "isform"=>0};
+    }
+    # OK
+    return;
+}
+
+# html_page: Display the page
+sub html_page($) {
+    local ($_, %_);
+    my ($status, $LIST, $FORM);
+    $status = $_[0];
+    # A form is requested
+    if (is_form $status) {
+        $FORM = new Selima::Form::ScptPriv($status);
+        html_header $FORM->{"title"};
+        html_errmsg $status;
+        $FORM->html;
+        html_footer;
+    
+    # List the available items
+    } else {
+        $LIST = new Selima::List::ScptPriv;
+        html_header $LIST->{"title"}, undef, $LIST->page_param;
+        html_errmsg $status;
+        $LIST->html;
+        html_footer;
+    }
+    return;
+}
+
+
+##################################
+# Subroutines to manage the data #
+##################################
+# fetch_curitem: Fetch the current item
+sub fetch_curitem() {
+    local ($_, %_);
+    my ($sn, $FORM);
+    
+    # Return if fetched before
+    return if scalar(keys %CURRENT) > 0;
+    
+    # Obtain the current form
+    $FORM = curform;
+    # No item specified
+    return {"msg"=>N_("Please select the script privilege record."),
+            "isform"=>0}
+        if !defined $FORM->param("sn");
+    $sn = $FORM->param("sn");
+    
+    # Find the record
+    %CURRENT = fetchrec $sn, $THIS_TABLE;
+    # If this record exist
+    return {"msg"=>N_("This script privilege record does not exist anymore.  Please select another one."),
+            "isform"=>0}
+        if scalar(keys %CURRENT) == 0;
+    
+    # OK
+    return;
+}
+
+# import_selgrp: Import the selected group into the retrieved form
+sub import_selgrp($) {
+    local ($_, %_);
+    my $FORM;
+    $FORM = $_[0];
+    $FORM->param("grp", $GET->param("selsn"))
+        if  defined $GET->param("selsn")
+            && check_sn_in ${$GET->param_fetch("selsn")}[0], "groups";
+    return;
+}

htdocs/wov/magicat/cgi-bin/test.cgi

@@ -0,0 +1,40 @@
+#! /usr/bin/perl -w
+# Woman's Voice
+# test.cgi: The test script.
+
+#  Copyright (c) 2004-2021 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2004-11-02
+
+use 5.008;
+use utf8;
+use strict;
+use warnings;
+use lib $ENV{"DOCUMENT_ROOT"} . qw(/magicat/lib/perl5);
+use Selima::wov;
+local $SIG{"__DIE__"} = \&http_500;
+my $r = shift;
+my $d = new Selima::Destroy;
+# Prototype declaration
+use Time::HiRes qw();
+initenv;
+$CONTENT_TYPE = "text/plain";
+
+
+printf "[%s] Done.  %0.10f seconds elapsed.\n",
+    fmttime, Time::HiRes::time-$T_START;
+exit 0;
+no utf8;

htdocs/wov/magicat/cgi-bin/usermem.cgi

@@ -0,0 +1,236 @@
+#! /usr/bin/perl -w
+# Woman's Voice
+# usermem.cgi: The user-to-group membership administration.
+
+#  Copyright (c) 2004-2021 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2004-10-16
+
+use 5.008;
+use strict;
+use warnings;
+use lib $ENV{"DOCUMENT_ROOT"} . qw(/magicat/lib/perl5);
+use Selima::wov;
+local $SIG{"__DIE__"} = \&http_500;
+my $d = new Selima::Destroy;
+# Prototype declaration
+sub main();
+sub check_get();
+sub check_post();
+sub html_page($);
+sub fetch_curitem();
+sub import_selgrp($);
+sub import_selmember($);
+
+initenv(-restricted => 1,
+        -this_table => "usermem",
+        -dbi_lock   => {"usermem"               => LOCK_EX,
+                        "groups"                => LOCK_SH,
+                        "users AS usrmembers"   => LOCK_SH},
+        -lastmod    => 1,
+        -page_param => {"keywords"              => N_("user membership")});
+
+main;
+exit 0;
+
+sub main() {
+    local ($_, %_);
+    my ($error, $success, $processor);
+    
+    # If the request is a GET query
+    if ($ENV{"REQUEST_METHOD"} ne "POST") {
+        $error = check_get;
+        # If an error occurs
+        if (defined $error) {
+            html_page $error;
+        
+        # Display the page
+        } else {
+            html_page retrieve_status;
+        }
+    
+    # If a form was POSTed from the client
+    } else {
+        $error = check_post;
+        # If an error occurs
+        if (defined $error) {
+            error_redirect $error;
+        
+        # Else, save the data
+        } else {
+            $processor = new Selima::Processor::UserMem($POST);
+            $success = $processor->process;
+            success_redirect $success;
+        }
+    }
+    return;
+}
+
+# check_get: Check the GET arguments
+sub check_get() {
+    local ($_, %_);
+    my $error;
+    
+    # A form is requested
+    if (is_form) {
+        $_ = form_type;
+        # A form to create a new item
+        if ($_ eq "new") {
+            # Nothing to check on a new form
+        
+        # A form to edit a current item
+        } elsif ($_ eq "cur") {
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+        
+        # A form to delete a current item
+        } elsif ($_ eq "del") {
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+        
+        # Not a valid form
+        } else {
+            return {"msg"=>N_("Incorrect form: [_1]."),
+                    "margs"=>[$_],
+                    "isform"=>0};
+        }
+    }
+    # List handler handles its own error
+    # OK
+    return;
+}
+
+# check_post: Check the POSTed form
+sub check_post() {
+    local ($_, %_);
+    my ($checker, $error);
+    $_ = form_type;
+    # A form to create a new item
+    if ($_ eq "new") {
+        # Run the checker
+        $checker = new Selima::Checker::UserMem(curform);
+        $checker->redir(qw(selgrp delgrp selmember delmember));
+        $error = $checker->check(qw(grp member));
+        return $error if defined $error;
+    
+    # A form to edit a current item
+    } elsif ($_ eq "cur") {
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;
+        # Run the checker
+        $checker = new Selima::Checker::UserMem(curform);
+        $checker->redir(qw(del selgrp delgrp selmember delmember));
+        $error = $checker->check(qw(grp member));
+        return $error if defined $error;
+    
+    # A form to delete a current item
+    } elsif ($_ eq "del") {
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;;
+        # Run the checker
+        $checker = new Selima::Checker::UserMem(curform);
+        $checker->redir(qw(cancel));
+    
+    # Not a valid form
+    } else {
+        return {"msg"=>N_("Incorrect form: [_1]."),
+                "margs"=>[$_],
+                "isform"=>0};
+    }
+    # OK
+    return;
+}
+
+# html_page: Display the page
+sub html_page($) {
+    local ($_, %_);
+    my ($status, $LIST, $FORM);
+    $status = $_[0];
+    # A form is requested
+    if (is_form $status) {
+        $FORM = new Selima::Form::UserMem($status);
+        html_header $FORM->{"title"};
+        html_errmsg $status;
+        $FORM->html;
+        html_footer;
+    
+    # List the available items
+    } else {
+        $LIST = new Selima::List::UserMem;
+        html_header $LIST->{"title"}, undef, $LIST->page_param;
+        html_errmsg $status;
+        $LIST->html;
+        html_footer;
+    }
+    return;
+}
+
+
+##################################
+# Subroutines to manage the data #
+##################################
+# fetch_curitem: Fetch the current item
+sub fetch_curitem() {
+    local ($_, %_);
+    my ($sn, $FORM);
+    
+    # Return if fetched before
+    return if scalar(keys %CURRENT) > 0;
+    
+    # Obtain the current form
+    $FORM = curform;
+    # No item specified
+    return {"msg"=>N_("Please select the membership record."),
+            "isform"=>0}
+        if !defined $FORM->param("sn");
+    $sn = $FORM->param("sn");
+    
+    # Find the record
+    %CURRENT = fetchrec $sn, $THIS_TABLE;
+    # If this record exist
+    return {"msg"=>N_("This membership record does not exist anymore.  Please select another one."),
+            "isform"=>0}
+        if scalar(keys %CURRENT) == 0;
+    
+    # OK
+    return;
+}
+
+# import_selgrp: Import the selected group into the retrieved form
+sub import_selgrp($) {
+    local ($_, %_);
+    my $FORM;
+    $FORM = $_[0];
+    $FORM->param("grp", $GET->param("selsn"))
+        if  defined $GET->param("selsn")
+            && check_sn_in ${$GET->param_fetch("selsn")}[0], "groups";
+    return;
+}
+
+# import_selmember: Import the selected user into the retrieved form
+sub import_selmember($) {
+    local ($_, %_);
+    my $FORM;
+    $FORM = $_[0];
+    $FORM->param("member", $GET->param("selsn"))
+        if  defined $GET->param("selsn")
+            && check_sn_in ${$GET->param_fetch("selsn")}[0], "users AS usrmembers";
+    return $FORM;
+}

htdocs/wov/magicat/cgi-bin/userpref.cgi

@@ -0,0 +1,225 @@
+#! /usr/bin/perl -w
+# Woman's Voice
+# userpref.cgi: The user preference administration.
+
+#  Copyright (c) 2004-2021 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2004-10-16
+
+use 5.008;
+use strict;
+use warnings;
+use lib $ENV{"DOCUMENT_ROOT"} . qw(/magicat/lib/perl5);
+use Selima::wov;
+local $SIG{"__DIE__"} = \&http_500;
+my $d = new Selima::Destroy;
+# Prototype declaration
+sub main();
+sub check_get();
+sub check_post();
+sub html_page($);
+sub fetch_curitem();
+sub import_selusr($);
+
+initenv(-restricted => 1,
+        -this_table => "userpref",
+        -dbi_lock   => {"userpref"              => LOCK_EX,
+                        "users"                 => LOCK_SH},
+        -lastmod    => 1,
+        -page_param => {"keywords"              => N_("user preference")});
+
+main;
+exit 0;
+
+sub main() {
+    local ($_, %_);
+    my ($error, $success, $processor);
+    
+    # If the request is a GET query
+    if ($ENV{"REQUEST_METHOD"} ne "POST") {
+        $error = check_get;
+        # If an error occurs
+        if (defined $error) {
+            html_page $error;
+        
+        # Display the page
+        } else {
+            html_page retrieve_status;
+        }
+    
+    # If a form was POSTed from the client
+    } else {
+        $error = check_post;
+        # If an error occurs
+        if (defined $error) {
+            error_redirect $error;
+        
+        # Else, save the data
+        } else {
+            $processor = new Selima::Processor::UserPref($POST);
+            $success = $processor->process;
+            success_redirect $success;
+        }
+    }
+    return;
+}
+
+# check_get: Check the GET arguments
+sub check_get() {
+    local ($_, %_);
+    my $error;
+    
+    # A form is requested
+    if (is_form) {
+        $_ = form_type;
+        # A form to create a new item
+        if ($_ eq "new") {
+            # Nothing to check on a new form
+        
+        # A form to edit a current item
+        } elsif ($_ eq "cur") {
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+        
+        # A form to delete a current item
+        } elsif ($_ eq "del") {
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+        
+        # Not a valid form
+        } else {
+            return {"msg"=>N_("Incorrect form: [_1]."),
+                    "margs"=>[$_],
+                    "isform"=>0};
+        }
+    }
+    # List handler handles its own error
+    # OK
+    return;
+}
+
+# check_post: Check the POSTed form
+sub check_post() {
+    local ($_, %_);
+    my ($checker, $error);
+    $_ = form_type;
+    # A form to create a new item
+    if ($_ eq "new") {
+        # Run the checker
+        $checker = new Selima::Checker::UserPref(curform);
+        $checker->redir(qw(selusr delusr));
+        $error = $checker->check(qw(usr domain name value));
+        return $error if defined $error;
+    
+    # A form to edit a current item
+    } elsif ($_ eq "cur") {
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;
+        # Run the checker
+        $checker = new Selima::Checker::UserPref(curform);
+        $checker->redir(qw(del selusr delusr));
+        $error = $checker->check(qw(usr domain name value));
+        return $error if defined $error;
+    
+    # A form to delete a current item
+    } elsif ($_ eq "del") {
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;;
+        # Run the checker
+        $checker = new Selima::Checker::UserPref(curform);
+        $checker->redir(qw(cancel));
+    
+    # Not a valid form
+    } else {
+        return {"msg"=>N_("Incorrect form: [_1]."),
+                "margs"=>[$_],
+                "isform"=>0};
+    }
+    # OK
+    return;
+}
+
+# html_page: Display the page
+sub html_page($) {
+    local ($_, %_);
+    my ($status, $LIST, $FORM);
+    $status = $_[0];
+    # A form is requested
+    if (is_form $status) {
+        $FORM = new Selima::Form::UserPref($status);
+        html_header $FORM->{"title"};
+        html_errmsg $status;
+        $FORM->html;
+        html_footer;
+    
+    # List the available items
+    } else {
+        $LIST = new Selima::List::UserPref;
+        html_header $LIST->{"title"}, undef, $LIST->page_param;
+        html_errmsg $status;
+        $LIST->html;
+        html_footer;
+    }
+    return;
+}
+
+
+##################################
+# Subroutines to manage the data #
+##################################
+# fetch_curitem: Fetch the current item
+sub fetch_curitem() {
+    local ($_, %_);
+    my ($sn, $FORM);
+    
+    # Return if fetched before
+    return if scalar(keys %CURRENT) > 0;
+    
+    # Obtain the current form
+    $FORM = curform;
+    # No item specified
+    return {"msg"=>N_("Please select the user preference."),
+            "isform"=>0}
+        if !defined $FORM->param("sn");
+    $sn = $FORM->param("sn");
+    
+    # Find the record
+    %CURRENT = fetchrec $sn, $THIS_TABLE;
+    # If this record exist
+    return {"msg"=>N_("This user preference does not exist anymore.  Please select another one."),
+            "isform"=>0}
+        if scalar(keys %CURRENT) == 0;
+    
+    # OK
+    return;
+}
+
+# import_selusr: Import the selected user into the retrieved form
+sub import_selusr($) {
+    local ($_, %_);
+    my $FORM;
+    $FORM = $_[0];
+    if (    defined $GET->param("selsn")
+            && check_sn_in ${$GET->param_fetch("selsn")}[0], "users") {
+        $FORM->param("usr", $GET->param("selsn"));
+        $FORM->param("everyone", "false");
+    }
+    return;
+}

htdocs/wov/magicat/cgi-bin/users.cgi

@@ -0,0 +1,273 @@
+#! /usr/bin/perl -w
+# Woman's Voice
+# users.cgi: The user account administration.
+
+#  Copyright (c) 2004-2021 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2004-10-16
+
+use 5.008;
+use strict;
+use warnings;
+use lib $ENV{"DOCUMENT_ROOT"} . qw(/magicat/lib/perl5);
+use Selima::wov;
+local $SIG{"__DIE__"} = \&http_500;
+my $d = new Selima::Destroy;
+# Prototype declaration
+sub main();
+sub check_get();
+sub check_post();
+sub html_page($);
+sub fetch_curitem();
+
+initenv(-this_table => "users",
+        -dbi_lock   => {"users"                 => LOCK_EX,
+                        "usermem"               => LOCK_EX,
+                        "userpref"              => LOCK_EX,
+                        "groupmem"              => LOCK_SH,
+                        "groups"                => LOCK_SH},
+        -lastmod    => 1,
+        -page_param => {"keywords"              => N_("users")});
+
+main;
+exit 0;
+
+sub main() {
+    local ($_, %_);
+    my ($error, $success, $processor);
+    
+    # If the request is a GET query
+    if ($ENV{"REQUEST_METHOD"} ne "POST") {
+        $error = check_get;
+        # If an error occurs
+        if (defined $error) {
+            html_page $error;
+        
+        # Display the page
+        } else {
+            html_page retrieve_status;
+        }
+    
+    # If a form was POSTed from the client
+    } else {
+        $error = check_post;
+        # If an error occurs
+        if (defined $error) {
+            # Password not saved
+            $POST->delete("passwd", "passwd2");
+            error_redirect $error;
+        
+        # Else, save the data
+        } else {
+            $processor = new Selima::Processor::User($POST);
+            $success = $processor->process;
+            # Password not saved
+            $POST->delete("passwd", "passwd2");
+            success_redirect $success;
+        }
+    }
+    return;
+}
+
+# check_get: Check the GET arguments
+sub check_get() {
+    local ($_, %_);
+    my ($error, $FORM, $sn);
+    
+    # A form is requested
+    if (is_form) {
+        $_ = form_type;
+        # A form to create a new item
+        if ($_ eq "new") {
+            # Check the privilege to manage this table
+            unauth if !is_script_permitted;
+        
+        # A form to edit a current item
+        } elsif ($_ eq "cur") {
+            # Check the privilege to manage this table
+            $FORM = curform;
+            $sn = defined $FORM->param("sn")? $FORM->param("sn"): -1;
+            unauth unless defined get_login_sn;
+            unauth unless is_script_permitted || $sn == get_login_sn;
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+        
+        # A form to delete a current item
+        } elsif ($_ eq "del") {
+            # Check the privilege to manage this table
+            $FORM = curform;
+            $sn = defined $FORM->param("sn")? $FORM->param("sn"): -1;
+            unauth unless defined get_login_sn;
+            unauth unless is_script_permitted;
+            unauth if !is_su && (is_su $sn || $sn == get_login_sn);
+            # Check at fetch_curitem()
+            $error = fetch_curitem;
+            return $error if defined $error;
+        
+        # Not a valid form
+        } else {
+            # Check the privilege to manage this table
+            unauth unless is_script_permitted;
+            return {"msg"=>N_("Incorrect form: [_1]."),
+                    "margs"=>[$_],
+                    "isform"=>0};
+        }
+    
+    # List the available items
+    } else {
+        # Check the privilege to manage this table
+        unauth unless is_script_permitted;
+        # List handler handles its own error
+    }
+    # OK
+    return;
+}
+
+# check_post: Check the POSTed form
+sub check_post() {
+    local ($_, %_);
+    my ($checker, $error, $FORM, $sn);
+    $_ = form_type;
+    # A form to create a new item
+    if ($_ eq "new") {
+        # Check the privilege to manage this table
+        unauth unless is_script_permitted;
+        # Run the checker
+        $checker = new Selima::Checker::User(curform);
+        $error = $checker->check(qw(id passwd name supgroup));
+        return $error if defined $error;
+    
+    # A form to edit a current item
+    } elsif ($_ eq "cur") {
+        # Check the privilege to manage this table
+        $FORM = curform;
+        $sn = defined $FORM->param("sn")? $FORM->param("sn"): -1;
+        unauth unless defined get_login_sn;
+        unauth unless is_script_permitted || $sn == get_login_sn;
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;
+        # Run the checker
+        $checker = new Selima::Checker::User(curform);
+        $checker->redir(qw(del));
+        $error = $checker->check(qw(id passwd name supgroup));
+        return $error if defined $error;
+    
+    # A form to delete a current item
+    } elsif ($_ eq "del") {
+        # Check the privilege to manage this table
+        $FORM = curform;
+        $sn = defined $FORM->param("sn")? $FORM->param("sn"): -1;
+        unauth unless defined get_login_sn;
+        unauth unless is_script_permitted;
+        unauth if !is_su && (is_su $sn || $sn == get_login_sn);
+        # Check at fetch_curitem()
+        $error = fetch_curitem;
+        return $error if defined $error;;
+        # Run the checker
+        $checker = new Selima::Checker::User(curform);
+        $checker->redir(qw(cancel));
+    
+    # Not a valid form
+    } else {
+        # Check the privilege to manage this table
+        unauth unless is_script_permitted;
+        return {"msg"=>N_("Incorrect form: [_1]."),
+                "margs"=>[$_],
+                "isform"=>0};
+    }
+    # OK
+    return;
+}
+
+# html_page: Display the page
+sub html_page($) {
+    local ($_, %_);
+    my ($status, $LIST, $FORM);
+    $status = $_[0];
+    # A form is requested
+    if (is_form $status) {
+        $FORM = new Selima::Form::User($status);
+        html_header $FORM->{"title"};
+        html_errmsg $status;
+        $FORM->html;
+        html_footer;
+    
+    # List the available items
+    } else {
+        $LIST = new Selima::List::Users;
+        html_header $LIST->{"title"}, undef, $LIST->page_param;
+        html_errmsg $status;
+        $LIST->html;
+        html_footer;
+    }
+    return;
+}
+
+
+##################################
+# Subroutines to manage the data #
+##################################
+# fetch_curitem: Fetch the current item
+sub fetch_curitem() {
+    local ($_, %_);
+    my ($sn, $FORM, $sth, $sql, $row);
+    
+    # Return if fetched before
+    return if scalar(keys %CURRENT) > 0;
+    
+    # Obtain the current form
+    $FORM = curform;
+    # No item specified
+    return {"msg"=>N_("Please select the user."),
+            "isform"=>0}
+        if !defined $FORM->param("sn");
+    $sn = $FORM->param("sn");
+    
+    # Find the record
+    %CURRENT = fetchrec $sn, $THIS_TABLE;
+    # If this record exist
+    return {"msg"=>N_("This user does not exist anymore.  Please select another one."),
+            "isform"=>0}
+        if scalar(keys %CURRENT) == 0;
+    
+    # Obtain the belonging groups list
+    $sql = "SELECT groups.sn AS sn,"
+        . " groups.dsc AS title FROM usermem"
+        . " INNER JOIN groups ON usermem.grp=groups.sn"
+        . " WHERE usermem.member=$sn"
+        . " AND groups.id!=" . $DBH->quote(SU_GROUP)
+        . " AND groups.id!=" . $DBH->quote(ADMIN_GROUP)
+        . " AND groups.id!=" . $DBH->quote(ALLUSERS_GROUP)
+        . " ORDER BY groups.id;\n";
+    $sth = $DBH->prepare($sql);
+    $sth->execute;
+    $CURRENT{"supgroupcount"} = $sth->rows;
+    for ($_ = 0; $_ < $CURRENT{"supgroupcount"}; $_++) {
+        $row = $sth->fetchrow_hashref;
+        $CURRENT{"supgroup$_"} = 1;
+        $CURRENT{"supgroup$_" . "sn"} = $$row{"sn"};
+        $CURRENT{"supgroup$_" . "title"} = $$row{"title"};
+    }
+    
+    # Get the admin flag
+    $CURRENT{"admin"} = is_admin($sn);
+    $CURRENT{"su"} = is_su($sn);
+    
+    # OK
+    return;
+}

htdocs/wov/magicat/data/counter.dat

@@ -0,0 +1 @@
+167372

htdocs/wov/magicat/data/editors_notes.txt

@@ -0,0 +1,443 @@
+[Guestbook Entry&]
+date=2000-06-15 20:00:39
+name=依瑪貓
+message=
+已完成的部份：
+1.首頁
+2.留言本 guestbook
+3.訂閱程式
+4.網頁製作程式
+5.訪客計數器 counter
+6.訂閱人數及上次更新日期顯示器
+7.HTTP 401 / HTTP 404 錯誤訊息
+8.發報程式
+9.訪客統計程式
+10.翻頁轉向程式 wovs.cgi
+11.HTML 4.01/CSS1 快速檢測連結
+12.女聲 CGI 模組化
+13.全文檢索
+14.著作權聲明
+15.聯絡方式
+16.編輯手記
+
+待完成的部份：
+1.梅姬 CGI 模組化
+2.讀者閱讀編輯手記用的程式
+3.女網牽手連結頁 links
+3.發報程式中斷續傳
+5.女聲留言本 HTML 化
+6.女聲目錄檔整理程式 wovs.csv
+
+[Guestbook Entry&]
+date=2000-06-15 23:06:05
+name=依瑪貓
+message=
+工作進度：
+1.梅姬 CGI 模組化已完成
+2.女聲留言本 HTML 化保留
+3.讀者閱讀編輯手記用程式保留
+4.女聲聯絡方式保留
+
+[Guestbook Entry&]
+date=2000-06-16 09:09:33
+name=依瑪貓
+message=
+未完成工作：
+1.Netscape 測試
+2.女網牽手連結頁 links
+3.女聲目錄檔 wovs.csv 整理程式
+4.發報機續傳功能檢測
+
+[Guestbook Entry&]
+date=2000-06-16 17:32:22
+name=依瑪貓
+message=
+
+已完成工作
+1.發報機續傳功能檢測與強化
+2.OpenFind 搜尋引擎登錄網址錯誤更新
+3.Netscape 測試
+4.訂閱頁首頁 HTML 化
+
+未完成工作
+1.女網牽手連結頁
+2.女聲目錄檔 wovs.csv 整理程式
+3.通知相關人員團體女聲 E-mail 與網址更新訊息
+
+[Guestbook Entry&]
+date=2000-06-16 20:02:40
+name=依瑪貓
+message=
+女聲網站組織圖
+
+http://www.wov.idv.tw/ 女聲
+    ├┬ /newsletters 電子報
+    │└ /links       女網牽手
+    │
+    ├┬ /images      圖檔目錄
+    │├ /stylesheets CSS 樣式表目錄
+    │├ /scripts     Java 指令程式目錄
+    │├ /cgi-bin     CGI 程式執行目錄
+    │├ /data        資料檔目錄
+    │├ /errors      錯誤訊息目錄
+    │└ /icons       圖示目錄
+    │
+    └─ /magicat     梅姬
+          ├┬ /cgi-bin     CGI 程式執行目錄
+          │├ /stylesheets CSS 樣式表目錄
+          │├ /scripts     Java 指令程式目錄
+          │├ /data        資料檔目錄
+          │└ /contents    電子報內文原始檔
+          │
+          └─ /r703a       W3 新樂園備站
+                ├┬ /newsletters 電子報
+                │└ /links       女網牽手
+                │
+                └┬ /images      圖檔目錄
+                  ├ /stylesheets 樣式表目錄
+                  └ /scripts     Java 指令程式目錄
+
+[Guestbook Entry&]
+date=2000-06-19 07:47:35
+name=依瑪貓
+message=
+已完成工作
+1.女網牽手連結頁
+
+未完成工作
+1.女網牽手資料維護程式
+2.女聲電子報目錄維護程式
+
+[Guestbook Entry&]
+date=2000-06-20 00:43:00
+name=依瑪貓
+message=
+已完成工作
+1.女網牽手資料維護程式
+
+未完成工作
+1.女聲電子報目錄維護程式
+
+[Guestbook Entry&]
+date=2000-06-22 13:49:11
+name=依瑪貓
+message=
+已完成工作
+1.電子報目錄維護程式
+
+未完成工作
+1.女網牽手分類系統
+
+[Guestbook Entry&]
+date=2000-06-27 23:27:43
+name=小招
+message=
+目前想到的分類重點，我想是用主題或網站的類型來分。
+
+1、綜合型：拉拉喳喳，什麼都談的。像一些入門網站，如hercafe。
+
+2、婦女團體或個人的專屬網站：這個部分是指比較沒什麼女性意識，但是是女性或女
+人所架設的網站，不拘個人或組織。放這個的用意是要讓大家看看，女人不是那麼刻板
+的缺乏電腦能力或技術能力，有許多女人能自行架設網站。
+
+3、另類的特異網站，例如月經...
+
+4、同志網站。主要是女同志啦。不過這個部分有一些爭議。女同志是不是女人？如果
+女同志的身份是放在對同志的認同，那麼，要放男同志網站嗎？或者這個分類也可叫性
+別特區。「特」意不在同志，而在「男」。
+
+5、娛樂休閒型。像是一些女性休閒網站。
+
+6、女性醫療網站。對啦，是因為我手邊有一些資料啦！不過在一個日漸醫療化的世界
+中，透過醫療專業，女人身體成為一個實驗場域與男性醫療專業者的論述場域，我覺得
+這些網站真得、真得粉重要喔，像是剖腹產、無子宮村啦，如果有女性觀點在談這種咚
+咚，多好！
+
+7、英文網站。我不想用國際相關網站，因為網路無邊界啊...我覺得用語言來分比較
+好。目前想到的其他就這樣子。
+
+其他再說。
+
+
+
+
+
+
+[Guestbook Entry&]
+date=2000-06-27 23:33:18
+name=小招
+message=
+8、(標榜)女性主義網站(Feminism or Feminist)，婦女運動網站
+
+
+
+
+
+[Guestbook Entry&]
+date=2000-06-29 22:34:18
+name=依瑪貓
+message=
+已完成工作:
+1.女網牽手分類系統初步成形(小招)
+2.設定、重製網頁工作一體化，減少每次都要「重製網頁」的多餘步驟。
+
+anada 加油喔~~女網牽手現在粉棒呢~~ ^_*'
+
+[Guestbook Entry&]
+date=2000-08-31 22:44:21
+name=小招
+message=
+bbs站務籌備會議  
+2000/8/30  永和保安路鍋神火鍋店（服務態度差，再也不去了）
+
+＊預計先開設30個版。
+
+＊確定砍信原則：所有版都一樣，版主有砍信權限，但是基本原則是「內容非關版務」才能
+砍。若在此原則外因砍信引起任何糾紛（如：人身攻擊），則由依瑪站長先提評估意見，之
+後與小招討論達成懲處協議。
+
+＊開設免費商業版：不設版主，每週定期砍信，但一些跟女性、拉子等友善或相關的商業廣
+告則標記保留。
+
+[Guestbook Entry&]
+date=2000-09-16 23:01:03
+name=依瑪貓
+message=
+女聲網站成功轉移至新 Linux 主機。
+
+日　　期： 2000-09-16
+網站網址： http://www.wov.idv.tw/
+主機名稱： rinse.wov.idv.tw
+主機位址： 211.20.30.100
+作業系統： Red Hat Linux 6.2 (Linux 2.2.16-3)
+
+[Guestbook Entry&]
+date=2000-09-21 02:15:51
+name=依瑪貓
+message=
+待完成工作：
+
+1.訪客分析 analog 。
+2.改寫女網簽手設定程式的分類修改介面。
+3.重寫女聲目錄資料庫結構。
+4.root/imacat 密碼更新。
+5.Samba Domain Controller 。
+
+[Guestbook Entry&]
+date=2000-09-21 23:50:25
+name=依瑪貓
+message=
+補充待完成工作：
+6.留言板使用說明。
+7.網站版本記錄。
+8.Mailing List。
+
+[Guestbook Entry&]
+date=2000-09-26 22:52:38
+name=依瑪貓
+message=
+女聲第十三期出刊
+
+日　　期： 2000-09-26
+發刊情形：
+　寄出： 1378 份
+　退信： 91 份
+　無效地址、超過容量作廢訂戶： 78 份
+　因故退信保留訂戶 13 份
+bbjc113@hotmail.com
+itsshelly@hotmail.com
+violalee@hotmail.com
+yi_huans@hotmail.com
+chunyean@jiannren.org.tw
+d870050@ndmc1.ndmctsgh.edu.tw
+e871146@student.stit.edu.tw
+minerl@changhua.ncue.edu.tw
+terencechenn@yammail.com.tw
+tsut_1@yammail.com.tw
+u8744108@mail.mis.cycu.edu.tw
+u8608047@teddy.ttit.edu.tw
+webmaster@ip-155-010.shu.edu.tw
+
+[Guestbook Entry&]
+date=2000-09-27 00:02:01
+name=依瑪貓
+message=
+已完成工作：
+1.HTTP 403 自訂訊息
+2.女聲留言本使用說明
+3.訂閱頁求助訊息
+
+待完成工作
+1.keywords
+2.robots.txt
+
+[Guestbook Entry&]
+date=2000-09-28 08:29:06
+name=依瑪貓
+message=
+重新整理待完成工作：
+1.訪客分析 analog 。
+2.改寫女網簽手設定程式的分類修改介面。
+3.重寫女聲目錄資料庫結構。
+4.Samba Domain Controller。
+5.網站版本記錄。
+6.Mailing List。
+7.Keywords。
+8.robots.txt。
+
+[Guestbook Entry&]
+date=2000-09-28 11:32:58
+name=依瑪貓
+message=
+已完成工作：
+robots.txt
+
+[Guestbook Entry&]
+date=2000-10-11 21:18:28
+name=依瑪貓
+message=
+已完成工作：
+1. Perl CGI 改用 Apache mod_perl 執行。
+2. HTTP header 改由 CGI.pm header 處理。
+3. time2str 改由 HTTP::Date 呼叫。
+4. Common.pm 改名。
+5. $ID, $THIS_FILE, $THIS_URI 變數
+  由 Perl 模組改由 script 處理。
+6. HTTP 連線 Keep-Alive 。
+7. HTTP header 的 Last-Update 計算。
+8. HTML 認證程式。
+
+待完成工作：
+1.計數器的網域判別準則。
+2.留言本無留言時計算錯誤的 bug 。
+3. CSS 認證程式。
+
+[Guestbook Entry&]
+date=2000-10-12 00:09:12
+name=依瑪貓
+message=
+已完成工作：
+1.計數器的網域判別準則。
+2.留言本無留言時計算錯誤的 bug 。
+
+[Guestbook Entry&]
+date=2000-10-12 04:29:03
+name=依瑪貓
+message=
+已完成工作：
+1.留言本在 mod_perl 下留言後卡住當掉的 bug 。
+
+待完成工作：
+1. CSS 認證程式。
+2. keywords 。
+
+[Guestbook Entry&]
+date=2000-10-19 09:31:35
+name=依瑪貓
+message=
+已完成工作：
+1.以 flock 鎖定開啟檔案。
+2.重寫女聲訂閱程式的判斷流程。
+3.開檔錯誤時自行產生 HTTP 500 錯誤訊息。
+4.區域網路內自動身份認證－－待補強。
+
+[Guestbook Entry&]
+date=2000-10-28 14:02:54
+name=依瑪貓
+message=
+已完成工作：
+1.加強關檔、讀寫的 HTTP 500 錯誤訊息。
+2. HTTP 500 錯誤訊息改以 die 結束，保留錯誤記錄。
+3.重寫訪客計數器判別流程，減少檔案鎖定造成執行延遲。
+4.改寫訪客計數器內部網路判別流程。
+5.改寫訪客計數器 cookies 程式，減少所需載入模組。
+6.簡化 GD 圖型顯示程式。
+7.網路作業系統自動判別。
+8.改寫 Win32 安全管制判別程式，以適用於無網域主控制站時帳號管理。
+9.改寫 Linux 安全管制判別程式，改以系統函數判別。
+
+[Guestbook Entry&]
+date=2000-10-29 00:05:08
+name=依瑪貓
+message=
+已完成工作：
+1.keywords 。 (YEAH!!!!!!! *^_^*)
+2.全文檢索用 JavaScript 過濾空詞彙。
+3.旅舍中的女聲著作權聲明連結到女聲網站上的著作權聲明。
+
+[Guestbook Entry&]
+date=2000-10-29 03:49:46
+name=依瑪貓
+message=
+已完成工作：
+1.改寫女網牽手分類介面。
+
+[Guestbook Entry&]
+date=2000-10-30 04:30:29
+name=依瑪貓
+message=
+已完成工作
+1.自訂錯誤訊息本身的自我錯誤檢測。
+2.自訂 HTTP 500 錯誤時，以 E-mail 通知網站管理者。
+3.處理 If-Modified HTTP 連線，
+  及自訂 HTTP 304 Not Modified 回應。
+4.重新規劃 Last-Modified 計算標準，
+  原本以內容日期為準，改以檔案日期為準，
+  以避免瀏覽器快取錯亂。
+5.限制連線方式，自訂 HTTP 405 Method Not Allowed 。
+
+[Guestbook Entry&]
+date=2000-11-06 00:25:32
+name=依瑪貓
+message=
+已完成工作：
+1. Win32 IIS CGI / Win32 IIS ISAPI / Apache CGI /
+   Apache mod_perl Apache::Registry /
+   Apache mod_perl Apache::PerlRun 相容性。
+2.檔案讀寫改用絕對路徑，
+  以取得不同伺服器環境下的最大相容性。
+3.重寫圖形程式（計數器、最近更新日期、訂閱人數）
+  的流程，以和其它程式流程慣例一致。
+4.改寫訂閱程式流程，
+  先處理訂閱要求，再判斷最後更新日期，
+  以正確計算最後更新日期。
+
+[Guestbook Entry&]
+date=2000-11-09 07:58:52
+name=依瑪貓
+message=
+已完成工作：
+1.修改留言本資料庫引擎讀取方式，和資料庫結構，
+  標頭加上 "&" 逸出字元，改寫第一筆留言讀取逸出方式，
+  以避免留言內容與資料庫結構混淆，誤導讀取錯誤。
+
+[Guestbook Entry&]
+date=2001-04-27 16:59:37
+ip=211.20.30.99
+host=clio.wov.idv.tw
+name=小招
+message=
+目前女聲屬於不定期發刊，所以在沒有出刊的時候，整個網站會給
+人down下來的感覺。雖然留言版偶爾有些五四三的東東，網站給人
+不太active的感覺，給讀者互動的思考空間不夠寬廣。
+
+所以，我想到幾個東西可以作的，我先記下來。當然這些想法並不
+需要馬上付諸行動，基本上，是等我考完試再動工。
+
+第一個我覺得可以作的是「女人心聲(事)」。( 趕快存檔，我已經
+寫第三遍了) 這個就是每週女性、性別新聞。我也有想到每天的，
+但是我自己都覺得不太可能，畢竟我們沒有寫日記的習慣，所以可
+行性實在不高。
+
+第二個呢，是「女人作伙」。就是活動看版或活動佈告欄啦。畢竟
+也有兩年的歷史啦，女聲常收到一些活動訊息。我稍微觀察其他的
+女性網站，覺得像新知或是一些研究室主要還是以本身的活動為主
+，並沒有一個整合性佈告欄。雖然bbs 會又這種活動佈告版，一是
+太龐雜，二是一些較有女性意識的bbs 站都掛了(像清大女性主義、
+壞女兒)，所以我覺得作為一個女性媒體，我們可以有這些功能。
+
+以前本來想說相關訊息放在留言版就好。但這東西一作起來，若還
+是放在留言版，版面一大，就有點宣賓奪主了。所以我是傾向獨立
+一個版面啦。而且我希望女人作伙就像留言版一樣，可以讓活動主
+辦者自己刊登，但涉及商業部份我們一律刪除。
+

htdocs/wov/magicat/include/footer.html

@@ -0,0 +1,41 @@
+<hr />
+<div id="footer" class="footer" title="頁尾區">
+
+<div>
+<a href="/" title="女聲電子報網站"><img
+    src="/images/icon" alt="女聲" /></a>|<a
+    href="https://www.imacat.idv.tw/"
+    title="往旅舍依瑪網站"><img
+    src="https://www.imacat.idv.tw/images/icon"
+    alt="歡迎光臨旅舍依瑪" /></a>
+</div>
+
+<div>
+<a href="http://www.w3.org/Style/CSS/Buttons/"
+    title="CSS 樣式表說明" hreflang="en"><img
+    src="/images/w3c/mwcts" alt="以 CSS 樣式表製作" /></a>|<a
+    href="http://html-validator.imacat.idv.tw/check/referer"
+    title="本頁的 HTML 驗證結果" hreflang="en"><img
+    src="/images/w3c/vxhtml11" alt="XHTML 1.1 正確！" /></a>|<a
+    href="http://jigsaw.w3.org/css-validator/check/referer"
+    title="本頁的 CSS 驗證結果" hreflang="en"><img
+    src="/images/w3c/vcss" alt="CSS 正確！" /></a>|<a
+    href="http://www.w3.org/WAI/WCAG1AAA-Conformance"
+    title="無障礙三 A 級標準說明" hreflang="en"><img
+    src="/images/w3c/wcag1AAA"
+    alt="W3C 無障礙網頁規範 1.0 三 A 級標準標章" /></a>
+<p>本頁符合 <a href="http://www.w3.org/TR/xhtml11/" hreflang="en"><abbr
+    title="Extensible HyperText Markup Language">XHTML</abbr> 1.1</a> /
+    <a href="http://www.w3.org/TR/CSS21/" hreflang="en"><abbr
+    title="Cascading Style Sheets">CSS</abbr> 2.1</a> /
+    <a href="http://www.w3.org/TR/WAI-WEBCONTENT/"
+    hreflang="en">無障礙網頁規範 1.0</a> 三 A 級標準</p>
+</div>
+
+<!--selima:perl-->
+
+<div>
+<p>《女聲》電子報著作權所有，欲轉載引用請先閱讀<a href="/copying.html">著作權聲明</a></p>
+</div>
+
+</div>

htdocs/wov/magicat/include/header.html

@@ -0,0 +1,14 @@
+<form action="/cgi-bin/search.cgi" method="get" accept-charset="<!--selima:charset-->">
+<div class="navibar">
+    <span><a href="/newsletters/">閱讀女聲</a></span> |
+    <span><a href="/subscribe.html">訂閱女聲</a></span> |
+    <span><a href="/cgi-bin/guestbook.cgi">妳的女聲</a></span> |
+    <span><a href="/links/">女網牽手</a></span> |
+    <span><a accesskey="1" href="/">回首頁</a></span> |
+    <span><a href="mailto:editors@mail.wov.idv.tw">寫信給女聲</a></span> |
+    <label for="navquery">檢索：</label><input
+        id="navquery" class="text" type="text" name="query" value="" /><input
+        type="hidden" name="charset" value="<!--selima:charset-->" /><input
+        type="submit" value="搜尋" />
+</div>
+</form>

htdocs/wov/magicat/index.html.html

@@ -0,0 +1 @@
+index.html.xhtml

htdocs/wov/magicat/index.html.xhtml

@@ -0,0 +1,154 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
+    "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="zh-tw">
+<head>
+<meta http-equiv="Content-Type" content="application/xhtml+xml; charset=UTF-8" />
+<meta http-equiv="Content-Style-Type" content="text/css" />
+<meta http-equiv="Content-Script-Type" content="text/javascript" />
+<meta name="author" content="小招, 依瑪貓" />
+<meta name="keywords" content="網站管理, 內容管理" />
+<meta name="copyright" content="&copy; 1999-2018 《女聲》電子報。《女聲》電子報保有所有權利。" />
+<link rel="start" type="application/xhtml+xml" href=".." />
+<link rel="copyright" type="application/xhtml+xml" href="../copying.html" />
+<link rel="author" href="mailto:editors&#64;mail.wov.idv.tw" />
+<link rel="search" type="application/xhtml+xml" href="../cgi-bin/search.cgi" />
+<link rel="up" type="application/xhtml+xml" href=".." />
+<link rel="stylesheet" type="text/css" href="../stylesheets/common.css" />
+<link rel="shortcut icon" type="image/x-icon" href="../favicon.ico" />
+<title>梅姬，妳好 ^_*'</title>
+</head>
+<body>
+
+<div id="topofpage" class="skiptobody">
+<a accesskey="2" href="#body">跳到網頁內文區。</a>
+</div>
+
+
+<div id="nav" class="nav" title="導覽連結區">
+<div class="accessguide"><a accesskey="L"
+    href="#nav" title="導覽連結區">:::</a></div>
+<form action="../cgi-bin/search.cgi" method="get" accept-charset="UTF-8">
+<div class="navibar">
+    <span><a href="../newsletters/">閱讀女聲</a></span> |
+    <span><a href="../subscribe.html">訂閱女聲</a></span> |
+    <span><a href="../cgi-bin/guestbook.cgi">妳的女聲</a></span> |
+    <span><a href="../links/">女網牽手</a></span> |
+    <span><a href="..">回首頁</a></span> |
+    <span><a href="mailto:editors&#64;mail.wov.idv.tw">寫信給女聲</a></span> |
+    <label for="navquery">檢索：</label><input
+        id="navquery" class="text" type="text" name="query" value="" /><input
+        type="hidden" name="charset" value="UTF-8" /><input
+        type="submit" value="搜尋" />
+</div>
+</form>
+</div>
+<hr />
+
+
+<div id="body" class="body" title="網頁內文區">
+<div class="accessguide"><a accesskey="C"
+    href="#body" title="網頁內文區">:::</a></div>
+<div class="title">
+<img src="../images/logo"
+    alt="女聲 LOGO" title="女聲 Woman&rsquo;s Voice" />
+<h1>梅姬妳好 ^_*'</h1>
+<h1 class="en" xml:lang="en-us">Hi, I&rsquo;m Magicat</h1>
+</div>
+
+<address>
+目前訂戶 <img src="../cgi-bin/subs_counter.cgi" alt="訂戶人數" /> 人，
+訪客 <img src="../cgi-bin/counter.cgi?ignoreme=1" alt="訪客人數" /> 人
+</address>
+
+<div class="intro">
+<p>
+妳好。我是女聲網站的管家&mdash;女巫梅姬。我很厲害，會做各式各樣的事喔。如果妳有需要，請儘管吩咐。 ^_*'
+</p>
+</div>
+
+<div class="splittoc">
+<div class="tocl">
+<ul>
+<li><a href="cgi-bin/guestbook.cgi">妳的女聲</a></li>
+<li><a href="cgi-bin/pages.cgi">網頁</a></li>
+<li><a href="cgi-bin/links.cgi">女網牽手</a></li>
+<li><a href="cgi-bin/linkcat.cgi">女網牽手分類</a></li>
+<li><a href="cgi-bin/linkcatz.cgi">女網牽手分類表</a></li>
+<li><a href="cgi-bin/newslets.cgi">電子報</a></li>
+<li><a href="cgi-bin/nlarts.cgi">電子報文章</a></li>
+<li><a href="https://rinse.wov.idv.tw/mailman/admin/wov">電子報訂戶</a></li>
+
+<li><a href="cgi-bin/users.cgi">使用者</a></li>
+<li><a href="cgi-bin/groups.cgi">群組</a></li>
+<li><a href="cgi-bin/usermem.cgi">使用者成員關係</a></li>
+<li><a href="cgi-bin/groupmem.cgi">群組成員關係</a></li>
+<li><a href="cgi-bin/userpref.cgi">使用者偏好</a></li>
+<li><a href="cgi-bin/scptpriv.cgi">程式權限</a></li>
+<!--
+<li><a href="cgi-bin/editors_notes.cgi">編輯手記</a></li>
+-->
+</ul>
+</div>
+<div class="tocr">
+<ul>
+<li><a href="https://pythia.wov.idv.tw/accounting">共用帳</a></li>
+<!--
+<li><a href="https://rinse.wov.idv.tw/wov/magicat/cgi-bin/acctreps.cgi">共用帳報表</a></li>
+<li><a href="https://rinse.wov.idv.tw/wov/magicat/cgi-bin/accttrx.cgi">共用帳傳票</a></li>
+<li><a href="https://rinse.wov.idv.tw/wov/magicat/cgi-bin/acctsubj.cgi">會計科目</a></li>
+<li><a href="https://rinse.wov.idv.tw/wov/magicat/cgi-bin/acctrecs.cgi">共用帳分錄</a></li>
+-->
+
+<li><a href="cgi-bin/actlog.cgi">活動日誌</a></li>
+<li><a href="cgi-bin/rebuild.cgi">重製網頁</a></li>
+<li><a href="analog/">訪客統計</a></li>
+<li><a href="cgi-bin/test.cgi">測試程式</a></li>
+</ul>
+</div>
+</div>
+</div>
+
+
+<hr />
+<div id="footer" class="footer" title="頁尾區">
+<div>
+<a href=".." title="女聲電子報網站"><img
+    src="../images/icon" alt="女聲" /></a>|<a
+    href="https://www.imacat.idv.tw/"
+    title="往旅舍依瑪網站"><img
+    src="https://www.imacat.idv.tw/images/icon"
+    alt="歡迎光臨旅舍依瑪" /></a>
+</div>
+
+<div>
+<a href="http://www.w3.org/Style/CSS/Buttons/"
+    title="CSS 樣式表說明" hreflang="en"><img
+    src="../images/w3c/mwcts" alt="以 CSS 樣式表製作" /></a>|<a
+    href="http://html-validator.imacat.idv.tw/check/referer"
+    title="本頁的 HTML 驗證結果" hreflang="en"><img
+    src="../images/w3c/vxhtml11" alt="XHTML 1.1 正確！" /></a>|<a
+    href="http://jigsaw.w3.org/css-validator/check/referer"
+    title="本頁的 CSS 驗證結果" hreflang="en"><img
+    src="../images/w3c/vcss" alt="CSS 正確！" /></a>|<a
+    href="http://www.w3.org/WAI/WCAG1AAA-Conformance"
+    title="無障礙三 A 級標準說明" hreflang="en"><img
+    src="../images/w3c/wcag1AAA"
+    alt="W3C 無障礙網頁規範 1.0 三 A 級標準標章" /></a>
+<p>本頁符合 <a href="http://www.w3.org/TR/xhtml11/" hreflang="en"><abbr
+    title="Extensible HyperText Markup Language">XHTML</abbr> 1.1</a> /
+    <a href="http://www.w3.org/TR/CSS21/" hreflang="en"><abbr
+    title="Cascading Style Sheets">CSS</abbr> 2.1</a> /
+    <a href="http://www.w3.org/TR/WAI-WEBCONTENT/"
+    hreflang="en">無障礙網頁規範 1.0</a> 三 A 級標準</p>
+</div>
+
+<div>
+<p>《女聲》電子報著作權所有，欲轉載引用請先閱讀<a
+href="../copying.html">著作權聲明</a></p>
+</div>
+
+</div>
+
+</body>
+</html>

htdocs/wov/magicat/lib/acctsubj.sql

@@ -0,0 +1,532 @@
+BEGIN TRANSACTION;
+SET NAMES 'utf8';
+LOCK TABLE acctsubj IN ACCESS EXCLUSIVE MODE;
+DELETE FROM acctsubj;
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (372638070, NULL, '1', '資產', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (779709797, NULL, '2', '負債', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (309096272, NULL, '3', '業主權益', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (471592709, NULL, '4', '營業收入', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (923390793, NULL, '5', '營業成本', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (994752472, NULL, '6', '營業費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (962115884, NULL, '7', '營業外收入及費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (657609207, NULL, '8', '所得稅費用(或利益)', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (487023601, NULL, '9', '非經常營業損益', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (802972443, 372638070, '11', '流動資產', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (492735146, 372638070, '12', '流動資產', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (602662532, 372638070, '13', '基金及長期投資', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (601362886, 372638070, '14', '固定資產', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (463437233, 372638070, '15', '固定資產', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (813130827, 372638070, '16', '遞耗資產', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (888645287, 372638070, '17', '無形資產', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (314299094, 372638070, '18', '其他資產', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (613824503, 779709797, '21', '流動負債', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (125993341, 779709797, '22', '流動負債', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (434222646, 779709797, '23', '長期負債', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (741596219, 779709797, '28', '其他負債', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (714179679, 309096272, '31', '資本', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (931945860, 309096272, '32', '資本公積', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (926682414, 309096272, '33', '保留盈餘(或累積虧損)', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (676136047, 309096272, '34', '權益調整', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (793551134, 309096272, '35', '庫藏股', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (282449457, 309096272, '36', '少數股權', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (256854212, 471592709, '41', '銷貨收入', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (864303332, 471592709, '46', '勞務收入', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (685194984, 471592709, '47', '業務收入', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (585168046, 471592709, '48', '其他營業收入', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (776405888, 923390793, '51', '銷貨成本', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (484601714, 923390793, '56', '勞務成本製', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (656473437, 923390793, '57', '業務成本', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (526117422, 923390793, '58', '其他營業成本', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (847838836, 994752472, '61', '推銷費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (202779691, 994752472, '62', '管理及總務費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (390721534, 994752472, '63', '研究發展費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (613018617, 962115884, '71', '營業外收入', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (874636860, 962115884, '72', '營業外收入', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (933323474, 962115884, '73', '營業外收入', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (837668432, 962115884, '74', '營業外收入', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (658230315, 962115884, '75', '營業外費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (963623186, 962115884, '76', '營業外費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (726033439, 962115884, '77', '營業外費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (107974953, 962115884, '78', '營業外費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (531374062, 657609207, '81', '所得稅費用(或利益)', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (441557451, 487023601, '91', '停業部門損益', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (780750379, 487023601, '92', '非常損益', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (576655458, 487023601, '93', '會計原則變動累積影響數', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (403027649, 487023601, '94', '少數股權淨利', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (382831496, 802972443, '111', '現金及約當現金', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (405656198, 802972443, '112', '短期投資', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (274218035, 802972443, '113', '應收票據', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (236197229, 802972443, '114', '應收帳款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (990834888, 802972443, '118', '其他應收款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (802773250, 492735146, '121', '存貨', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (466973933, 492735146, '122', '存貨', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (434050648, 492735146, '125', '預付費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (349755763, 492735146, '126', '預付款項', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (336471657, 492735146, '128', '其他流動資產', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (956889094, 492735146, '129', '其他流動資產', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (425778949, 602662532, '131', '基金', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (640420175, 602662532, '132', '長期投資', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (410421689, 601362886, '141', '土地', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (503393820, 601362886, '142', '土地改良物', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (630438297, 601362886, '143', '房屋及建物', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (208976106, 601362886, '144', '機(器)具及設備', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (809268229, 601362886, '145', '機(器)具及設備', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (885610140, 601362886, '146', '機(器)具及設備', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (227011522, 463437233, '151', '租賃資產', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (733081973, 463437233, '152', '租賃權益改良', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (412438436, 463437233, '156', '未完工程及預付購置設備款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (373441509, 463437233, '158', '雜項固定資產', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (731330256, 813130827, '161', '遞耗資產', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (940611412, 888645287, '171', '商標權', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (138316570, 888645287, '172', '專利權', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (563900191, 888645287, '173', '特許權', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (423341137, 888645287, '174', '著作權', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (271146494, 888645287, '175', '電腦軟體', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (552238504, 888645287, '176', '商譽', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (207990296, 888645287, '177', '開辦費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (425720999, 888645287, '178', '其他無形資產', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (902673037, 314299094, '181', '遞延資產', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (966392319, 314299094, '182', '閒置資產', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (310547963, 314299094, '184', '長期應收票據及款項與催收帳款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (134097118, 314299094, '185', '出租資產', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (393449422, 314299094, '186', '存出保證金', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (464092583, 314299094, '188', '雜項資產', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (526855977, 613824503, '211', '短期借款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (974972811, 613824503, '212', '應付短期票券', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (862092008, 613824503, '213', '應付票據', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (705668893, 613824503, '214', '應付帳款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (815852043, 613824503, '216', '應付所得稅', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (287571641, 613824503, '217', '應付費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (574165963, 613824503, '218', '其他應付款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (674331210, 613824503, '219', '其他應付款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (889654543, 125993341, '226', '預收款項', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (815683575, 125993341, '227', '一年或一營業週期內到期長期負債', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (149212812, 125993341, '228', '其他流動負債', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (124114781, 125993341, '229', '其他流動負債', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (636315607, 434222646, '231', '應付公司債', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (663524372, 434222646, '232', '長期借款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (602970356, 434222646, '233', '長期應付票據及款項', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (319948252, 434222646, '234', '估計應付土地增值稅', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (489620321, 434222646, '235', '應計退休金負債', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (931718543, 434222646, '238', '其他長期負債', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (301894518, 741596219, '281', '遞延負債', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (753924220, 741596219, '286', '存入保證金', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (492886608, 741596219, '288', '雜項負債', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (354712237, 714179679, '311', '資本（或股本）', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (813886254, 931945860, '321', '股票溢價', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (369189273, 931945860, '323', '資產重估增值準備', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (708649341, 931945860, '324', '處分資產溢價公積', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (315953593, 931945860, '325', '合併公積', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (974832633, 931945860, '326', '受贈公積', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (981029756, 931945860, '328', '其他資本公積', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (782463283, 926682414, '331', '法定盈餘公積', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (511595327, 926682414, '332', '特別盈餘公積', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (266224620, 926682414, '335', '未分配盈餘(或累積虧損)', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (306542380, 676136047, '341', '長期股權投資未實現跌價損失', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (385524103, 676136047, '342', '累積換算調整數', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (764640716, 676136047, '343', '未認列為退休金成本之淨損失', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (277312763, 793551134, '351', '庫藏股', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (172889653, 282449457, '361', '少數股權', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (960138746, 256854212, '411', '銷貨收入', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (989545725, 256854212, '417', '銷貨退回', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (745165875, 256854212, '419', '銷貨折讓', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (788006197, 864303332, '461', '勞務收入', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (636092325, 685194984, '471', '業務收入', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (560294799, 585168046, '488', '其他營業收入—其他', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (868329781, 776405888, '511', '銷貨成本', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (715512696, 776405888, '512', '進貨', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (900537319, 776405888, '513', '進料', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (613686812, 776405888, '514', '直接人工', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (241828224, 776405888, '515', '製造費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (181591613, 776405888, '516', '製造費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (304113670, 776405888, '517', '製造費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (302614029, 776405888, '518', '製造費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (181853880, 484601714, '561', '勞務成本', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (760077428, 656473437, '571', '業務成本', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (100599165, 526117422, '588', '其他營業成本—其他', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (212916398, 847838836, '615', '推銷費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (193074244, 847838836, '616', '推銷費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (882721016, 847838836, '617', '推銷費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (514554832, 847838836, '618', '推銷費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (241184521, 202779691, '625', '管理及總務費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (776997540, 202779691, '626', '管理及總務費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (324522418, 202779691, '627', '管理及總務費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (543298708, 202779691, '628', '管理及總務費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (751717808, 390721534, '635', '研究發展費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (509842953, 390721534, '636', '研究發展費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (334520736, 390721534, '637', '研究發展費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (647304802, 390721534, '638', '研究發展費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (748583072, 613018617, '711', '利息收入', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (807935097, 613018617, '712', '投資收益', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (256128674, 613018617, '713', '兌換利益', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (902036208, 613018617, '714', '處分投資收益', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (206038830, 613018617, '715', '處分資產溢價收入', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (699454747, 837668432, '748', '其他營業外收入', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (988959446, 658230315, '751', '利息費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (548598499, 658230315, '752', '投資損失', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (947980201, 658230315, '753', '兌換損失', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (286649244, 658230315, '754', '處分投資損失', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (537384847, 658230315, '755', '處分資產損失', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (928820789, 107974953, '788', '其他營業外費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (687819205, 531374062, '811', '所得稅費用(或利益)', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (392121771, 441557451, '911', '停業部門損益—停業前營業損益', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (816367329, 441557451, '912', '停業部門損益—處分損益', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (749878410, 780750379, '921', '非常損益', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (575458948, 576655458, '931', '會計原則變動累積影響數', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (867926470, 403027649, '941', '少數股權淨利', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (709320418, 382831496, '1111', '庫存現金', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (135867103, 382831496, '1112', '零用金/週轉金', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (321673137, 382831496, '1113', '銀行存款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (914806389, 382831496, '1116', '在途現金', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (408077817, 382831496, '1117', '約當現金', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (269390224, 382831496, '1118', '其他現金及約當現金', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (114003147, 405656198, '1121', '短期投資—股票', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (420496091, 405656198, '1122', '短期投資—短期票券', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (494011567, 405656198, '1123', '短期投資—政府債券', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (249856724, 405656198, '1124', '短期投資—受益憑證', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (216784076, 405656198, '1125', '短期投資—公司債', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (816605640, 405656198, '1128', '短期投資—其他', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (719765760, 405656198, '1129', '備抵短期投資跌價損失', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (530499921, 274218035, '1131', '應收票據', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (983472201, 274218035, '1132', '應收票據貼現', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (460805176, 274218035, '1137', '應收票據—關係人', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (221108972, 274218035, '1138', '其他應收票據', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (190869303, 274218035, '1139', '備抵呆帳－應收票據', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (357244797, 236197229, '1141', '應收帳款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (138999680, 236197229, '1142', '應收分期帳款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (171512916, 236197229, '1147', '應收帳款—關係人', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (742536124, 236197229, '1149', '備抵呆帳－應收帳款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (508867657, 990834888, '1181', '應收出售遠匯款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (616644337, 990834888, '1182', '應收遠匯款—外幣', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (302006318, 990834888, '1183', '買賣遠匯折價', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (903867355, 990834888, '1184', '應收收益', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (854876598, 990834888, '1185', '應收退稅款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (641587374, 990834888, '1187', '其他應收款—關係人', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (654713656, 990834888, '1188', '其他應收款—其他', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (254902966, 990834888, '1189', '備抵呆帳—其他應收款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (517810159, 802773250, '1211', '商品存貨', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (856687013, 802773250, '1212', '寄銷商品', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (349662815, 802773250, '1213', '在途商品', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (949622536, 802773250, '1219', '備抵存貨跌價損失', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (269987198, 466973933, '1221', '製成品', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (339342377, 466973933, '1222', '寄銷製成品', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (795640862, 466973933, '1223', '副產品', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (713275114, 466973933, '1224', '在製品', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (237383628, 466973933, '1225', '委外加工', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (968977504, 466973933, '1226', '原料', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (712112558, 466973933, '1227', '物料', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (944100101, 466973933, '1228', '在途原物料', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (407577736, 466973933, '1229', '備抵存貨跌價損失', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (880958169, 434050648, '1251', '預付薪資', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (490823964, 434050648, '1252', '預付租金', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (917878000, 434050648, '1253', '預付保險費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (970366836, 434050648, '1254', '用品盤存', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (996500723, 434050648, '1255', '預付所得稅', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (473338112, 434050648, '1258', '其他預付費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (820572193, 349755763, '1261', '預付貨款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (739184995, 349755763, '1268', '其他預付款項', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (799510698, 336471657, '1281', '進項稅額', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (360348142, 336471657, '1282', '留抵稅額', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (108172724, 336471657, '1283', '暫付款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (331360768, 336471657, '1284', '代付款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (341189219, 336471657, '1285', '員工借支', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (576455206, 336471657, '1286', '存出保證金', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (777109496, 336471657, '1287', '受限制存款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (683845821, 956889094, '1291', '遞延所得稅資產', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (296452414, 956889094, '1292', '遞延兌換損失', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (961765736, 956889094, '1293', '業主(股東)往來', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (775706481, 956889094, '1294', '同業往來', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (114433500, 956889094, '1298', '其他流動資產—其他', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (329070757, 425778949, '1311', '償債基金', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (141049975, 425778949, '1312', '改良及擴充基金', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (263604680, 425778949, '1313', '意外損失準備基金', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (205596434, 425778949, '1314', '退休基金', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (477861646, 425778949, '1318', '其他基金', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (269517922, 640420175, '1321', '長期股權投資', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (237455794, 640420175, '1322', '長期債券投資', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (645642557, 640420175, '1323', '長期不動產投資', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (988732317, 640420175, '1324', '人壽保險現金解約價值', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (179029710, 640420175, '1328', '其他長期投資', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (557110012, 640420175, '1329', '備抵長期投資跌價損失', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (249470146, 410421689, '1411', '土地', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (247906429, 410421689, '1418', '土地—重估增值', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (852596764, 503393820, '1421', '土地改良物', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (885681227, 503393820, '1428', '土地改良物—重估增值', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (146158043, 503393820, '1429', '累積折舊—土地改良物', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (732874115, 630438297, '1431', '房屋及建物', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (961492609, 630438297, '1438', '房屋及建物—重估增值', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (472025359, 630438297, '1439', '累積折舊—房屋及建物', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (443132757, 208976106, '1441', '機(器)具', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (878642052, 208976106, '1448', '機(器)具—重估增值', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (176634779, 208976106, '1449', '累積折舊—機(器)具', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (167128653, 227011522, '1511', '租賃資產', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (894698061, 227011522, '1519', '累積折舊—租賃資產', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (848449822, 733081973, '1521', '租賃權益改良', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (752891550, 733081973, '1529', '累積折舊—租賃權益改良', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (852551772, 412438436, '1561', '未完工程', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (137095705, 412438436, '1562', '預付購置設備款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (917546730, 373441509, '1581', '雜項固定資產', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (615691173, 373441509, '1588', '雜項固定資產—重估增值', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (334353583, 373441509, '1589', '累積折舊—雜項固定資產', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (631601277, 731330256, '1611', '天然資源', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (494736884, 731330256, '1618', '天然資源—重估增值', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (708161453, 731330256, '1619', '累積折耗—天然資源', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (898829698, 940611412, '1711', '商標權', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (542872803, 138316570, '1721', '專利權', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (664609986, 563900191, '1731', '特許權', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (683710952, 423341137, '1741', '著作權', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (655011428, 271146494, '1751', '電腦軟體', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (491099730, 552238504, '1761', '商譽', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (780653448, 207990296, '1771', '開辦費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (623499301, 425720999, '1781', '遞延退休金成本', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (485309798, 425720999, '1782', '租賃權益改良', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (255497196, 425720999, '1788', '其他無形資產—其他', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (949323475, 902673037, '1811', '債券發行成本', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (985965124, 902673037, '1812', '長期預付租金', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (761148020, 902673037, '1813', '長期預付保險費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (783218271, 902673037, '1814', '遞延所得稅資產', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (542736097, 902673037, '1815', '預付退休金', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (442130454, 902673037, '1818', '其他遞延資產', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (440158264, 966392319, '1821', '閒置資產', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (814490947, 310547963, '1841', '長期應收票據', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (464584131, 310547963, '1842', '長期應收帳款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (246737265, 310547963, '1843', '催收帳款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (269841085, 310547963, '1847', '長期應收票據及款項與催收帳款—關係人', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (972215319, 310547963, '1848', '其他長期應收款項', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (273415222, 310547963, '1849', '備抵呆帳—長期應收票據及款項與催收帳款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (342664393, 134097118, '1851', '出租資產', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (967877399, 134097118, '1858', '出租資產—重估增值', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (465680425, 134097118, '1859', '累積折舊—出租資產', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (169304689, 393449422, '1861', '存出保證金', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (691103727, 464092583, '1881', '受限制存款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (408984785, 464092583, '1888', '雜項資產—其他', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (114592873, 526855977, '2111', '銀行透支', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (155572537, 526855977, '2112', '銀行借款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (679537588, 526855977, '2114', '短期借款—業主', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (113826174, 526855977, '2115', '短期借款—員工', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (535176493, 526855977, '2117', '短期借款—關係人', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (554436773, 526855977, '2118', '短期借款—其他', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (845861820, 974972811, '2121', '應付商業本票', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (937575852, 974972811, '2122', '銀行承兌匯票', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (626442033, 974972811, '2128', '其他應付短期票券', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (343837879, 974972811, '2129', '應付短期票券折價', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (602560682, 862092008, '2131', '應付票據', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (188954343, 862092008, '2137', '應付票據—關係人', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (716389216, 862092008, '2138', '其他應付票據', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (778146915, 705668893, '2141', '應付帳款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (277492307, 705668893, '2147', '應付帳款—關係人', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (458551240, 815852043, '2161', '應付所得稅', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (247253522, 287571641, '2171', '應付薪工', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (995680120, 287571641, '2172', '應付租金', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (655731761, 287571641, '2173', '應付利息', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (795817638, 287571641, '2174', '應付營業稅', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (701122645, 287571641, '2175', '應付稅捐—其他', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (415046011, 287571641, '2178', '其他應付費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (303499610, 574165963, '2181', '應付購入遠匯款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (784043626, 574165963, '2182', '應付遠匯款—外幣', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (855311038, 574165963, '2183', '買賣遠匯溢價', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (196069634, 574165963, '2184', '應付土地房屋款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (344246957, 574165963, '2185', '應付設備款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (522820430, 574165963, '2187', '其他應付款—關係人', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (256595974, 674331210, '2191', '應付股利', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (831657893, 674331210, '2192', '應付紅利', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (397555135, 674331210, '2193', '應付董監事酬勞', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (727862503, 674331210, '2198', '其他應付款—其他', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (968398485, 889654543, '2261', '預收貨款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (738337468, 889654543, '2262', '預收收入', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (563034212, 889654543, '2268', '其他預收款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (602636212, 815683575, '2271', '一年或一營業週期內到期公司債', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (661663180, 815683575, '2272', '一年或一營業週期內到期長期借款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (395722825, 815683575, '2273', '一年或一營業週期內到期長期應付票據及款項', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (658576158, 815683575, '2277', '一年或一營業週期內到期長期應付票據及款項—關係人', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (968075004, 815683575, '2278', '其他一年或一營業週期內到期長期負債', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (832790463, 149212812, '2281', '銷項稅額', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (520828967, 149212812, '2283', '暫收款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (900155521, 149212812, '2284', '代收款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (962885081, 149212812, '2285', '估計售後服務/保固負債', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (667554008, 124114781, '2291', '遞延所得稅負債', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (150466923, 124114781, '2292', '遞延兌換利益', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (229204760, 124114781, '2293', '業主(股東)往來', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (743752020, 124114781, '2294', '同業往來', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (963358650, 124114781, '2298', '其他流動負債—其他', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (994047310, 636315607, '2311', '應付公司債', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (564067541, 636315607, '2319', '應付公司債溢(折)價', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (332401391, 663524372, '2321', '長期銀行借款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (241134962, 663524372, '2324', '長期借款—業主', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (536628622, 663524372, '2325', '長期借款—員工', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (130108314, 663524372, '2327', '長期借款—關係人', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (324261557, 663524372, '2328', '長期借款—其他', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (448115003, 602970356, '2331', '長期應付票據', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (446205039, 602970356, '2332', '長期應付帳款', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (634999950, 602970356, '2333', '長期應付租賃負債', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (704803584, 602970356, '2337', '長期應付票據及款項—關係人', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (581989752, 602970356, '2338', '其他長期應付款項', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (324818500, 319948252, '2341', '估計應付土地增值稅', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (123105059, 489620321, '2351', '應計退休金負債', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (816932701, 931718543, '2388', '其他長期負債—其他', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (371625981, 301894518, '2811', '遞延收入', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (446449324, 301894518, '2814', '遞延所得稅負債', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (507605492, 301894518, '2818', '其他遞延負債', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (402582161, 753924220, '2861', '存入保證金', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (278544397, 492886608, '2888', '雜項負債—其他', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (828698884, 354712237, '3111', '普通股股本', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (328325342, 354712237, '3112', '特別股股本', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (459479972, 354712237, '3113', '預收股本', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (243470269, 354712237, '3114', '待分配股票股利', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (574499376, 354712237, '3115', '資本', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (774555174, 813886254, '3211', '普通股股票溢價', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (429550621, 813886254, '3212', '特別股股票溢價', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (783013002, 369189273, '3231', '資產重估增值準備', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (505504878, 708649341, '3241', '處分資產溢價公積', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (198451128, 315953593, '3251', '合併公積', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (677269224, 974832633, '3261', '受贈公積', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (740275783, 981029756, '3281', '權益法長期股權投資資本公積', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (153032059, 981029756, '3282', '資本公積—庫藏股票交易', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (898896606, 782463283, '3311', '法定盈餘公積', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (847258147, 511595327, '3321', '意外損失準備', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (140115980, 511595327, '3322', '改良擴充準備', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (214588543, 511595327, '3323', '償債準備', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (296533405, 511595327, '3328', '其他特別盈餘公積', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (972322693, 266224620, '3351', '累積盈虧', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (782859992, 266224620, '3352', '前期損益調整', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (464874427, 266224620, '3353', '本期損益', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (136762997, 306542380, '3411', '長期股權投資未實現跌價損失', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (361841681, 385524103, '3421', '累積換算調整數', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (800323292, 764640716, '3431', '未認列為退休金成本之淨損失', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (796953172, 277312763, '3511', '庫藏股', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (332969156, 172889653, '3611', '少數股權', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (650902163, 960138746, '4111', '銷貨收入', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (873610886, 960138746, '4112', '分期付款銷貨收入', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (480909546, 989545725, '4171', '銷貨退回', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (501414887, 745165875, '4191', '銷貨折讓', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (861798963, 788006197, '4611', '勞務收入', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (884801039, 636092325, '4711', '業務收入', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (859154718, 560294799, '4888', '其他營業收入—其他', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (491926593, 868329781, '5111', '銷貨成本', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (689575672, 868329781, '5112', '分期付款銷貨成本', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (513484217, 715512696, '5121', '進貨', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (746574640, 715512696, '5122', '進貨費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (804616176, 715512696, '5123', '進貨退出', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (704293010, 715512696, '5124', '進貨折讓', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (746290542, 900537319, '5131', '進料', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (993482623, 900537319, '5132', '進料費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (917839380, 900537319, '5133', '進料退出', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (685864530, 900537319, '5134', '進料折讓', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (802855875, 613686812, '5141', '直接人工', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (874928238, 241828224, '5151', '間接人工', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (571990586, 241828224, '5152', '租金支出', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (907852408, 241828224, '5153', '文具用品', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (487824813, 241828224, '5154', '旅費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (142992418, 241828224, '5155', '運費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (438547603, 241828224, '5156', '郵電費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (338883877, 241828224, '5157', '修繕費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (405956607, 241828224, '5158', '包裝費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (472485669, 181591613, '5161', '水電瓦斯費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (205274197, 181591613, '5162', '保險費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (372710710, 181591613, '5163', '加工費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (759488099, 181591613, '5166', '稅捐', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (624747656, 181591613, '5168', '折舊', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (373245274, 181591613, '5169', '各項耗竭及攤提', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (857831389, 304113670, '5172', '伙食費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (224729498, 304113670, '5173', '職工福利', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (380369895, 304113670, '5176', '訓練費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (756274240, 304113670, '5177', '間接材料', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (716532124, 302614029, '5188', '其他製造費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (152349985, 181853880, '5611', '勞務成本', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (757538860, 760077428, '5711', '業務成本', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (110601204, 100599165, '5888', '其他營業成本—其他', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (501745153, 212916398, '6151', '薪資支出', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (484688983, 212916398, '6152', '租金支出', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (347797343, 212916398, '6153', '文具用品', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (184863859, 212916398, '6154', '旅費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (982899606, 212916398, '6155', '運費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (548256289, 212916398, '6156', '郵電費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (201382357, 212916398, '6157', '修繕費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (945252074, 212916398, '6159', '廣告費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (912643138, 193074244, '6161', '水電瓦斯費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (482723373, 193074244, '6162', '保險費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (667516040, 193074244, '6164', '交際費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (696487087, 193074244, '6165', '捐贈', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (252695337, 193074244, '6166', '稅捐', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (464334795, 193074244, '6167', '呆帳損失', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (205262005, 193074244, '6168', '折舊', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (929323612, 193074244, '6169', '各項耗竭及攤提', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (615973093, 882721016, '6172', '伙食費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (584771226, 882721016, '6173', '職工福利', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (193536017, 882721016, '6175', '佣金支出', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (893417802, 882721016, '6176', '訓練費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (764382524, 514554832, '6188', '其他推銷費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (851874623, 241184521, '6251', '薪資支出', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (176861982, 241184521, '6252', '租金支出', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (329717777, 241184521, '6253', '文具用品', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (227243112, 241184521, '6254', '旅費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (489915115, 241184521, '6255', '運費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (930339612, 241184521, '6256', '郵電費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (928410985, 241184521, '6257', '修繕費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (128201317, 241184521, '6259', '廣告費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (570663854, 776997540, '6261', '水電瓦斯費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (433448958, 776997540, '6262', '保險費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (681610895, 776997540, '6264', '交際費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (521769517, 776997540, '6265', '捐贈', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (796674668, 776997540, '6266', '稅捐', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (829731934, 776997540, '6267', '呆帳損失', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (619404096, 776997540, '6268', '折舊', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (201420585, 776997540, '6269', '各項耗竭及攤提', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (761920757, 324522418, '6271', '外銷損失', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (666597144, 324522418, '6272', '伙食費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (893939737, 324522418, '6273', '職工福利', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (695670103, 324522418, '6274', '研究發展費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (617144018, 324522418, '6275', '佣金支出', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (356589445, 324522418, '6276', '訓練費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (469570957, 324522418, '6278', '勞務費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (877041170, 543298708, '6288', '其他管理及總務費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (285629796, 751717808, '6351', '薪資支出', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (255109839, 751717808, '6352', '租金支出', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (293609536, 751717808, '6353', '文具用品', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (870547203, 751717808, '6354', '旅費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (885107086, 751717808, '6355', '運費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (987987224, 751717808, '6356', '郵電費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (438300022, 751717808, '6357', '修繕費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (926725156, 509842953, '6361', '水電瓦斯費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (371394354, 509842953, '6362', '保險費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (690276284, 509842953, '6364', '交際費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (991739983, 509842953, '6366', '稅捐', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (871746448, 509842953, '6368', '折舊', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (895377402, 509842953, '6369', '各項耗竭及攤提', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (691533190, 334520736, '6372', '伙食費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (425563486, 334520736, '6373', '職工福利', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (730229601, 334520736, '6376', '訓練費', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (755843878, 334520736, '6378', '其他研究發展費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (935512761, 748583072, '7111', '利息收入', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (117472286, 807935097, '7121', '權益法認列之投資收益', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (740643479, 807935097, '7122', '股利收入', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (893347443, 807935097, '7123', '短期投資市價回升利益', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (788210158, 256128674, '7131', '兌換利益', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (164663168, 902036208, '7141', '處分投資收益', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (318252073, 206038830, '7151', '處分資產溢價收入', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (444183965, 699454747, '7481', '捐贈收入', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (428472055, 699454747, '7482', '租金收入', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (592692377, 699454747, '7483', '佣金收入', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (525102294, 699454747, '7484', '出售下腳及廢料收入', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (806095768, 699454747, '7485', '存貨盤盈', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (742624311, 699454747, '7486', '存貨跌價回升利益', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (666483691, 699454747, '7487', '壞帳轉回利益', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (753349254, 699454747, '7488', '其他營業外收入—其他', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (438653661, 988959446, '7511', '利息費用', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (647865532, 548598499, '7521', '權益法認列之投資損失', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (514482416, 548598499, '7523', '短期投資未實現跌價損失', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (929065316, 947980201, '7531', '兌換損失', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (869388482, 286649244, '7541', '處分投資損失', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (139281291, 537384847, '7551', '處分資產損失', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (222152959, 928820789, '7881', '停工損失', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (674468763, 928820789, '7882', '災害損失', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (922455040, 928820789, '7885', '存貨盤損', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (309527256, 928820789, '7886', '存貨跌價及呆滯損失', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (571194746, 928820789, '7888', '其他營業外費用—其他', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (792176665, 687819205, '8111', '所得稅費用（或利益）', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (958524871, 392121771, '9111', '停業部門損益—停業前營業損益', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (997358780, 816367329, '9121', '停業部門損益—處分損益', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (250404501, 749878410, '9211', '非常損益', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (334638274, 575458948, '9311', '會計原則變動累積影響數', now(), 923153018, now(), 923153018);
+INSERT INTO acctsubj (sn, parent, code, title, created, createdby, updated, updatedby) VALUES (474145902, 867926470, '9411', '少數股權淨利', now(), 923153018, now(), 923153018);
+COMMIT;

htdocs/wov/magicat/lib/perl5/Selima/wov.pm

@@ -0,0 +1,70 @@
+# Woman's Voice
+# wov.pm: Woman's Voice
+
+#  Copyright (c) 2003-2018 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2003-04-06
+
+package Selima::wov;
+use 5.008;
+use strict;
+use warnings;
+use base qw(Exporter);
+use vars qw(@EXPORT @EXPORT_OK);
+@EXPORT = qw();
+
+# Import our site-specific subroutines
+use Selima::wov::Config;
+push @EXPORT, @Selima::wov::Config::EXPORT;
+use Selima::wov::DataVars qw(:all);
+push @EXPORT, @Selima::wov::DataVars::EXPORT_OK;
+use Selima::wov::HTML;
+push @EXPORT, @Selima::wov::HTML::EXPORT;
+use Selima::wov::Items;
+push @EXPORT, @Selima::wov::Items::EXPORT;
+use Selima::wov::Rebuild;
+push @EXPORT, @Selima::wov::Rebuild::EXPORT;
+
+# Import our site-specific classess
+use Selima::wov::Checker::Guestbook;
+use Selima::wov::Checker::Guestbook::Public;
+use Selima::wov::Checker::Newslet;
+use Selima::wov::Checker::NLArt;
+use Selima::wov::Form::Guestbook;
+use Selima::wov::Form::Guestbook::Public;
+use Selima::wov::Form::Page;
+use Selima::wov::Form::LinkCat;
+use Selima::wov::Form::Newslet;
+use Selima::wov::Form::NLArt;
+use Selima::wov::L10N;
+use Selima::wov::List::Guestbook;
+use Selima::wov::List::Guestbook::Public;
+use Selima::wov::List::Newslets;
+use Selima::wov::List::NLArts;
+use Selima::wov::List::Search;
+use Selima::wov::Processor::Guestbook::Public;
+use Selima::wov::Processor::Page;
+use Selima::wov::Processor::LinkCat;
+use Selima::wov::Processor::Newslet;
+use Selima::wov::Processor::NLArt;
+
+# Import our common modules
+use Selima;
+push @EXPORT, @Selima::EXPORT;
+
+@EXPORT_OK = @EXPORT;
+
+return 1;

htdocs/wov/magicat/lib/perl5/Selima/wov/Checker/Guestbook.pm

@@ -0,0 +1,27 @@
+# Woman's Voice
+# Guestbook.pm: The administrative guestbook form checker.
+
+#  Copyright (c) 2004-2018 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2004-10-24
+
+package Selima::wov::Checker::Guestbook;
+use 5.008;
+use strict;
+use warnings;
+use base qw(Selima::Checker::Guestbook);
+
+return 1;

htdocs/wov/magicat/lib/perl5/Selima/wov/Checker/Guestbook/Public.pm

@@ -0,0 +1,60 @@
+# Woman's Voice
+# Public.pm: The guestbook form checker.
+
+#  Copyright (c) 2004-2018 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2004-10-24
+
+package Selima::wov::Checker::Guestbook::Public;
+use 5.008;
+use utf8;
+use strict;
+use warnings;
+use base qw(Selima::Checker::Guestbook::Public);
+
+use Selima::DataVars qw($DBH);
+use Selima::HTTP;
+use Selima::Logging;
+use Selima::ShortCut;
+
+# _checkspam_local: Check the local content filter
+sub _checkspam_local : method {
+    local ($_, %_);
+    my ($self, $form);
+    $self = $_[0];
+    $form = $self->{"form"};
+    # Block HiNet 61.224.20x till 2007-05-01, for 粉領上班族
+    $self->_block_spam("_checkspam_local(): Suspicious spamming from 粉領上班族")
+        if  time <= 1177948800
+            && $ENV{"REMOTE_ADDR"} =~ /^61\.224\.20\d/;
+    # OK
+    return;
+}
+
+# Old blocker
+# 清濤命理網站 http://click.twmis.net/
+# $self->_block_spam("_checkspam_local(): Suspicious spamming from http://click.twmis.net/.")
+#     if  $form->param("message") =~ /http:\/\/click\.twmis\.net/i
+#         || $form->param("url") =~ /http:\/\/click\.twmis\.net/i
+#         || $form->param("message") =~ /http:\/\/unn\.sexll\.com/i
+#         || $form->param("url") =~ /http:\/\/unn\.sexll\.com/i
+#         || $form->param("message") =~ /靈異節目(?:....)?老師/;
+# Icegirl
+# $self->_block_spam("_checkspam_local(): Suspicious spamming from Icegirl.")
+#     if $ENV{"REMOTE_ADDR"} eq "218.166.124.90" || $ENV{"REMOTE_ADDR"} eq "218.166.125.76";
+
+no utf8;
+return 1;

htdocs/wov/magicat/lib/perl5/Selima/wov/Checker/NLArt.pm

@@ -0,0 +1,139 @@
+# Woman's Voice
+# NLArt.pm: The newsletter article form checker.
+
+#  Copyright (c) 2004-2018 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2004-11-24
+
+package Selima::wov::Checker::NLArt;
+use 5.008;
+use strict;
+use warnings;
+use base qw(Selima::Checker);
+
+use Selima::CallForm;
+use Selima::ChkFunc;
+use Selima::ShortCut;
+
+use Selima::wov::DataVars qw(:forms);
+
+# new: Initialize the checker
+sub new : method {
+    local ($_, %_);
+    my ($class, $self);
+    ($class, @_) = @_;
+    $_[1] = "nlarts" if scalar(@_) < 2 || !defined $_[1];
+    $self = $class->SUPER::new(@_);
+    return $self;
+}
+
+# _check_author: Check the author
+# Use the default author checker
+
+# _check_body_h: Check the HTML content body
+sub _check_body_h : method {
+    local ($_, %_);
+    my ($self, $form, $error);
+    $self = $_[0];
+    $form = $self->{"form"};
+    # Check if it exists
+    $error = $self->_missing("body_h");
+    return $error if defined $error;
+    # Regularize it
+    $self->_trimtext("body_h");
+    # Check if it is filled
+    $form->param("body_h", "")
+        if $form->param("body_h") eq __("Fill in the HTML content here.");
+    return {"msg"=>N_("Please fill in the HTML content.")}
+        if $form->param("body_h") eq "";
+    # Check the length
+    return {"msg"=>N_("This HTML content is too long.  (Max. length [#,_1])"),
+            "margs"=>[${$self->{"maxlens"}}{"body_h"}]}
+        if length $form->param("body_h") > ${$self->{"maxlens"}}{"body_h"};
+    # OK
+    return;
+}
+
+# _check_body_t: Check the plain text content body
+sub _check_body_t : method {
+    local ($_, %_);
+    my ($self, $form, $error);
+    $self = $_[0];
+    $form = $self->{"form"};
+    # Check if it exists
+    $error = $self->_missing("body_t");
+    return $error if defined $error;
+    # Regularize it
+    $self->_trimtext("body_t");
+    # Check if it is filled
+    $form->param("body_t", "")
+        if $form->param("body_t") eq __("Fill in the plain text content here.");
+    return {"msg"=>N_("Please fill in the plain text content.")}
+        if $form->param("body_t") eq "";
+    # Check the length
+    return {"msg"=>N_("This plain text content is too long.  (Max. length [#,_1])"),
+            "margs"=>[${$self->{"maxlens"}}{"body_t"}]}
+        if length $form->param("body_t") > ${$self->{"maxlens"}}{"body_t"};
+    # OK
+    return;
+}
+
+# _check_newslet: Check the newsletter
+sub _check_newslet : method {
+    local ($_, %_);
+    my ($self, $form, $error);
+    $self = $_[0];
+    $form = $self->{"form"};
+    # Check if it exists
+    $error = $self->_missing("newslet");
+    return $error if defined $error;
+    # Regularize it
+    $self->_trim("newslet");
+    # Check if it is filled
+    return {"msg"=>N_("Please select a newsletter.")}
+        if $form->param("newslet") eq "";
+    # Check if the newsletter exists
+    return {"msg"=>N_("This newsletter does not exist anymore.  Please select another one.")}
+        if !check_sn_in ${$form->param_fetch("newslet")}[0], "newslets";
+    # OK
+    return;
+}
+
+# _check_title: Check the title
+# Use the default title checker
+
+# _redir_selnewslet: Suspend and move to the newsletter selection form
+sub _redir_selnewslet : method {
+    local ($_, %_);
+    my $self;
+    $self = $_[0];
+    # Skip if not requested
+    return if $self->_missing("selnewslet");
+    call_form FORM_NEWSLETS, undef, "import_selnewslet";
+}
+
+# _redir_delnewslet: Remove the newsletter
+sub _redir_delnewslet : method {
+    local ($_, %_);
+    my $self;
+    $self = $_[0];
+    # Skip if not requested
+    return if $self->_missing("delnewslet");
+    $self->{"form"}->delete("newslet");
+    success_redirect undef;
+}
+
+return 1;

htdocs/wov/magicat/lib/perl5/Selima/wov/Checker/Newslet.pm

@@ -0,0 +1,173 @@
+# Woman's Voice
+# Newslet.pm: The newsletter form checker.
+
+#  Copyright (c) 2004-2018 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2004-11-22
+
+package Selima::wov::Checker::Newslet;
+use 5.008;
+use strict;
+use warnings;
+use base qw(Selima::Checker);
+
+use CGI qw();
+
+use Selima::ChkFunc;
+use Selima::DataVars qw(:dataman);
+use Selima::ShortCut;
+
+use Selima::wov::Items;
+
+use Selima::wov::Checker::NLArt;
+
+# new: Initialize the checker
+sub new : method {
+    local ($_, %_);
+    my ($class, $self);
+    ($class, @_) = @_;
+    $_[1] = "newslets" if scalar(@_) < 2 || !defined $_[1];
+    $self = $class->SUPER::new(@_);
+    return $self;
+}
+
+# _check_arts: Check the articles
+sub _check_arts : method {
+    local ($_, %_);
+    my ($self, $form);
+    $self = $_[0];
+    $form = $self->{"form"};
+    # Remove the default content
+    foreach (grep /^art\d+body_t$/, $form->param) {
+        $form->param($_, "")
+            if $form->param($_) eq  __("Fill in the plain text content here.");
+    }
+    foreach (grep /^art\d+body_h$/, $form->param) {
+        $form->param($_, "")
+            if $form->param($_) eq __("Fill in the HTML content here.");
+    }
+    # Loop each article
+    for ($_ = 0; !$self->_missing("art$_" . "title"); $_++) {
+        my ($subform, $checker, $error);
+        # Skip unselected ones
+        next if $self->_missing("art$_");
+        # Regularize it
+        $self->_trim("art$_" . "title");
+        $self->_trim("art$_" . "author");
+        $self->_trimtext("art$_" . "body_t");
+        $self->_trimtext("art$_" . "body_h");
+        # Check with the subform checker
+        $subform = new CGI("");
+        $subform->param("newslet", $self->{"sn"}) if $self->{"iscur"};
+        $subform->param("title", $form->param("art$_" . "title"));
+        $subform->param("author", $form->param("art$_" . "author"));
+        $subform->param("body_t", $form->param("art$_" . "body_t"));
+        $subform->param("body_h", $form->param("art$_" . "body_h"));
+        $checker = new Selima::wov::Checker::NLArt($subform);
+        $error = $checker->check("title", "author", "body_t", "body_h");
+        return $error if defined $error;
+    }
+    
+    return;
+}
+
+# _check_no: Check the issue number
+# Actually this is to set the issue number, but not to check it
+sub _check_no : method {
+    local ($_, %_);
+    my $self;
+    $self = $_[0];
+    # Current form
+    if ($self->{"iscur"}) {
+        $self->{"form"}->param("no", $CURRENT{"no"});
+        return;
+    }
+    # Create a new issue for this new newsletter
+    $self->{"form"}->param("no", new_nl_no);
+    return;
+}
+
+# _check_date: Check the date
+sub _check_date : method {
+    local ($_, %_);
+    my ($self, $form, $error);
+    $self = $_[0];
+    $form = $self->{"form"};
+    # Check if it exists
+    $error = $self->_missing("date");
+    return $error if defined $error;
+    # Regularize it
+    $self->_trim("date");
+    # Check if it is filled
+    return {"msg"=>N_("Please fill in the date.")}
+        if $form->param("date") eq "";
+    # Check the length
+    return {"msg"=>N_("Please fill in a valid date in YYYY-MM-DD format.")}
+        if length $form->param("date") != ${$self->{"maxlens"}}{"date"};
+    # Check the date format
+    return {"msg"=>N_("Please fill in a valid date in YYYY-MM-DD format.")}
+        if length $form->param("date") !~ /^(\d{4})-(\d{2})-(\d{2})$/;
+    return {"msg"=>N_("Please fill in a valid date in YYYY-MM-DD format.")}
+        unless defined check_date($1, $2, $3);
+    # OK
+    return;
+}
+
+# _check_cred_t: Check the plain text credits
+sub _check_cred_t : method {
+    local ($_, %_);
+    my ($self, $form, $error);
+    $self = $_[0];
+    $form = $self->{"form"};
+    # Check if it exists
+    $error = $self->_missing("cred_t");
+    return $error if defined $error;
+    # Regularize it
+    $self->_trimtext("cred_t");
+    # Check if it is filled
+    return {"msg"=>N_("Please fill in the plain text credits information.")}
+        if $form->param("cred_t") eq "";
+    # Check the length
+    return {"msg"=>N_("This plain text credits information is too long.  (Max. length [#,_1])"),
+            "margs"=>[${$self->{"maxlens"}}{"cred_t"}]}
+        if length $form->param("cred_t") > ${$self->{"maxlens"}}{"cred_t"};
+    # OK
+    return;
+}
+
+# _check_cred_h: Check the HTML credits
+sub _check_cred_h : method {
+    local ($_, %_);
+    my ($self, $form, $error);
+    $self = $_[0];
+    $form = $self->{"form"};
+    # Check if it exists
+    $error = $self->_missing("cred_h");
+    return $error if defined $error;
+    # Regularize it
+    $self->_trimtext("cred_h");
+    # Check if it is filled
+    return {"msg"=>N_("Please fill in the HTML credits information.")}
+        if $form->param("cred_h") eq "";
+    # Check the length
+    return {"msg"=>N_("This HTML credits information is too long.  (Max. length [#,_1])"),
+            "margs"=>[${$self->{"maxlens"}}{"cred_h"}]}
+        if length $form->param("cred_h") > ${$self->{"maxlens"}}{"cred_h"};
+    # OK
+    return;
+}
+
+return 1;

htdocs/wov/magicat/lib/perl5/Selima/wov/Config.pm

@@ -0,0 +1,93 @@
+# Woman's Voice
+# Config.pm: The web site configuration.
+
+#  Copyright (c) 2003-2020 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2003-04-06
+
+package Selima::wov::Config;
+use 5.008;
+use utf8;
+use strict;
+use warnings;
+use base qw(Exporter);
+use vars qw(@EXPORT @EXPORT_OK);
+BEGIN {
+@EXPORT = qw(siteconf page_replacements);
+@EXPORT_OK = @EXPORT;
+# Prototype declaration
+sub siteconf();
+sub page_replacements();
+}
+
+# Get into the public variable space and initialize them
+use lib $ENV{"DOCUMENT_ROOT"} . qw(/../../lib/perl5);
+use Selima::CopyYear;
+use Selima::DataVars qw(:all);
+use Selima::ShortCut;
+
+use Selima::wov::DataVars qw(:all);
+
+# siteconf: Subroutine to initialize site configuration
+sub siteconf() {
+    local ($_, %_);
+    
+    # The package name and the package title
+    $PACKAGE = "wov";
+    $SITENAME_ABBR = "WOV";
+    # The author and the copyright
+    $AUTHOR = "小招, 依瑪貓";
+    $COPYRIGHT = "&copy; <!--selima:copyyear--> 《女聲》電子報。《女聲》電子報保有所有權利。";
+    # Document root, the library and the l10n directories
+    $DOC_ROOT = $ENV{"DOCUMENT_ROOT"};
+    $SITE_LIBDIR = $DOC_ROOT . "/magicat/lib/perl5";
+    $LOCALEDIR = $DOC_ROOT . "/magicat/locale";
+    
+    # Tables to lock when rebuilding pages
+    @REBUILD_TABLES = qw(linkcat links linkcatz);
+    # The local rebuild type labels
+    %REBUILD_LABELS = (
+        "newslets"  => N_("Newsletter"),
+    );
+    
+    # The languages
+    $DEFAULT_LANG = "zh-tw";
+    @ALL_LINGUAS = qw(zh-tw);
+    
+    # The site data variables
+    $SCRIPTS{FORM_NEWSLETS()} = "/magicat/cgi-bin/newslets.cgi",
+    $SCRIPTS{FORM_NLARTS()} = "/magicat/cgi-bin/nlarts.cgi",
+    
+    return;
+}
+
+# page_replacements: Dynamic page elements to be replaced,
+#   but not part of the content.  Used by xfupdate_template().
+sub page_replacements() {
+    return {
+        "copyyear"  => {
+            "pattern"   => "1999(?:-\\d{4})?",
+            "content"   => copyyear(1999),
+        },
+        "generator" => {
+            "pattern"   => "Selima \\d+\\.\\d+",
+            "content"   => "Selima $Selima::VERSION",
+        },
+    };
+}
+
+no utf8;
+return 1;

htdocs/wov/magicat/lib/perl5/Selima/wov/DataVars.pm

@@ -0,0 +1,58 @@
+# Woman's Voice
+# DataVars.pm: The site-wide constants and variables.
+
+#  Copyright (c) 2004-2018 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2004-11-25
+
+package Selima::wov::DataVars;
+use 5.008;
+use strict;
+use warnings;
+use base qw(Exporter);
+use vars qw(@EXPORT %EXPORT_TAGS @EXPORT_OK);
+BEGIN {
+@EXPORT = qw();
+%EXPORT_TAGS = (
+    forms   => [qw(FORM_NEWSLETS FORM_NLARTS)],
+);
+@EXPORT_OK = qw();
+my %seen;
+%seen = qw();
+foreach my $tag (keys %EXPORT_TAGS) {
+    push @EXPORT_OK, grep !$seen{$_}++, @{$EXPORT_TAGS{$tag}};
+}
+$EXPORT_TAGS{"all"} = [@EXPORT_OK];
+# Prototype declaration
+sub clear();
+}
+
+use Selima::DataVars qw(:forms);
+
+use constant FORM_NEWSLETS => 1001;
+use constant FORM_NLARTS => 1002;
+
+# clear: Clear the data variables
+sub clear() {
+    local ($_, %_);
+    
+    delete $SCRIPTS{FORM_NEWSLETS()};
+    delete $SCRIPTS{FORM_NLARTS()};
+    
+    return;
+}
+
+return 1;

htdocs/wov/magicat/lib/perl5/Selima/wov/Form/Guestbook.pm

@@ -0,0 +1,40 @@
+# Woman's Voice
+# Guestbook.pm: The administrative guestbook form.
+
+#  Copyright (c) 2004-2018 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2004-10-24
+
+package Selima::wov::Form::Guestbook;
+use 5.008;
+use strict;
+use warnings;
+use base qw(Selima::Form::Guestbook);
+
+use Selima::MarkAbbr;
+use Selima::ShortCut;
+
+# _html_col_identity: The identity
+sub _html_col_identity : method {
+    $_[0]->_html_coltmpl_text("identity", h_abbr(__("What kind of women you are?")));
+}
+
+# _html_col_url: The website URL
+sub _html_col_url : method {
+    $_[0]->_html_coltmpl_url("url", h_abbr(__("Website URL.:")));
+}
+
+return 1;

htdocs/wov/magicat/lib/perl5/Selima/wov/Form/Guestbook/Public.pm

@@ -0,0 +1,66 @@
+# Woman's Voice
+# Public.pm: The guestbook form.
+
+#  Copyright (c) 2004-2018 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2004-10-24
+
+package Selima::wov::Form::Guestbook::Public;
+use 5.008;
+use utf8;
+use strict;
+use warnings;
+use base qw(Selima::Form::Guestbook::Public);
+
+use Selima::HTTP;
+use Selima::MarkAbbr;
+use Selima::ShortCut;
+
+# new: Initialize the HTML form table displayer
+sub new : method {
+    local ($_, %_);
+    my ($class, $status, $args, $self);
+    ($class, $status, $args) = @_;
+    $args = {} if !defined $args;
+    
+    # $args must be a hash reference
+    http_500 "type of argument 2 must be a hash reference"
+        if ref($args) ne "HASH";
+    $$args{"prefmsg"} = [] if !exists $$args{"prefmsg"};
+    push @{$$args{"prefmsg"}}, __("General commercial advertisements, articles unrelated to gender/sex or articles involving personal attacks are not welcomed.  They may be deleted without notice.  HTML is not supported.");
+    $self = $class->SUPER::new($status, $args);
+    return $self;
+}
+
+# _html_col_identity: The identity
+sub _html_col_identity : method {
+    $_[0]->_html_coltmpl_text("identity", h_abbr(__("What kind of women you are?")),
+        h_abbr("（女工、女學生、粉領上班族、公私娼酒吧舞女、打工辣妹……）"));
+}
+
+# _html_col_message: The message
+sub _html_col_message : method {
+    $_[0]->_html_coltmpl_textarea("message", h_abbr(__("Message:")),
+        h_abbr(__("Fill in your message here.")));
+}
+
+# _html_col_url: The website URL
+sub _html_col_url : method {
+    $_[0]->_html_coltmpl_url("url", h_abbr(__("Website URL.:")));
+}
+
+no utf8;
+return 1;

htdocs/wov/magicat/lib/perl5/Selima/wov/Form/LinkCat.pm

@@ -0,0 +1,58 @@
+# Woman's Voice
+# LinkCat.pm: The related-link category form.
+
+#  Copyright (c) 2006-2018 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2006-04-05
+
+package Selima::wov::Form::LinkCat;
+use 5.008;
+use strict;
+use warnings;
+use base qw(Selima::Form::LinkCat);
+
+use Selima::FormFunc;
+use Selima::HTTP;
+
+# new: Initialize the HTML form table displayer
+sub new : method {
+    local ($_, %_);
+    my ($class, $status, $args, $self);
+    ($class, $status, $args) = @_;
+    $args = {} if !defined $args;
+    
+    # $args must be a hash reference
+    http_500 "type of argument 2 must be a hash reference"
+        if ref($args) ne "HASH";
+    $$args{"type"} = form_type
+        if !exists $$args{"type"};
+    if (!exists $$args{"cols"}) {
+        # A form to create a new item
+        if ($$args{"type"} eq "new") {
+            $$args{"cols"} = [qw(parent id ord title title_en kw hid)];
+        # A form to edit a current item
+        # A form to delete a current item
+        } elsif ($$args{"type"} eq "cur" || $$args{"type"} eq "del") {
+            $$args{"cols"} = [qw(sn parent id ord title title_en kw hid
+                scats links
+                created createdby updated updatedby)];
+        }
+    }
+    $self = $class->SUPER::new($status, $args);
+    return $self;
+}
+
+return 1;

htdocs/wov/magicat/lib/perl5/Selima/wov/Form/NLArt.pm

@@ -0,0 +1,130 @@
+# Woman's Voice
+# NLArt.pm: The newsletter article form.
+
+#  Copyright (c) 2004-2018 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2004-11-24
+
+package Selima::wov::Form::NLArt;
+use 5.008;
+use strict;
+use warnings;
+use base qw(Selima::Form);
+
+use Selima::ChkFunc;
+use Selima::CommText;
+use Selima::FormFunc;
+use Selima::HTTP;
+use Selima::MarkAbbr;
+use Selima::ShortCut;
+use Selima::Unicode;
+
+use Selima::wov::Items;
+
+# new: Initialize the HTML form table displayer
+sub new : method {
+    local ($_, %_);
+    my ($class, $status, $args, $self);
+    ($class, $status, $args) = @_;
+    $args = {} if !defined $args;
+    
+    # $args must be a hash reference
+    http_500 "type of argument 2 must be a hash reference"
+        if ref($args) ne "HASH";
+    $$args{"type"} = form_type
+        if !exists $$args{"type"};
+    $$args{"table"} = "nlarts"
+        if !exists $$args{"table"};
+    $$args{"deltext"} = __("Delete this article")
+        if !exists $$args{"deltext"};
+    if (!exists $$args{"summary"}) {
+        # A form to create a new item
+        if ($$args{"type"} eq "new") {
+            $$args{"summary"} = __("This table provides you a form to write a new article.");
+        # A form to edit a current item
+        } elsif ($$args{"type"} eq "cur") {
+            $$args{"summary"} = __("This table provides you a form to edit a current article.");
+        # A form to delete a current item
+        } elsif ($$args{"type"} eq "del") {
+            $$args{"summary"} = __("This table provides you a form to delete a article.");
+        }
+    }
+    if (!exists $$args{"cols"}) {
+        # A form to create a new item
+        if ($$args{"type"} eq "new") {
+            $$args{"cols"} = [qw(newslet ord title author body_t body_h hid)];
+        # A form to edit a current item
+        # A form to delete a current item
+        } elsif ($$args{"type"} eq "cur" || $$args{"type"} eq "del") {
+            $$args{"cols"} = [qw(sn newslet ord title author body_t body_h hid
+                created createdby updated updatedby)];
+        }
+    }
+    if (!exists $$args{"title"}) {
+        # A form to create a new item
+        if ($$args{"type"} eq "new") {
+            $$args{"title"} = __("Write a New Newsletter Article");
+        # A form to edit a current item
+        } elsif ($$args{"type"} eq "cur") {
+            $$args{"title"} = __("Edit a Current Newsletter Article");
+        # A form to delete a current item
+        } elsif ($$args{"type"} eq "del") {
+            $$args{"title"} = __("Delete a Newsletter Article");
+        }
+    }
+    $self = $class->SUPER::new($status, $args);
+    ${$self->{"maxlens"}}{"ord"} = 2;
+    return $self;
+}
+
+# _html_col_body_t: The plain text body
+sub _html_col_body_t : method {
+    $_[0]->_html_coltmpl_textarea("body_t", h_abbr(__("Content (text):")),
+        h(__("Fill in the plain text content here.")));
+}
+
+# _html_col_body_h: The HTML body
+sub _html_col_body_h : method {
+    $_[0]->_html_coltmpl_textarea("body_h", h_abbr(__("Content (HTML):")),
+        h(__("Fill in the HTML content here.")));
+}
+
+# _html_col_hid: Hide?
+sub _html_col_hid : method {
+    $_[0]->_html_coltmpl_bool("hid", h_abbr(__("Hide?")),
+        h_abbr(__("Hide this article")), h_abbr(__("Show this article")),
+        h_abbr(__("Hide this article currently.")));
+}
+
+# _html_col_newslet: The newsletter
+sub _html_col_newslet : method {
+    $_[0]->_html_coltmpl_call("newslet", h_abbr(__("Newsletter:")), \&newslet_title);
+}
+
+# _html_col_ord: The order
+sub _html_col_ord : method {
+    local ($_, %_);
+    my ($self, $form);
+    $self = $_[0];
+    $form = $self->{"form"};
+    # Set the default order to the half of the maximum
+    $form->param("ord", 99)
+        if $self->{"is_first_form"} && $self->{"type"} eq "new";
+    $self->_html_coltmpl_text("ord", h_abbr(__("Order:")), undef,
+        ${$self->{"maxlens"}}{"ord"});
+}
+
+return 1;

htdocs/wov/magicat/lib/perl5/Selima/wov/Form/Newslet.pm

@@ -0,0 +1,408 @@
+# Woman's Voice
+# Newslet.pm: The newsletter form.
+
+#  Copyright (c) 2004-2018 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2004-11-17
+
+package Selima::wov::Form::Newslet;
+use 5.008;
+use strict;
+use warnings;
+use base qw(Selima::Form);
+
+use Selima::A2HTML;
+use Selima::ChkFunc;
+use Selima::CommText;
+use Selima::FormFunc;
+use Selima::HTTP;
+use Selima::MarkAbbr;
+use Selima::ShortCut;
+
+use Selima::wov::Items;
+
+# new: Initialize the HTML form table displayer
+sub new : method {
+    local ($_, %_);
+    my ($class, $status, $args, $self);
+    ($class, $status, $args) = @_;
+    $args = {} if !defined $args;
+    
+    # $args must be a hash reference
+    http_500 "type of argument 2 must be a hash reference"
+        if ref($args) ne "HASH";
+    $$args{"type"} = form_type
+        if !exists $$args{"type"};
+    $$args{"table"} = "newslets"
+        if !exists $$args{"table"};
+    $$args{"deltext"} = __("Delete this newsletter")
+        if !exists $$args{"deltext"};
+    if (!exists $$args{"summary"}) {
+        # A form to create a new item
+        if ($$args{"type"} eq "new") {
+            $$args{"summary"} = __("This table provides you a form to add a new newsletter.");
+        # A form to edit a current item
+        } elsif ($$args{"type"} eq "cur") {
+            $$args{"summary"} = __("This table provides you a form to edit a current newsletter.");
+        # A form to delete a current item
+        } elsif ($$args{"type"} eq "del") {
+            $$args{"summary"} = __("This table provides you a form to delete a newsletter.");
+        }
+    }
+    $$args{"colspan"} = 3
+        if !exists $$args{"colspan"};
+    if (!exists $$args{"cols"}) {
+        # A form to create a new item
+        if ($$args{"type"} eq "new") {
+            $$args{"cols"} = [qw(no date title cred_t cred_h kw arts hid)];
+        # A form to edit a current item
+        # A form to delete a current item
+        } elsif ($$args{"type"} eq "cur" || $$args{"type"} eq "del") {
+            $$args{"cols"} = [qw(sn no date title cred_t cred_h kw arts hid
+                created createdby updated updatedby)];
+        }
+    }
+    if (!exists $$args{"title"}) {
+        # A form to create a new item
+        if ($$args{"type"} eq "new") {
+            $$args{"title"} = __("Add a New Newsletter");
+        # A form to edit a current item
+        } elsif ($$args{"type"} eq "cur") {
+            $$args{"title"} = __("Edit a Current Newsletter");
+        # A form to delete a current item
+        } elsif ($$args{"type"} eq "del") {
+            $$args{"title"} = __("Delete a Newsletter");
+        }
+    }
+    if (!exists $$args{"preview"}) {
+        $$args{"preview"} = 1;
+    }
+    if ($$args{"preview"} && !exists $$args{"prevmsg"}) {
+        $$args{"prevmsg"} = __("Preview this newsletter.");
+    }
+    $self = $class->SUPER::new($status, $args);
+    return $self;
+}
+
+# _html_col_arts: The articles
+sub _html_col_arts : method {
+    local ($_, %_);
+    my ($self, $form, $current, $label, $orig, $new, $mark, $colspan, $cols, $rows);
+    my ($col, $val, $no, $rowspan, $rows_cur, $rows_new, $count_new);
+    my ($labeltitle, $labelauthor, $labelbody_t, $labelbody_h, $labelhid);
+    my ($marktitle, $markauthor, $markbody_t, $markbody_h, $markhid);
+    my ($hbody_tdef, $hbody_hdef, $texthid, $true, $false);
+    $self = $_[0];
+    $form = $self->{"form"};
+    $current = $self->{"cur"};
+    $mark = $self->_mark("arts");
+    $colspan = $self->_colspan(-2);
+    $cols = h($self->{"defsize"});
+    $rows = h(10);
+    $labeltitle = h_abbr(__("Title:"));
+    $labelauthor = h_abbr(__("Author:"));
+    $labelbody_t = h_abbr(__("Content (text):"));
+    $labelbody_h = h_abbr(__("Content (HTML):"));
+    $labelhid = h_abbr(__("Hide?"));
+    $hbody_tdef = h(__("Fill in the plain text content here."));
+    $hbody_hdef = h(__("Fill in the HTML content here."));
+    $texthid = h(__("Hide this article currently."));
+    $marktitle = $self->_mark("arttitle");
+    $markauthor = $self->_mark("artauthor");
+    $markbody_t = $self->_mark("artbody_t");
+    $markbody_h = $self->_mark("artbody_h");
+    $markhid = $self->_mark("arthid");
+    $true = h(__("Hide this article"));
+    $false = h(__("Show this article"));
+    
+    # A form to create a new item
+    if ($self->{"type"} eq "new") {
+        # Find the last filled article
+        for ($_ = 0; defined $form->param("art$_" . "title"); $_++) {}
+        for ($_--;  $_ >= 0
+                    && $form->param("art$_" . "title") eq ""
+                    && $form->param("art$_" . "author") eq ""
+                    && $form->param("art$_" . "body_t") eq ""
+                    && $form->param("art$_" . "body_h") eq ""; $_--) {}
+        $count_new = $_ + 1 + 3;
+        $rows_new = $count_new * 5;
+        $rows_new = $rows_new > 1? " rowspan=\"" . h($rows_new) . "\"": "";
+        $label = h_abbr(__("[numerate,_1,Article]:", 0));
+        print << "EOT";
+<tr>
+    <th class="th"$rows_new scope="row"><label for="art0title">$mark$label</label></th>
+EOT
+        for ($_ = 0, @_ = qw(); $_ < $count_new; $_++) {
+            my ($coltitle, $colauthor, $colbody_t, $colbody_h, $colhid);
+            my ($valtitle, $valauthor, $valbody_t, $valbody_h, $valhid);
+            $col = "art$_";
+            $val = $self->_val_check($col);
+            $valtitle = $self->_val_text($col . "title");
+            $coltitle = h($col . "title");
+            $valauthor = $self->_val_text($col . "author");
+            $colauthor = h($col . "author");
+            $valbody_t = $self->_val_textarea($col . "body_t", $hbody_tdef);
+            $colbody_t = h($col . "body_t");
+            $valbody_h = $self->_val_textarea($col . "body_h", $hbody_hdef);
+            $colbody_h = h($col . "body_h");
+            $valhid = $self->_val_check($col . "hid");
+            $colhid = h($col . "hid");
+            $col = h($col);
+            push @_, << "EOT";
+    <td rowspan="5"><input id="$col" type="checkbox" name="$col"$val /></td>
+    <th class="th" scope="row"><label for="$coltitle">$marktitle$labeltitle</label></th>
+    <td$colspan><input id="$coltitle" class="text" type="text" name="$coltitle"$valtitle /></td>
+</tr>
+<tr>
+    <th class="th" scope="row"><label for="$colauthor">$markauthor$labelauthor</label></th>
+    <td$colspan><input id="$colauthor" class="text" type="text" name="$colauthor"$valauthor /></td>
+</tr>
+<tr>
+    <th class="th" scope="row"><label for="$colbody_t">$markbody_t$labelbody_t</label></th>
+    <td$colspan><textarea id="$colbody_t" name="$colbody_t" cols="$cols" rows="$rows"
+        onfocus="if (this.value == &quot;$hbody_tdef&quot;) this.value = &quot;&quot;;">$valbody_t</textarea></td>
+</tr>
+<tr>
+    <th class="th" scope="row"><label for="$colbody_h">$markbody_h$labelbody_h</label></th>
+    <td$colspan><textarea id="$colbody_h" name="$colbody_h" cols="$cols" rows="$rows"
+        onfocus="if (this.value == &quot;$hbody_hdef&quot;) this.value = &quot;&quot;;">$valbody_h</textarea></td>
+</tr>
+<tr>
+    <th class="th" scope="row"><label for="$colhid">$markhid$labelhid</label></th>
+    <td$colspan><input id="$colhid" type="checkbox" name="$colhid"$valhid />
+        <label for="$colhid">$texthid</label></td>
+EOT
+        }
+        print join("</tr>\n<tr>\n", @_);
+        print << "EOT";
+</tr>
+EOT
+    
+    # A form to edit a current item
+    } elsif ($self->{"type"} eq "cur") {
+        # Find the last filled article
+        $rows_cur = $current->param("artcount") > 0?
+            $current->param("artcount") * 5: 1;
+        for ($_ = 0; defined $form->param("art$_" . "title"); $_++) {}
+        for ($_-- ; $_ >= 0
+                    && $form->param("art$_" . "title") eq ""
+                    && $form->param("art$_" . "author") eq ""
+                    && $form->param("art$_" . "body_t") eq ""
+                    && $form->param("art$_" . "body_h") eq ""; $_--) {}
+        $count_new = $_ + 1 + 3;
+        $rows_new = $count_new * 5;
+        $rowspan = $rows_cur + $rows_new;
+        $rows_cur = $rows_cur > 1? " rowspan=\"" . h($rows_cur) . "\"": "";
+        $rows_new = $rows_new > 1? " rowspan=\"" . h($rows_new) . "\"": "";
+        $rowspan = $rowspan > 1? " rowspan=\"" . h($rowspan) . "\"": "";
+        $label = h_abbr(__("[numerate,_1,Article]:", 0));
+        $orig = h_abbr(__("Original:"));
+        $new = h_abbr(__("New:"));
+        print << "EOT";
+<tr>
+    <th class="th"$rowspan scope="row"><label for="art0title">$mark$label</label></th>
+    <th class="oldnew"$rows_cur scope="row">$orig</th>
+EOT
+        for ($_ = 0, @_ = qw(); $_ < $current->param("artcount"); $_++) {
+            my ($curtitle, $curauthor, $curbody_t, $curbody_h, $curhid);
+            $no = h($_ + 1);
+            $col = "art$_";
+            $curtitle = h_abbr($current->param($col . "title"));
+            $curauthor = h_abbr($current->param($col . "author"));
+            $curbody_t = a2html($current->param($col . "body_t"));
+            $curbody_h = a2html($current->param($col . "body_h"));
+            $curhid = $self->{"cur"}->param($col . "hid")? $true: $false;
+            push @_, << "EOT";
+    <td rowspan="5" scope="row">$no</td>
+    <th class="th" scope="row">$marktitle$labeltitle</th>
+    <td$colspan>$curtitle</td>
+</tr>
+<tr>
+    <th class="th" scope="row">$markauthor$labelauthor</th>
+    <td$colspan>$curauthor</td>
+</tr>
+<tr>
+    <th class="th" scope="row">$markbody_t$labelbody_t</th>
+    <td$colspan>$curbody_t</td>
+</tr>
+<tr>
+    <th class="th" scope="row">$markbody_h$labelbody_h</th>
+    <td$colspan>$curbody_h</td>
+</tr>
+<tr>
+    <th class="th" scope="row">$markhid$labelhid</th>
+    <td$colspan>$curhid</td>
+EOT
+        }
+        print @_ > 0? join("</tr>\n<tr>\n", @_):
+            "    <td" . $self->_colspan . ">" . h_abbr(t_none) . "</td>\n";
+        print << "EOT";
+</tr>
+<tr>
+    <th class="oldnew"$rows_new scope="row"><label for="art0title">$new</label></th>
+EOT
+        for ($_ = 0, @_ = qw(); $_ < $count_new; $_++) {
+            my ($coltitle, $colauthor, $colbody_t, $colbody_h, $colhid);
+            my ($valtitle, $valauthor, $valbody_t, $valbody_h, $valhid);
+            $col = "art$_";
+            $val = $self->_val_check($col);
+            $valtitle = $self->_val_text($col . "title");
+            $coltitle = h($col . "title");
+            $valauthor = $self->_val_text($col . "author");
+            $colauthor = h($col . "author");
+            $valbody_t = $self->_val_textarea($col . "body_t", $hbody_tdef);
+            $colbody_t = h($col . "body_t");
+            $valbody_h = $self->_val_textarea($col . "body_h", $hbody_hdef);
+            $colbody_h = h($col . "body_h");
+            $valhid = $self->_val_check($col . "hid");
+            $colhid = h($col . "hid");
+            $col = h($col);
+            push @_, << "EOT";
+    <td rowspan="5"><input id="$col" type="checkbox" name="$col"$val /></td>
+    <th class="th" scope="row"><label for="$coltitle">$marktitle$labeltitle</label></th>
+    <td$colspan><input id="$coltitle" class="text" type="text" name="$coltitle"$valtitle /></td>
+</tr>
+<tr>
+    <th class="th" scope="row"><label for="$colauthor">$markauthor$labelauthor</label></th>
+    <td$colspan><input id="$colauthor" class="text" type="text" name="$colauthor"$valauthor /></td>
+</tr>
+<tr>
+    <th class="th" scope="row"><label for="$colbody_t">$markbody_t$labelbody_t</label></th>
+    <td$colspan><textarea id="$colbody_t" name="$colbody_t" cols="$cols" rows="$rows"
+        onfocus="if (this.value == &quot;$hbody_tdef&quot;) this.value = &quot;&quot;;">$valbody_t</textarea></td>
+</tr>
+<tr>
+    <th class="th" scope="row"><label for="$colbody_h">$markbody_h$labelbody_h</label></th>
+    <td$colspan><textarea id="$colbody_h" name="$colbody_h" cols="$cols" rows="$rows"
+        onfocus="if (this.value == &quot;$hbody_hdef&quot;) this.value = &quot;&quot;;">$valbody_h</textarea></td>
+</tr>
+<tr>
+    <th class="th" scope="row"><label for="$colhid">$markhid$labelhid</label></th>
+    <td$colspan><input id="$colhid" type="checkbox" name="$colhid"$valhid />
+        <label for="$colhid">$texthid</label></td>
+EOT
+        }
+        print join("</tr>\n<tr>\n", @_);
+        print << "EOT";
+</tr>
+EOT
+    
+    # A form to delete a current item
+    } else {
+        # Find the last filled article
+        $rows_cur = $current->param("artcount") > 0?
+            $current->param("artcount") * 5: 1;
+        $rows_cur = $rows_cur > 1? " rowspan=\"" . h($rows_cur) . "\"": "";
+        $label = h_abbr(__("[numerate,_1,Article]:", $current->param("artcount")));
+        print << "EOT";
+<tr>
+    <th class="th"$rows_cur scope="row">$mark$label</th>
+EOT
+        for ($_ = 0, @_ = qw(); $_ < $current->param("artcount"); $_++) {
+            my ($curtitle, $curauthor, $curbody_t, $curbody_h, $curhid);
+            $no = h($_ + 1);
+            $col = "art$_";
+            $curtitle = h_abbr($current->param($col . "title"));
+            $curauthor = h_abbr($current->param($col . "author"));
+            $curbody_t = a2html($current->param($col . "body_t"));
+            $curbody_h = a2html($current->param($col . "body_h"));
+            $curhid = $self->{"cur"}->param($col . "hid")? $true: $false;
+            push @_, << "EOT";
+    <td rowspan="5">$no</td>
+    <th class="th" scope="row">$marktitle$labeltitle</th>
+    <td$colspan>$curtitle</td>
+</tr>
+<tr>
+    <th class="th" scope="row">$markauthor$labelauthor</th>
+    <td$colspan>$curauthor</td>
+</tr>
+<tr>
+    <th class="th" scope="row">$markbody_t$labelbody_t</th>
+    <td$colspan>$curbody_t</td>
+</tr>
+<tr>
+    <th class="th" scope="row">$markbody_h$labelbody_h</th>
+    <td$colspan>$curbody_h</td>
+</tr>
+<tr>
+    <th class="th" scope="row">$markhid$labelhid</th>
+    <td$colspan>$curhid</td>
+EOT
+        }
+        print @_ > 0? join("</tr>\n<tr>\n", @_):
+            "    <td" . $self->_colspan . ">" . h_abbr(t_none) . "</td>\n";
+        print << "EOT";
+</tr>
+EOT
+    }
+    return;
+}
+
+# _html_col_cred_t: The credits, in plain text
+sub _html_col_cred_t : method {
+    $_[0]->_html_coltmpl_textarea("cred_t", h_abbr(__("Credits (text):")),
+        h(__("Fill in the credits in plain text here.")));
+}
+
+# _html_col_cred_h: The credits, in HTML
+sub _html_col_cred_h : method {
+    $_[0]->_html_coltmpl_textarea("cred_h", h_abbr(__("Credits (HTML):")),
+        h(__("Fill in the credits in HTML here.")));
+}
+
+# _html_col_hid: Hide?
+sub _html_col_hid : method {
+    $_[0]->_html_coltmpl_bool("hid", h_abbr(__("Hide?")),
+        h_abbr(__("Hide this newsletter")), h_abbr(__("Show this newsletter")),
+        h_abbr(__("Hide this newsletter currently.")));
+}
+
+# _html_col_no: The issue number
+sub _html_col_no : method {
+    local ($_, %_);
+    my ($self, $label, $cur, $mark, $colspan, $thclass, $thcolspan);
+    $self = $_[0];
+    $label = h_abbr(__("Issue:"));
+    $mark = $self->_mark("no");
+    $colspan = $self->_colspan;
+    
+    # A form to create a new item
+    if ($self->{"type"} eq "new") {
+        $cur = h_abbr(newslet_textno new_nl_no);
+        print << "EOT"
+<tr>
+    <th class="th" scope="row">$mark$label</th>
+    <td$colspan>$cur</td>
+</tr>
+EOT
+    
+    # A current or delete form
+    } else {
+        # A current form span for 2 columns
+        $thclass = $self->{"type"} ne "cur"? " class=\"th\"": "";
+        $thcolspan = $self->{"type"} eq "cur"? " colspan=\"2\"": "";
+        $cur = h_abbr(newslet_textno scalar $self->{"cur"}->param("no"));
+        print << "EOT";
+<tr>
+    <th$thclass$thcolspan scope="row">$mark$label</th>
+    <td$colspan>$cur</td>
+</tr>
+EOT
+    }
+    return;
+}
+
+return 1;

htdocs/wov/magicat/lib/perl5/Selima/wov/Form/Page.pm

@@ -0,0 +1,57 @@
+# Woman's Voice
+# Page.pm: The web page form.
+
+#  Copyright (c) 2006-2018 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2006-04-05
+
+package Selima::wov::Form::Page;
+use 5.008;
+use strict;
+use warnings;
+use base qw(Selima::Form::Page);
+
+use Selima::FormFunc;
+use Selima::HTTP;
+
+# new: Initialize the HTML form table displayer
+sub new : method {
+    local ($_, %_);
+    my ($class, $status, $args, $self);
+    ($class, $status, $args) = @_;
+    $args = {} if !defined $args;
+    
+    # $args must be a hash reference
+    http_500 "type of argument 2 must be a hash reference"
+        if ref($args) ne "HASH";
+    $$args{"type"} = form_type
+        if !exists $$args{"type"};
+    if (!exists $$args{"cols"}) {
+        # A form to create a new item
+        if ($$args{"type"} eq "new") {
+            $$args{"cols"} = [qw(path ord title title_en body kw html hid)];
+        # A form to edit a current item
+        # A form to delete a current item
+        } elsif ($$args{"type"} eq "cur" || $$args{"type"} eq "del") {
+            $$args{"cols"} = [qw(sn path ord title title_en body kw html hid
+                created createdby updated updatedby)];
+        }
+    }
+    $self = $class->SUPER::new($status, $args);
+    return $self;
+}
+
+return 1;

htdocs/wov/magicat/lib/perl5/Selima/wov/Items.pm

@@ -0,0 +1,130 @@
+# Woman's Voice
+# Items.pm: The data record related subroutines.
+
+#  Copyright (c) 2004-2018 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2004-11-23
+
+package Selima::wov::Items;
+use 5.008;
+use utf8;
+use strict;
+use warnings;
+use base qw(Exporter);
+use vars qw(@EXPORT @EXPORT_OK);
+BEGIN {
+@EXPORT = qw();
+push @EXPORT, qw(new_nl_no newslet_textno newslet_title newslet_no);
+@EXPORT_OK = @EXPORT;
+# Prototype declaration
+sub new_nl_no();
+sub newslet_textno($);
+sub newslet_title($);
+sub newslet_no($);
+}
+
+use Encode qw(encode);
+
+use Selima::ChkFunc;
+use Selima::CommText;
+use Selima::DataVars qw(:db);
+
+# new_nl_no: Get the issue number for a new newsletter
+sub new_nl_no() {
+    local ($_, %_);
+    my ($sql, $sth);
+    $sql = "SELECT no FROM newslets"
+        . " ORDER BY no DESC LIMIT 1;\n";
+    $sth = $DBH->prepare($sql);
+    $sth->execute;
+    return 1 if $sth->rows < 1;
+    return ${$sth->fetch}[0] + 1;
+}
+
+# newslet_textno: Obtain the text representation of the issue number
+sub newslet_textno($) {
+    local ($_, %_);
+    $_ = $_[0];
+    # Invalid - returned "as is"
+    return $_ if !defined $_ || /\D/ || $_ < 0;
+    # First issue
+    return "創刊號" if $_ == 1;
+    return sprintf "第%03d期", $_;
+}
+
+# newslet_title: Obtain a newsletter title
+sub newslet_title($) {
+    local ($_, %_);
+    my ($sn, $sql, $sth);
+    $sn = $_[0];
+    # Bounce if there is any problem with $sn
+    return t_notset if !defined $sn;
+    
+    # Check the serial number first
+    return t_na if !check_sn $sn;
+    
+    # Query
+    @_ = qw();
+    $_ = "CASE no WHEN 1 THEN '創刊號' ELSE "
+        . $DBH->strcat("'第'", "lpad(cast(no AS text), 3, 0)", "'期'") . " END";
+    push @_, encode("UTF-8", $_);
+    push @_, "' '";
+    push @_, "title";
+    push @_, "' '";
+    push @_, "extract(year FROM date)";
+    push @_, "'.'";
+    push @_, "lpad(cast(extract(month FROM date) AS text), 2, 0)";
+    push @_, "'.'";
+    push @_, "lpad(cast(extract(day FROM date) AS text), 2, 0)";
+    $_ = $DBH->strcat(@_) . " AS title";
+    $sql = "SELECT $_ FROM newslets"
+        . " WHERE sn=$sn;\n";
+    $sth = $DBH->prepare($sql);
+    $sth->execute;
+    
+    # Not found
+    return t_na unless $sth->rows == 1;
+    
+    # Found
+    return ${$sth->fetch}[0];
+}
+
+# newslet_no: Obtain a newsletter number
+sub newslet_no($) {
+    local ($_, %_);
+    my ($sn, $sql, $sth);
+    $sn = $_[0];
+    # Bounce if there is any problem with $sn
+    return t_notset if !defined $sn;
+    
+    # Check the serial number first
+    return t_na if !check_sn $sn;
+    
+    # Query
+    $sql = "SELECT no FROM newslets"
+        . " WHERE sn=$sn;\n";
+    $sth = $DBH->prepare($sql);
+    $sth->execute;
+    
+    # Not found
+    return t_na unless $sth->rows == 1;
+    
+    # Found
+    return ${$sth->fetch}[0];
+}
+
+no utf8;
+return 1;

htdocs/wov/magicat/lib/perl5/Selima/wov/L10N.pm

@@ -0,0 +1,38 @@
+# Woman's Voice
+# L10N.pm: The localization class.
+
+#  Copyright (c) 2003-2018 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2003-04-26
+
+package Selima::wov::L10N;
+use 5.008;
+use strict;
+use warnings;
+use base qw(Locale::Maketext::Gettext);
+
+return 1;
+
+# The Chinese (Taiwan) localized messages.
+package Selima::wov::L10N::zh_tw;
+use 5.008;
+use strict;
+use warnings;
+use base qw(Locale::Maketext::Gettext);
+
+sub numerate : method { $_[2] }
+
+return 1;

htdocs/wov/magicat/lib/perl5/Selima/wov/List/Guestbook.pm

@@ -0,0 +1,47 @@
+# Woman's Voice
+# Guestbook.pm: The administrative guestbook message list.
+
+#  Copyright (c) 2004-2018 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2004-10-24
+
+package Selima::wov::List::Guestbook;
+use 5.008;
+use strict;
+use warnings;
+use base qw(Selima::List::Guestbook);
+
+use Selima::ShortCut;
+
+# new: Initialize the handler
+sub new : method {
+    local ($_, %_);
+    my ($self, $class);
+    ($class, @_) = @_;
+    $_[1] = "guestbook" if !defined $_[1];
+    $self = $class->SUPER::new(@_);
+    # The page title
+    $self->{"title"} = $self->{"is_called_form"}?
+        __("Select a Message"):
+        __("Manage Your Voice");
+    # Column labels
+    $self->col_labels(
+        "identity"  => __("What kind of women you are?"),
+    );
+    return $self;
+}
+
+return 1;

htdocs/wov/magicat/lib/perl5/Selima/wov/List/Guestbook/Public.pm

@@ -0,0 +1,36 @@
+# Woman's Voice
+# Public.pm: The guestbook message list.
+
+#  Copyright (c) 2004-2018 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2004-10-24
+
+package Selima::wov::List::Guestbook::Public;
+use 5.008;
+use strict;
+use warnings;
+use base qw(Selima::List::Guestbook::Public);
+
+# new: Initialize the handler
+sub new : method {
+    local ($_, %_);
+    my ($class, $self);
+    ($class, @_) = @_;
+    $self = $class->SUPER::new(@_);
+    return $self;
+}
+
+return 1;

htdocs/wov/magicat/lib/perl5/Selima/wov/List/NLArts.pm

@@ -0,0 +1,99 @@
+# Woman's Voice
+# NLArts.pm: The newsletter article list.
+
+#  Copyright (c) 2004-2018 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2004-11-24
+
+package Selima::wov::List::NLArts;
+use 5.008;
+use strict;
+use warnings;
+use base qw(Selima::List);
+
+use Selima::ShortCut;
+
+# new: Initialize the handler
+sub new : method {
+    local ($_, %_);
+    my ($self, $class);
+    ($class, @_) = @_;
+    $_[1] = "nlarts" if !defined $_[1];
+    $self = $class->SUPER::new(@_);
+    # The page title
+    $self->{"title"} = $self->{"is_called_form"}?
+        __("Select a Newsletter Article"):
+        __("Manage Newsletter Articles");
+    # The default sort order
+    $self->{"DEFAULT_SORTBY"} = "-newslet,ord";
+    # Columns that should display its brief instead
+    push @{$self->{"COLS_BRIEF"}}, qw(body_t body_h);
+    # Column labels
+    $self->col_labels(
+        "newslet"   => __("Newsletter"),
+        "author"    => __("Author"),
+        "body_t"    => __("Content (text)"),
+        "body_h"    => __("Content (HTML)"),
+    );
+    return $self;
+}
+
+# html_newlink: Display a link to add a new item
+sub html_newlink : method {
+    # Run the parent method
+    return $_[0]->SUPER::html_newlink(__("Write a new article."));
+}
+
+# html_search: Display the search box
+sub html_search : method {
+    # Run the parent method
+    return $_[0]->SUPER::html_search(__("Search for a article:"));
+}
+
+# liststat_message: Return the current list statistics message
+sub liststat_message : method {
+    local ($_, %_);
+    my $self;
+    $self = $_[0];
+    
+    # No record to list
+    if ($self->{"total"} == 0) {
+        # Inherit the empty list statistics message
+        return $self->SUPER::liststat_message;
+    # Fit in one page
+    } elsif ($self->{"total"} <= $self->{"pagesize"}) {
+        # Result comes from a query
+        if (defined $self->{"query"}) {
+            return __("Your query found [*,_1,article].", $self->{"total"});
+        # List result
+        } else {
+            return __("[*,_1,article].", $self->{"total"});
+        }
+    # More than one page
+    } else {
+        # Result comes from a query
+        if (defined $self->{"query"}) {
+            return __("Your query found [*,_1,article], listing [#,_2] to [#,_3].",
+                $self->{"total"}, $self->{"startno"}+1, $self->{"endno"}+1);
+        # List result
+        } else {
+            return __("[*,_1,article], listing [#,_2] to [#,_3].",
+                $self->{"total"}, $self->{"startno"}+1, $self->{"endno"}+1);
+        }
+    }
+}
+
+return 1;

htdocs/wov/magicat/lib/perl5/Selima/wov/List/Newslets.pm

@@ -0,0 +1,98 @@
+# Woman's Voice
+# Newslets.pm: The newsletter list.
+
+#  Copyright (c) 2004-2018 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2004-11-17
+
+package Selima::wov::List::Newslets;
+use 5.008;
+use strict;
+use warnings;
+use base qw(Selima::List);
+
+use Selima::ShortCut;
+
+# new: Initialize the handler
+sub new : method {
+    local ($_, %_);
+    my ($self, $class);
+    ($class, @_) = @_;
+    $_[1] = "newslets" if !defined $_[1];
+    $self = $class->SUPER::new(@_);
+    # The page title
+    $self->{"title"} = $self->{"is_called_form"}?
+        __("Select a Newsletter"):
+        __("Manage Newsletters");
+    # The default sort order
+    $self->{"DEFAULT_SORTBY"} = "-no";
+    # Columns that should display its brief instead
+    push @{$self->{"COLS_BRIEF"}}, qw(cred_t cred_h);
+    # Column labels
+    $self->col_labels(
+        "no"        => __("Issue"),
+        "cred_t"    => __("Credits (text)"),
+        "cred_h"    => __("Credits (HTML)"),
+    );
+    return $self;
+}
+
+# html_newlink: Display a link to add a new item
+sub html_newlink : method {
+    # Run the parent method
+    return $_[0]->SUPER::html_newlink(__("Add a new newsletter."));
+}
+
+# html_search: Display the search box
+sub html_search : method {
+    # Run the parent method
+    return $_[0]->SUPER::html_search(__("Search for a newsletter:"));
+}
+
+# liststat_message: Return the current list statistics message
+sub liststat_message : method {
+    local ($_, %_);
+    my $self;
+    $self = $_[0];
+    
+    # No record to list
+    if ($self->{"total"} == 0) {
+        # Inherit the empty list statistics message
+        return $self->SUPER::liststat_message;
+    # Fit in one page
+    } elsif ($self->{"total"} <= $self->{"pagesize"}) {
+        # Result comes from a query
+        if (defined $self->{"query"}) {
+            return __("Your query found [*,_1,newsletter].", $self->{"total"});
+        # List result
+        } else {
+            return __("[*,_1,newsletter].", $self->{"total"});
+        }
+    # More than one page
+    } else {
+        # Result comes from a query
+        if (defined $self->{"query"}) {
+            return __("Your query found [*,_1,newsletter], listing [#,_2] to [#,_3].",
+                $self->{"total"}, $self->{"startno"}+1, $self->{"endno"}+1);
+        # List result
+        } else {
+            return __("[*,_1,newsletter], listing [#,_2] to [#,_3].",
+                $self->{"total"}, $self->{"startno"}+1, $self->{"endno"}+1);
+        }
+    }
+}
+
+return 1;

htdocs/wov/magicat/lib/perl5/Selima/wov/List/Search.pm

@@ -0,0 +1,194 @@
+# Woman's Voice
+# Search.pm: The web site full-text search result list.
+
+#  Copyright (c) 2004-2018 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2004-11-28
+
+package Selima::wov::List::Search;
+use 5.008;
+use utf8;
+use strict;
+use warnings;
+use base qw(Selima::List);
+
+use Selima::Logging;
+use Selima::ShortCut;
+
+# new: Initialize the handler
+sub new : method {
+    local ($_, %_);
+    my ($self, $class);
+    ($class, @_) = @_;
+    $self = $class->SUPER::new(@_);
+    # The page title
+    if (!defined $self->{"query"}) {
+        $self->{"title"} = "女聲全文檢索";
+        $self->{"etitle"} = "Website Search";
+    } else {
+        $self->{"title"} = "全文檢索結果";
+        $self->{"etitle"} = "Search Result";
+    }
+    $self->{"view"} = "search_list";
+    $self->{"COLS_NO_SEARCH"} = [qw(section path nlpath html piority)];
+    return $self;
+}
+
+# fetch: Fetch the current list
+sub fetch : method {
+    local ($_, %_);
+    my $self;
+    $self = $_[0];
+    # No search specified
+    if (!defined $self->{"query"}) {
+        $self->{"total"} = undef;
+        return $self->{"error"};
+    }
+    # Check the query phrase
+    # Regularize it
+    $self->{"query"} =~ s/^\s*(.*?)\s*$/$1/;
+    # Check if it is filled
+    if ($self->{"query"} eq"") {
+        $self->{"total"} = undef;
+        $self->{"error"} = {"msg"=>N_("Please fill in your query.")};
+        return $self->{"error"};
+    }
+    # Run the parent method
+    $self->SUPER::fetch;
+    # Add an activity log record
+    actlog("Query with phrase \"" . $self->{"query"} . "\".");
+    # Done
+    return $self->{"error"};
+}
+
+# sql_orderby: Get the SQL ORDER BY phase
+# Always return nothing
+sub sql_orderby : method { return ""; }
+
+# html_newlink: Display a link to add a new item
+# Make it a null function
+sub html_newlink : method {}
+
+# html_search: Display the search box
+sub html_search : method {
+    # Run the parent method
+    return $_[0]->SUPER::html_search(__("Search in the website:"));
+}
+
+# liststat_message: Return the current list statistics message
+sub liststat_message : method {
+    local ($_, %_);
+    my $self;
+    $self = $_[0];
+    
+    # No record to list
+    if ($self->{"total"} == 0) {
+        # Inherit the empty list statistics message
+        return $self->SUPER::liststat_message;
+    # Fit in one page
+    } elsif ($self->{"total"} <= $self->{"pagesize"}) {
+        # Result comes from a query
+        if (defined $self->{"query"}) {
+            return __("Your query found [*,_1,article].", $self->{"total"});
+        # List result
+        } else {
+            return __("[*,_1,article].", $self->{"total"});
+        }
+    # More than one page
+    } else {
+        # Result comes from a query
+        if (defined $self->{"query"}) {
+            return __("Your query found [*,_1,article], listing [#,_2] to [#,_3].",
+                $self->{"total"}, $self->{"startno"}+1, $self->{"endno"}+1);
+        # List result
+        } else {
+            return __("[*,_1,article], listing [#,_2] to [#,_3].",
+                $self->{"total"}, $self->{"startno"}+1, $self->{"endno"}+1);
+        }
+    }
+}
+
+# html_list: List the items
+sub html_list : method {
+    local ($_, %_);
+    my ($self);
+    $self = $_[0];
+    # Do not show the list
+    return if !defined $self->{"total"};
+    # No record to be listed
+    return if $self->{"total"} == 0;
+    
+    print << "EOT";
+<ol class="searchresult">
+EOT
+    
+    # Print each record
+    foreach my $current (@{$self->{"current"}}) {
+        my ($url, $abstract);
+        $url = h($$current{"path"});
+        $abstract = $self->query_abstract($current);
+        if ($$current{"section"} eq "newsletters") {
+            my ($title, $author, $newsletter, $nlurl);
+            $title = h($$current{"title"});
+            $author = h($$current{"author"});
+            $newsletter = h($$current{"newsletter"});
+            $nlurl = h($$current{"nlpath"});
+            
+            print << "EOT";
+<li><h3><a href="$url">$title</a> <span class="note">$author</span></h3>
+<address><a href="$nlurl">$newsletter</a></address>
+EOT
+        } elsif ($$current{"section"} eq "guestbook") {
+            my ($author, $date);
+            $author = defined $$current{"author"}?
+                " <span class=\"note\">" . h($$current{"author"}) . "</span>": "";
+            $date = h($$current{"date"});
+            
+            print << "EOT";
+<li><h3><a href="$url">$date 留言</a>$author</h3>
+<address><a href="/cgi-bin/guestbook.cgi">妳的女聲</a></address>
+EOT
+        } elsif ($$current{"section"} eq "links") {
+            my $title;
+            $title = h($$current{"title"});
+            
+            print << "EOT";
+<li><h3><a href="$url">$title</a></h3>
+<address><a href="/links/">女網牽手</a></address>
+EOT
+        } elsif ($$current{"section"} eq "pages") {
+            my $title;
+            $title = h($$current{"title"});
+            
+            print << "EOT";
+<li><h3><a href="$url">$title</a></h3>
+EOT
+        }
+        print "\n<p>$abstract</p>\n" if defined $abstract;
+        print << "EOT";
+</li>
+
+EOT
+    }
+    print << "EOT";
+</ol>
+
+EOT
+    return;
+}
+
+no utf8;
+return 1;

htdocs/wov/magicat/lib/perl5/Selima/wov/Processor/Guestbook/Public.pm

@@ -0,0 +1,142 @@
+# Woman's Voice
+# Public.pm: The guestbook data processor.
+
+#  Copyright (c) 2006-2018 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2006-03-19
+
+package Selima::wov::Processor::Guestbook::Public;
+use 5.008;
+use utf8;
+use strict;
+use warnings;
+use base qw(Selima::Processor::Guestbook);
+
+use Selima::Country;
+use Selima::DataVars qw(:env :input :scptconf);
+use Selima::Format;
+use Selima::GeoIP;
+use Selima::Guest;
+use Selima::RemoHost;
+use Selima::Unicode;
+use Selima::ShortCut;
+
+# new: Initialize the processor
+sub new : method {
+    local ($_, %_);
+    my ($self, $class);
+    ($class, @_) = @_;
+    $_[0]->param("form", "new");
+    $_[0]->param("confirm", 1);
+    $self = $class->SUPER::new(@_);
+    $self->{"notify"} = 1;
+    $self->{"debug"} = 1;
+    return $self;
+}
+
+# _save_cols: Save the column deposit
+sub _save_cols : method {
+    local ($_, %_);
+    my $self;
+    ($self, @_) = @_;
+    $self->SUPER::_save_cols(@_);
+    $self->{"cols"}->{"login"} = 723676436;
+    return;
+}
+
+# _other_tasks: Perform tasks other than column updates
+sub _other_tasks : method {
+    local ($_, %_);
+    my ($self, $form);
+    my ($mail, $body, $charset);
+    $self = $_[0];
+    return unless $self->{"notify"};
+    $form = $self->{"form"};
+    
+    # Compose the mail body
+    $body = "";
+    $body .= "若要編輯或刪除這則留言，請連上以下網址：\n";
+    $body .= "http://" . $ENV{"SERVER_NAME"} . "/magicat/cgi-bin/guestbook.cgi"
+        . "?form=cur&sn=" . $self->{"sn"} . "\n\n";
+    $body .= "日期： " . fmttime . "\n";
+    @_ = qw();
+    push @_, ctname_zhtw country_lookup;
+    push @_, remote_host if defined remote_host;
+    $body .= "來自： " . $ENV{"REMOTE_ADDR"}
+        . " (" . join(", ", @_) . ")\n";
+    $body .= "簽名： " . $form->param("name") . "\n"
+        if $form->param("name") ne "";
+    $body .= "物種： " . $form->param("identity") . "\n"
+        if $form->param("identity") ne "";
+    $body .= "地點： " . $form->param("location") . "\n"
+        if $form->param("location") ne "";
+    $body .= "信箱： " . $form->param("email") . "\n"
+        if $form->param("email") ne "";
+    $body .= "網址： " . $form->param("url") . "\n"
+        if $form->param("url") ne "" && $form->param("url") ne "http://";
+    $body .= "留言：\n\n" . $form->param("message") . "\n\n";
+    $body .= "原始內容：\n" . $USER_INPUT{"POST_RAWDATA"} . "\n";
+    
+    # Collecting Debugging infomation
+    if ($self->{"debug"}) {
+        $body .= "\n";
+        $body .= "===== Start Debugging Infomation =====\n";
+        if ($IS_MODPERL) {
+            $_ = $IS_MP2? Apache2::RequestUtil->request->as_string:
+                Apache->request->as_string;
+            s/^X-Selima-[^\n]+\n//mg;
+            s/^((?:[^\n]+\n)+).+?$/$1/s;
+            $body .= $_;
+        } else {
+            foreach (sort grep !/^HTTP_X_SELIMA_/, grep /^HTTP_/, keys %ENV) {
+                my $hname;
+                $hname = $_;
+                $hname =~ s/^HTTP_//;
+                $hname =~ s/_/-/g;
+                $hname =~ s/(\w)(\w+)/$1 . lc $2/ge;
+                $body .= "$hname: $ENV{$_}\n";
+            }
+        }
+        $body .= "===== End Debugging Infomation =====\n";
+    }
+    
+    # Set the best appropriate output character set
+    $charset = is_charset($body, "Big5")? "Big5": "UTF-8";
+    
+    # Compose the mail
+    $mail = new Selima::Mail;
+    $mail->charset($charset);
+    $mail->from($THIS_FILE . "\@" . $ENV{"SERVER_NAME"}, "女聲留言本");
+    $mail->to("editors\@mail.wov.idv.tw", "女聲編輯");
+    $mail->subject("[女聲] 留言本留言通知 " . fmtdate);
+    $mail->body($body);
+    # Send it
+    $mail->send;
+    return;
+}
+
+# _actlog: Log the activity
+sub _actlog : method {
+    local ($_, %_);
+    my $self;
+    $self = $_[0];
+    # A form to create a new item
+    return gactlog "Post a new message on " . fmtdate($self->{"date"})
+            . " with s/n " . $self->{"sn"} . ".";
+}
+
+no utf8;
+return 1;

htdocs/wov/magicat/lib/perl5/Selima/wov/Processor/LinkCat.pm

@@ -0,0 +1,70 @@
+# Woman's Voice
+# LinkCat.pm: The related-link category data processor.
+
+#  Copyright (c) 2006-2018 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2006-04-05
+
+package Selima::wov::Processor::LinkCat;
+use 5.008;
+use strict;
+use warnings;
+use base qw(Selima::Processor::LinkCat);
+
+use Selima::DataVars qw(:addcol);
+
+# _save_cols: Save the column deposit
+sub _save_cols : method {
+    local ($_, %_);
+    my ($self, $form, $cur);
+    $self = $_[0];
+    ($form, $cur) = ($self->{"form"}, $self->{"cur"});
+    if ($self->{"type"} ne "del") {
+        # Set the "topmost" parent
+        $form->delete("parent") if $form->param("topmost") eq "true";
+    }
+    # A form to create a new item
+    if ($self->{"type"} eq "new") {
+        $self->{"sn"} = $self->_new_sn;
+        $self->{"cols"} = new Selima::AddCol($self->{"table"}, ADDCOL_INSERT);
+        $self->{"cols"}->addnum("sn", $self->{"sn"});
+        $self->{"cols"}->addnum("parent", $self->_form("parent"));
+        $self->{"cols"}->addstr("id", $self->_form("id"));
+        $self->{"cols"}->addnum("ord", $self->_form("ord"));
+        $self->{"cols"}->addstr("title", $self->_form("title"));
+        $self->{"cols"}->addstr("title_en", $self->_form("title_en"));
+        $self->{"cols"}->addstr("kw", $self->_form("kw"));
+        $self->{"cols"}->addbool("hid", $self->_form("hid"));
+        # Automatic Traditional Chinese to Simplified Chinese conversion
+        $self->_zhsync;
+    
+    # A form to edit a current item
+    } elsif ($self->{"type"} eq "cur") {
+        $self->{"cols"} = new Selima::AddCol($self->{"table"}, ADDCOL_UPDATE);
+        $self->{"cols"}->addnum("parent", $self->_form("parent"), scalar $cur->param("parent"));
+        $self->{"cols"}->addstr("id", $self->_form("id"), scalar $cur->param("id"));
+        $self->{"cols"}->addnum("ord", $self->_form("ord"), scalar $cur->param("ord"));
+        $self->{"cols"}->addstr("title", $self->_form("title"), scalar $cur->param("title"));
+        $self->{"cols"}->addstr("title_en", $self->_form("title_en"), scalar $cur->param("title_en"));
+        $self->{"cols"}->addstr("kw", $self->_form("kw"), scalar $cur->param("kw"));
+        $self->{"cols"}->addbool("hid", $self->_form("hid"), scalar $cur->param("hid"));
+        # Automatic Traditional Chinese to Simplified Chinese conversion
+        $self->_zhsync;
+    }
+    return;
+}
+
+return 1;

htdocs/wov/magicat/lib/perl5/Selima/wov/Processor/NLArt.pm

@@ -0,0 +1,151 @@
+# Woman's Voice
+# NLArt.pm: The newsletter article processor.
+
+#  Copyright (c) 2006-2018 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2006-03-19
+
+package Selima::wov::Processor::NLArt;
+use 5.008;
+use strict;
+use warnings;
+use base qw(Selima::Processor);
+
+use Selima::DataVars qw(:addcol);
+use Selima::Guest;
+use Selima::ShortCut;
+
+use Selima::wov::Items;
+use Selima::wov::Rebuild;
+
+# new: Initialize the processor
+sub new : method {
+    local ($_, %_);
+    my ($self, $class);
+    ($class, @_) = @_;
+    $_[1] = "nlarts" if @_ < 2;
+    $self = $class->SUPER::new(@_);
+    return $self;
+}
+
+# _save_cols: Save the column deposit
+sub _save_cols : method {
+    local ($_, %_);
+    my ($self, $form, $cur);
+    $self = $_[0];
+    ($form, $cur) = ($self->{"form"}, $self->{"cur"});
+    # A form to create a new item
+    if ($self->{"type"} eq "new") {
+        $self->{"sn"} = $self->_new_sn;
+        $self->{"cols"} = new Selima::AddCol($self->{"table"}, ADDCOL_INSERT);
+        $self->{"cols"}->addnum("sn", $self->{"sn"});
+        $self->{"cols"}->addnum("newslet", $self->_form("newslet"));
+        $self->{"cols"}->addnum("ord", $self->_form("ord"));
+        $self->{"cols"}->addstr("title", $self->_form("title"));
+        $self->{"cols"}->addstr("author", $self->_form("author"));
+        $self->{"cols"}->addstr("body_t", $self->_form("body_t"));
+        $self->{"cols"}->addstr("body_h", $self->_form("body_h"));
+        $self->{"cols"}->addbool("hid", $self->_form("hid"));
+    
+    # A form to edit a current item
+    } elsif ($self->{"type"} eq "cur") {
+        $self->{"cols"} = new Selima::AddCol($self->{"table"}, ADDCOL_UPDATE);
+        $self->{"cols"}->addnum("newslet", $self->_form("newslet"), scalar $cur->param("newslet"));
+        $self->{"cols"}->addnum("ord", $self->_form("ord"), scalar $cur->param("ord"));
+        $self->{"cols"}->addstr("title", $self->_form("title"), scalar $cur->param("title"));
+        $self->{"cols"}->addstr("author", $self->_form("author"), scalar $cur->param("author"));
+        $self->{"cols"}->addstr("body_t", $self->_form("body_t"), scalar $cur->param("body_t"));
+        $self->{"cols"}->addstr("body_h", $self->_form("body_h"), scalar $cur->param("body_h"));
+        $self->{"cols"}->addbool("hid", $self->_form("hid"), scalar $cur->param("hid"));
+    }
+    return;
+}
+
+# _actlog: Log the activity
+sub _actlog : method {
+    local ($_, %_);
+    my ($self, $form, $cur);
+    $self = $_[0];
+    ($form, $cur) = ($self->{"form"}, $self->{"cur"});
+    # A form to create a new item
+    return gactlog "Create a newsletter article " . $form->param("title")
+            . " in newsletter No. " . newslet_no($form->param("newslet"))
+            . " with s/n " . $self->{"sn"} . "."
+        if $self->{"type"} eq "new";
+    # A form to edit a current item
+    return gactlog "Update the newsletter article " . $form->param("title")
+            . " in newsletter No. " . newslet_no($form->param("newslet"))
+            . " with s/n " . $self->{"sn"} . "."
+        if $self->{"type"} eq "cur";
+    # A form to delete a current item
+    return gactlog "Delete the newsletter article " . $cur->param("title")
+            . " in newsletter No. " . newslet_no($cur->param("newslet"))
+            . " with s/n " . $self->{"sn"} . "."
+        if $self->{"type"} eq "del";
+}
+
+# _ret_status: Return the process status
+sub _ret_status : method {
+    local ($_, %_);
+    my $self;
+    $self = $_[0];
+    return {"msg"=>N_("This article was not modified."),
+            "isform"=>0}
+        if !$self->_modified;
+    # A form to create a new item
+    return {"msg"=>N_("This article has been successfully added."),
+            "isform"=>0}
+        if $self->{"type"} eq "new";
+    # A form to edit a current item
+    return {"msg"=>N_("This article has been successfully updated."),
+            "isform"=>0}
+        if $self->{"type"} eq "cur";
+    # A form to delete a current item
+    return {"msg"=>N_("This article has been successfully deleted."),
+            "isform"=>0}
+        if $self->{"type"} eq "del";
+}
+
+# _rebuild_partial_pages: Rebuild a limited part of pages
+sub _rebuild_partial_pages : method {
+    local ($_, %_);
+    my ($self, $form, $cur);
+    $self = $_[0];
+    ($form, $cur) = ($self->{"form"}, $self->{"cur"});
+    
+    # Find the affected shown parts
+    %_ = qw();
+    # A form to create a new item
+    if ($self->{"type"} eq "new") {
+        $_{$form->param("newslet")} = 1 unless defined $form->param("hid");
+    # A form to edit a current item
+    } elsif ($self->{"type"} eq "cur") {
+        $_{$form->param("newslet")} = 1 unless defined $form->param("hid");
+        $_{$cur->param("newslet")} = 1 unless $cur->param("hid");
+    # A form to delete a current item
+    } elsif ($self->{"type"} eq "del") {
+        $_{$cur->param("newslet")} = 1 unless $cur->param("hid");
+    }
+    @_ = keys %_;
+    # Nothing to rebuild when no shown parts are seen
+    return if @_ == 0;
+    
+    # Rebuild the pages
+    rebuild_newslets @_;
+    return;
+}
+
+return 1;

htdocs/wov/magicat/lib/perl5/Selima/wov/Processor/Newslet.pm

@@ -0,0 +1,263 @@
+# Woman's Voice
+# Newslet.pm: The newsletter data processor.
+
+#  Copyright (c) 2006-2018 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2006-03-19
+
+package Selima::wov::Processor::Newslet;
+use 5.008;
+use strict;
+use warnings;
+use base qw(Selima::Processor);
+
+use Selima::DataVars qw(:addcol :dataman);
+use Selima::Guest;
+use Selima::ShortCut;
+
+use Selima::wov::Rebuild;
+
+use Selima::wov::Processor::NLArt;
+use Selima::Processor::Deletion;
+
+# new: Initialize the processor
+sub new : method {
+    local ($_, %_);
+    my ($self, $class);
+    ($class, @_) = @_;
+    $_[1] = "newslets" if @_ < 2;
+    $self = $class->SUPER::new(@_);
+    return $self;
+}
+
+# _save_cols: Save the column deposit
+sub _save_cols : method {
+    local ($_, %_);
+    my ($self, $form, $cur, $o);
+    $self = $_[0];
+    ($form, $cur) = ($self->{"form"}, $self->{"cur"});
+    # A form to create a new item
+    if ($self->{"type"} eq "new") {
+        $self->{"sn"} = $self->_new_sn;
+        $self->{"cols"} = new Selima::AddCol($self->{"table"}, ADDCOL_INSERT);
+        $self->{"cols"}->addnum("sn", $self->{"sn"});
+        $self->{"cols"}->addnum("no", $self->_form("no"));
+        $self->{"cols"}->adddate("date", $self->_form("date"));
+        $self->{"cols"}->addstr("title", $self->_form("title"));
+        $self->{"cols"}->addstr("cred_t", $self->_form("cred_t"));
+        $self->{"cols"}->addstr("cred_h", $self->_form("cred_h"));
+        $self->{"cols"}->addstr("kw", $self->_form("kw"));
+        $self->{"cols"}->addbool("hid", $self->_form("hid"));
+        
+        # Find the changed items
+        for ($_ = 0, $o = 1; defined $form->param("art$_" . "title"); $_++) {
+            my ($subform, $cols);
+            # Not selected
+            next unless defined $form->param("art$_");
+            $subform = new CGI("");
+            $subform->param("form", "new");
+            $subform->param("newslet", $self->{"sn"});
+            $subform->param("ord", $o++);
+            $subform->param("title", $form->param("art$_" . "title"));
+            $subform->param("author", $form->param("art$_" . "author"));
+            $subform->param("body_t", $form->param("art$_" . "body_t"));
+            $subform->param("body_h", $form->param("art$_" . "body_h"));
+            $subform->param("hid", $form->param("art$_" . "hid"));
+            $cols = new Selima::wov::Processor::NLArt($subform);
+            $cols->_save_cols;
+            push @{$self->{"subs"}}, $cols;
+        }
+    
+    # A form to edit a current item
+    } elsif ($self->{"type"} eq "cur") {
+        $self->{"cols"} = new Selima::AddCol($self->{"table"}, ADDCOL_UPDATE);
+        $self->{"cols"}->addnum("no", $self->_form("no"), scalar $cur->param("no"));
+        $self->{"cols"}->adddate("date", $self->_form("date"), scalar $cur->param("date"));
+        $self->{"cols"}->addstr("title", $self->_form("title"), scalar $cur->param("title"));
+        $self->{"cols"}->addstr("cred_t", $self->_form("cred_t"), scalar $cur->param("cred_t"));
+        $self->{"cols"}->addstr("cred_h", $self->_form("cred_h"), scalar $cur->param("cred_h"));
+        $self->{"cols"}->addstr("kw", $self->_form("kw"), scalar $cur->param("kw"));
+        $self->{"cols"}->addbool("hid", $self->_form("hid"), scalar $cur->param("hid"));
+        
+        # Find the changed items
+        @_ = qw();
+        for (   $_ = 0, $o = 1;
+                $_ < $cur->param("artcount")
+                || defined $form->param("art$_" . "title");
+                $_++) {
+            # Added items to the current
+            if ($_ >= $cur->param("artcount")) {
+                my ($subform, $cols);
+                # Not selected
+                next unless defined $form->param("art$_");
+                $subform = new CGI("");
+                $subform->param("form", "new");
+                $subform->param("newslet", $self->{"sn"});
+                $subform->param("ord", $o++);
+                $subform->param("title", $form->param("art$_" . "title"));
+                $subform->param("author", $form->param("art$_" . "author"));
+                $subform->param("body_t", $form->param("art$_" . "body_t"));
+                $subform->param("body_h", $form->param("art$_" . "body_h"));
+                $subform->param("hid", $form->param("art$_" . "hid"));
+                $cols = new Selima::wov::Processor::NLArt($subform);
+                $cols->_save_cols;
+                push @{$self->{"subs"}}, $cols;
+            
+            # Selected
+            } elsif (defined $form->param("art$_")) {
+                my ($subform, $cols, %CURRENT_SUP);
+                %CURRENT_SUP = %CURRENT;
+                %CURRENT = (
+                    "sn"        => $cur->param("art$_" . "sn"),
+                    "newslet"   => $self->{"sn"},
+                    "ord"       => $cur->param("art$_" . "ord"),
+                    "title"     => $cur->param("art$_" . "title"),
+                    "author"    => $cur->param("art$_" . "author"),
+                    "body_t"    => $cur->param("art$_" . "body_t"),
+                    "body_h"    => $cur->param("art$_" . "body_h"),
+                    "hid"       => $cur->param("art$_" . "hid"),
+                );
+                $subform = new CGI("");
+                $subform->param("form", "cur");
+                $subform->param("sn", $cur->param("art$_" . "sn"));
+                $subform->param("newslet", $self->{"sn"});
+                $subform->param("ord", $o++);
+                $subform->param("title", $form->param("art$_" . "title"));
+                $subform->param("author", $form->param("art$_" . "author"));
+                $subform->param("body_t", $form->param("art$_" . "body_t"));
+                $subform->param("body_h", $form->param("art$_" . "body_h"));
+                $subform->param("hid", $form->param("art$_" . "hid"));
+                $cols = new Selima::wov::Processor::NLArt($subform);
+                $cols->_save_cols;
+                push @{$self->{"subs"}}, $cols;
+                %CURRENT = %CURRENT_SUP;
+            
+            # Not selected
+            } else {
+                push @_, $cur->param("art$_" . "sn");
+            }
+        }
+        if (@_ > 0) {
+            my $subform;
+            $_ = join " OR ", map "sn=$_", @_;
+            $subform = new CGI("");
+            $subform->param("cond", $_);
+            # Delete first, to spare the order occupied
+            unshift @{$self->{"subs"}}, new Selima::Processor::Deletion($subform, "nlarts");
+        }
+    
+    # A form to delete a current item
+    } elsif ($self->{"type"} eq "del") {
+        # Find the changed items
+        $_ = new CGI("");
+        $_->param("cond", "newslet=" . $self->{"sn"});
+        push @{$self->{"subs"}}, new Selima::Processor::Deletion($_, "nlarts");
+    }
+    return;
+}
+
+# _actlog: Log the activity
+sub _actlog : method {
+    local ($_, %_);
+    my ($self, $form, $cur);
+    $self = $_[0];
+    ($form, $cur) = ($self->{"form"}, $self->{"cur"});
+    # A form to create a new item
+    return gactlog "Create a newsletter No. " . $form->param("no")
+            . " with s/n " . $self->{"sn"} . "."
+        if $self->{"type"} eq "new";
+    # A form to edit a current item
+    return gactlog "Update the newsletter No. " . $form->param("no")
+            . " with s/n " . $self->{"sn"} . "."
+        if $self->{"type"} eq "cur";
+    # A form to delete a current item
+    return gactlog "Delete the newsletter No. " . $cur->param("no")
+            . " with s/n " . $self->{"sn"} . "."
+        if $self->{"type"} eq "del";
+}
+
+# _ret_status: Return the process status
+sub _ret_status : method {
+    local ($_, %_);
+    my $self;
+    $self = $_[0];
+    return {"msg"=>N_("This newsletter was not modified."),
+            "isform"=>0}
+        if !$self->_modified;
+    # A form to create a new item
+    return {"msg"=>N_("This newsletter has been successfully added."),
+            "isform"=>0}
+        if $self->{"type"} eq "new";
+    # A form to edit a current item
+    return {"msg"=>N_("This newsletter has been successfully updated."),
+            "isform"=>0}
+        if $self->{"type"} eq "cur";
+    # A form to delete a current item
+    return {"msg"=>N_("This newsletter has been successfully deleted."),
+            "isform"=>0}
+        if $self->{"type"} eq "del";
+}
+
+# _rebuild_partial_pages: Rebuild a limited part of pages
+sub _rebuild_partial_pages : method {
+    local ($_, %_);
+    my ($self, $form, $cur);
+    my $build_me_only;
+    $self = $_[0];
+    ($form, $cur) = ($self->{"form"}, $self->{"cur"});
+    # Remove the unwanted pages
+    $self->_remove_curfile;
+    
+    # Check if there is any shown part affected
+    # A form to create a new item
+    if ($self->{"type"} eq "new") {
+        return if defined $form->param("hid");
+        $build_me_only = 0;
+    # A form to edit a current item
+    } elsif ($self->{"type"} eq "cur") {
+        return if $cur->param("hid") && defined $form->param("hid");
+        $build_me_only = (!$cur->param("hid") && !defined $form->param("hid"));
+    # A form to delete a current item
+    } elsif ($self->{"type"} eq "del") {
+        return if $cur->param("hid");
+        $build_me_only = 0;
+    }
+    
+    if ($build_me_only) {
+        rebuild_newslets $self->{"sn"};
+    # Rebuild everything, since the page bar changed
+    } else {
+        rebuild_newslets;
+    }
+}
+
+# _remove_curfile: Remove the unwanted page
+sub _remove_curfile : method {
+    local ($_, %_);
+    my ($self, $form, $cur);
+    $self = $_[0];
+    ($form, $cur) = ($self->{"form"}, $self->{"cur"});
+    # Nothing to remove if there is no current page
+    return if $self->{"type"} eq "new" || $cur->param("hid");
+    # A current page to be deleted or hidden
+    return grmoldpage sprintf "/newsletters/wov%04d.html", $cur->param("no")
+        if $self->{"type"} eq "del" || defined $form->param("hid");
+    # A shown page update with a new page path to check with
+    # Page path is not updated
+    return;
+}
+
+return 1;

htdocs/wov/magicat/lib/perl5/Selima/wov/Processor/Page.pm

@@ -0,0 +1,68 @@
+# Woman's Voice
+# Page.pm: The web page form data processor.
+
+#  Copyright (c) 2006-2018 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2006-04-05
+
+package Selima::wov::Processor::Page;
+use 5.008;
+use strict;
+use warnings;
+use base qw(Selima::Processor::Page);
+
+use Selima::DataVars qw(:addcol);
+
+# _save_cols: Save the column deposit
+sub _save_cols : method {
+    local ($_, %_);
+    my ($self, $form, $cur);
+    $self = $_[0];
+    ($form, $cur) = ($self->{"form"}, $self->{"cur"});
+    # A form to create a new item
+    if ($self->{"type"} eq "new") {
+        $self->{"sn"} = $self->_new_sn;
+        $self->{"cols"} = new Selima::AddCol($self->{"table"}, ADDCOL_INSERT);
+        $self->{"cols"}->addnum("sn", $self->{"sn"});
+        $self->{"cols"}->addstr("path", $self->_form("path"));
+        $self->{"cols"}->addnum("ord", $self->_form("ord"));
+        $self->{"cols"}->addstr("title", $self->_form("title"));
+        $self->{"cols"}->addstr("title_en", $self->_form("title_en"));
+        $self->{"cols"}->addstr("body", $self->_form("body"));
+        $self->{"cols"}->addstr("kw", $self->_form("kw"));
+        $self->{"cols"}->addbool("html", $self->_form("html"));
+        $self->{"cols"}->addbool("hid", $self->_form("hid"));
+        # Automatic Traditional Chinese to Simplified Chinese conversion
+        $self->_zhsync;
+    
+    # A form to edit a current item
+    } elsif ($self->{"type"} eq "cur") {
+        $self->{"cols"} = new Selima::AddCol($self->{"table"}, ADDCOL_UPDATE);
+        $self->{"cols"}->addstr("path", $self->_form("path"), scalar $cur->param("path"));
+        $self->{"cols"}->addnum("ord", $self->_form("ord"), scalar $cur->param("ord"));
+        $self->{"cols"}->addstr("title", $self->_form("title"), scalar $cur->param("title"));
+        $self->{"cols"}->addstr("title_en", $self->_form("title_en"), scalar $cur->param("title_en"));
+        $self->{"cols"}->addstr("body", $self->_form("body"), scalar $cur->param("body"));
+        $self->{"cols"}->addstr("kw", $self->_form("kw"), scalar $cur->param("kw"));
+        $self->{"cols"}->addbool("html", $self->_form("html"), scalar $cur->param("html"));
+        $self->{"cols"}->addbool("hid", $self->_form("hid"), scalar $cur->param("hid"));
+        # Automatic Traditional Chinese to Simplified Chinese conversion
+        $self->_zhsync;
+    }
+    return;
+}
+
+return 1;

htdocs/wov/magicat/lib/perl5/Selima/wov/Rebuild.pm

@@ -0,0 +1,441 @@
+# Woman's Voice
+# Rebuild.pm: The subroutines to rebuild the web pages.
+
+#  Copyright (c) 2004-2018 imacat.
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+
+# Author: imacat <imacat@mail.imacat.idv.tw>
+# First written: 2004-11-02
+
+package Selima::wov::Rebuild;
+use 5.008;
+use utf8;
+use strict;
+use warnings;
+use base qw(Exporter);
+use vars qw(@EXPORT @EXPORT_OK);
+BEGIN {
+@EXPORT = qw(rebuild_all rebuild_pages rebuild_links rebuild_newslets compose_page);
+@EXPORT_OK = @EXPORT;
+# Prototype declaration
+sub rebuild_all();
+sub rebuild_pages(;$);
+sub rebuild_links(;$);
+sub rebuild_newslets(@);
+sub compose_page($;$);
+}
+
+use Data::Dumper qw();
+use Fcntl qw(:flock);
+use IO::NestedCapture qw(CAPTURE_STDOUT);
+
+use Selima::DataVars qw($DBH :output :rebuild);
+use Selima::GetLang;
+use Selima::Guest;
+use Selima::PageFunc;
+use Selima::ShortCut;
+
+use Selima::wov::HTML;
+use Selima::wov::Items;
+
+use vars qw($PKGL10N);
+
+# rebuild_all: Rebuild everything
+sub rebuild_all() {
+    local ($_, %_);
+    # Lock the required tables
+    $DBH->lock(map { $_ => LOCK_SH } @REBUILD_TABLES);
+    # Rebuild the pages
+    rebuild_pages;
+    # Rebuild the links
+    rebuild_links;
+    # Rebuild the newsletters
+    rebuild_newslets;
+    # Rebuild the index
+    # To be done
+    #rebuild_index;
+    return;
+}
+
+# rebuild_pages: Rebuild the pages
+sub rebuild_pages(;$) {
+    local ($_, %_);
+    my ($sql, $sth, $count, $rebuild_everything);
+    my $lang;
+    $sql = $_[0];
+    
+    $lang = getlang;
+    
+    # Rebuild everything
+    $rebuild_everything = !defined $sql;
+    if ($rebuild_everything) {
+        $sql = "SELECT * FROM pages"
+            . " WHERE NOT hid;\n";
+    }
+    
+    $sth = $DBH->prepare($sql);
+    $sth->execute;
+    $count = $sth->rows;
+    # Bounce if no pages to build on a partial rebuild
+    # This prevents needless sitemap rebuilding
+    return if !$rebuild_everything && $count == 0;
+    # Build each page
+    for (my $i = 0; $i < $count; $i++) {
+        my ($page, $html);
+        $page = $sth->fetchrow_hashref;
+        # Read the picture into the picture deposit
+        # To be done
+        
+        $html = compose_page($page, $lang);
+        goutpage $html, $$page{"path"}, $lang
+            if defined $html;
+        
+        # Output related pictures only when rebuilding everything
+        # To be done
+    }
+    
+    return;
+}
+
+# rebuild_links: Rebuild the links
+sub rebuild_links(;$) {
+    local ($_, %_);
+    my ($sql, $sth, $count, $FD, $rebuild_everything);
+    my ($lang, $args, $html);
+    $sql = $_[0];
+    
+    $lang = getlang;
+    
+    # Rebuild everything
+    $rebuild_everything = !defined $sql;
+    if ($rebuild_everything) {
+        @_ = $DBH->cols("linkcat");
+        push @_, $DBH->strcat("'/links'", "linkcat_path(sn, id, parent)")
+          . " AS path";
+        $sql = "SELECT " . join(", ", @_) . " FROM linkcat"
+            . " WHERE linkcat_isshown(sn, hid, parent);\n";
+    }
+    
+    $sth = $DBH->prepare($sql);
+    $sth->execute;
+    $count = $sth->rows;
+    for (my $i = 0; $i < $count; $i++) {
+        my ($page, $sql1, $sth1, $count1, $row1);
+        $page = $sth->fetchrow_hashref;
+        
+        # Find the ancesters
+        @_ = $DBH->cols("linkcat");
+        push @_, $DBH->strcat("'/links'", "linkcat_path(sn, id, parent)")
+          . " AS path";
+        $sql1 = "SELECT " . join(", ", @_) . " FROM linkcat"
+            . " WHERE linkcat_ischild(sn, " . $$page{"sn"} . ")"
+            . " ORDER BY linkcat_fullord(parent, ord);\n";
+        $sth1 = $DBH->prepare($sql1);
+        $sth1->execute;
+        $count1 = $sth1->rows;
+        for (my $i = 0, $$page{"parents"} = []; $i < $count1; $i++) {
+            push @{$$page{"parents"}}, $sth1->fetchrow_hashref;
+        }
+        
+        # Find the subcategories
+        @_ = $DBH->cols("linkcat");
+        push @_, $DBH->strcat("'/links'", "linkcat_path(sn, id, parent)")
+          . " AS path";
+        $sql1 = "SELECT " . join(", ", @_) . " FROM linkcat"
+            . " WHERE parent=" . $$page{"sn"}
+            . " AND linkcat_isshown(sn, hid, parent)"
+            . " ORDER BY ord;\n";
+        $sth1 = $DBH->prepare($sql1);
+        $sth1->execute;
+        $count1 = $sth1->rows;
+        for (my $i = 0, $$page{"scats"} = []; $i < $count1; $i++) {
+            my ($sql2, $sth2, $row2);
+            $row1 = $sth1->fetchrow_hashref;
+            # Find the belonging links
+            $sql2 = "SELECT count(linkcatz.sn) AS count FROM linkcatz"
+                . " INNER JOIN links ON linkcatz.link=links.sn"
+                . " INNER JOIN linkcat ON linkcatz.cat=linkcat.sn"
+                . " WHERE linkcatz.cat=" . $$row1{"sn"}
+                . " AND NOT links.hid;\n";
+            $sth2 = $DBH->prepare($sql2);
+            $sth2->execute;
+            $row2 = $sth2->fetchrow_hashref;
+            $$row1{"links"} = $$row2{"count"};
+            push @{$$page{"scats"}}, $row1;
+        }
+        
+        # Find the belonging links
+        @_ = map "links.$_", $DBH->cols("links");
+        $sql1 = "SELECT " . join(", ", @_) . " FROM links"
+            . " INNER JOIN linkcatz ON linkcatz.link=links.sn"
+            . " WHERE linkcatz.cat=" . $$page{"sn"}
+            . " AND NOT links.hid;\n";
+        $sth1 = $DBH->prepare($sql1);
+        $sth1->execute;
+        $count1 = $sth1->rows;
+        for (my $i = 0, $$page{"links"} = []; $i < $count1; $i++) {
+            push @{$$page{"links"}}, $sth1->fetchrow_hashref;
+        }
+        
+        $html = compose_page($page, $lang);
+        goutpage $html, $$page{"path"}, $lang
+            if defined $html;
+    }
+    
+    # Build the root index page
+    @_ = $DBH->cols("linkcat");
+    push @_, $DBH->strcat("'/links'", "linkcat_path(sn, id, parent)")
+      . " AS path";
+    $sql = "SELECT " . join(", ", @_) . " FROM linkcat"
+        . " WHERE parent IS NULL"
+        . " AND linkcat_isshown(sn, hid, parent)"
+        . " ORDER BY ord;\n";
+    $sth = $DBH->prepare($sql);
+    $sth->execute;
+    $count = $sth->rows;
+    for ($_ = 0, @_ = qw(); $_ < $count; $_++) {
+        my ($cat, $sql1, $sth1, $count1);
+        $cat = $sth->fetchrow_hashref;
+        
+        # Find the belonging links
+        $sql1 = "SELECT count(linkcatz.sn) AS count FROM linkcatz"
+            . " INNER JOIN links ON linkcatz.link=links.sn"
+            . " INNER JOIN linkcat ON linkcatz.cat=linkcat.sn"
+            . " WHERE linkcatz.cat=" . $$cat{"sn"}
+            . " AND NOT links.hid;\n";
+        $sth1 = $DBH->prepare($sql1);
+        $sth1->execute;
+        $$cat{"links"} = ${$sth1->fetch}[0];
+        
+        push @_, $cat;
+    }
+    $ALT_PAGE_PARAM = {
+        "path"          => "/links/",
+        "lang"          => $lang,
+        "keywords"      => __("related links"),
+        "class"         => "links",
+        "javascripts"   => [qw(/scripts/links.js)],
+        "static"        => 1,
+        "all_linguas"   => [$lang]};
+    $args = page_param;
+    # Obtain the page
+    IO::NestedCapture->start(CAPTURE_STDOUT);
+    binmode IO::NestedCapture->instance->{"STDOUT_current"}[-1], ":utf8";
+    html_header "女網牽手", "Woman Interconnect", $args;
+    html_links_index @_, $args;
+    html_footer $args;
+    IO::NestedCapture->stop(CAPTURE_STDOUT);
+    $FD = IO::NestedCapture->get_last_out;
+    $html = join "", <$FD>;
+    undef $ALT_PAGE_PARAM;
+    goutpage $html, "/links/", $lang;
+    
+    return;
+}
+
+# rebuild_newslets: Rebuild the newsletters
+sub rebuild_newslets(@) {
+    local ($_, %_);
+    my (@newslets, $sql, $sth, $count, $FD, $rebuild_everything);
+    my ($lang, $args, $html, @allno);
+    @newslets = @_;
+    
+    $lang = getlang;
+    
+    # Obtain all the pages
+    {
+        my ($sql, $sth, $count);
+        $sql = "SELECT no FROM newslets"
+            . " WHERE NOT hid ORDER BY no;\n";
+        $sth = $DBH->prepare($sql);
+        $sth->execute;
+        $count = $sth->rows;
+        for (my $i = 0, @allno = qw(); $i < $count; $i++) {
+            push @allno, ${$sth->fetch}[0];
+        }
+        undef $sth;
+    }
+    
+    # Rebuild everything
+    $rebuild_everything = (@newslets == 0);
+    if ($rebuild_everything) {
+        $sql = "SELECT * FROM newslets"
+            . " WHERE NOT hid ORDER BY no;\n";
+    } else {
+        $_ = join " OR ", map "sn=$_", @newslets;
+        $_ = "($_)" if @newslets > 1;
+        $sql = "SELECT * FROM newslets"
+            . " WHERE $_"
+            . " AND NOT hid"
+            . " ORDER BY no;\n";
+    }
+    
+    $sth = $DBH->prepare($sql);
+    $sth->execute;
+    $count = $sth->rows;
+    for (my $i = 0; $i < $count; $i++) {
+        my ($page, $sql1, $sth1, $count1, $row1, $title, $pagebar);
+        $page = $sth->fetchrow_hashref;
+        $$page{"path"} = sprintf "/newsletters/wov%04d.html", $$page{"no"};
+        $title = newslet_textno($$page{"no"}) . " " . $$page{"title"};
+        $$page{"allno"} = [@allno];
+        
+        # Find the belonging articles
+        $sql1 = "SELECT * FROM nlarts"
+            . " WHERE newslet=" . $$page{"sn"}
+            . " AND NOT hid"
+            . " ORDER BY ord;\n";
+        $sth1 = $DBH->prepare($sql1);
+        $sth1->execute;
+        $count1 = $sth1->rows;
+        for (my $i = 0, $$page{"arts"} = []; $i < $count1; $i++) {
+            push @{$$page{"arts"}}, $sth1->fetchrow_hashref;
+        }
+        
+        $html = compose_page($page, $lang);
+        goutpage $html, $$page{"path"}, $lang;
+    }
+    
+    # Build the index page
+    $sql = "SELECT sn, no, date, title FROM newslets"
+        . " WHERE NOT hid ORDER BY no DESC;\n";
+    $sth = $DBH->prepare($sql);
+    $sth->execute;
+    $count = $sth->rows;
+    for ($_ = 0, @_ = qw(); $_ < $count; $_++) {
+        my ($newslet, $sql1, $sth1, $count1);
+        $newslet = $sth->fetchrow_hashref;
+        
+        # Find the belonging articles
+        $sql1 = "SELECT title, author FROM nlarts"
+            . " WHERE newslet=" . $$newslet{"sn"}
+            . " AND NOT hid"
+            . " ORDER BY ord;\n";
+        $sth1 = $DBH->prepare($sql1);
+        $sth1->execute;
+        $count1 = $sth1->rows;
+        for (my $i = 0, $$newslet{"arts"} = []; $i < $count1; $i++) {
+            push @{$$newslet{"arts"}}, $sth1->fetchrow_hashref;
+        }
+        
+        push @_, $newslet;
+    }
+    $ALT_PAGE_PARAM = {
+        "path"          => "/newsletters/",
+        "lang"          => $lang,
+        "keywords"      => "女聲電子報, 女性主義, 婦運, 性別, 小招, 依瑪貓",
+        "javascripts"   => [qw(/scripts/search.js)],
+        "class"         => "newsletters",
+        "static"        => 1,
+        "all_linguas"   => [$lang]};
+    $args = page_param;
+    # Obtain the page
+    IO::NestedCapture->start(CAPTURE_STDOUT);
+    binmode IO::NestedCapture->instance->{"STDOUT_current"}[-1], ":utf8";
+    html_header "女聲各期目錄", "Index of WOVs", $args;
+    html_nl_index @_, $args;
+    html_footer $args;
+    IO::NestedCapture->stop(CAPTURE_STDOUT);
+    $FD = IO::NestedCapture->get_last_out;
+    $html = join "", <$FD>;
+    undef $ALT_PAGE_PARAM;
+    goutpage $html, "/newsletters/", $lang;
+    
+    return;
+}
+
+# compose_page: Compose a page
+sub compose_page($;$) {
+    local ($_, %_);
+    my ($page, $lang, $args, $title_en, $FD);
+    ($page, $lang) = @_;
+    $lang = getlang if !defined $lang;
+    
+    $ALT_PAGE_PARAM = {
+        "path"          => $$page{"path"},
+        "lang"          => $lang,
+        "keywords"      => $$page{"kw"},
+        "static"        => 1,
+        "all_linguas"   => [$lang],
+        "no_auto_title" =>  exists $$page{"no_auto_title"}
+                            && $$page{"no_auto_title"}};
+    $$ALT_PAGE_PARAM{"preview"} = $page
+        if exists $$page{"preview"};
+    if (exists $$page{"class"} && defined $$page{"class"} && $$page{"class"} ne "") {
+        $$ALT_PAGE_PARAM{"class"} = $$page{"class"};
+    } elsif ($$page{"path"} =~ /^\/newsletters\//) {
+        $$ALT_PAGE_PARAM{"class"} = "newsletters";
+    } elsif ($$page{"path"} =~ /^\/links\//) {
+        $$ALT_PAGE_PARAM{"class"} = "links";
+    }
+    if ($$page{"path"} eq "/subscribe.html") {
+        $$ALT_PAGE_PARAM{"javascripts"} = ["/scripts/subscribe.js"];
+    }
+    $args = page_param;
+    $title_en = exists $$page{"title_en"} && defined $$page{"title_en"}?
+        $$page{"title_en"}: undef;
+    
+    # Special rules for newsletters
+    if ($$page{"path"} =~ /^\/newsletters\/wov\d{4}\.html$/) {
+        $$args{"no_auto_title"} = 1;
+        
+        # The relative pages
+        $$args{"first"} = sprintf "/newsletters/wov%04d.html", ${$$page{"allno"}}[0];
+        for ($_ = 0; $_ < @{$$page{"allno"}}; $_++) {
+            last if ${$$page{"allno"}}[$_] == $$page{"no"};
+        }
+        $$args{"prev"} = sprintf "/newsletters/wov%04d.html", ${$$page{"allno"}}[$_ - 1]
+            if $_ > 0;
+        $$args{"next"} = sprintf "/newsletters/wov%04d.html", ${$$page{"allno"}}[$_ + 1]
+            if $_ < $#{$$page{"allno"}};
+        $$args{"last"} = sprintf "/newsletters/wov%04d.html", ${$$page{"allno"}}[$#{$$page{"allno"}}];
+        
+        # Obtain the page bar
+        IO::NestedCapture->start(CAPTURE_STDOUT);
+        binmode IO::NestedCapture->instance->{"STDOUT_current"}[-1], ":utf8";
+        html_nl_pagebar $_, @{$$page{"allno"}}, $args;
+        IO::NestedCapture->stop(CAPTURE_STDOUT);
+        $FD = IO::NestedCapture->get_last_out;
+        $_ = join "", <$FD>;
+        if ($_ ne "") {
+            $$args{"header_html_nav"} = $_;
+            $$args{"footer_html_nav"} = $_;
+        }
+    }
+    
+    # Obtain the page
+    IO::NestedCapture->start(CAPTURE_STDOUT);
+    binmode IO::NestedCapture->instance->{"STDOUT_current"}[-1], ":utf8";
+    html_header $$page{"title"}, $title_en, $args;
+    if ($$page{"path"} =~ /^\/newsletters\/wov\d{4}\.html$/) {
+        html_title "女聲", "Woman’s Voice";
+        html_newslet $page, $args;
+    } elsif ($$page{"path"} =~ /^\/links\/$/) {
+        #html_links_index $page, $args;
+    } elsif ($$page{"path"} =~ /^\/links\/.+$/) {
+        html_links $page, $args;
+    } else {
+        html_body $page, $args;
+    }
+    html_footer $args;
+    IO::NestedCapture->stop(CAPTURE_STDOUT);
+    $FD = IO::NestedCapture->get_last_out;
+    $_ = join "", <$FD>;
+    
+    undef $ALT_PAGE_PARAM;
+    return $_;
+}
+
+no utf8;
+return 1;

htdocs/wov/magicat/po/Makefile

@@ -0,0 +1,44 @@
+# Possible make targets:
+#   all:	Compile the PO files and copy the binary MO files
+#		into the appropriate directories
+#   xgettext:	Obtain the newest PO template file $(PACKAGE).pot
+#		from the source programs
+#   msgmerge:	Compare the template $(PACKAGE).pot and the existing
+#		PO files and get the newest POX files to work with.
+
+
+PACKAGE =	wov
+ALLLINGUAS =	zh_TW
+PKGROOT =	../..
+PODIR =		magicat/po
+LOCALEDIR =	$(PKGROOT)/magicat/locale
+CATEGORY =	LC_MESSAGES
+PROGRAMS =	cgi-bin/*.cgi magicat/cgi-bin/*.cgi magicat/lib/perl5/*/*.pm magicat/lib/perl5/*/*/*.pm magicat/lib/perl5/*/*/*/*.pm magicat/lib/perl5/*/*/*/*/*.pm
+
+all:
+	for ln in $(ALLLINGUAS); do \
+	  msgfmt $$ln.po -o $$ln.gmo; \
+	  test -d $(LOCALEDIR) || \
+	  	(rm -rf $(LOCALEDIR) && \
+	  	mkdir $(LOCALEDIR)); \
+	  test -d $(LOCALEDIR)/$$ln || \
+	  	(rm -rf $(LOCALEDIR)/$$ln && \
+	  	mkdir $(LOCALEDIR)/$$ln); \
+	  test -d $(LOCALEDIR)/$$ln/$(CATEGORY) || \
+	  	(rm -rf $(LOCALEDIR)/$$ln/$(CATEGORY) && \
+	  	mkdir $(LOCALEDIR)/$$ln/$(CATEGORY)); \
+	  rm -f $(LOCALEDIR)/$$ln/$(CATEGORY)/$(PACKAGE).mo; \
+	  cp $$ln.gmo $(LOCALEDIR)/$$ln/$(CATEGORY)/$(PACKAGE).mo; \
+	done
+
+xgettext:
+	cd $(PKGROOT); \
+	xgettext --keyword=__ --keyword=N_ -p $(PODIR)/ -o $(PACKAGE).pot \
+	  --language=c $(PROGRAMS); \
+	cd $(PODIR); \
+	for ln in $(ALLLINGUAS); do \
+	  msgmerge $$ln.po $(PACKAGE).pot > $$ln.pox; \
+	done
+
+clean:
+	rm -f *.gmo

htdocs/wov/magicat/po/wov.pot

@@ -0,0 +1,833 @@
+# SOME DESCRIPTIVE TITLE.
+# Copyright (C) YEAR THE PACKAGE'S COPYRIGHT HOLDER
+# This file is distributed under the same license as the PACKAGE package.
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"Report-Msgid-Bugs-To: \n"
+"POT-Creation-Date: 2020-03-24 07:11+0800\n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"Language: \n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=CHARSET\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: cgi-bin/1-guestbook.cgi:41
+msgid "your voice"
+msgstr ""
+
+#: cgi-bin/search.cgi:42
+msgid "search, query, full text search"
+msgstr ""
+
+#: magicat/cgi-bin/acctrecs.cgi:44 magicat/cgi-bin/acctreps.cgi:39
+#: magicat/cgi-bin/acctsubj.cgi:42 magicat/cgi-bin/accttrx.cgi:43
+msgid "accounting"
+msgstr ""
+
+#: magicat/cgi-bin/acctrecs.cgi:110 magicat/cgi-bin/acctrecs.cgi:157
+#: magicat/cgi-bin/acctsubj.cgi:120 magicat/cgi-bin/acctsubj.cgi:180
+#: magicat/cgi-bin/accttrx.cgi:110 magicat/cgi-bin/accttrx.cgi:157
+#: magicat/cgi-bin/groupmem.cgi:108 magicat/cgi-bin/groupmem.cgi:153
+#: magicat/cgi-bin/groups.cgi:116 magicat/cgi-bin/groups.cgi:165
+#: magicat/cgi-bin/guestbook.cgi:104 magicat/cgi-bin/guestbook.cgi:150
+#: magicat/cgi-bin/linkcat.cgi:116 magicat/cgi-bin/linkcat.cgi:169
+#: magicat/cgi-bin/linkcatz.cgi:109 magicat/cgi-bin/linkcatz.cgi:154
+#: magicat/cgi-bin/links.cgi:106 magicat/cgi-bin/links.cgi:152
+#: magicat/cgi-bin/newslets.cgi:140 magicat/cgi-bin/newslets.cgi:184
+#: magicat/cgi-bin/nlarts.cgi:106 magicat/cgi-bin/nlarts.cgi:151
+#: magicat/cgi-bin/pages.cgi:110 magicat/cgi-bin/pages.cgi:154
+#: magicat/cgi-bin/scptpriv.cgi:106 magicat/cgi-bin/scptpriv.cgi:151
+#: magicat/cgi-bin/usermem.cgi:108 magicat/cgi-bin/usermem.cgi:153
+#: magicat/cgi-bin/userpref.cgi:106 magicat/cgi-bin/userpref.cgi:151
+#: magicat/cgi-bin/users.cgi:125 magicat/cgi-bin/users.cgi:189
+msgid "Incorrect form: [_1]."
+msgstr ""
+
+#: magicat/cgi-bin/acctrecs.cgi:204
+msgid "Please select the accounting record."
+msgstr ""
+
+#: magicat/cgi-bin/acctrecs.cgi:212
+msgid ""
+"This accounting record does not exist anymore.  Please select another one."
+msgstr ""
+
+#: magicat/cgi-bin/acctsubj.cgi:93 magicat/cgi-bin/acctsubj.cgi:140
+msgid "Please add a new accounting subject from [_1]."
+msgstr ""
+
+#: magicat/cgi-bin/acctsubj.cgi:109 magicat/cgi-bin/acctsubj.cgi:169
+msgid ""
+"This accounting subject has [numerate,_1,an accounting sub-subject,"
+"accounting sub-subjects].  It cannot be deleted.  To delete the subject, "
+"[numerate,_1,its accounting sub-subject,all of its accounting sub-subjects] "
+"must first be deleted."
+msgstr ""
+
+#: magicat/cgi-bin/acctsubj.cgi:113 magicat/cgi-bin/acctsubj.cgi:173
+msgid ""
+"This accounting subject has [numerate,_1,an accounting record,accounting "
+"records].  It cannot be deleted.  To delete the subject, [numerate,_1,its "
+"accounting record,all of its accounting records] must first be deleted."
+msgstr ""
+
+#: magicat/cgi-bin/acctsubj.cgi:232
+msgid "Please select the accounting subject."
+msgstr ""
+
+#: magicat/cgi-bin/acctsubj.cgi:240
+msgid ""
+"This accounting subject does not exist anymore.  Please select another one."
+msgstr ""
+
+#: magicat/cgi-bin/accttrx.cgi:204
+msgid "Please select the accounting transaction."
+msgstr ""
+
+#: magicat/cgi-bin/accttrx.cgi:212
+msgid ""
+"This accounting transaction does not exist anymore.  Please select another "
+"one."
+msgstr ""
+
+#: magicat/cgi-bin/actlog.cgi:36
+msgid "activity, logs"
+msgstr ""
+
+#: magicat/cgi-bin/groupmem.cgi:44
+msgid "group membership"
+msgstr ""
+
+#: magicat/cgi-bin/groupmem.cgi:200 magicat/cgi-bin/usermem.cgi:200
+msgid "Please select the membership record."
+msgstr ""
+
+#: magicat/cgi-bin/groupmem.cgi:208 magicat/cgi-bin/usermem.cgi:208
+msgid ""
+"This membership record does not exist anymore.  Please select another one."
+msgstr ""
+
+#: magicat/cgi-bin/groups.cgi:48
+msgid "groups"
+msgstr ""
+
+#: magicat/cgi-bin/groups.cgi:212
+msgid "Please select the group."
+msgstr ""
+
+#: magicat/cgi-bin/groups.cgi:220
+msgid "This group does not exist anymore.  Please select another one."
+msgstr ""
+
+#: magicat/cgi-bin/guestbook.cgi:40
+msgid "guestbook"
+msgstr ""
+
+#: magicat/cgi-bin/guestbook.cgi:197
+msgid "Please select the message."
+msgstr ""
+
+#: magicat/cgi-bin/guestbook.cgi:205
+msgid "This message does not exist anymore.  Please select another one."
+msgstr ""
+
+#: magicat/cgi-bin/linkcat.cgi:44
+msgid "link categories"
+msgstr ""
+
+#: magicat/cgi-bin/linkcat.cgi:105 magicat/cgi-bin/linkcat.cgi:158
+msgid ""
+"This category has [numerate,_1,a subcategory,subcategories].  It cannot be "
+"deleted.  To delete the category, [numerate,_1,its subcategory,all of its "
+"subcategories] must first be deleted."
+msgstr ""
+
+#: magicat/cgi-bin/linkcat.cgi:109 magicat/cgi-bin/linkcat.cgi:162
+msgid ""
+"This category has [numerate,_1,a link,links].  It cannot be deleted.  To "
+"delete the category, [numerate,_1,its link,all of its links] must first be "
+"deleted."
+msgstr ""
+
+#: magicat/cgi-bin/linkcat.cgi:219
+msgid "Please select the category."
+msgstr ""
+
+#: magicat/cgi-bin/linkcat.cgi:227
+msgid "This category does not exist anymore.  Please select another one."
+msgstr ""
+
+#: magicat/cgi-bin/linkcatz.cgi:45
+msgid "link categorization"
+msgstr ""
+
+#: magicat/cgi-bin/linkcatz.cgi:203
+msgid "Please select the categorization record."
+msgstr ""
+
+#: magicat/cgi-bin/linkcatz.cgi:211
+msgid ""
+"This categorization record does not exist anymore.  Please select another "
+"one."
+msgstr ""
+
+#: magicat/cgi-bin/links.cgi:43 magicat/lib/perl5/Selima/wov/Rebuild.pm:226
+msgid "related links"
+msgstr ""
+
+#: magicat/cgi-bin/links.cgi:202
+msgid "Please select the related link."
+msgstr ""
+
+#: magicat/cgi-bin/links.cgi:210
+msgid "This related link does not exist anymore.  Please select another one."
+msgstr ""
+
+#: magicat/cgi-bin/logout.cgi:39
+msgid "log out"
+msgstr ""
+
+#: magicat/cgi-bin/logout.cgi:112 magicat/cgi-bin/logout.cgi:119
+msgid "Log Out"
+msgstr ""
+
+#: magicat/cgi-bin/logout.cgi:135
+msgid "Are you sure you want to log out?"
+msgstr ""
+
+#: magicat/cgi-bin/logout.cgi:136 magicat/lib/perl5/Selima/wov/HTML.pm:433
+msgid "Log out"
+msgstr ""
+
+#: magicat/cgi-bin/logout.cgi:152
+msgid "Log in again."
+msgstr ""
+
+#: magicat/cgi-bin/newslets.cgi:43
+msgid "newsletters"
+msgstr ""
+
+#: magicat/cgi-bin/newslets.cgi:237
+msgid "Please select the newsletter."
+msgstr ""
+
+#: magicat/cgi-bin/newslets.cgi:245
+#: magicat/lib/perl5/Selima/wov/Checker/NLArt.pm:109
+msgid "This newsletter does not exist anymore.  Please select another one."
+msgstr ""
+
+#: magicat/cgi-bin/nlarts.cgi:42
+msgid "newsletter articles"
+msgstr ""
+
+#: magicat/cgi-bin/nlarts.cgi:198
+msgid "Please select the article."
+msgstr ""
+
+#: magicat/cgi-bin/nlarts.cgi:206
+msgid "This article does not exist anymore.  Please select another one."
+msgstr ""
+
+#: magicat/cgi-bin/pages.cgi:40
+msgid "pages"
+msgstr ""
+
+#: magicat/cgi-bin/pages.cgi:207
+msgid "Please select the page."
+msgstr ""
+
+#: magicat/cgi-bin/pages.cgi:215
+msgid "This page does not exist anymore.  Please select another one."
+msgstr ""
+
+#: magicat/cgi-bin/rebuild.cgi:37
+msgid "rebuild pages"
+msgstr ""
+
+#: magicat/cgi-bin/scptpriv.cgi:42
+msgid "script privilege"
+msgstr ""
+
+#: magicat/cgi-bin/scptpriv.cgi:198
+msgid "Please select the script privilege record."
+msgstr ""
+
+#: magicat/cgi-bin/scptpriv.cgi:206
+msgid ""
+"This script privilege record does not exist anymore.  Please select another "
+"one."
+msgstr ""
+
+#: magicat/cgi-bin/usermem.cgi:44
+msgid "user membership"
+msgstr ""
+
+#: magicat/cgi-bin/userpref.cgi:42
+msgid "user preference"
+msgstr ""
+
+#: magicat/cgi-bin/userpref.cgi:198
+msgid "Please select the user preference."
+msgstr ""
+
+#: magicat/cgi-bin/userpref.cgi:206
+msgid ""
+"This user preference does not exist anymore.  Please select another one."
+msgstr ""
+
+#: magicat/cgi-bin/users.cgi:43
+msgid "users"
+msgstr ""
+
+#: magicat/cgi-bin/users.cgi:236
+msgid "Please select the user."
+msgstr ""
+
+#: magicat/cgi-bin/users.cgi:244
+msgid "This user does not exist anymore.  Please select another one."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Config.pm:63
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:46
+msgid "Newsletter"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:82
+msgid "Manage Content"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:84
+msgid "Your Voice"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:86
+msgid "Pages"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:88
+msgid "Woman Interconnect"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:90
+msgid "Woman Interconnect Categories"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:92
+msgid "Woman Interconnect Categorization"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:94
+msgid "Newsletters"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:96
+msgid "Newsletter Articles"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:98
+msgid "Newsletter Subscribers"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:102
+msgid "Manage Accounts"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:104
+msgid "Users"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:106
+msgid "Groups"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:108
+msgid "User Membership"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:110
+msgid "Group Membership"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:112
+msgid "User Preferences"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:114
+msgid "Script Privileges"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:134
+msgid "Miscellaneous"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:136
+msgid "Accounting"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:138
+msgid "Activity Log"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:140
+msgid "Rebuild Pages"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:142
+msgid "Analog"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:144
+msgid "Test Script"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:196
+msgid "Skip to the page content area."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:197
+msgid "Page Content Area"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:356
+msgid "Navigation Links Area"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:431
+#, c-format
+msgid "Welcome, %s. (<span><a href=\"%s\">Modify</a></span>)"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:473
+#, c-format
+msgid "%s:"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:851
+msgid "E-mail"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:876
+msgid "URL.:"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:879
+msgid "E-mail:"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:885
+msgid "Address:"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:887
+msgid "Tel.:"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:889
+msgid "Fax.:"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:930
+msgid "The database is empty."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:1107
+msgid "mod_perl -- Speed, Power, Scalability"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:1108
+msgid ""
+"This script is written in <a href=\"http://www.perl.com/\"><acronym title="
+"\"Practical Extraction and Reporting Language\">Perl</acronym></a> and "
+"optimized for <a href=\"http://perl.apache.org/\">mod_perl</a>."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:1121
+msgid ""
+"This script is written in <a href=\"http://www.perl.com/\"><acronym title="
+"\"Practical Extraction and Reporting Language\">Perl</acronym></a>."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Checker/NLArt.pm:59
+#: magicat/lib/perl5/Selima/wov/Checker/Newslet.pm:60
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:102
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:121
+msgid "Fill in the HTML content here."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Checker/NLArt.pm:60
+msgid "Please fill in the HTML content."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Checker/NLArt.pm:63
+msgid "This HTML content is too long.  (Max. length [#,_1])"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Checker/NLArt.pm:83
+#: magicat/lib/perl5/Selima/wov/Checker/Newslet.pm:56
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:96
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:120
+msgid "Fill in the plain text content here."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Checker/NLArt.pm:84
+msgid "Please fill in the plain text content."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Checker/NLArt.pm:87
+msgid "This plain text content is too long.  (Max. length [#,_1])"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Checker/NLArt.pm:106
+msgid "Please select a newsletter."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Checker/Newslet.pm:115
+msgid "Please fill in the date."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Checker/Newslet.pm:118
+#: magicat/lib/perl5/Selima/wov/Checker/Newslet.pm:121
+#: magicat/lib/perl5/Selima/wov/Checker/Newslet.pm:123
+msgid "Please fill in a valid date in YYYY-MM-DD format."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Checker/Newslet.pm:141
+msgid "Please fill in the plain text credits information."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Checker/Newslet.pm:144
+msgid "This plain text credits information is too long.  (Max. length [#,_1])"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Checker/Newslet.pm:163
+msgid "Please fill in the HTML credits information."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Checker/Newslet.pm:166
+msgid "This HTML credits information is too long.  (Max. length [#,_1])"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/Guestbook.pm:32
+#: magicat/lib/perl5/Selima/wov/List/Guestbook.pm:42
+#: magicat/lib/perl5/Selima/wov/Form/Guestbook/Public.pm:50
+msgid "What kind of women you are?"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/Guestbook.pm:37
+#: magicat/lib/perl5/Selima/wov/Form/Guestbook/Public.pm:62
+msgid "Website URL.:"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:51
+msgid "Delete this article"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:56
+msgid "This table provides you a form to write a new article."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:59
+msgid "This table provides you a form to edit a current article."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:62
+msgid "This table provides you a form to delete a article."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:79
+msgid "Write a New Newsletter Article"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:82
+msgid "Edit a Current Newsletter Article"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:85
+msgid "Delete a Newsletter Article"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:95
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:117
+msgid "Content (text):"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:101
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:118
+msgid "Content (HTML):"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:107
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:119
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:368
+msgid "Hide?"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:108
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:128
+msgid "Hide this article"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:108
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:129
+msgid "Show this article"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:109
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:122
+msgid "Hide this article currently."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:114
+msgid "Newsletter:"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:126
+msgid "Order:"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:51
+msgid "Delete this newsletter"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:56
+msgid "This table provides you a form to add a new newsletter."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:59
+msgid "This table provides you a form to edit a current newsletter."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:62
+msgid "This table provides you a form to delete a newsletter."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:81
+msgid "Add a New Newsletter"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:84
+msgid "Edit a Current Newsletter"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:87
+msgid "Delete a Newsletter"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:94
+msgid "Preview this newsletter."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:115
+msgid "Title:"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:116
+msgid "Author:"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:143
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:211
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:309
+msgid "[numerate,_1,Article]:"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:212
+msgid "Original:"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:213
+msgid "New:"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:356
+msgid "Credits (text):"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:357
+msgid "Fill in the credits in plain text here."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:362
+msgid "Credits (HTML):"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:363
+msgid "Fill in the credits in HTML here."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:369
+msgid "Hide this newsletter"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:369
+msgid "Show this newsletter"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:370
+msgid "Hide this newsletter currently."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:378
+msgid "Issue:"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/List/Guestbook.pm:38
+msgid "Select a Message"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/List/Guestbook.pm:39
+msgid "Manage Your Voice"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:38
+msgid "Select a Newsletter Article"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:39
+msgid "Manage Newsletter Articles"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:47
+msgid "Author"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:48
+msgid "Content (text)"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:49
+msgid "Content (HTML)"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:57
+msgid "Write a new article."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:63
+msgid "Search for a article:"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:80
+#: magicat/lib/perl5/Selima/wov/List/Search.pm:105
+msgid "Your query found [*,_1,article]."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:83
+#: magicat/lib/perl5/Selima/wov/List/Search.pm:108
+msgid "[*,_1,article]."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:89
+#: magicat/lib/perl5/Selima/wov/List/Search.pm:114
+msgid "Your query found [*,_1,article], listing [#,_2] to [#,_3]."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:93
+#: magicat/lib/perl5/Selima/wov/List/Search.pm:118
+msgid "[*,_1,article], listing [#,_2] to [#,_3]."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:38
+msgid "Select a Newsletter"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:39
+msgid "Manage Newsletters"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:46
+msgid "Issue"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:47
+msgid "Credits (text)"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:48
+msgid "Credits (HTML)"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:56
+msgid "Add a new newsletter."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:62
+msgid "Search for a newsletter:"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:79
+msgid "Your query found [*,_1,newsletter]."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:82
+msgid "[*,_1,newsletter]."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:88
+msgid "Your query found [*,_1,newsletter], listing [#,_2] to [#,_3]."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:92
+msgid "[*,_1,newsletter], listing [#,_2] to [#,_3]."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/List/Search.pm:66
+msgid "Please fill in your query."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/List/Search.pm:88
+msgid "Search in the website:"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Processor/NLArt.pm:105
+msgid "This article was not modified."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Processor/NLArt.pm:109
+msgid "This article has been successfully added."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Processor/NLArt.pm:113
+msgid "This article has been successfully updated."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Processor/NLArt.pm:117
+msgid "This article has been successfully deleted."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Processor/Newslet.pm:197
+msgid "This newsletter was not modified."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Processor/Newslet.pm:201
+msgid "This newsletter has been successfully added."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Processor/Newslet.pm:205
+msgid "This newsletter has been successfully updated."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Processor/Newslet.pm:209
+msgid "This newsletter has been successfully deleted."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/Guestbook/Public.pm:43
+msgid ""
+"General commercial advertisements, articles unrelated to gender/sex or "
+"articles involving personal attacks are not welcomed.  They may be deleted "
+"without notice.  HTML is not supported."
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/Guestbook/Public.pm:56
+msgid "Message:"
+msgstr ""
+
+#: magicat/lib/perl5/Selima/wov/Form/Guestbook/Public.pm:57
+msgid "Fill in your message here."
+msgstr ""

htdocs/wov/magicat/po/zh_TW.po

@@ -0,0 +1,856 @@
+# Traditional Chinese PO file for the Woman's Voice
+# Copyright (C) 2004-2018 imacat
+# This file is distributed under the same license as the wov package.
+# imacat <imacat@mail.imacat.idv.tw>, 2004-2018.
+#
+msgid ""
+msgstr ""
+"Project-Id-Version: wov 1.0\n"
+"Report-Msgid-Bugs-To: \n"
+"POT-Creation-Date: 2020-03-24 07:11+0800\n"
+"PO-Revision-Date: 2018-11-02 00:56+0800\n"
+"Last-Translator: imacat <imacat@mail.imacat.idv.tw>\n"
+"Language-Team: Traditional Chinese <imacat@mail.imacat.idv.tw>\n"
+"Language: \n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+"Plural-Forms: nplurals=1; plural=0;\n"
+
+#: cgi-bin/1-guestbook.cgi:41
+msgid "your voice"
+msgstr "妳的女聲"
+
+#: cgi-bin/search.cgi:42
+msgid "search, query, full text search"
+msgstr "搜尋, 檢索, 全文檢索"
+
+#: magicat/cgi-bin/acctrecs.cgi:44 magicat/cgi-bin/acctreps.cgi:39
+#: magicat/cgi-bin/acctsubj.cgi:42 magicat/cgi-bin/accttrx.cgi:43
+msgid "accounting"
+msgstr ""
+
+#: magicat/cgi-bin/acctrecs.cgi:110 magicat/cgi-bin/acctrecs.cgi:157
+#: magicat/cgi-bin/acctsubj.cgi:120 magicat/cgi-bin/acctsubj.cgi:180
+#: magicat/cgi-bin/accttrx.cgi:110 magicat/cgi-bin/accttrx.cgi:157
+#: magicat/cgi-bin/groupmem.cgi:108 magicat/cgi-bin/groupmem.cgi:153
+#: magicat/cgi-bin/groups.cgi:116 magicat/cgi-bin/groups.cgi:165
+#: magicat/cgi-bin/guestbook.cgi:104 magicat/cgi-bin/guestbook.cgi:150
+#: magicat/cgi-bin/linkcat.cgi:116 magicat/cgi-bin/linkcat.cgi:169
+#: magicat/cgi-bin/linkcatz.cgi:109 magicat/cgi-bin/linkcatz.cgi:154
+#: magicat/cgi-bin/links.cgi:106 magicat/cgi-bin/links.cgi:152
+#: magicat/cgi-bin/newslets.cgi:140 magicat/cgi-bin/newslets.cgi:184
+#: magicat/cgi-bin/nlarts.cgi:106 magicat/cgi-bin/nlarts.cgi:151
+#: magicat/cgi-bin/pages.cgi:110 magicat/cgi-bin/pages.cgi:154
+#: magicat/cgi-bin/scptpriv.cgi:106 magicat/cgi-bin/scptpriv.cgi:151
+#: magicat/cgi-bin/usermem.cgi:108 magicat/cgi-bin/usermem.cgi:153
+#: magicat/cgi-bin/userpref.cgi:106 magicat/cgi-bin/userpref.cgi:151
+#: magicat/cgi-bin/users.cgi:125 magicat/cgi-bin/users.cgi:189
+msgid "Incorrect form: [_1]."
+msgstr "查無此表格： [_1] 。"
+
+#: magicat/cgi-bin/acctrecs.cgi:204
+msgid "Please select the accounting record."
+msgstr "請選擇會計分錄。"
+
+#: magicat/cgi-bin/acctrecs.cgi:212
+msgid ""
+"This accounting record does not exist anymore.  Please select another one."
+msgstr "查無此會計分錄，請重新選擇。"
+
+#: magicat/cgi-bin/acctsubj.cgi:93 magicat/cgi-bin/acctsubj.cgi:140
+msgid "Please add a new accounting subject from [_1]."
+msgstr "請由[_1]建新會計科目。"
+
+#: magicat/cgi-bin/acctsubj.cgi:109 magicat/cgi-bin/acctsubj.cgi:169
+msgid ""
+"This accounting subject has [numerate,_1,an accounting sub-subject,"
+"accounting sub-subjects].  It cannot be deleted.  To delete the subject, "
+"[numerate,_1,its accounting sub-subject,all of its accounting sub-subjects] "
+"must first be deleted."
+msgstr ""
+"本會計科目下有子會計科目，不可直接刪除。要刪除本會計科目，請先刪除其下的子會"
+"計科目。"
+
+#: magicat/cgi-bin/acctsubj.cgi:113 magicat/cgi-bin/acctsubj.cgi:173
+msgid ""
+"This accounting subject has [numerate,_1,an accounting record,accounting "
+"records].  It cannot be deleted.  To delete the subject, [numerate,_1,its "
+"accounting record,all of its accounting records] must first be deleted."
+msgstr ""
+"本會計科目下有會計分錄，不可直接刪除。要刪除本會計科目，請先刪除其下的會計分"
+"錄。"
+
+#: magicat/cgi-bin/acctsubj.cgi:232
+msgid "Please select the accounting subject."
+msgstr "請選擇會計科目。"
+
+#: magicat/cgi-bin/acctsubj.cgi:240
+msgid ""
+"This accounting subject does not exist anymore.  Please select another one."
+msgstr "查無此會計科目，請重新選擇。"
+
+#: magicat/cgi-bin/accttrx.cgi:204
+msgid "Please select the accounting transaction."
+msgstr "請選擇會計傳票。"
+
+#: magicat/cgi-bin/accttrx.cgi:212
+msgid ""
+"This accounting transaction does not exist anymore.  Please select another "
+"one."
+msgstr "查無此會計傳票，請重新選擇。"
+
+#: magicat/cgi-bin/actlog.cgi:36
+msgid "activity, logs"
+msgstr "活動, 記錄, 日誌"
+
+#: magicat/cgi-bin/groupmem.cgi:44
+msgid "group membership"
+msgstr "群組成員"
+
+#: magicat/cgi-bin/groupmem.cgi:200 magicat/cgi-bin/usermem.cgi:200
+msgid "Please select the membership record."
+msgstr "請選擇成員關係。"
+
+#: magicat/cgi-bin/groupmem.cgi:208 magicat/cgi-bin/usermem.cgi:208
+msgid ""
+"This membership record does not exist anymore.  Please select another one."
+msgstr "查無此成員關係，請重新選擇。"
+
+#: magicat/cgi-bin/groups.cgi:48
+msgid "groups"
+msgstr "群組"
+
+#: magicat/cgi-bin/groups.cgi:212
+msgid "Please select the group."
+msgstr "請選擇群組。"
+
+#: magicat/cgi-bin/groups.cgi:220
+msgid "This group does not exist anymore.  Please select another one."
+msgstr "查無此群組，請重新選擇。"
+
+#: magicat/cgi-bin/guestbook.cgi:40
+msgid "guestbook"
+msgstr "留言本"
+
+#: magicat/cgi-bin/guestbook.cgi:197
+msgid "Please select the message."
+msgstr "請選擇要設定的留言。"
+
+#: magicat/cgi-bin/guestbook.cgi:205
+msgid "This message does not exist anymore.  Please select another one."
+msgstr "查無該留言，請改選其她留言。"
+
+#: magicat/cgi-bin/linkcat.cgi:44
+msgid "link categories"
+msgstr "相關連結分類"
+
+#: magicat/cgi-bin/linkcat.cgi:105 magicat/cgi-bin/linkcat.cgi:158
+msgid ""
+"This category has [numerate,_1,a subcategory,subcategories].  It cannot be "
+"deleted.  To delete the category, [numerate,_1,its subcategory,all of its "
+"subcategories] must first be deleted."
+msgstr "本分類下有子類，不可直接刪除。要刪除本分類，請先刪除其下的子類。"
+
+#: magicat/cgi-bin/linkcat.cgi:109 magicat/cgi-bin/linkcat.cgi:162
+msgid ""
+"This category has [numerate,_1,a link,links].  It cannot be deleted.  To "
+"delete the category, [numerate,_1,its link,all of its links] must first be "
+"deleted."
+msgstr "本分類下有連結，不可直接刪除。要刪除本分類，請先刪除其下的連結。"
+
+#: magicat/cgi-bin/linkcat.cgi:219
+msgid "Please select the category."
+msgstr "請選擇分類。"
+
+#: magicat/cgi-bin/linkcat.cgi:227
+msgid "This category does not exist anymore.  Please select another one."
+msgstr "查無此分類，請重新選擇。"
+
+#: magicat/cgi-bin/linkcatz.cgi:45
+msgid "link categorization"
+msgstr "連結分類表"
+
+#: magicat/cgi-bin/linkcatz.cgi:203
+msgid "Please select the categorization record."
+msgstr "請選擇分類資料。"
+
+#: magicat/cgi-bin/linkcatz.cgi:211
+msgid ""
+"This categorization record does not exist anymore.  Please select another "
+"one."
+msgstr "查無此分類資料，請重新選擇。"
+
+#: magicat/cgi-bin/links.cgi:43 magicat/lib/perl5/Selima/wov/Rebuild.pm:226
+msgid "related links"
+msgstr "相關連結"
+
+#: magicat/cgi-bin/links.cgi:202
+msgid "Please select the related link."
+msgstr "請選擇要設定的相關連結。"
+
+#: magicat/cgi-bin/links.cgi:210
+msgid "This related link does not exist anymore.  Please select another one."
+msgstr "查無該相關連結，請改選其她相關連結。"
+
+#: magicat/cgi-bin/logout.cgi:39
+msgid "log out"
+msgstr "登出"
+
+#: magicat/cgi-bin/logout.cgi:112 magicat/cgi-bin/logout.cgi:119
+msgid "Log Out"
+msgstr "登出"
+
+#: magicat/cgi-bin/logout.cgi:135
+msgid "Are you sure you want to log out?"
+msgstr "妳確定要登出嗎？"
+
+#: magicat/cgi-bin/logout.cgi:136 magicat/lib/perl5/Selima/wov/HTML.pm:433
+msgid "Log out"
+msgstr "登出"
+
+#: magicat/cgi-bin/logout.cgi:152
+msgid "Log in again."
+msgstr "重新登入。"
+
+#: magicat/cgi-bin/newslets.cgi:43
+msgid "newsletters"
+msgstr "電子報"
+
+#: magicat/cgi-bin/newslets.cgi:237
+msgid "Please select the newsletter."
+msgstr "請選擇電子報。"
+
+#: magicat/cgi-bin/newslets.cgi:245
+#: magicat/lib/perl5/Selima/wov/Checker/NLArt.pm:109
+msgid "This newsletter does not exist anymore.  Please select another one."
+msgstr "查無該電子報，請重新選擇。"
+
+#: magicat/cgi-bin/nlarts.cgi:42
+msgid "newsletter articles"
+msgstr "電子報文章"
+
+#: magicat/cgi-bin/nlarts.cgi:198
+msgid "Please select the article."
+msgstr "請選擇文章。"
+
+#: magicat/cgi-bin/nlarts.cgi:206
+msgid "This article does not exist anymore.  Please select another one."
+msgstr "查無該文，請改選其她文章。"
+
+#: magicat/cgi-bin/pages.cgi:40
+msgid "pages"
+msgstr "網頁"
+
+#: magicat/cgi-bin/pages.cgi:207
+msgid "Please select the page."
+msgstr "請選擇網頁。"
+
+#: magicat/cgi-bin/pages.cgi:215
+msgid "This page does not exist anymore.  Please select another one."
+msgstr "查無此頁，請改選其她網頁。"
+
+#: magicat/cgi-bin/rebuild.cgi:37
+msgid "rebuild pages"
+msgstr "重製網頁"
+
+#: magicat/cgi-bin/scptpriv.cgi:42
+msgid "script privilege"
+msgstr "程式權限"
+
+#: magicat/cgi-bin/scptpriv.cgi:198
+msgid "Please select the script privilege record."
+msgstr "請選擇程式權限。"
+
+#: magicat/cgi-bin/scptpriv.cgi:206
+msgid ""
+"This script privilege record does not exist anymore.  Please select another "
+"one."
+msgstr "查無該程式權限，請重新選擇。"
+
+#: magicat/cgi-bin/usermem.cgi:44
+msgid "user membership"
+msgstr "使用者成員"
+
+#: magicat/cgi-bin/userpref.cgi:42
+msgid "user preference"
+msgstr "使用者偏好"
+
+#: magicat/cgi-bin/userpref.cgi:198
+msgid "Please select the user preference."
+msgstr "請選擇使用者偏好。"
+
+#: magicat/cgi-bin/userpref.cgi:206
+msgid ""
+"This user preference does not exist anymore.  Please select another one."
+msgstr "查無該使用者偏好，請重新選擇。"
+
+#: magicat/cgi-bin/users.cgi:43
+msgid "users"
+msgstr "帳號"
+
+#: magicat/cgi-bin/users.cgi:236
+msgid "Please select the user."
+msgstr "請選擇使用者。"
+
+#: magicat/cgi-bin/users.cgi:244
+msgid "This user does not exist anymore.  Please select another one."
+msgstr "查無此人，請重新選擇。"
+
+#: magicat/lib/perl5/Selima/wov/Config.pm:63
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:46
+msgid "Newsletter"
+msgstr "電子報"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:82
+msgid "Manage Content"
+msgstr "管理網站"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:84
+msgid "Your Voice"
+msgstr "妳的女聲"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:86
+msgid "Pages"
+msgstr "網頁"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:88
+msgid "Woman Interconnect"
+msgstr "女網牽手"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:90
+msgid "Woman Interconnect Categories"
+msgstr "女網牽手分類"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:92
+msgid "Woman Interconnect Categorization"
+msgstr "女網牽手分類表"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:94
+msgid "Newsletters"
+msgstr "電子報"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:96
+msgid "Newsletter Articles"
+msgstr "電子報文章"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:98
+msgid "Newsletter Subscribers"
+msgstr "電子報訂戶"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:102
+msgid "Manage Accounts"
+msgstr "管理帳號"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:104
+msgid "Users"
+msgstr "帳號"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:106
+msgid "Groups"
+msgstr "群組"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:108
+msgid "User Membership"
+msgstr "使用者成員表"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:110
+msgid "Group Membership"
+msgstr "群組成員表"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:112
+msgid "User Preferences"
+msgstr "使用者偏好"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:114
+msgid "Script Privileges"
+msgstr "程式權限"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:134
+msgid "Miscellaneous"
+msgstr "雜項"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:136
+msgid "Accounting"
+msgstr "共用帳"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:138
+msgid "Activity Log"
+msgstr "活動日誌"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:140
+msgid "Rebuild Pages"
+msgstr "重製網頁"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:142
+msgid "Analog"
+msgstr "訪客統計"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:144
+msgid "Test Script"
+msgstr "測試程式"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:196
+msgid "Skip to the page content area."
+msgstr "跳到網頁內文區。"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:197
+msgid "Page Content Area"
+msgstr "網頁內文區"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:356
+msgid "Navigation Links Area"
+msgstr "導覽連結區"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:431
+#, c-format
+msgid "Welcome, %s. (<span><a href=\"%s\">Modify</a></span>)"
+msgstr "%s，妳好！（<span><a href=\"%s\">修改資料</a></span>）"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:473
+#, c-format
+msgid "%s:"
+msgstr "%s："
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:851
+msgid "E-mail"
+msgstr "E-mail"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:876
+msgid "URL.:"
+msgstr "網址："
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:879
+msgid "E-mail:"
+msgstr "E-mail ："
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:885
+msgid "Address:"
+msgstr "地址："
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:887
+msgid "Tel.:"
+msgstr "電話："
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:889
+msgid "Fax.:"
+msgstr "傳真："
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:930
+msgid "The database is empty."
+msgstr "現無任何資料。"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:1107
+msgid "mod_perl -- Speed, Power, Scalability"
+msgstr "mod_perl -- 速度，動力，無限可能"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:1108
+msgid ""
+"This script is written in <a href=\"http://www.perl.com/\"><acronym title="
+"\"Practical Extraction and Reporting Language\">Perl</acronym></a> and "
+"optimized for <a href=\"http://perl.apache.org/\">mod_perl</a>."
+msgstr ""
+"本程式以 <a href=\"http://www.perl.com/\"><acronym title=\"Practical "
+"Extraction and Reporting Language\">Perl</acronym></a> 撰寫，專為 <a href="
+"\"http://perl.apache.org/\">mod_perl</a> 設計強化"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:1121
+msgid ""
+"This script is written in <a href=\"http://www.perl.com/\"><acronym title="
+"\"Practical Extraction and Reporting Language\">Perl</acronym></a>."
+msgstr ""
+"本程式以 <a href=\"http://www.perl.com/\"><acronym title=\"Practical "
+"Extraction and Reporting Language\">Perl</acronym></a> 撰寫"
+
+#: magicat/lib/perl5/Selima/wov/Checker/NLArt.pm:59
+#: magicat/lib/perl5/Selima/wov/Checker/Newslet.pm:60
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:102
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:121
+msgid "Fill in the HTML content here."
+msgstr "請填上 HTML 的內文。"
+
+#: magicat/lib/perl5/Selima/wov/Checker/NLArt.pm:60
+msgid "Please fill in the HTML content."
+msgstr "請填上 HTML 的內文。"
+
+#: magicat/lib/perl5/Selima/wov/Checker/NLArt.pm:63
+msgid "This HTML content is too long.  (Max. length [#,_1])"
+msgstr "HTML 內文太長了。（最長 [#,_1] ）"
+
+#: magicat/lib/perl5/Selima/wov/Checker/NLArt.pm:83
+#: magicat/lib/perl5/Selima/wov/Checker/Newslet.pm:56
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:96
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:120
+msgid "Fill in the plain text content here."
+msgstr "請填上純文字的內文。"
+
+#: magicat/lib/perl5/Selima/wov/Checker/NLArt.pm:84
+msgid "Please fill in the plain text content."
+msgstr "請填上純文字的內文。"
+
+#: magicat/lib/perl5/Selima/wov/Checker/NLArt.pm:87
+msgid "This plain text content is too long.  (Max. length [#,_1])"
+msgstr "純文字內文太長了。（最長 [#,_1] ）"
+
+#: magicat/lib/perl5/Selima/wov/Checker/NLArt.pm:106
+msgid "Please select a newsletter."
+msgstr "請選擇電子報。"
+
+#: magicat/lib/perl5/Selima/wov/Checker/Newslet.pm:115
+msgid "Please fill in the date."
+msgstr "請填上日期。"
+
+#: magicat/lib/perl5/Selima/wov/Checker/Newslet.pm:118
+#: magicat/lib/perl5/Selima/wov/Checker/Newslet.pm:121
+#: magicat/lib/perl5/Selima/wov/Checker/Newslet.pm:123
+msgid "Please fill in a valid date in YYYY-MM-DD format."
+msgstr "日期請以 YYYY-MM-DD 格式填寫。"
+
+#: magicat/lib/perl5/Selima/wov/Checker/Newslet.pm:141
+msgid "Please fill in the plain text credits information."
+msgstr "請填上純文字發行欄。"
+
+#: magicat/lib/perl5/Selima/wov/Checker/Newslet.pm:144
+msgid "This plain text credits information is too long.  (Max. length [#,_1])"
+msgstr "純文字發行欄太長了。（最長 [#,_1] ）"
+
+#: magicat/lib/perl5/Selima/wov/Checker/Newslet.pm:163
+msgid "Please fill in the HTML credits information."
+msgstr "請填上 HTML 發行欄。"
+
+#: magicat/lib/perl5/Selima/wov/Checker/Newslet.pm:166
+msgid "This HTML credits information is too long.  (Max. length [#,_1])"
+msgstr "HTML 發行欄太長了。（最長 [#,_1] ）"
+
+#: magicat/lib/perl5/Selima/wov/Form/Guestbook.pm:32
+#: magicat/lib/perl5/Selima/wov/List/Guestbook.pm:42
+#: magicat/lib/perl5/Selima/wov/Form/Guestbook/Public.pm:50
+msgid "What kind of women you are?"
+msgstr "妳是哪種女人？"
+
+#: magicat/lib/perl5/Selima/wov/Form/Guestbook.pm:37
+#: magicat/lib/perl5/Selima/wov/Form/Guestbook/Public.pm:62
+msgid "Website URL.:"
+msgstr "網站網址："
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:51
+msgid "Delete this article"
+msgstr "刪掉這篇文章"
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:56
+msgid "This table provides you a form to write a new article."
+msgstr "本表提供寫新文章的表單。"
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:59
+msgid "This table provides you a form to edit a current article."
+msgstr "本表提供編輯文章的表單。"
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:62
+msgid "This table provides you a form to delete a article."
+msgstr "本表提供刪除文章的表單。"
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:79
+msgid "Write a New Newsletter Article"
+msgstr "寫新電子報文章"
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:82
+msgid "Edit a Current Newsletter Article"
+msgstr "編輯電子報文章"
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:85
+msgid "Delete a Newsletter Article"
+msgstr "刪除電子報文章"
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:95
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:117
+msgid "Content (text):"
+msgstr "內文（純文字）："
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:101
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:118
+msgid "Content (HTML):"
+msgstr "內文（HTML）："
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:107
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:119
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:368
+msgid "Hide?"
+msgstr "隱藏"
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:108
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:128
+msgid "Hide this article"
+msgstr "隱藏這篇電子報文章"
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:108
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:129
+msgid "Show this article"
+msgstr "秀出這篇電子報文章"
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:109
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:122
+msgid "Hide this article currently."
+msgstr "暫勿秀出這篇電子報文章。"
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:114
+msgid "Newsletter:"
+msgstr "電子報："
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:126
+msgid "Order:"
+msgstr "次序："
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:51
+msgid "Delete this newsletter"
+msgstr "刪掉這期電子報"
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:56
+msgid "This table provides you a form to add a new newsletter."
+msgstr "本表提供建新電子報的表單。"
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:59
+msgid "This table provides you a form to edit a current newsletter."
+msgstr "本表提供編輯電子報的表單。"
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:62
+msgid "This table provides you a form to delete a newsletter."
+msgstr "本表提供刪除電子報的表單。"
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:81
+msgid "Add a New Newsletter"
+msgstr "建新電子報"
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:84
+msgid "Edit a Current Newsletter"
+msgstr "編輯電子報"
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:87
+msgid "Delete a Newsletter"
+msgstr "刪除電子報"
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:94
+msgid "Preview this newsletter."
+msgstr "預覽這期電子報。"
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:115
+msgid "Title:"
+msgstr "標題："
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:116
+msgid "Author:"
+msgstr "作者："
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:143
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:211
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:309
+msgid "[numerate,_1,Article]:"
+msgstr "文章："
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:212
+msgid "Original:"
+msgstr "原："
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:213
+msgid "New:"
+msgstr "新："
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:356
+msgid "Credits (text):"
+msgstr "發行欄（純文字）："
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:357
+msgid "Fill in the credits in plain text here."
+msgstr "請填上純文字的發行欄。"
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:362
+msgid "Credits (HTML):"
+msgstr "發行欄（HTML）："
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:363
+msgid "Fill in the credits in HTML here."
+msgstr "請填上 HTML 的發行欄。"
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:369
+msgid "Hide this newsletter"
+msgstr "隱藏這期電子報"
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:369
+msgid "Show this newsletter"
+msgstr "秀出這期電子報"
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:370
+msgid "Hide this newsletter currently."
+msgstr "暫勿秀出這期電子報。"
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:378
+msgid "Issue:"
+msgstr "期數："
+
+#: magicat/lib/perl5/Selima/wov/List/Guestbook.pm:38
+msgid "Select a Message"
+msgstr "選擇留言"
+
+#: magicat/lib/perl5/Selima/wov/List/Guestbook.pm:39
+msgid "Manage Your Voice"
+msgstr "管理妳的女聲"
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:38
+msgid "Select a Newsletter Article"
+msgstr "選擇電子報文章"
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:39
+msgid "Manage Newsletter Articles"
+msgstr "管理電子報文章"
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:47
+msgid "Author"
+msgstr "作者"
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:48
+msgid "Content (text)"
+msgstr "內文（純文字）"
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:49
+msgid "Content (HTML)"
+msgstr "內文（HTML）"
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:57
+msgid "Write a new article."
+msgstr "寫新文章。"
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:63
+msgid "Search for a article:"
+msgstr "搜尋文章："
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:80
+#: magicat/lib/perl5/Selima/wov/List/Search.pm:105
+msgid "Your query found [*,_1,article]."
+msgstr "共 [#,_1] 篇相符的文章。"
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:83
+#: magicat/lib/perl5/Selima/wov/List/Search.pm:108
+msgid "[*,_1,article]."
+msgstr "共 [#,_1] 篇文章。"
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:89
+#: magicat/lib/perl5/Selima/wov/List/Search.pm:114
+msgid "Your query found [*,_1,article], listing [#,_2] to [#,_3]."
+msgstr "共 [#,_1] 篇相符的文章，列出第 [#,_2] 篇到第 [#,_3] 篇。"
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:93
+#: magicat/lib/perl5/Selima/wov/List/Search.pm:118
+msgid "[*,_1,article], listing [#,_2] to [#,_3]."
+msgstr "共 [#,_1] 篇文章，列出第 [#,_2] 篇到第 [#,_3] 篇。"
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:38
+msgid "Select a Newsletter"
+msgstr "選擇電子報"
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:39
+msgid "Manage Newsletters"
+msgstr "管理電子報"
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:46
+msgid "Issue"
+msgstr "期數"
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:47
+msgid "Credits (text)"
+msgstr "發行欄（純文字）"
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:48
+msgid "Credits (HTML)"
+msgstr "發行欄（HTML）"
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:56
+msgid "Add a new newsletter."
+msgstr "建新電子報。"
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:62
+msgid "Search for a newsletter:"
+msgstr "搜尋電子報："
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:79
+msgid "Your query found [*,_1,newsletter]."
+msgstr "共 [#,_1] 期相符的電子報。"
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:82
+msgid "[*,_1,newsletter]."
+msgstr "共 [#,_1] 期電子報。"
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:88
+msgid "Your query found [*,_1,newsletter], listing [#,_2] to [#,_3]."
+msgstr "共 [#,_1] 期相符的電子報，列出第 [#,_2] 期到第 [#,_3] 期。"
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:92
+msgid "[*,_1,newsletter], listing [#,_2] to [#,_3]."
+msgstr "共 [#,_1] 期電子報，列出第 [#,_2] 期到第 [#,_3] 期。"
+
+#: magicat/lib/perl5/Selima/wov/List/Search.pm:66
+msgid "Please fill in your query."
+msgstr "請填上檢索的辭彙。"
+
+#: magicat/lib/perl5/Selima/wov/List/Search.pm:88
+msgid "Search in the website:"
+msgstr "網站檢索："
+
+#: magicat/lib/perl5/Selima/wov/Processor/NLArt.pm:105
+msgid "This article was not modified."
+msgstr "文章未異動。"
+
+#: magicat/lib/perl5/Selima/wov/Processor/NLArt.pm:109
+msgid "This article has been successfully added."
+msgstr "文章建好了。"
+
+#: magicat/lib/perl5/Selima/wov/Processor/NLArt.pm:113
+msgid "This article has been successfully updated."
+msgstr "文章存好了。"
+
+#: magicat/lib/perl5/Selima/wov/Processor/NLArt.pm:117
+msgid "This article has been successfully deleted."
+msgstr "文章刪掉了。"
+
+#: magicat/lib/perl5/Selima/wov/Processor/Newslet.pm:197
+msgid "This newsletter was not modified."
+msgstr "電子報未異動。"
+
+#: magicat/lib/perl5/Selima/wov/Processor/Newslet.pm:201
+msgid "This newsletter has been successfully added."
+msgstr "電子報建好了。"
+
+#: magicat/lib/perl5/Selima/wov/Processor/Newslet.pm:205
+msgid "This newsletter has been successfully updated."
+msgstr "電子報存好了。"
+
+#: magicat/lib/perl5/Selima/wov/Processor/Newslet.pm:209
+msgid "This newsletter has been successfully deleted."
+msgstr "電子報刪掉了。"
+
+#: magicat/lib/perl5/Selima/wov/Form/Guestbook/Public.pm:43
+msgid ""
+"General commercial advertisements, articles unrelated to gender/sex or "
+"articles involving personal attacks are not welcomed.  They may be deleted "
+"without notice.  HTML is not supported."
+msgstr ""
+"女聲留言本不歡迎一般商業廣告，與性別無關之言論，及無謂的攻擊性言論，請自重。"
+"不支援 HTML 語法。"
+
+#: magicat/lib/perl5/Selima/wov/Form/Guestbook/Public.pm:56
+msgid "Message:"
+msgstr "留言："
+
+#: magicat/lib/perl5/Selima/wov/Form/Guestbook/Public.pm:57
+msgid "Fill in your message here."
+msgstr "請填上妳的留言。"
+
+#~ msgid "Reports"
+#~ msgstr "報表"
+
+#~ msgid "Transactions"
+#~ msgstr "傳票"
+
+#~ msgid "Subjects"
+#~ msgstr "科目"
+
+#~ msgid "Records"
+#~ msgstr "分錄"

htdocs/wov/magicat/po/zh_TW.pox

@@ -0,0 +1,857 @@
+# Traditional Chinese PO file for the Woman's Voice
+# Copyright (C) 2004-2018 imacat
+# This file is distributed under the same license as the wov package.
+# imacat <imacat@mail.imacat.idv.tw>, 2004-2018.
+#
+msgid ""
+msgstr ""
+"Project-Id-Version: wov 1.0\n"
+"Report-Msgid-Bugs-To: \n"
+"POT-Creation-Date: 2020-03-24 07:11+0800\n"
+"PO-Revision-Date: 2018-11-02 00:56+0800\n"
+"Last-Translator: imacat <imacat@mail.imacat.idv.tw>\n"
+"Language-Team: Traditional Chinese <imacat@mail.imacat.idv.tw>\n"
+"Language: \n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+"Plural-Forms: nplurals=1; plural=0;\n"
+
+#: cgi-bin/1-guestbook.cgi:41
+msgid "your voice"
+msgstr "妳的女聲"
+
+#: cgi-bin/search.cgi:42
+msgid "search, query, full text search"
+msgstr "搜尋, 檢索, 全文檢索"
+
+#: magicat/cgi-bin/acctrecs.cgi:44 magicat/cgi-bin/acctreps.cgi:39
+#: magicat/cgi-bin/acctsubj.cgi:42 magicat/cgi-bin/accttrx.cgi:43
+msgid "accounting"
+msgstr ""
+
+#: magicat/cgi-bin/acctrecs.cgi:110 magicat/cgi-bin/acctrecs.cgi:157
+#: magicat/cgi-bin/acctsubj.cgi:120 magicat/cgi-bin/acctsubj.cgi:180
+#: magicat/cgi-bin/accttrx.cgi:110 magicat/cgi-bin/accttrx.cgi:157
+#: magicat/cgi-bin/groupmem.cgi:108 magicat/cgi-bin/groupmem.cgi:153
+#: magicat/cgi-bin/groups.cgi:116 magicat/cgi-bin/groups.cgi:165
+#: magicat/cgi-bin/guestbook.cgi:104 magicat/cgi-bin/guestbook.cgi:150
+#: magicat/cgi-bin/linkcat.cgi:116 magicat/cgi-bin/linkcat.cgi:169
+#: magicat/cgi-bin/linkcatz.cgi:109 magicat/cgi-bin/linkcatz.cgi:154
+#: magicat/cgi-bin/links.cgi:106 magicat/cgi-bin/links.cgi:152
+#: magicat/cgi-bin/newslets.cgi:140 magicat/cgi-bin/newslets.cgi:184
+#: magicat/cgi-bin/nlarts.cgi:106 magicat/cgi-bin/nlarts.cgi:151
+#: magicat/cgi-bin/pages.cgi:110 magicat/cgi-bin/pages.cgi:154
+#: magicat/cgi-bin/scptpriv.cgi:106 magicat/cgi-bin/scptpriv.cgi:151
+#: magicat/cgi-bin/usermem.cgi:108 magicat/cgi-bin/usermem.cgi:153
+#: magicat/cgi-bin/userpref.cgi:106 magicat/cgi-bin/userpref.cgi:151
+#: magicat/cgi-bin/users.cgi:125 magicat/cgi-bin/users.cgi:189
+msgid "Incorrect form: [_1]."
+msgstr "查無此表格： [_1] 。"
+
+#: magicat/cgi-bin/acctrecs.cgi:204
+msgid "Please select the accounting record."
+msgstr "請選擇會計分錄。"
+
+#: magicat/cgi-bin/acctrecs.cgi:212
+msgid ""
+"This accounting record does not exist anymore.  Please select another one."
+msgstr "查無此會計分錄，請重新選擇。"
+
+#: magicat/cgi-bin/acctsubj.cgi:93 magicat/cgi-bin/acctsubj.cgi:140
+msgid "Please add a new accounting subject from [_1]."
+msgstr "請由[_1]建新會計科目。"
+
+#: magicat/cgi-bin/acctsubj.cgi:109 magicat/cgi-bin/acctsubj.cgi:169
+msgid ""
+"This accounting subject has [numerate,_1,an accounting sub-subject,"
+"accounting sub-subjects].  It cannot be deleted.  To delete the subject, "
+"[numerate,_1,its accounting sub-subject,all of its accounting sub-subjects] "
+"must first be deleted."
+msgstr ""
+"本會計科目下有子會計科目，不可直接刪除。要刪除本會計科目，請先刪除其下的子會"
+"計科目。"
+
+#: magicat/cgi-bin/acctsubj.cgi:113 magicat/cgi-bin/acctsubj.cgi:173
+msgid ""
+"This accounting subject has [numerate,_1,an accounting record,accounting "
+"records].  It cannot be deleted.  To delete the subject, [numerate,_1,its "
+"accounting record,all of its accounting records] must first be deleted."
+msgstr ""
+"本會計科目下有會計分錄，不可直接刪除。要刪除本會計科目，請先刪除其下的會計分"
+"錄。"
+
+#: magicat/cgi-bin/acctsubj.cgi:232
+msgid "Please select the accounting subject."
+msgstr "請選擇會計科目。"
+
+#: magicat/cgi-bin/acctsubj.cgi:240
+msgid ""
+"This accounting subject does not exist anymore.  Please select another one."
+msgstr "查無此會計科目，請重新選擇。"
+
+#: magicat/cgi-bin/accttrx.cgi:204
+msgid "Please select the accounting transaction."
+msgstr "請選擇會計傳票。"
+
+#: magicat/cgi-bin/accttrx.cgi:212
+msgid ""
+"This accounting transaction does not exist anymore.  Please select another "
+"one."
+msgstr "查無此會計傳票，請重新選擇。"
+
+#: magicat/cgi-bin/actlog.cgi:36
+msgid "activity, logs"
+msgstr "活動, 記錄, 日誌"
+
+#: magicat/cgi-bin/groupmem.cgi:44
+msgid "group membership"
+msgstr "群組成員"
+
+#: magicat/cgi-bin/groupmem.cgi:200 magicat/cgi-bin/usermem.cgi:200
+msgid "Please select the membership record."
+msgstr "請選擇成員關係。"
+
+#: magicat/cgi-bin/groupmem.cgi:208 magicat/cgi-bin/usermem.cgi:208
+msgid ""
+"This membership record does not exist anymore.  Please select another one."
+msgstr "查無此成員關係，請重新選擇。"
+
+#: magicat/cgi-bin/groups.cgi:48
+msgid "groups"
+msgstr "群組"
+
+#: magicat/cgi-bin/groups.cgi:212
+msgid "Please select the group."
+msgstr "請選擇群組。"
+
+#: magicat/cgi-bin/groups.cgi:220
+msgid "This group does not exist anymore.  Please select another one."
+msgstr "查無此群組，請重新選擇。"
+
+#: magicat/cgi-bin/guestbook.cgi:40
+msgid "guestbook"
+msgstr "留言本"
+
+#: magicat/cgi-bin/guestbook.cgi:197
+msgid "Please select the message."
+msgstr "請選擇要設定的留言。"
+
+#: magicat/cgi-bin/guestbook.cgi:205
+msgid "This message does not exist anymore.  Please select another one."
+msgstr "查無該留言，請改選其她留言。"
+
+#: magicat/cgi-bin/linkcat.cgi:44
+msgid "link categories"
+msgstr "相關連結分類"
+
+#: magicat/cgi-bin/linkcat.cgi:105 magicat/cgi-bin/linkcat.cgi:158
+msgid ""
+"This category has [numerate,_1,a subcategory,subcategories].  It cannot be "
+"deleted.  To delete the category, [numerate,_1,its subcategory,all of its "
+"subcategories] must first be deleted."
+msgstr "本分類下有子類，不可直接刪除。要刪除本分類，請先刪除其下的子類。"
+
+#: magicat/cgi-bin/linkcat.cgi:109 magicat/cgi-bin/linkcat.cgi:162
+msgid ""
+"This category has [numerate,_1,a link,links].  It cannot be deleted.  To "
+"delete the category, [numerate,_1,its link,all of its links] must first be "
+"deleted."
+msgstr "本分類下有連結，不可直接刪除。要刪除本分類，請先刪除其下的連結。"
+
+#: magicat/cgi-bin/linkcat.cgi:219
+msgid "Please select the category."
+msgstr "請選擇分類。"
+
+#: magicat/cgi-bin/linkcat.cgi:227
+msgid "This category does not exist anymore.  Please select another one."
+msgstr "查無此分類，請重新選擇。"
+
+#: magicat/cgi-bin/linkcatz.cgi:45
+msgid "link categorization"
+msgstr "連結分類表"
+
+#: magicat/cgi-bin/linkcatz.cgi:203
+msgid "Please select the categorization record."
+msgstr "請選擇分類資料。"
+
+#: magicat/cgi-bin/linkcatz.cgi:211
+msgid ""
+"This categorization record does not exist anymore.  Please select another "
+"one."
+msgstr "查無此分類資料，請重新選擇。"
+
+#: magicat/cgi-bin/links.cgi:43 magicat/lib/perl5/Selima/wov/Rebuild.pm:226
+msgid "related links"
+msgstr "相關連結"
+
+#: magicat/cgi-bin/links.cgi:202
+msgid "Please select the related link."
+msgstr "請選擇要設定的相關連結。"
+
+#: magicat/cgi-bin/links.cgi:210
+msgid "This related link does not exist anymore.  Please select another one."
+msgstr "查無該相關連結，請改選其她相關連結。"
+
+#: magicat/cgi-bin/logout.cgi:39
+msgid "log out"
+msgstr "登出"
+
+#: magicat/cgi-bin/logout.cgi:112 magicat/cgi-bin/logout.cgi:119
+msgid "Log Out"
+msgstr "登出"
+
+#: magicat/cgi-bin/logout.cgi:135
+msgid "Are you sure you want to log out?"
+msgstr "妳確定要登出嗎？"
+
+#: magicat/cgi-bin/logout.cgi:136 magicat/lib/perl5/Selima/wov/HTML.pm:433
+msgid "Log out"
+msgstr "登出"
+
+#: magicat/cgi-bin/logout.cgi:152
+msgid "Log in again."
+msgstr "重新登入。"
+
+#: magicat/cgi-bin/newslets.cgi:43
+msgid "newsletters"
+msgstr "電子報"
+
+#: magicat/cgi-bin/newslets.cgi:237
+msgid "Please select the newsletter."
+msgstr "請選擇電子報。"
+
+#: magicat/cgi-bin/newslets.cgi:245
+#: magicat/lib/perl5/Selima/wov/Checker/NLArt.pm:109
+msgid "This newsletter does not exist anymore.  Please select another one."
+msgstr "查無該電子報，請重新選擇。"
+
+#: magicat/cgi-bin/nlarts.cgi:42
+msgid "newsletter articles"
+msgstr "電子報文章"
+
+#: magicat/cgi-bin/nlarts.cgi:198
+msgid "Please select the article."
+msgstr "請選擇文章。"
+
+#: magicat/cgi-bin/nlarts.cgi:206
+msgid "This article does not exist anymore.  Please select another one."
+msgstr "查無該文，請改選其她文章。"
+
+#: magicat/cgi-bin/pages.cgi:40
+msgid "pages"
+msgstr "網頁"
+
+#: magicat/cgi-bin/pages.cgi:207
+msgid "Please select the page."
+msgstr "請選擇網頁。"
+
+#: magicat/cgi-bin/pages.cgi:215
+msgid "This page does not exist anymore.  Please select another one."
+msgstr "查無此頁，請改選其她網頁。"
+
+#: magicat/cgi-bin/rebuild.cgi:37
+msgid "rebuild pages"
+msgstr "重製網頁"
+
+#: magicat/cgi-bin/scptpriv.cgi:42
+msgid "script privilege"
+msgstr "程式權限"
+
+#: magicat/cgi-bin/scptpriv.cgi:198
+msgid "Please select the script privilege record."
+msgstr "請選擇程式權限。"
+
+#: magicat/cgi-bin/scptpriv.cgi:206
+msgid ""
+"This script privilege record does not exist anymore.  Please select another "
+"one."
+msgstr "查無該程式權限，請重新選擇。"
+
+#: magicat/cgi-bin/usermem.cgi:44
+msgid "user membership"
+msgstr "使用者成員"
+
+#: magicat/cgi-bin/userpref.cgi:42
+msgid "user preference"
+msgstr "使用者偏好"
+
+#: magicat/cgi-bin/userpref.cgi:198
+msgid "Please select the user preference."
+msgstr "請選擇使用者偏好。"
+
+#: magicat/cgi-bin/userpref.cgi:206
+msgid ""
+"This user preference does not exist anymore.  Please select another one."
+msgstr "查無該使用者偏好，請重新選擇。"
+
+#: magicat/cgi-bin/users.cgi:43
+msgid "users"
+msgstr "帳號"
+
+#: magicat/cgi-bin/users.cgi:236
+msgid "Please select the user."
+msgstr "請選擇使用者。"
+
+#: magicat/cgi-bin/users.cgi:244
+msgid "This user does not exist anymore.  Please select another one."
+msgstr "查無此人，請重新選擇。"
+
+#: magicat/lib/perl5/Selima/wov/Config.pm:63
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:46
+msgid "Newsletter"
+msgstr "電子報"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:82
+msgid "Manage Content"
+msgstr "管理網站"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:84
+msgid "Your Voice"
+msgstr "妳的女聲"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:86
+msgid "Pages"
+msgstr "網頁"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:88
+msgid "Woman Interconnect"
+msgstr "女網牽手"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:90
+msgid "Woman Interconnect Categories"
+msgstr "女網牽手分類"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:92
+msgid "Woman Interconnect Categorization"
+msgstr "女網牽手分類表"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:94
+msgid "Newsletters"
+msgstr "電子報"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:96
+msgid "Newsletter Articles"
+msgstr "電子報文章"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:98
+msgid "Newsletter Subscribers"
+msgstr "電子報訂戶"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:102
+msgid "Manage Accounts"
+msgstr "管理帳號"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:104
+msgid "Users"
+msgstr "帳號"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:106
+msgid "Groups"
+msgstr "群組"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:108
+msgid "User Membership"
+msgstr "使用者成員表"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:110
+msgid "Group Membership"
+msgstr "群組成員表"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:112
+msgid "User Preferences"
+msgstr "使用者偏好"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:114
+msgid "Script Privileges"
+msgstr "程式權限"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:134
+msgid "Miscellaneous"
+msgstr "雜項"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:136
+#, fuzzy
+msgid "Accounting"
+msgstr "管理會計"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:138
+msgid "Activity Log"
+msgstr "活動日誌"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:140
+msgid "Rebuild Pages"
+msgstr "重製網頁"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:142
+msgid "Analog"
+msgstr "訪客統計"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:144
+msgid "Test Script"
+msgstr "測試程式"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:196
+msgid "Skip to the page content area."
+msgstr "跳到網頁內文區。"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:197
+msgid "Page Content Area"
+msgstr "網頁內文區"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:356
+msgid "Navigation Links Area"
+msgstr "導覽連結區"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:431
+#, c-format
+msgid "Welcome, %s. (<span><a href=\"%s\">Modify</a></span>)"
+msgstr "%s，妳好！（<span><a href=\"%s\">修改資料</a></span>）"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:473
+#, c-format
+msgid "%s:"
+msgstr "%s："
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:851
+msgid "E-mail"
+msgstr "E-mail"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:876
+msgid "URL.:"
+msgstr "網址："
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:879
+msgid "E-mail:"
+msgstr "E-mail ："
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:885
+msgid "Address:"
+msgstr "地址："
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:887
+msgid "Tel.:"
+msgstr "電話："
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:889
+msgid "Fax.:"
+msgstr "傳真："
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:930
+msgid "The database is empty."
+msgstr "現無任何資料。"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:1107
+msgid "mod_perl -- Speed, Power, Scalability"
+msgstr "mod_perl -- 速度，動力，無限可能"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:1108
+msgid ""
+"This script is written in <a href=\"http://www.perl.com/\"><acronym title="
+"\"Practical Extraction and Reporting Language\">Perl</acronym></a> and "
+"optimized for <a href=\"http://perl.apache.org/\">mod_perl</a>."
+msgstr ""
+"本程式以 <a href=\"http://www.perl.com/\"><acronym title=\"Practical "
+"Extraction and Reporting Language\">Perl</acronym></a> 撰寫，專為 <a href="
+"\"http://perl.apache.org/\">mod_perl</a> 設計強化"
+
+#: magicat/lib/perl5/Selima/wov/HTML.pm:1121
+msgid ""
+"This script is written in <a href=\"http://www.perl.com/\"><acronym title="
+"\"Practical Extraction and Reporting Language\">Perl</acronym></a>."
+msgstr ""
+"本程式以 <a href=\"http://www.perl.com/\"><acronym title=\"Practical "
+"Extraction and Reporting Language\">Perl</acronym></a> 撰寫"
+
+#: magicat/lib/perl5/Selima/wov/Checker/NLArt.pm:59
+#: magicat/lib/perl5/Selima/wov/Checker/Newslet.pm:60
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:102
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:121
+msgid "Fill in the HTML content here."
+msgstr "請填上 HTML 的內文。"
+
+#: magicat/lib/perl5/Selima/wov/Checker/NLArt.pm:60
+msgid "Please fill in the HTML content."
+msgstr "請填上 HTML 的內文。"
+
+#: magicat/lib/perl5/Selima/wov/Checker/NLArt.pm:63
+msgid "This HTML content is too long.  (Max. length [#,_1])"
+msgstr "HTML 內文太長了。（最長 [#,_1] ）"
+
+#: magicat/lib/perl5/Selima/wov/Checker/NLArt.pm:83
+#: magicat/lib/perl5/Selima/wov/Checker/Newslet.pm:56
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:96
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:120
+msgid "Fill in the plain text content here."
+msgstr "請填上純文字的內文。"
+
+#: magicat/lib/perl5/Selima/wov/Checker/NLArt.pm:84
+msgid "Please fill in the plain text content."
+msgstr "請填上純文字的內文。"
+
+#: magicat/lib/perl5/Selima/wov/Checker/NLArt.pm:87
+msgid "This plain text content is too long.  (Max. length [#,_1])"
+msgstr "純文字內文太長了。（最長 [#,_1] ）"
+
+#: magicat/lib/perl5/Selima/wov/Checker/NLArt.pm:106
+msgid "Please select a newsletter."
+msgstr "請選擇電子報。"
+
+#: magicat/lib/perl5/Selima/wov/Checker/Newslet.pm:115
+msgid "Please fill in the date."
+msgstr "請填上日期。"
+
+#: magicat/lib/perl5/Selima/wov/Checker/Newslet.pm:118
+#: magicat/lib/perl5/Selima/wov/Checker/Newslet.pm:121
+#: magicat/lib/perl5/Selima/wov/Checker/Newslet.pm:123
+msgid "Please fill in a valid date in YYYY-MM-DD format."
+msgstr "日期請以 YYYY-MM-DD 格式填寫。"
+
+#: magicat/lib/perl5/Selima/wov/Checker/Newslet.pm:141
+msgid "Please fill in the plain text credits information."
+msgstr "請填上純文字發行欄。"
+
+#: magicat/lib/perl5/Selima/wov/Checker/Newslet.pm:144
+msgid "This plain text credits information is too long.  (Max. length [#,_1])"
+msgstr "純文字發行欄太長了。（最長 [#,_1] ）"
+
+#: magicat/lib/perl5/Selima/wov/Checker/Newslet.pm:163
+msgid "Please fill in the HTML credits information."
+msgstr "請填上 HTML 發行欄。"
+
+#: magicat/lib/perl5/Selima/wov/Checker/Newslet.pm:166
+msgid "This HTML credits information is too long.  (Max. length [#,_1])"
+msgstr "HTML 發行欄太長了。（最長 [#,_1] ）"
+
+#: magicat/lib/perl5/Selima/wov/Form/Guestbook.pm:32
+#: magicat/lib/perl5/Selima/wov/List/Guestbook.pm:42
+#: magicat/lib/perl5/Selima/wov/Form/Guestbook/Public.pm:50
+msgid "What kind of women you are?"
+msgstr "妳是哪種女人？"
+
+#: magicat/lib/perl5/Selima/wov/Form/Guestbook.pm:37
+#: magicat/lib/perl5/Selima/wov/Form/Guestbook/Public.pm:62
+msgid "Website URL.:"
+msgstr "網站網址："
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:51
+msgid "Delete this article"
+msgstr "刪掉這篇文章"
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:56
+msgid "This table provides you a form to write a new article."
+msgstr "本表提供寫新文章的表單。"
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:59
+msgid "This table provides you a form to edit a current article."
+msgstr "本表提供編輯文章的表單。"
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:62
+msgid "This table provides you a form to delete a article."
+msgstr "本表提供刪除文章的表單。"
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:79
+msgid "Write a New Newsletter Article"
+msgstr "寫新電子報文章"
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:82
+msgid "Edit a Current Newsletter Article"
+msgstr "編輯電子報文章"
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:85
+msgid "Delete a Newsletter Article"
+msgstr "刪除電子報文章"
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:95
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:117
+msgid "Content (text):"
+msgstr "內文（純文字）："
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:101
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:118
+msgid "Content (HTML):"
+msgstr "內文（HTML）："
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:107
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:119
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:368
+msgid "Hide?"
+msgstr "隱藏"
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:108
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:128
+msgid "Hide this article"
+msgstr "隱藏這篇電子報文章"
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:108
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:129
+msgid "Show this article"
+msgstr "秀出這篇電子報文章"
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:109
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:122
+msgid "Hide this article currently."
+msgstr "暫勿秀出這篇電子報文章。"
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:114
+msgid "Newsletter:"
+msgstr "電子報："
+
+#: magicat/lib/perl5/Selima/wov/Form/NLArt.pm:126
+msgid "Order:"
+msgstr "次序："
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:51
+msgid "Delete this newsletter"
+msgstr "刪掉這期電子報"
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:56
+msgid "This table provides you a form to add a new newsletter."
+msgstr "本表提供建新電子報的表單。"
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:59
+msgid "This table provides you a form to edit a current newsletter."
+msgstr "本表提供編輯電子報的表單。"
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:62
+msgid "This table provides you a form to delete a newsletter."
+msgstr "本表提供刪除電子報的表單。"
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:81
+msgid "Add a New Newsletter"
+msgstr "建新電子報"
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:84
+msgid "Edit a Current Newsletter"
+msgstr "編輯電子報"
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:87
+msgid "Delete a Newsletter"
+msgstr "刪除電子報"
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:94
+msgid "Preview this newsletter."
+msgstr "預覽這期電子報。"
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:115
+msgid "Title:"
+msgstr "標題："
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:116
+msgid "Author:"
+msgstr "作者："
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:143
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:211
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:309
+msgid "[numerate,_1,Article]:"
+msgstr "文章："
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:212
+msgid "Original:"
+msgstr "原："
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:213
+msgid "New:"
+msgstr "新："
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:356
+msgid "Credits (text):"
+msgstr "發行欄（純文字）："
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:357
+msgid "Fill in the credits in plain text here."
+msgstr "請填上純文字的發行欄。"
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:362
+msgid "Credits (HTML):"
+msgstr "發行欄（HTML）："
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:363
+msgid "Fill in the credits in HTML here."
+msgstr "請填上 HTML 的發行欄。"
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:369
+msgid "Hide this newsletter"
+msgstr "隱藏這期電子報"
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:369
+msgid "Show this newsletter"
+msgstr "秀出這期電子報"
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:370
+msgid "Hide this newsletter currently."
+msgstr "暫勿秀出這期電子報。"
+
+#: magicat/lib/perl5/Selima/wov/Form/Newslet.pm:378
+msgid "Issue:"
+msgstr "期數："
+
+#: magicat/lib/perl5/Selima/wov/List/Guestbook.pm:38
+msgid "Select a Message"
+msgstr "選擇留言"
+
+#: magicat/lib/perl5/Selima/wov/List/Guestbook.pm:39
+msgid "Manage Your Voice"
+msgstr "管理妳的女聲"
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:38
+msgid "Select a Newsletter Article"
+msgstr "選擇電子報文章"
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:39
+msgid "Manage Newsletter Articles"
+msgstr "管理電子報文章"
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:47
+msgid "Author"
+msgstr "作者"
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:48
+msgid "Content (text)"
+msgstr "內文（純文字）"
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:49
+msgid "Content (HTML)"
+msgstr "內文（HTML）"
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:57
+msgid "Write a new article."
+msgstr "寫新文章。"
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:63
+msgid "Search for a article:"
+msgstr "搜尋文章："
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:80
+#: magicat/lib/perl5/Selima/wov/List/Search.pm:105
+msgid "Your query found [*,_1,article]."
+msgstr "共 [#,_1] 篇相符的文章。"
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:83
+#: magicat/lib/perl5/Selima/wov/List/Search.pm:108
+msgid "[*,_1,article]."
+msgstr "共 [#,_1] 篇文章。"
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:89
+#: magicat/lib/perl5/Selima/wov/List/Search.pm:114
+msgid "Your query found [*,_1,article], listing [#,_2] to [#,_3]."
+msgstr "共 [#,_1] 篇相符的文章，列出第 [#,_2] 篇到第 [#,_3] 篇。"
+
+#: magicat/lib/perl5/Selima/wov/List/NLArts.pm:93
+#: magicat/lib/perl5/Selima/wov/List/Search.pm:118
+msgid "[*,_1,article], listing [#,_2] to [#,_3]."
+msgstr "共 [#,_1] 篇文章，列出第 [#,_2] 篇到第 [#,_3] 篇。"
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:38
+msgid "Select a Newsletter"
+msgstr "選擇電子報"
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:39
+msgid "Manage Newsletters"
+msgstr "管理電子報"
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:46
+msgid "Issue"
+msgstr "期數"
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:47
+msgid "Credits (text)"
+msgstr "發行欄（純文字）"
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:48
+msgid "Credits (HTML)"
+msgstr "發行欄（HTML）"
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:56
+msgid "Add a new newsletter."
+msgstr "建新電子報。"
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:62
+msgid "Search for a newsletter:"
+msgstr "搜尋電子報："
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:79
+msgid "Your query found [*,_1,newsletter]."
+msgstr "共 [#,_1] 期相符的電子報。"
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:82
+msgid "[*,_1,newsletter]."
+msgstr "共 [#,_1] 期電子報。"
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:88
+msgid "Your query found [*,_1,newsletter], listing [#,_2] to [#,_3]."
+msgstr "共 [#,_1] 期相符的電子報，列出第 [#,_2] 期到第 [#,_3] 期。"
+
+#: magicat/lib/perl5/Selima/wov/List/Newslets.pm:92
+msgid "[*,_1,newsletter], listing [#,_2] to [#,_3]."
+msgstr "共 [#,_1] 期電子報，列出第 [#,_2] 期到第 [#,_3] 期。"
+
+#: magicat/lib/perl5/Selima/wov/List/Search.pm:66
+msgid "Please fill in your query."
+msgstr "請填上檢索的辭彙。"
+
+#: magicat/lib/perl5/Selima/wov/List/Search.pm:88
+msgid "Search in the website:"
+msgstr "網站檢索："
+
+#: magicat/lib/perl5/Selima/wov/Processor/NLArt.pm:105
+msgid "This article was not modified."
+msgstr "文章未異動。"
+
+#: magicat/lib/perl5/Selima/wov/Processor/NLArt.pm:109
+msgid "This article has been successfully added."
+msgstr "文章建好了。"
+
+#: magicat/lib/perl5/Selima/wov/Processor/NLArt.pm:113
+msgid "This article has been successfully updated."
+msgstr "文章存好了。"
+
+#: magicat/lib/perl5/Selima/wov/Processor/NLArt.pm:117
+msgid "This article has been successfully deleted."
+msgstr "文章刪掉了。"
+
+#: magicat/lib/perl5/Selima/wov/Processor/Newslet.pm:197
+msgid "This newsletter was not modified."
+msgstr "電子報未異動。"
+
+#: magicat/lib/perl5/Selima/wov/Processor/Newslet.pm:201
+msgid "This newsletter has been successfully added."
+msgstr "電子報建好了。"
+
+#: magicat/lib/perl5/Selima/wov/Processor/Newslet.pm:205
+msgid "This newsletter has been successfully updated."
+msgstr "電子報存好了。"
+
+#: magicat/lib/perl5/Selima/wov/Processor/Newslet.pm:209
+msgid "This newsletter has been successfully deleted."
+msgstr "電子報刪掉了。"
+
+#: magicat/lib/perl5/Selima/wov/Form/Guestbook/Public.pm:43
+msgid ""
+"General commercial advertisements, articles unrelated to gender/sex or "
+"articles involving personal attacks are not welcomed.  They may be deleted "
+"without notice.  HTML is not supported."
+msgstr ""
+"女聲留言本不歡迎一般商業廣告，與性別無關之言論，及無謂的攻擊性言論，請自重。"
+"不支援 HTML 語法。"
+
+#: magicat/lib/perl5/Selima/wov/Form/Guestbook/Public.pm:56
+msgid "Message:"
+msgstr "留言："
+
+#: magicat/lib/perl5/Selima/wov/Form/Guestbook/Public.pm:57
+msgid "Fill in your message here."
+msgstr "請填上妳的留言。"
+
+#~ msgid "Reports"
+#~ msgstr "報表"
+
+#~ msgid "Transactions"
+#~ msgstr "傳票"
+
+#~ msgid "Subjects"
+#~ msgstr "科目"
+
+#~ msgid "Records"
+#~ msgstr "分錄"