[NetScript CVS] CVS: netscript2/src/perl/NetScript/Libraries DatabaseLibrary.pm,1.1,1.2

[Jan T. <de...@us...>]

Update of /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries
In directory usw-pr-cvs1:/tmp/cvs-serv16127

Modified Files:
	DatabaseLibrary.pm 
Log Message:
* changed interface to be consistent in all libraries

Index: DatabaseLibrary.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/DatabaseLibrary.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** DatabaseLibrary.pm	7 Aug 2002 20:13:55 -0000	1.1
--- DatabaseLibrary.pm	21 Aug 2002 10:34:44 -0000	1.2
***************
*** 24,28 ****
  # <pre>
  #   &lt;db:settings
! #           name=&quot;MyDBSettings&quot;
  #           host=&quot;host.to.your.db&quot;
  #           database=&quot;database-name&quot;
--- 24,28 ----
  # <pre>
  #   &lt;db:settings
! #           handle=&quot;MyDBSettings&quot;
  #           host=&quot;host.to.your.db&quot;
  #           database=&quot;database-name&quot;
***************
*** 35,39 ****
  # getting a resultset. This is done in the following way:
  # <pre>
! #   &lt;db:exec db=&quot;MyDBSettings&quot; 
  #       query=&quot;{SQL-QUERY HERE}&quot; [{name|var}=&quot;{Variable here}&quot];/&gt;
  # </pre>
--- 35,39 ----
  # getting a resultset. This is done in the following way:
  # <pre>
! #   &lt;db:exec handle=&quot;MyDBSettings&quot; 
  #       query=&quot;{SQL-QUERY HERE}&quot; [{name|var}=&quot;{Variable here}&quot];/&gt;
  # </pre>
***************
*** 58,64 ****
  #   <pre>
  #       &lt;example&gt;
! #           &lt;db:settings name=&quot;myDB&quot;
  #                   host=&quot;my.db.com&quot;
- #                   port=&quot;6666&quot;
  #                   database=&quot;KorksDB&quot;
  #                   type=&quot;MySQL&quot;
--- 58,63 ----
  #   <pre>
  #       &lt;example&gt;
! #           &lt;db:settings handle=&quot;myDB&quot;
  #                   host=&quot;my.db.com&quot;
  #                   database=&quot;KorksDB&quot;
  #                   type=&quot;MySQL&quot;
***************
*** 147,155 ****
      $settings{ "password" } = $node -> getAttribute( "password" );
      $settings{ "database" } = $node -> getAttribute( "database" );
!     my $name = $node -> getAttribute( "name" );
      unless( defined( $name ) ) {
          $this -> interpreter() -> getEventRelay() -> createAndRaiseEvent(
                  $NetScript::Interpreter::FATAL_EVENT, 
!                 "You must specify a name for your DB-Settings." );
          return;                
          }
--- 146,154 ----
      $settings{ "password" } = $node -> getAttribute( "password" );
      $settings{ "database" } = $node -> getAttribute( "database" );
!     my $name = $node -> getAttribute( "handle" );
      unless( defined( $name ) ) {
          $this -> interpreter() -> getEventRelay() -> createAndRaiseEvent(
                  $NetScript::Interpreter::FATAL_EVENT, 
!                 "You must specify a handle for your DB-Settings." );
          return;                
          }
***************
*** 165,169 ****
  sub runStatement {
      my ( $this, $domWalker, $node )  = @_;
!     my $dbName = $node -> getAttribute( "db" );
      if ( $dbName eq "" ) {
          $this -> interpreter() -> getEventRelay() -> createAndRaiseEvent(
--- 164,168 ----
  sub runStatement {
      my ( $this, $domWalker, $node )  = @_;
!     my $dbName = $node -> getAttribute( "handle" );
      if ( $dbName eq "" ) {
          $this -> interpreter() -> getEventRelay() -> createAndRaiseEvent(