*** /dev/null Sat Nov 23 05:50:34 2024
--- - Sat Nov 23 05:50:39 2024
***************
*** 0 ****
--- 1,114 ----
+ #!/usr/opkg/bin/perl -w
+ ##
+ ## OSSP tabea - Web Configuration Editor
+ ## The Tabea Perl Module
+ ##
+ ## Copyright (c) 2001-2002 The OSSP Project <http://www.ossp.org/>
+ ## Copyright (c) 2001-2002 Cable & Wireless Deutschland <http://www.cw.com/de/>
+ ##
+ ## This file is part of OSSP tabea, a web configuration editor
+ ## which can be found at http://www.ossp.org/pkg/tool/tabea/.
+ ##
+ ## Permission to use, copy, modify, and distribute this software for
+ ## any purpose with or without fee is hereby granted, provided that
+ ## the above copyright notice and this permission notice appear in all
+ ## copies.
+ ##
+ ## THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
+ ## WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+ ## MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+ ## IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR
+ ## CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+ ## SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+ ## LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
+ ## USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+ ## ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+ ## OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
+ ## OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ ## SUCH DAMAGE.
+ ##
+ ## Tabea.pm: Tabea Perl Module
+ ##
+
+
+ package TABEA::Tabea;
+ require 5.000;
+
+
+ sub new{
+ my ($config, $prefix) = @_;
+ my $handle = 0;
+
+ return $handle;
+ }
+
+
+ sub load{
+ my ($data) = @_;
+ my $rc = 1;
+
+ return $rc;
+ }
+
+
+ sub save {
+ my ($data) = @_;
+ my $rc = 1;
+
+ return $rc;
+ }
+
+
+ sub parse {
+ my ($type, $buffer) = @_;
+ my $rc;
+
+
+ return $rc;
+ }
+
+
+
+ sub render {
+ my ($type, $buffer) = @_;
+ my $rc;
+
+
+ return $rc;
+ }
+
+ sub import{
+ my ($legacyfile) = @_;
+ my $rc;
+
+
+ return $rc;
+ }
+
+
+
+ sub export{
+ my ($template, $exportfile) = @_;
+ my $rc;
+
+
+ return $rc;
+ }
+
+
+
+
+
+
+ sub destroy{
+ my $rc;
+
+ return $rc.
+
+ }
+
+
+
+
+
+ 1;
|
