imacat/selima-perl
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial commit.

Browse Source
This commit is contained in:
依瑪貓
2026-03-10 21:25:26 +08:00
commit 78739bf725
3089 changed files with 472990 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

159
lib/perl5/Selima/Processor/UserPref.pm Normal file
View File

@@ -0,0 +1,159 @@
# Selima Website Content Management System
# UserPref.pm: The user preference 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-17
package Selima::Processor::UserPref;
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::UserName;
# new: Initialize the processor
sub new : method {
local ($_, %_);
my ($self, $class);
($class, @_) = @_;
$_[1] = "userpref" 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"});
if ($self->{"type"} ne "del") {
# Set the "everyone" user
$form->delete("usr") if defined $form->param("everyone")
&& $form->param("everyone") eq "true";
# Set the "everywhere" domain
$form->delete("domain") if defined $form->param("everywhere")
&& $form->param("everywhere") 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("usr", $self->_form("usr"));
$self->{"cols"}->addstr("domain", $self->_form("domain"));
$self->{"cols"}->addstr("name", $self->_form("name"));
$self->{"cols"}->addstr_empty("value", $self->_form("value"));
# A form to edit a current item
} elsif ($self->{"type"} eq "cur") {
$self->{"cols"} = new Selima::AddCol($self->{"table"}, ADDCOL_UPDATE);
$self->{"cols"}->addnum("usr", $self->_form("usr"), scalar $cur->param("usr"));
$self->{"cols"}->addstr("domain", $self->_form("domain"), scalar $cur->param("domain"));
$self->{"cols"}->addstr("name", $self->_form("name"), scalar $cur->param("name"));
$self->{"cols"}->addstr_empty("value", $self->_form("value"), scalar $cur->param("value"));
}
return;
}
# _actlog: Log the activity
sub _actlog : method {
local ($_, %_);
my ($self, $form, $cur, $user, $domain);
$self = $_[0];
($form, $cur) = ($self->{"form"}, $self->{"cur"});
# A form to create a new item
if ($self->{"type"} eq "new") {
if ( defined $form->param("everyone")
&& $form->param("everyone") eq "true") {
$user = "everyone";
} elsif (!defined $form->param("usr")) {
$user = "everyone";
} else {
$user = userid $form->param("usr");
}
if ( defined $form->param("everywhere")
&& $form->param("everywhere") eq "true") {
$domain = "everywhere";
} elsif (!defined $form->param("domain")) {
$domain = "everywhere";
} else {
$domain = $form->param("domain");
}
return gactlog "Create a user preference \"" . $form->param("name") . "\""
. " of $user for $domain"
. " with s/n " . $self->{"sn"} . ".";
# A form to edit a current item
} elsif ($self->{"type"} eq "cur") {
if ( defined $form->param("everyone")
&& $form->param("everyone") eq "true") {
$user = "everyone";
} elsif (!defined $form->param("usr")) {
$user = "everyone";
} else {
$user = userid $form->param("usr");
}
if ( defined $form->param("everywhere")
&& $form->param("everywhere") eq "true") {
$domain = "everywhere";
} elsif (!defined $form->param("domain")) {
$domain = "everywhere";
} else {
$domain = $form->param("domain");
}
return gactlog "Update the user preference \"" . $form->param("name") . "\""
. " of $user for $domain"
. " with s/n " . $self->{"sn"} . ".";
# A form to delete a current item
} elsif ($self->{"type"} eq "del") {
$user = defined $cur->param("usr")?
userid $cur->param("usr"): "everyone";
$domain = defined $cur->param("domain")?
$cur->param("domain"): "everywhere";
return gactlog "Delete the user preference \"" . $cur->param("name") . "\""
. " of $user for $domain"
. " with s/n " . $self->{"sn"} . ".";
}
}
# _ret_status: Return the process status
sub _ret_status : method {
local ($_, %_);
my $self;
$self = $_[0];
return {"msg"=>N_("This user preference was not modified."),
"isform"=>0}
if !$self->_modified;
# A form to create a new item
return {"msg"=>N_("This user preference has been successfully added."),
"isform"=>0}
if $self->{"type"} eq "new";
# A form to edit a current item
return {"msg"=>N_("This user preference has been successfully updated."),
"isform"=>0}
if $self->{"type"} eq "cur";
# A form to delete a current item
return {"msg"=>N_("This user preference has been successfully deleted."),
"isform"=>0}
if $self->{"type"} eq "del";
}
return 1;