Initial commit.

2026-03-10 21:25:26 +08:00
commit 78739bf725
3089 changed files with 472990 additions and 0 deletions
--- a/htdocs/emandy/magicat/cgi-bin/acctreps.cgi
+++ b/htdocs/emandy/magicat/cgi-bin/acctreps.cgi
@@ -0,0 +1,107 @@
+#! /usr/bin/perl -w
+# Mandy Wu's Website
+# 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::emandy;
+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"}, $LIST->page_param;
+    html_errmsg $status;
+    $LIST->html;
+    html_footer;
+    return;
+}