Initial commit.

lib/perl5/Selima/Checker/LinkCat.pm

@@ -0,0 +1,121 @@
+# Selima Website Content Management System
+# LinkCat.pm: The related-link category 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::Checker::LinkCat;
+use 5.008;
+use strict;
+use warnings;
+use base qw(Selima::Checker);
+
+use Selima::CallForm;
+use Selima::ChkFunc;
+use Selima::DataVars qw($DBH :forms);
+use Selima::ShortCut;
+
+# new: Initialize the checker
+sub new : method {
+    local ($_, %_);
+    my ($class, $self);
+    ($class, @_) = @_;
+    $_[1] = "linkcat" if scalar(@_) < 2 || !defined $_[1];
+    $self = $class->SUPER::new(@_);
+    ${$self->{"maxlens"}}{"ord"} = 2;
+    ${$self->{"minlens"}}{"id"} = 2;
+    return $self;
+}
+
+# _check_id: Check the ID.
+sub _check_id : method {
+    local ($_, %_);
+    my ($self, $form, $error, $sth, $sql);
+    $self = $_[0];
+    $form = $self->{"form"};
+    # Run the default ID. checker
+    $error = $self->SUPER::_check_id;
+    return $error if defined $error;
+    # ID. cannot be "index" to avoid overriding index.html
+    return {"msg"=>N_("\"index\" is dedicated to the index file index.html.  You cannot set the ID. as \"index\".")}
+        if $form->param("id") eq "index";
+    # Check if this item is duplicated
+    if (!$self->_missing("topmost", "parent")) {
+        @_ = qw();
+        push @_, "id=" . $DBH->quote($form->param("id"));
+        push @_, "sn!=" . $self->{"sn"} if $self->{"iscur"};
+        if ($form->param("topmost") eq "true") {
+            push @_, "parent IS NULL";
+        } else {
+            push @_, "parent=" . $DBH->quote($form->param("parent"));
+        }
+        $sql = "SELECT * FROM " . $DBH->quote_identifier($self->{"table"})
+            . " WHERE " . join(" AND ", @_) . ";\n";
+        $sth = $DBH->prepare($sql);
+        $sth->execute;
+        return {"msg"=>N_("This category already exists.  You cannot create a duplicated one.")}
+            if $sth->rows > 0;
+    }
+    # OK
+    return;
+}
+
+# _check_parent: Check the parent category
+sub _check_parent : method {
+    local ($_, %_);
+    my ($self, $form, $error, $sth, $sql);
+    $self = $_[0];
+    $form = $self->{"form"};
+    # "topmost not set" has a different form context
+    return {"msg"=>N_("Please select a parent category.")}
+        if $self->_missing("topmost");
+    # Regularize it
+    $self->_trim("topmost");
+    # Check the option value
+    return {"msg"=>N_("This option is invalid.  Please select a proper parent category.")}
+        unless $form->param("topmost") =~ /^(?:true|false)$/;
+    # Check the parent category if not a topmost category
+    if ($form->param("topmost") eq "false") {
+        # Check if it exists
+        $error = $self->_missing("parent");
+        return $error if defined $error;
+        # Regularize it
+        $self->_trim("parent");
+        # Check if it is filled
+        return {"msg"=>N_("Please select a parent category.")}
+            if $form->param("parent") eq "";
+        # Check if this category exists
+        return {"msg"=>N_("This parent category does not exist anymore.  Please select another one.")}
+            if !check_sn_in ${$form->param_fetch("parent")}[0], "linkcat";
+        if ($self->{"iscur"}) {
+            # Check if the parent category is itself
+            return {"msg"=>N_("A category cannot belong to itself.  Please select another one.")}
+                if $form->param("parent") == $self->{"sn"};
+            # Check if the parent directory is its descendant
+            $sql = "SELECT linkcat_ischild(" . $self->{"sn"} . ", "
+                . $form->param("parent") . ") AS is_child;\n";
+            $sth = $DBH->prepare($sql);
+            $sth->execute;
+            return {"msg"=>N_("A category cannot belong to its descendant.  Please select another one.")}
+                if ${$sth->fetchrow_hashref}{"is_child"};
+        }
+    }
+    # OK
+    return;
+}
+
+return 1;