Index: ossp-pkg/tabea/TABEA/Tabea.pm
RCS File: /v/ossp/cvs/ossp-pkg/tabea/TABEA/Tabea.pm,v
rcsdiff -q -kk '-r1.1' '-r1.2' -u '/v/ossp/cvs/ossp-pkg/tabea/TABEA/Tabea.pm,v' 2>/dev/null
--- Tabea.pm	2002/07/05 13:26:35	1.1
+++ Tabea.pm	2002/07/18 13:56:25	1.2
@@ -27,72 +27,147 @@
 ##  OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 ##  SUCH DAMAGE.
 ##
-##  Tabea.pm: Tabea Perl Module
+##  Tabea.pm: Tabea Module
 ##
 
 
 package TABEA::Tabea;
 require 5.000;
-
+use IO::File;
 
 sub new{
+    #  Currently the only supported $type is "HTML2" which causes only
+    #  tags described in RFC1866 to be used.  When a menu is rendered,
+    #  some elements may require uniqe names in a scope wider than
+    #  known by this module, i.e. when two configs are presented on one
+    #  screen or along with other information, so every item is
+    #  prefixed with $prefix.
+    my $proto = shift;
+    my $class = ref($proto) || $proto || "TABEA::Tabea.pm" ;
     my ($config, $prefix) = @_;
-    my $handle = 0;
+    my $cfgfh;
 
-    return $handle;
+    my $self = {};
+    $self->{Config} = $config;
+    $self->{Prefix} = $prefix;
+    $cfgfh = new IO::File ("<".$self->{Config}) || die ;
+    while (<$cfgfh>) {
+        $self->{Configuration} .= $_;
+    }
+    $cfgfh->close();
+    
+    bless($self, $class);
+     
+    return $self;
 }
 
 
 sub load{
-    my ($data) = @_;
+    #  Reads $data and sets the value of items.
+    my $self = shift;
     my $rc = 1;
 
+    if (! @_) { $rc = 0 };
+    my ($data) = @_;
+
+    print "TABEA::Tabea $data load funtion\n";
+ 
     return $rc;
 }
 
 
 sub save {
-    my ($data) = @_;
+    #  Writes items including their values.
+    my $self = shift;
     my $rc = 1;
 
+    if (! @_) { $rc = 0 };
+    my ($data) = @_;
+
+    print "TABEA::Tabea $data save funtion\n";
+ 
     return $rc;
+
 }
 
 
 sub parse {
-    my ($type, $buffer) = @_;
-    my $rc;
-  
-  
+
+    my $self = shift;
+    my $rc = 1;
+
+    if (! @_) { $rc = 0 };
+    my ($param) = @_;
+
+    print "TABEA::Tabea $param parse funtion\n";
+ 
     return $rc;
 }
 
 
 
 sub render {
-    my ($type, $buffer) = @_;
-    my $rc;
+    #  Renders a menu and writes it into the buffer. The contents of the
+    #  buffer can be merged into a larger output. Values are verified
+    #  and invalid data is marked (FIXME how? red, reset to default,
+    #  configurable behaviour, configurable error messages ...) The
+    #  caller must finally print out the menu and when an input comes
+    #  back it must identify menu activity (i.e. by checking the
+    #  prefix) and call render again and again or execute some action.
+    my $self = shift;
+    my $rc = 1;
 
+    if (! @_) { $rc = 0 };
+    my ($buffer) = @_;
+
+    $buffer .= $self->{Configuration};
     
-    return $rc;
+    return $buffer, $rc;
 }
 
 sub import{
+    #  Reads a legacy (manually edited or previously exported) file and
+    #  tries to match out values.
+    my $self = shift;
+    my $rc = 1;
+
+    if (! @_) { $rc = 0 };
     my ($legacyfile) = @_;
-    my $rc;
-    
-     
-    return $rc;   
+
+    my $legacyfh;
+    my $newdata = "";
+
+    print "TABEA::Tabea import " . $legacyfile . "funtion\n";
+
+    $legacyfh = new IO::File ("<".$legacyfile) || die ;
+    while (<legacyfh>) {
+        $newdata .= $_;
+    }
+    $legacyfh->close();
+ 
+    return $rc;
 }
 
 
 
 sub export{
+    #  Applies variable substitution for a template and writes the
+    #  result out to exportfile.
+    my $self = shift;
+    my $rc = 1;
+
+    if (! @_) { $rc = 0 };
     my ($template, $exportfile) = @_;
-    my $rc;
-    
-     
-    return $rc;   
+    my $exportfh;
+
+    print "TABEA::Tabea $template, $exportfile export funtion\n";
+
+    $exportfh = new IO::File (">".$exportfile) || die "Cannot open $exportfile for writing.";
+    print $exportfh $template;
+    $exportfh->close();
+
+    return $rc;
+
 }
 
 
@@ -101,10 +176,13 @@
 
 
 sub destroy{
-    my $rc;
+    my $self = shift;
+    my $rc = 1;
 
-    return $rc.
-  
+
+    print "TABEA::Tabea $self destroy funtion\n";
+ 
+    return $rc;
 }