[Kick-developers] CVS: kick werte,1.2,1.3 eintrag,1.2,1.3 buche,1.2,1.3 Kick.pm,1.1.1.1,1.2 GetOption.pm,1.1.1.1,1.2

[Michael R. <mr...@us...>]

Update of /cvsroot/kick/kick
In directory usw-pr-cvs1:/tmp/cvs-serv3789

Modified Files:
	werte eintrag buche Kick.pm GetOption.pm 
Log Message:
Variable PASS (pass_through Ersatz) eingefügt

Index: werte
===================================================================
RCS file: /cvsroot/kick/kick/werte,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** werte	2001/09/30 20:43:16	1.2
--- werte	2001/10/03 19:36:41	1.3
***************
*** 16,20 ****
  
  my %opt;
! Getopt::Long::config('pass_through');
  Options (
      \%opt,
--- 16,20 ----
  
  my %opt;
! $GetOption::PASS = 1;
  Options (
      \%opt,
***************
*** 26,29 ****
--- 26,30 ----
      "bemerkung=s",
  );
+ $GetOption::PASS = 0;
  
  # Parameter prüfen
***************
*** 121,124 ****
--- 122,128 ----
  
      $Log$
+     Revision 1.3  2001/10/03 19:36:41  mrau
+     Variable PASS (pass_through Ersatz) eingefügt
+ 
      Revision 1.2  2001/09/30 20:43:16  mrau
      Perl Location auf /perl/bin geändert

Index: eintrag
===================================================================
RCS file: /cvsroot/kick/kick/eintrag,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** eintrag	2001/09/30 20:43:16	1.2
--- eintrag	2001/10/03 19:36:41	1.3
***************
*** 17,21 ****
  
  my %opt;
! Getopt::Long::config('pass_through');
  GetOptions (
      \%opt,
--- 17,21 ----
  
  my %opt;
! $GetOption::PASS = 1;
  GetOptions (
      \%opt,
***************
*** 29,32 ****
--- 29,33 ----
      "entfernen|loeschen",
  );
+ $GetOption::PASS = 0;
  
  # Parameter prüfen
***************
*** 317,320 ****
--- 318,324 ----
  
      $Log$
+     Revision 1.3  2001/10/03 19:36:41  mrau
+     Variable PASS (pass_through Ersatz) eingefügt
+ 
      Revision 1.2  2001/09/30 20:43:16  mrau
      Perl Location auf /perl/bin geändert

Index: buche
===================================================================
RCS file: /cvsroot/kick/kick/buche,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** buche	2001/09/30 20:43:16	1.2
--- buche	2001/10/03 19:36:41	1.3
***************
*** 16,21 ****
  
  my %opt;
! Getopt::Long::config('pass_through');
! Options (
      \%opt,              # MUSS-Feld Validierung
      "datum=s",          #     x          x
--- 16,20 ----
  
  my %opt;
! &Options (
      \%opt,              # MUSS-Feld Validierung
      "datum=s",          #     x          x
***************
*** 414,417 ****
--- 413,419 ----
  
      $Log$
+     Revision 1.3  2001/10/03 19:36:41  mrau
+     Variable PASS (pass_through Ersatz) eingefügt
+ 
      Revision 1.2  2001/09/30 20:43:16  mrau
      Perl Location auf /perl/bin geändert
***************
*** 436,438 ****
  
  =cut
! :endofperl
--- 438,440 ----
  
  =cut
! :endofperl
\ No newline at end of file

Index: Kick.pm
===================================================================
RCS file: /cvsroot/kick/kick/Kick.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** Kick.pm	2001/09/29 09:07:43	1.1.1.1
--- Kick.pm	2001/10/03 19:36:41	1.2
***************
*** 95,99 ****
      # DB Optionen lesen
  
!     Getopt::Long::config("pass_through");
      my %param;
      Options (
--- 95,99 ----
      # DB Optionen lesen
  
!     $GetOption::PASS = 1;
      my %param;
      Options (
***************
*** 106,110 ****
          "errorlk=s",
      );
!     Getopt::Long::config("nopass_through");
  
      # connect to Db
--- 106,110 ----
          "errorlk=s",
      );
!     $GetOption::PASS = 0;
  
      # connect to Db
***************
*** 3939,3942 ****
--- 3939,3945 ----
  
      $Log$
+     Revision 1.2  2001/10/03 19:36:41  mrau
+     Variable PASS (pass_through Ersatz) eingefügt
+ 
      Revision 1.1.1.1  2001/09/29 09:07:43  mrau
  

Index: GetOption.pm
===================================================================
RCS file: /cvsroot/kick/kick/GetOption.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** GetOption.pm	2001/09/29 09:07:28	1.1.1.1
--- GetOption.pm	2001/10/03 19:36:41	1.2
***************
*** 15,19 ****
      require 5.004;
      use Exporter ();
!     use vars     qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
      $VERSION = do{my@r=q$Revision$=~/\d+/g;sprintf '%d.'.'%02d'x$#r,@r};
  
--- 15,19 ----
      require 5.004;
      use Exporter ();
!     use vars     qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $PASS);
      $VERSION = do{my@r=q$Revision$=~/\d+/g;sprintf '%d.'.'%02d'x$#r,@r};
  
***************
*** 33,36 ****
--- 33,37 ----
  use vars @EXPORT, @EXPORT_OK;
  
+ $PASS = 0;
  1;
  
***************
*** 42,46 ****
      push @_, "h";
  
!     GetOptions ($hash, @_);
  
      # Standardparameter lesen
--- 43,51 ----
      push @_, "h";
  
!     &Getopt::Long::Configure('pass_through');
!     &GetOptions ($hash, @_);
!     if (@ARGV) {
!         die "Unbekannte Option @ARGV" unless ($PASS)
!     }
  
      # Standardparameter lesen
***************
*** 167,170 ****
--- 172,178 ----
  
      $Log$
+     Revision 1.2  2001/10/03 19:36:41  mrau
+     Variable PASS (pass_through Ersatz) eingefügt
+ 
      Revision 1.1.1.1  2001/09/29 09:07:28  mrau