Initial commit.
This commit is contained in:
70
htdocs/wov/magicat/lib/perl5/Selima/wov.pm
Normal file
70
htdocs/wov/magicat/lib/perl5/Selima/wov.pm
Normal file
@@ -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;
|
||||
Reference in New Issue
Block a user