You can subscribe to this list here.
2001 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
(9) |
Oct
(23) |
Nov
|
Dec
|
---|---|---|---|---|---|---|---|---|---|---|---|---|
2002 |
Jan
|
Feb
|
Mar
(20) |
Apr
(4) |
May
(1) |
Jun
|
Jul
|
Aug
|
Sep
(3) |
Oct
|
Nov
|
Dec
|
From: Michael R. <mr...@us...> - 2002-03-19 08:36:52
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv2359 Added Files: init.masql init.mysql Log Message: Zwei SQL-Initialisierungen für MS Access und MySql --- NEW FILE: init.masql --- // // SKRIPT ZUR INITIALISIERUNG DER DATENBANK // ============================================================================ // RVS Status : $State: Exp $ // Author : $Author: mrau $ // Last Modified : $Date: 2002/03/19 08:36:49 $ // Revision : $Revision: 1.1 $ // // Objekt Tabellen anlegen CREATE TABLE teilhaber ( id AUTOINCREMENT PRIMARY KEY, nachname CHAR(50) NOT NULL, vorname CHAR(50) NOT NULL, strasse CHAR(50), plz CHAR(5), ort CHAR(50), telefon CHAR(20), kontonummer CHAR(20), blz CHAR(20), bank CHAR(50), email CHAR(50), geschlecht INT, CONSTRAINT idx UNIQUE (nachname, vorname) ); CREATE TABLE konten ( id AUTOINCREMENT PRIMARY KEY, titel CHAR(50) NOT NULL, bank CHAR(50), kontonummer CHAR(15), blz CHAR(20), CONSTRAINT idx UNIQUE (titel) ); CREATE TABLE posten ( id AUTOINCREMENT PRIMARY KEY, titel CHAR(50) NOT NULL, CONSTRAINT idx UNIQUE (titel) ); CREATE TABLE depots ( id AUTOINCREMENT PRIMARY KEY, titel CHAR(50) NOT NULL, CONSTRAINT idx UNIQUE (titel) ); CREATE TABLE wptypen ( id AUTOINCREMENT PRIMARY KEY, titel CHAR(50) NOT NULL, CONSTRAINT idx UNIQUE (titel) ); CREATE TABLE wertpapiere ( id AUTOINCREMENT PRIMARY KEY, titel CHAR(50) NOT NULL, xdepot INT REFERENCES depots(id) NOT NULL, xwptyp INT REFERENCES wptypen(id) NOT NULL, CONSTRAINT idx UNIQUE (titel) ); CREATE TABLE abschluss ( datum DATE PRIMARY KEY NOT NULL, id AUTOINCREMENT, preis DOUBLE, CONSTRAINT idx UNIQUE (id) ); // Standardwerte anlegen INSERT INTO posten (titel) VALUES ('Einzahlung'); INSERT INTO posten (titel) VALUES ('Auszahlung'); INSERT INTO posten (titel) VALUES ('Ankauf'); INSERT INTO posten (titel) VALUES ('Verkauf'); INSERT INTO posten (titel) VALUES ('Dividende'); INSERT INTO posten (titel) VALUES ('Umbuchung'); INSERT INTO posten (titel) VALUES ('__Merker__'); // Transaktions Tabellen anlegen CREATE TABLE bbuchungen ( id AUTOINCREMENT PRIMARY KEY, datum date NOT NULL, waehrung double, betrag double NOT NULL, bemerkung CHAR(50), xPosten INT REFERENCES posten(id) NOT NULL, xEnde INT REFERENCES abschluss(id) NOT NULL, xKonto INT REFERENCES konten(id) NOT NULL ); CREATE TABLE tbuchungen ( id AUTOINCREMENT PRIMARY KEY, datum date NOT NULL, waehrung double, betrag double NOT NULL, anteile double NOT NULL, bemerkung CHAR(50), xPosten INT REFERENCES posten(id) NOT NULL, xKonto INT REFERENCES konten(id) NOT NULL, xEnde INT REFERENCES abschluss(id) NOT NULL, xTeilhaber INT REFERENCES teilhaber(id) NOT NULL ); CREATE TABLE ubuchungen ( id AUTOINCREMENT PRIMARY KEY, datum date NOT NULL, waehrung double, betrag double NOT NULL, bemerkung CHAR(50), xPosten INT REFERENCES posten(id) NOT NULL, xKonto INT REFERENCES konten(id) NOT NULL, xEnde INT REFERENCES abschluss(id) NOT NULL, xBuchung INT REFERENCES bBuchungen(id) NOT NULL ); CREATE TABLE abuchungen ( id AUTOINCREMENT PRIMARY KEY, datum date NOT NULL, waehrung double, bemerkung CHAR(50), xPosten INT REFERENCES posten(id) NOT NULL, xKonto INT REFERENCES konten(id) NOT NULL, anteile DOUBLE, kurs DOUBLE, gebuehr DOUBLE, xEnde INT REFERENCES abschluss(id) NOT NULL, xWPapier INT REFERENCES wertpapiere (id) NOT NULL ); CREATE TABLE dbuchungen ( id AUTOINCREMENT PRIMARY KEY, datum date NOT NULL, waehrung double, betrag double NOT NULL, bemerkung CHAR(50), steuer double, xPosten INT REFERENCES posten(id) NOT NULL, xKonto INT REFERENCES konten(id) NOT NULL, xEnde INT REFERENCES abschluss(id) NOT NULL, xWPapier INT REFERENCES wertpapiere (id) NOT NULL ); CREATE TABLE wertungen ( id AUTOINCREMENT PRIMARY KEY, datum date NOT NULL, waehrung DOUBLE, kurs double NOT NULL, bemerkung CHAR(50), xEnde INT REFERENCES abschluss(id) NOT NULL, xWPapier INT REFERENCES wertpapiere (id) NOT NULL ); --- NEW FILE: init.mysql --- // // SKRIPT ZUR INITIALISIERUNG DER DATENBANK // ============================================================================ // RVS Status : $State: Exp $ // Author : $Author: mrau $ // Last Modified : $Date: 2002/03/19 08:36:49 $ // Revision : $Revision: 1.1 $ // // Objekt Tabellen anlegen CREATE TABLE teilhaber ( id INT PRIMARY KEY NOT NULL AUTO_INCREMENT, nachname CHAR(50) NOT NULL, vorname CHAR(50) NOT NULL, strasse CHAR(50), plz CHAR(5), ort CHAR(50), telefon CHAR(20), kontonummer CHAR(20), blz CHAR(20), bank CHAR(50), email CHAR(50), geschlecht INT, CONSTRAINT idx UNIQUE (nachname, vorname) ); CREATE TABLE konten ( id INT PRIMARY KEY NOT NULL AUTO_INCREMENT, titel CHAR(50) NOT NULL, bank CHAR(50), kontonummer CHAR(15), blz CHAR(20), CONSTRAINT idx UNIQUE (titel) ); CREATE TABLE posten ( id INT PRIMARY KEY NOT NULL AUTO_INCREMENT, titel CHAR(50) NOT NULL, CONSTRAINT idx UNIQUE (titel) ); CREATE TABLE depots ( id INT PRIMARY KEY NOT NULL AUTO_INCREMENT, titel CHAR(50) NOT NULL, CONSTRAINT idx UNIQUE (titel) ); CREATE TABLE wptypen ( id INT PRIMARY KEY NOT NULL AUTO_INCREMENT, titel CHAR(50) NOT NULL, CONSTRAINT idx UNIQUE (titel) ); CREATE TABLE wertpapiere ( id INT PRIMARY KEY NOT NULL AUTO_INCREMENT, titel CHAR(50) NOT NULL, xdepot INT NOT NULL REFERENCES depots(id), xwptyp INT NOT NULL REFERENCES wptypen(id), CONSTRAINT idx UNIQUE (titel) ); CREATE TABLE abschluss ( datum DATE PRIMARY KEY NOT NULL, id INT NOT NULL AUTO_INCREMENT, preis DOUBLE, CONSTRAINT idx UNIQUE (id) ); // Standardwerte anlegen INSERT INTO posten (titel) VALUES ('Einzahlung'); INSERT INTO posten (titel) VALUES ('Auszahlung'); INSERT INTO posten (titel) VALUES ('Ankauf'); INSERT INTO posten (titel) VALUES ('Verkauf'); INSERT INTO posten (titel) VALUES ('Dividende'); INSERT INTO posten (titel) VALUES ('Umbuchung'); INSERT INTO posten (titel) VALUES ('__Merker__'); // Transaktions Tabellen anlegen CREATE TABLE bbuchungen ( id INT PRIMARY KEY NOT NULL AUTO_INCREMENT, datum date NOT NULL, waehrung double, betrag double NOT NULL, bemerkung CHAR(50), xPosten INT NOT NULL REFERENCES posten(id), xEnde INT NOT NULL REFERENCES abschluss(id), xKonto INT NOT NULL REFERENCES konten(id) ); CREATE TABLE tbuchungen ( id INT PRIMARY KEY NOT NULL AUTO_INCREMENT, datum date NOT NULL, waehrung double, betrag double NOT NULL, anteile double NOT NULL, bemerkung CHAR(50), xPosten INT NOT NULL REFERENCES posten(id), xKonto INT NOT NULL REFERENCES konten(id), xEnde INT NOT NULL REFERENCES abschluss(id), xTeilhaber INT NOT NULL REFERENCES teilhaber(id) ); CREATE TABLE ubuchungen ( id INT PRIMARY KEY NOT NULL AUTO_INCREMENT, datum date NOT NULL, waehrung double, betrag double NOT NULL, bemerkung CHAR(50), xPosten INT NOT NULL REFERENCES posten(id), xKonto INT NOT NULL REFERENCES konten(id), xEnde INT NOT NULL REFERENCES abschluss(id), xBuchung INT NOT NULL REFERENCES bBuchungen(id) ); CREATE TABLE abuchungen ( id INT PRIMARY KEY NOT NULL AUTO_INCREMENT, datum date NOT NULL, waehrung double, bemerkung CHAR(50), xPosten INT NOT NULL REFERENCES posten(id), xKonto INT NOT NULL REFERENCES konten(id), anteile DOUBLE, kurs DOUBLE, gebuehr DOUBLE, xEnde INT NOT NULL REFERENCES abschluss(id), xWPapier INT NOT NULL REFERENCES wertpapiere (id) ); CREATE TABLE dbuchungen ( id INT PRIMARY KEY NOT NULL AUTO_INCREMENT, datum date NOT NULL, waehrung double, betrag double NOT NULL, bemerkung CHAR(50), steuer double, xPosten INT NOT NULL REFERENCES posten(id), xKonto INT NOT NULL REFERENCES konten(id), xEnde INT NOT NULL REFERENCES abschluss(id), xWPapier INT NOT NULL REFERENCES wertpapiere (id) ); CREATE TABLE wertungen ( id INT PRIMARY KEY NOT NULL AUTO_INCREMENT, datum date NOT NULL, waehrung DOUBLE, kurs double NOT NULL, bemerkung CHAR(50), xEnde INT NOT NULL REFERENCES abschluss(id), xWPapier INT NOT NULL REFERENCES wertpapiere (id) ); |
From: Michael R. <mr...@us...> - 2002-03-19 08:34:29
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv1882 Added Files: .autocommit .password .user Log Message: Parameter zur Kompatibilität mit MySql --- NEW FILE: .autocommit --- 1 --- NEW FILE: .password --- metheny --- NEW FILE: .user --- admin |
From: Michael R. <mr...@us...> - 2002-03-19 08:33:29
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv1615 Removed Files: Tools.pm Log Message: Routinen sind jetzt in Kick.pm enthalten --- Tools.pm DELETED --- |
From: Michael R. <mr...@us...> - 2001-10-23 20:40:27
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv7938 Modified Files: tsaldo Log Message: BugFix beim Child-Prozess Aufruf Index: tsaldo =================================================================== RCS file: /cvsroot/kick/kick/tsaldo,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** tsaldo 2001/10/04 23:16:42 1.4 --- tsaldo 2001/10/23 20:40:23 1.5 *************** *** 10,15 **** my $com = sprintf 'tauszg -summe %s', join ' ', map { $_ =~ /^\-/ ? $_ : '"'.$_.'"' } @ARGV; - print `$com`; __END__ --- 10,19 ---- my $com = sprintf 'tauszg -summe %s', join ' ', map { $_ =~ /^\-/ ? $_ : '"'.$_.'"' } @ARGV; + # mrau: 23.10.01 21:55 + # Bugfix + + print `perl $com`; + __END__ *************** *** 38,41 **** --- 42,48 ---- $Log$ + Revision 1.5 2001/10/23 20:40:23 mrau + BugFix beim Child-Prozess Aufruf + Revision 1.4 2001/10/04 23:16:42 mrau Bugfix :endofperl behoben |
From: Michael R. <mr...@us...> - 2001-10-23 20:39:57
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv7713 Modified Files: ksh Log Message: Option <leise>, <dateiname> eingeführt; Erweiterte Syntax-Prüfung Index: ksh =================================================================== RCS file: /cvsroot/kick/kick/ksh,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** ksh 2001/10/04 23:16:42 1.4 --- ksh 2001/10/23 20:39:54 1.5 *************** *** 12,15 **** --- 12,16 ---- use Kick; use strict; + use GetOption; my $interactive = 1; *************** *** 18,21 **** --- 19,35 ---- } + # parameters + + # mrau: 23.10.01 21:08 + # Default Option + # Neue Option: -leise + + my %opt; + Options ( + \%opt, + "leise", + "?dateiname:s", + ); + my ($lines); my $cursor = 0; *************** *** 25,29 **** # add current line ! if (!$interactive) { print $_; if ($_ !~ /\n$/) { --- 39,43 ---- # add current line ! if ((!$interactive) && (!$opt { leise })) { print $_; if ($_ !~ /\n$/) { *************** *** 32,35 **** --- 46,63 ---- } chomp($_); + + # mrau: 23.10.01 21:31 + # Prüfe auf geschlossene Anführungszeichen + + if (!$interactive) { + my $c = 0; + while ($_ =~ /\"/gis) { + $c++; + } + if ($c % 2) { + die "Nicht geschloessene Anfuehrungszeichen"; + } + } + $lines .= Trim($_)." "; *************** *** 69,73 **** do ($com); if ($@ && !$interactive) { ! print $@; &Rollback; exit; --- 97,106 ---- do ($com); if ($@ && !$interactive) { ! ! # mrau: 23.10.01 21:53 ! # Aussagekräftige Fehlermeldung ! ! my ($msg, $modul, $line, $input) = $@ =~ /(.*?)\sat\s(.*?)\sline\s(\d+)\,\s\<\>\sline\s(\d+)/; ! printf "Zeile %d: %s.\nModul %s (Code-Line %d).\n", $input, $msg, $modul, $line; &Rollback; exit; *************** *** 160,163 **** --- 193,199 ---- $Log$ + Revision 1.5 2001/10/23 20:39:54 mrau + Option <leise>, <dateiname> eingeführt; Erweiterte Syntax-Prüfung + Revision 1.4 2001/10/04 23:16:42 mrau Bugfix :endofperl behoben |
From: Michael R. <mr...@us...> - 2001-10-23 20:38:51
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv7318 Modified Files: auszg Log Message: SQL-Fix: Bewertungen ohne Zahlungen werden jetzt auch angezeigt Index: auszg =================================================================== RCS file: /cvsroot/kick/kick/auszg,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** auszg 2001/10/04 23:16:42 1.4 --- auszg 2001/10/23 20:38:48 1.5 *************** *** 75,78 **** --- 75,82 ---- # Einzahlungen + # mrau, 20.10.2001 18:35 + # INNER JOIN in OUTER JOIN umgewandelt, damit auch Bewertungen *ohne* + # Ein-/Auszahlungen im Report erscheinen + my $sql = "SELECT a.datum AS datum, *************** *** 89,97 **** temp FROM ! abschluss a, tbuchungen b WHERE ! b.xEnde = a.id ! AND b.anteile > 0 $interval GROUP BY --- 93,103 ---- temp FROM ! abschluss a ! LEFT OUTER JOIN tbuchungen b + ON + a.id = b.xende WHERE ! b.anteile > 0 $interval GROUP BY *************** *** 102,105 **** --- 108,115 ---- # Auszahlungen + # mrau, 20.10.2001 18:35 + # INNER JOIN in OUTER JOIN umgewandelt, damit auch Bewertungen *ohne* + # Ein-/Auszahlungen im Report erscheinen + $sql = "INSERT INTO temp (datum, az1, a1, p1, p2) *************** *** 111,119 **** MAX(a.preis) FROM ! abschluss a, tbuchungen b WHERE ! b.xEnde = a.id ! AND b.anteile < 0 $interval GROUP BY --- 121,131 ---- MAX(a.preis) FROM ! abschluss a ! LEFT OUTER JOIN tbuchungen b + ON + a.id = b.xende WHERE ! (b.anteile <= 0 OR b.anteile IS NULL) $interval GROUP BY *************** *** 379,382 **** --- 391,397 ---- $Log$ + Revision 1.5 2001/10/23 20:38:48 mrau + SQL-Fix: Bewertungen ohne Zahlungen werden jetzt auch angezeigt + Revision 1.4 2001/10/04 23:16:42 mrau Bugfix :endofperl behoben *************** *** 417,419 **** Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ! =cut --- 432,434 ---- Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ! =cut \ No newline at end of file |
From: Michael R. <mr...@us...> - 2001-10-23 20:38:15
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv7103 Modified Files: aauszg dauszg kauszg tauszg Log Message: Default Parameter definiert Index: aauszg =================================================================== RCS file: /cvsroot/kick/kick/aauszg,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** aauszg 2001/10/04 23:16:42 1.5 --- aauszg 2001/10/23 20:38:12 1.6 *************** *** 21,28 **** # parameters my %opt; Options ( \%opt, ! "wertpapier=s", "kurz", "csv", --- 21,31 ---- # parameters + # mrau: 23.10.01 21:08 + # Default Option + my %opt; Options ( \%opt, ! "?wertpapier=s", "kurz", "csv", *************** *** 405,408 **** --- 408,414 ---- $Log$ + Revision 1.6 2001/10/23 20:38:12 mrau + Default Parameter definiert + Revision 1.5 2001/10/04 23:16:42 mrau Bugfix :endofperl behoben Index: dauszg =================================================================== RCS file: /cvsroot/kick/kick/dauszg,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** dauszg 2001/10/04 23:16:42 1.4 --- dauszg 2001/10/23 20:38:12 1.5 *************** *** 21,28 **** # parameters my %opt; Options ( \%opt, ! "wertpapier=s", "kurz", "csv", --- 21,31 ---- # parameters + # mrau: 23.10.01 21:08 + # Default Option + my %opt; Options ( \%opt, ! "?wertpapier=s", "kurz", "csv", *************** *** 487,490 **** --- 490,496 ---- $Log$ + Revision 1.5 2001/10/23 20:38:12 mrau + Default Parameter definiert + Revision 1.4 2001/10/04 23:16:42 mrau Bugfix :endofperl behoben Index: kauszg =================================================================== RCS file: /cvsroot/kick/kick/kauszg,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** kauszg 2001/10/04 23:16:42 1.5 --- kauszg 2001/10/23 20:38:12 1.6 *************** *** 20,27 **** # parameters my %opt; Options ( \%opt, ! "konto=s", "kurz", "csv", --- 20,30 ---- # parameters + # mrau: 23.10.01 21:08 + # Default Option + my %opt; Options ( \%opt, ! "?konto=s", "kurz", "csv", *************** *** 488,491 **** --- 491,497 ---- $Log$ + Revision 1.6 2001/10/23 20:38:12 mrau + Default Parameter definiert + Revision 1.5 2001/10/04 23:16:42 mrau Bugfix :endofperl behoben Index: tauszg =================================================================== RCS file: /cvsroot/kick/kick/tauszg,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** tauszg 2001/10/14 21:55:52 1.5 --- tauszg 2001/10/23 20:38:12 1.6 *************** *** 21,28 **** # parameters my %opt; Options ( \%opt, ! "teilhaber=s", "kurz", "csv", --- 21,31 ---- # parameters + # mrau: 23.10.01 21:08 + # Default Option + my %opt; Options ( \%opt, ! "?teilhaber=s", "kurz", "csv", *************** *** 507,510 **** --- 510,516 ---- $Log$ + Revision 1.6 2001/10/23 20:38:12 mrau + Default Parameter definiert + Revision 1.5 2001/10/14 21:55:52 mrau Erweiterung der Kurz-Dokumentation |
From: Michael R. <mr...@us...> - 2001-10-23 20:37:14
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv6756 Modified Files: Kick.pm Log Message: Debugging entfnert Index: Kick.pm =================================================================== RCS file: /cvsroot/kick/kick/Kick.pm,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Kick.pm 2001/10/14 21:52:32 1.5 --- Kick.pm 2001/10/23 20:37:11 1.6 *************** *** 1659,1663 **** $param { waehrung } = $param { waehrung } || 1; $param { kurs } = $param { betrag } * $param { waehrung } / $anteile; ! printf "%s = %s * %s / %s", $param { kurs }, $param { betrag }, $param { waehrung }, $anteile; } } --- 1659,1665 ---- $param { waehrung } = $param { waehrung } || 1; $param { kurs } = $param { betrag } * $param { waehrung } / $anteile; ! # mrau: 23.10.01 21:14 ! # Ausgabe der Wertkombination entfernt ! # printf "%s = %s * %s / %s", $param { kurs }, $param { betrag }, $param { waehrung }, $anteile; } } *************** *** 2106,2110 **** } ! print "OK\n"; # Abschluss einfuegen --- 2108,2114 ---- } ! # mrau: 23.10.01 21:12 ! # "OK" gelöscht ! # print "OK\n"; # Abschluss einfuegen *************** *** 3963,3966 **** --- 3967,3973 ---- $Log$ + Revision 1.6 2001/10/23 20:37:11 mrau + Debugging entfnert + Revision 1.5 2001/10/14 21:52:32 mrau Bugfix: -aufloesen; Fkt. _checkAbschluss Bugfix im Vergleich der Datums-Range |
From: Michael R. <mr...@us...> - 2001-10-23 20:36:36
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv6620 Modified Files: GetOption.pm Log Message: Default Parameter eingeführt Index: GetOption.pm =================================================================== RCS file: /cvsroot/kick/kick/GetOption.pm,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** GetOption.pm 2001/10/14 21:50:24 1.4 --- GetOption.pm 2001/10/23 20:36:33 1.5 *************** *** 46,50 **** # Ergebnisparameter 300 ! my @argv; foreach (@ARGV) { if ($_ =~ /^\`(.*?)\`$/) { --- 46,51 ---- # Ergebnisparameter 300 ! my ($default, @argv); ! foreach (@ARGV) { if ($_ =~ /^\`(.*?)\`$/) { *************** *** 57,69 **** @ARGV = @argv; &Getopt::Long::Configure('pass_through'); ! &GetOptions ($hash, @_); if (@ARGV) { ! die "Unbekannte Option @ARGV" unless ($PASS) } # Standardparameter lesen ! foreach (@_) { my ($p) = $_ =~ /(\w+)[\=\:]?/; if ((!exists(${$hash}{$p})) && (-e ".$p")) { --- 58,91 ---- @ARGV = @argv; + # mrau: 23.10.01 21:07 + # Default Option implementiert + # Dazu muss beim Aufruf der Fkt. GetOption die Default-Option + # mit vorgestellten `?` definiert werden. + + my @values; + foreach (@_) { + if ($_ =~ /^\?(.*)/) { + $default = $1; + push @values, $1; + } + else { + push @values, $_; + } + } + &Getopt::Long::Configure('pass_through'); ! &GetOptions ($hash, @values); if (@ARGV) { ! if ($default) { ! ${$hash}{$default} = sprintf '"%s"', (join " ", @ARGV); ! } ! else { ! die "Unbekannte Option @ARGV" unless ($PASS) ! } } # Standardparameter lesen ! foreach (@values) { my ($p) = $_ =~ /(\w+)[\=\:]?/; if ((!exists(${$hash}{$p})) && (-e ".$p")) { *************** *** 186,189 **** --- 208,214 ---- $Log$ + Revision 1.5 2001/10/23 20:36:33 mrau + Default Parameter eingeführt + Revision 1.4 2001/10/14 21:50:24 mrau Parameter Evaluation durch `expr` eingeführt |
From: Michael R. <mr...@us...> - 2001-10-14 21:55:54
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv23262 Modified Files: tauszg Log Message: Erweiterung der Kurz-Dokumentation Index: tauszg =================================================================== RCS file: /cvsroot/kick/kick/tauszg,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** tauszg 2001/10/04 23:16:42 1.4 --- tauszg 2001/10/14 21:55:52 1.5 *************** *** 356,360 **** tauszg -teilhaber [STRING] -von [DATUM] -bis [DATUM] -datum [DATUM-DATUM] ! -kurz -csv -filter [STRING] -hilfe -h =head1 VERSION --- 356,360 ---- tauszg -teilhaber [STRING] -von [DATUM] -bis [DATUM] -datum [DATUM-DATUM] ! -summe -kurz -csv -filter [STRING] -hilfe -h =head1 VERSION *************** *** 507,510 **** --- 507,513 ---- $Log$ + Revision 1.5 2001/10/14 21:55:52 mrau + Erweiterung der Kurz-Dokumentation + Revision 1.4 2001/10/04 23:16:42 mrau Bugfix :endofperl behoben *************** *** 545,547 **** Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ! =cut --- 548,550 ---- Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ! =cut \ No newline at end of file |
From: Michael R. <mr...@us...> - 2001-10-14 21:55:05
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv23061 Modified Files: status Log Message: Bugfix SQL-Statement zur Selektion des 'nächsten' Abschlusses Index: status =================================================================== RCS file: /cvsroot/kick/kick/status,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** status 2001/10/04 23:16:42 1.5 --- status 2001/10/14 21:55:02 1.6 *************** *** 53,57 **** my ($jahr, $monat, $tag); ! &Sql ( sql => (sprintf 'SELECT MAX(datum) FROM abschluss WHERE datum >= %s', &DBDate(&ParseDate($opt { datum })))); if (&ParseDBDate (&Sql_Zelle(0))) { ($jahr, $monat, $tag) = &ParseDBDate (&Sql_Zelle(0)); --- 53,57 ---- my ($jahr, $monat, $tag); ! &Sql ( sql => (sprintf 'SELECT MIN(datum) FROM abschluss WHERE datum >= %s', &DBDate(&ParseDate($opt { datum })))); if (&ParseDBDate (&Sql_Zelle(0))) { ($jahr, $monat, $tag) = &ParseDBDate (&Sql_Zelle(0)); *************** *** 134,144 **** foreach (@result) { my @col = split ";", $_; $col[0] =~ s/^\"//; $col[0] =~ s/\"$//; - $saldo += $col[2]; ! printf " %-26s : %11s %11s %11s %11.2f\n", $col[0], "", "", $col[1], $col[2]; } --- 134,147 ---- foreach (@result) { + # mrau, 09.10.2001 22:30: Check auf Saldo != 0 + my @col = split ";", $_; $col[0] =~ s/^\"//; $col[0] =~ s/\"$//; $saldo += $col[2]; ! if ($col[2] != 0) { ! printf " %-26s : %11s %11s %11s %11.2f\n", $col[0], "", "", $col[1], $col[2]; ! } } *************** *** 259,262 **** --- 262,268 ---- $Log$ + Revision 1.6 2001/10/14 21:55:02 mrau + Bugfix SQL-Statement zur Selektion des 'nächsten' Abschlusses + Revision 1.5 2001/10/04 23:16:42 mrau Bugfix :endofperl behoben *************** *** 300,302 **** Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ! =cut --- 306,308 ---- Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ! =cut \ No newline at end of file |
From: Michael R. <mr...@us...> - 2001-10-14 21:53:31
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv22734 Modified Files: asaldo Log Message: Sortierte Ausgabe der Wertpapiere Index: asaldo =================================================================== RCS file: /cvsroot/kick/kick/asaldo,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** asaldo 2001/10/04 23:16:42 1.4 --- asaldo 2001/10/14 21:53:29 1.5 *************** *** 52,55 **** --- 52,59 ---- my @col = [ qw (Titel Datum Anteile Devise Kurs Wert) ]; + # mrau, 09.10.2001 22:41: Wertpapiere sortieren + + @papiere = sort { &Trim($$a[0]) cmp &Trim($$b[0])} @papiere; + foreach (@papiere) { *************** *** 251,254 **** --- 255,261 ---- $Log$ + Revision 1.5 2001/10/14 21:53:29 mrau + Sortierte Ausgabe der Wertpapiere + Revision 1.4 2001/10/04 23:16:42 mrau Bugfix :endofperl behoben *************** *** 289,291 **** Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ! =cut --- 296,298 ---- Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ! =cut \ No newline at end of file |
From: Michael R. <mr...@us...> - 2001-10-14 21:52:35
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv22220 Modified Files: Kick.pm Log Message: Bugfix: -aufloesen; Fkt. _checkAbschluss Bugfix im Vergleich der Datums-Range Index: Kick.pm =================================================================== RCS file: /cvsroot/kick/kick/Kick.pm,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Kick.pm 2001/10/04 23:16:42 1.4 --- Kick.pm 2001/10/14 21:52:32 1.5 *************** *** 1619,1622 **** --- 1619,1628 ---- my (%param) = @_; + # mrau, 10.10.2001 00:36 Auflösen eines Wertpapiers bei Spezifikation + # des Gesamtbetrages (ohne Kurs) führt zur Meldung "fehlender Kurs" + # Lösung: Kurs aus Betrag / Anteile berechnen (siehe unten) + + my ($anteile); + # Parameter ergänzen if (!$param { aufloesen }) { *************** *** 1638,1647 **** } } ! elsif (defined($param { kurs }) && defined($param { betrag })) { ! die "Bei Aufloesung koennen <kurs> und <betrag> nicht gleichzeitig definiert werden"; ! } ! elsif (!(defined($param { kurs }) || defined($param { betrag }))) { ! die "Bei Aufloesung muessen <kurs> oder <betrag> definiert sein"; } # Posten nachziehen $param { xposten } = &Suche ( tabelle => 'posten', titel => 'verkauf' ); --- 1644,1666 ---- } } ! else { ! ! # mrau, 10.10.2001 00:37 Kurswert ableiten ! ! ($anteile) = &WP_Summe ( wertpapier => $param { wertpapier }, datum => $param { datum } ); ! ! if (defined($param { kurs }) && defined($param { betrag })) { ! die "Bei Aufloesung koennen <kurs> und <betrag> nicht gleichzeitig definiert werden"; ! } ! elsif (!(defined($param { kurs }) || defined($param { betrag }))) { ! die "Bei Aufloesung muessen <kurs> oder <betrag> definiert sein"; ! } ! elsif (!(defined($param { kurs }))) { ! $param { waehrung } = $param { waehrung } || 1; ! $param { kurs } = $param { betrag } * $param { waehrung } / $anteile; ! printf "%s = %s * %s / %s", $param { kurs }, $param { betrag }, $param { waehrung }, $anteile; ! } } + # Posten nachziehen $param { xposten } = &Suche ( tabelle => 'posten', titel => 'verkauf' ); *************** *** 1649,1653 **** # Anteile > 0 prüfen - my ($anteile) = &WP_Summe ( wertpapier => $param { wertpapier }, datum => $param { datum } ); if ($anteile < $param { anteile }) { die "Dieses Wertpapier hat zu diesem Zeitpunkt nicht ausreichend Anteile"; --- 1668,1671 ---- *************** *** 3636,3639 **** --- 3654,3663 ---- return 1; } + + # mrau, 09.10.2001 23:46 Bei falscher Datumsrange + # wurde hier kein 0 zurück gegeben, sondern in + # die äußere IF-Bedingung mit return 1 gesprungen + + return 0; } return 1; *************** *** 3939,3942 **** --- 3963,3969 ---- $Log$ + Revision 1.5 2001/10/14 21:52:32 mrau + Bugfix: -aufloesen; Fkt. _checkAbschluss Bugfix im Vergleich der Datums-Range + Revision 1.4 2001/10/04 23:16:42 mrau Bugfix :endofperl behoben *************** *** 3977,3979 **** Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ! =cut --- 4004,4006 ---- Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ! =cut \ No newline at end of file |
From: Michael R. <mr...@us...> - 2001-10-14 21:50:27
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv21733 Modified Files: GetOption.pm Log Message: Parameter Evaluation durch `expr` eingeführt Index: GetOption.pm =================================================================== RCS file: /cvsroot/kick/kick/GetOption.pm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** GetOption.pm 2001/10/03 20:39:11 1.3 --- GetOption.pm 2001/10/14 21:50:24 1.4 *************** *** 43,46 **** --- 43,60 ---- push @_, "h"; + # mrau, 10.10.2001 22:21 `eval`auswerten, z.B. `100+200` ergibt als + # Ergebnisparameter 300 + + my @argv; + foreach (@ARGV) { + if ($_ =~ /^\`(.*?)\`$/) { + push @argv, eval($1); + } + else { + push @argv, $_; + } + } + @ARGV = @argv; + &Getopt::Long::Configure('pass_through'); &GetOptions ($hash, @_); *************** *** 172,175 **** --- 186,192 ---- $Log$ + Revision 1.4 2001/10/14 21:50:24 mrau + Parameter Evaluation durch `expr` eingeführt + Revision 1.3 2001/10/03 20:39:11 mrau Änderung der Lizenz (GNU GPL) *************** *** 207,209 **** Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ! =cut --- 224,226 ---- Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ! =cut \ No newline at end of file |
From: Michael R. <mr...@us...> - 2001-10-14 21:49:32
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv21386 Added Files: dp1m Log Message: Initiale Version --- NEW FILE: dp1m --- #!/perl/bin/perl # ============================================================================= # RVS Status : $State: Exp $ # Author : $Author: mrau $ # Last Modified : $Date: 2001/10/14 21:49:29 $ # Revision : $Revision: 1.1 $ # ============================================================================= while (<>) { if (my ($prae, $monat, $jahr, $post) = $_ =~ /(.*\-datum\s+\d+\.)(\d+)\.(\d+)(.*)/gis) { if ($monat == 12) { $monat = 1; $jahr++; } else { $monat++; } print "$prae$monat.$jahr$post"; } else { print $_; } } __END__ =head1 NAME dp1m - Datum extrahieren und einen Monat hinzufuegen (Datum plus einen Monat) =head1 SYNOPSIS dp1m < 2000.08 > 2000.09 =head1 VERSION $Revision: 1.1 $ =head1 BESCHREIBUNG Dieses einfache Skript analysiert den I<Input> von C<STDIN> und erhoeht alle Datumsangaben um einen Monat. Als Datumsangaben werden alle gueltigen Datumswerte nach dem Parameter C<-datum> identifiziert. Durch diese Verarbeitung lassen sich neue KICK Skripte zur Abrechnung und Wertpapierbewertung des Vormonats auf den Folgemonat übertragen. F<Beispiel:> Ziel ist die Erstellung des Abrechnungskriptes C<test/2000.04>. Dazu werden die Transaktionen des Vormonates C<test/2000.03b> um einen Monat erhoeht und in die Datei C<test/2000.04> geschrieben. =head1 RELEASE NOTES $Log: dp1m,v $ Revision 1.1 2001/10/14 21:49:29 mrau Initiale Version =head1 AUTOR Michael Rau (m-...@gm...). Bug Reports, Feedback und Kommentare sind herzlich willkommen. =head1 COPYRIGHT Copyright (c) 2001 Michael Rau. Dieses Programm ist freie Software. Sie können es unter den Bedingungen der GNU General Public License, wie von der Free Software Foundation herausgegeben, weitergeben und/oder modifizieren, entweder unter Version 2 der Lizenz oder (wenn Sie es wünschen) jeder späteren Version. Die Veröffentlichung dieses Programms erfolgt in der Hoffnung, daß es Ihnen von Nutzen sein wird, aber OHNE JEDE GEWÄHRLEISTUNG - sogar ohne die implizite Gewährleistung der MARKTREIFE oder der EIGNUNG FÜR EINEN BESTIMMTEN ZWECK. Details finden Sie in der GNU General Public License. Sie sollten eine Kopie der GNU General Public License zusammen mit diesem Programm erhalten haben. Falls nicht, schreiben Sie an die Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. =cut |
From: Michael R. <mr...@us...> - 2001-10-07 17:10:29
|
Update of /cvsroot/kick/kick/test In directory usw-pr-cvs1:/tmp/cvs-serv7511/test Modified Files: 2000.01 Log Message: Bugfix (Fehlerteufel) Index: 2000.01 =================================================================== RCS file: /cvsroot/kick/kick/test/2000.01,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** 2000.01 2001/09/30 20:43:16 1.2 --- 2000.01 2001/10/07 17:10:26 1.3 *************** *** 57,61 **** -betrag -500.00 -gebuehr 45.00 ! ´ ; # Fidelity Funds Disney Park --- 57,61 ---- -betrag -500.00 -gebuehr 45.00 ! ; # Fidelity Funds Disney Park *************** *** 137,139 **** # === ABRECHNUNG < ENDE > ===================================================== ! abschluss -ende; --- 137,139 ---- # === ABRECHNUNG < ENDE > ===================================================== ! abschluss -ende; \ No newline at end of file |
From: Michael R. <mr...@us...> - 2001-10-05 05:38:58
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv23552 Modified Files: readme.txt Log Message: PERL URL korrigiert und Modul Installation detailliert Index: readme.txt =================================================================== RCS file: /cvsroot/kick/kick/readme.txt,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** readme.txt 2001/10/03 22:49:54 1.1 --- readme.txt 2001/10/05 05:38:54 1.2 *************** *** 26,30 **** Als aller erstes muss PERL installiert werden. Laden Sie unter ! http://www.activestate.com die für Sie passende Distribution herunter und folgen Sie den Installationsanweisungen. --- 26,30 ---- Als aller erstes muss PERL installiert werden. Laden Sie unter ! http://www.activeperl.com die für Sie passende Distribution herunter und folgen Sie den Installationsanweisungen. *************** *** 51,70 **** - DBI - unter http://velocity.activestate.com/code/cpan/d/db/DBI.html - - DBD::ODBC - unter http://velocity.activestate.com/code/cpan/d/db/DBD-ODBC.html - - Date::Calc - unter http://velocity.activestate.com/code/cpan/d/da/Date-Calc.html ! Installieren Sie diese Module mit dem Perl Package Manage (ppm). Geben ! Sie dazu bei bestehender Internet-Verbindung auf der MS-DOS Ebene ! (Start -> Ausführen -> command bzw. cmd) folgende Kommandos ein: ! MSDOS > ppm install dbi ! MSDOS > ppm install dbd-odbc ! MSDOS > ppm install date-calc (3) ARCHIV extrahieren --- 51,100 ---- - DBI - DBD::ODBC - Date::Calc ! Es gibt zwei Varianten, diese Module zu installieren. ! Variante 1: Installation bei bestehender Internet-Verbindung + Installieren Sie diese Module mit dem Perl Package Manage (ppm). + Geben Sie dazu bei bestehender Internet-Verbindung auf der MS-DOS + Ebene (Start -> Ausführen -> command bzw. cmd) folgende Kommandos + ein: + + MSDOS > ppm install DBI + MSDOS > ppm install DBD-ODBC + MSDOS > ppm install DATE-CALC + + Variante 2: Installation via ZIP-Archiv + + Laden Sie dazu die für Ihre PERL Distribution passenden ZIP + Archive der Module herunter und speichern Sie diese in einem + temporären Verzeichnis (z.B. c:\temp). Je nach Build-Version + von PERL benötigen Sie unterschiedliche Packages. Die Build + Version ermitteln Sie, indem Sie PERL mit der Option -v ausführen: + + MSDOS > perl -v + + Für das aktuelle Binary build 629 (12:27:04 Aug 20 2001) stehen + diese Packages unter der folgenden Adresse für 6xx Builds zum + Download bereit. + + - DBI + http://www.activestate.com/PPMPackages/zips/6xx-builds-only/Date-Calc.zip + - DBD::ODBC + http://www.activestate.com/PPMPackages/zips/6xx-builds-only/DBD-ODBC.zip, + - Date::Calc + http://www.activestate.com/PPMPackages/zips/6xx-builds-only/DBI.zip + + Wechseln Sie anschließend in das Verzeichnis, in das Sie diese + Dateien gespeichert haben (z.B. c:\temp) und führen Sie den + PERL Package Manager mit der Option --location aus. + + MSDOS > cd c:\temp + MSDOS > ppm install DBI --location=. + MSDOS > ppm install DBD-ODBC --location=. + MSDOS > ppm install DATE-CALC --location=. + (3) ARCHIV extrahieren *************** *** 98,101 **** $Log$ Revision 1.1 2001/10/03 22:49:54 mrau ! Installationsroutine implementiert --- 128,134 ---- $Log$ + Revision 1.2 2001/10/05 05:38:54 mrau + PERL URL korrigiert und Modul Installation detailliert + Revision 1.1 2001/10/03 22:49:54 mrau ! Installationsroutine implementiert \ No newline at end of file |
From: Michael R. <mr...@us...> - 2001-10-04 23:16:45
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv28842/kick Modified Files: Kick.pm Tools.pm aauszg abschluss asaldo auszg buche dauszg dosql eintrag init kauszg ksaldo ksh liste makedoc report status std tauszg tsaldo werte Log Message: Bugfix :endofperl behoben Index: Kick.pm =================================================================== RCS file: /cvsroot/kick/kick/Kick.pm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Kick.pm 2001/10/03 20:39:11 1.3 --- Kick.pm 2001/10/04 23:16:42 1.4 *************** *** 3939,3942 **** --- 3939,3945 ---- $Log$ + Revision 1.4 2001/10/04 23:16:42 mrau + Bugfix :endofperl behoben + Revision 1.3 2001/10/03 20:39:11 mrau Änderung der Lizenz (GNU GPL) *************** *** 3975,3977 **** =cut - :endofperl --- 3978,3979 ---- Index: Tools.pm =================================================================== RCS file: /cvsroot/kick/kick/Tools.pm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Tools.pm 2001/10/03 20:39:11 1.2 --- Tools.pm 2001/10/04 23:16:42 1.3 *************** *** 389,392 **** --- 389,395 ---- $Log$ + Revision 1.3 2001/10/04 23:16:42 mrau + Bugfix :endofperl behoben + Revision 1.2 2001/10/03 20:39:11 mrau Änderung der Lizenz (GNU GPL) *************** *** 422,424 **** =cut - :endofperl --- 425,426 ---- Index: aauszg =================================================================== RCS file: /cvsroot/kick/kick/aauszg,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** aauszg 2001/10/03 20:39:11 1.4 --- aauszg 2001/10/04 23:16:42 1.5 *************** *** 405,408 **** --- 405,411 ---- $Log$ + Revision 1.5 2001/10/04 23:16:42 mrau + Bugfix :endofperl behoben + Revision 1.4 2001/10/03 20:39:11 mrau Änderung der Lizenz (GNU GPL) *************** *** 444,446 **** =cut - :endofperl --- 447,448 ---- Index: abschluss =================================================================== RCS file: /cvsroot/kick/kick/abschluss,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** abschluss 2001/10/03 20:39:11 1.3 --- abschluss 2001/10/04 23:16:42 1.4 *************** *** 266,269 **** --- 266,272 ---- $Log$ + Revision 1.4 2001/10/04 23:16:42 mrau + Bugfix :endofperl behoben + Revision 1.3 2001/10/03 20:39:11 mrau Änderung der Lizenz (GNU GPL) *************** *** 302,304 **** =cut - :endofperl --- 305,306 ---- Index: asaldo =================================================================== RCS file: /cvsroot/kick/kick/asaldo,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** asaldo 2001/10/03 20:39:11 1.3 --- asaldo 2001/10/04 23:16:42 1.4 *************** *** 251,254 **** --- 251,257 ---- $Log$ + Revision 1.4 2001/10/04 23:16:42 mrau + Bugfix :endofperl behoben + Revision 1.3 2001/10/03 20:39:11 mrau Änderung der Lizenz (GNU GPL) *************** *** 287,289 **** =cut - :endofperl --- 290,291 ---- Index: auszg =================================================================== RCS file: /cvsroot/kick/kick/auszg,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** auszg 2001/10/03 20:39:11 1.3 --- auszg 2001/10/04 23:16:42 1.4 *************** *** 379,382 **** --- 379,385 ---- $Log$ + Revision 1.4 2001/10/04 23:16:42 mrau + Bugfix :endofperl behoben + Revision 1.3 2001/10/03 20:39:11 mrau Änderung der Lizenz (GNU GPL) *************** *** 415,417 **** =cut - :endofperl --- 418,419 ---- Index: buche =================================================================== RCS file: /cvsroot/kick/kick/buche,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** buche 2001/10/03 20:39:11 1.4 --- buche 2001/10/04 23:16:42 1.5 *************** *** 413,416 **** --- 413,419 ---- $Log$ + Revision 1.5 2001/10/04 23:16:42 mrau + Bugfix :endofperl behoben + Revision 1.4 2001/10/03 20:39:11 mrau Änderung der Lizenz (GNU GPL) *************** *** 452,454 **** =cut - :endofperl --- 455,456 ---- Index: dauszg =================================================================== RCS file: /cvsroot/kick/kick/dauszg,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** dauszg 2001/10/03 20:39:11 1.3 --- dauszg 2001/10/04 23:16:42 1.4 *************** *** 487,490 **** --- 487,493 ---- $Log$ + Revision 1.4 2001/10/04 23:16:42 mrau + Bugfix :endofperl behoben + Revision 1.3 2001/10/03 20:39:11 mrau Änderung der Lizenz (GNU GPL) *************** *** 523,525 **** =cut - :endofperl --- 526,527 ---- Index: dosql =================================================================== RCS file: /cvsroot/kick/kick/dosql,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** dosql 2001/10/03 20:39:11 1.3 --- dosql 2001/10/04 23:16:42 1.4 *************** *** 193,196 **** --- 193,199 ---- $Log$ + Revision 1.4 2001/10/04 23:16:42 mrau + Bugfix :endofperl behoben + Revision 1.3 2001/10/03 20:39:11 mrau Änderung der Lizenz (GNU GPL) *************** *** 229,231 **** =cut - :endofperl --- 232,233 ---- Index: eintrag =================================================================== RCS file: /cvsroot/kick/kick/eintrag,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** eintrag 2001/10/03 20:39:11 1.4 --- eintrag 2001/10/04 23:16:42 1.5 *************** *** 318,321 **** --- 318,324 ---- $Log$ + Revision 1.5 2001/10/04 23:16:42 mrau + Bugfix :endofperl behoben + Revision 1.4 2001/10/03 20:39:11 mrau Änderung der Lizenz (GNU GPL) *************** *** 357,359 **** =cut - :endofperl --- 360,361 ---- Index: init =================================================================== RCS file: /cvsroot/kick/kick/init,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** init 2001/10/03 20:39:11 1.3 --- init 2001/10/04 23:16:42 1.4 *************** *** 69,72 **** --- 69,75 ---- $Log$ + Revision 1.4 2001/10/04 23:16:42 mrau + Bugfix :endofperl behoben + Revision 1.3 2001/10/03 20:39:11 mrau Änderung der Lizenz (GNU GPL) *************** *** 105,107 **** =cut - :endofperl --- 108,109 ---- Index: kauszg =================================================================== RCS file: /cvsroot/kick/kick/kauszg,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** kauszg 2001/10/03 20:39:11 1.4 --- kauszg 2001/10/04 23:16:42 1.5 *************** *** 488,491 **** --- 488,494 ---- $Log$ + Revision 1.5 2001/10/04 23:16:42 mrau + Bugfix :endofperl behoben + Revision 1.4 2001/10/03 20:39:11 mrau Änderung der Lizenz (GNU GPL) *************** *** 527,529 **** =cut - :endofperl --- 530,531 ---- Index: ksaldo =================================================================== RCS file: /cvsroot/kick/kick/ksaldo,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** ksaldo 2001/10/03 20:39:11 1.3 --- ksaldo 2001/10/04 23:16:42 1.4 *************** *** 214,217 **** --- 214,220 ---- $Log$ + Revision 1.4 2001/10/04 23:16:42 mrau + Bugfix :endofperl behoben + Revision 1.3 2001/10/03 20:39:11 mrau Änderung der Lizenz (GNU GPL) *************** *** 250,252 **** =cut - :endofperl --- 253,254 ---- Index: ksh =================================================================== RCS file: /cvsroot/kick/kick/ksh,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** ksh 2001/10/03 20:39:11 1.3 --- ksh 2001/10/04 23:16:42 1.4 *************** *** 160,163 **** --- 160,166 ---- $Log$ + Revision 1.4 2001/10/04 23:16:42 mrau + Bugfix :endofperl behoben + Revision 1.3 2001/10/03 20:39:11 mrau Änderung der Lizenz (GNU GPL) *************** *** 196,198 **** =cut - :endofperl --- 199,200 ---- Index: liste =================================================================== RCS file: /cvsroot/kick/kick/liste,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** liste 2001/10/03 20:39:11 1.4 --- liste 2001/10/04 23:16:42 1.5 *************** *** 280,283 **** --- 280,286 ---- $Log$ + Revision 1.5 2001/10/04 23:16:42 mrau + Bugfix :endofperl behoben + Revision 1.4 2001/10/03 20:39:11 mrau Änderung der Lizenz (GNU GPL) *************** *** 319,321 **** =cut - :endofperl --- 322,323 ---- Index: makedoc =================================================================== RCS file: /cvsroot/kick/kick/makedoc,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** makedoc 2001/10/03 20:39:11 1.3 --- makedoc 2001/10/04 23:16:42 1.4 *************** *** 107,110 **** --- 107,113 ---- $Log$ + Revision 1.4 2001/10/04 23:16:42 mrau + Bugfix :endofperl behoben + Revision 1.3 2001/10/03 20:39:11 mrau Änderung der Lizenz (GNU GPL) *************** *** 143,145 **** =cut - :endofperl --- 146,147 ---- Index: report =================================================================== RCS file: /cvsroot/kick/kick/report,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** report 2001/10/03 20:39:11 1.3 --- report 2001/10/04 23:16:42 1.4 *************** *** 411,414 **** --- 411,417 ---- $Log$ + Revision 1.4 2001/10/04 23:16:42 mrau + Bugfix :endofperl behoben + Revision 1.3 2001/10/03 20:39:11 mrau Änderung der Lizenz (GNU GPL) *************** *** 447,449 **** =cut - :endofperl --- 450,451 ---- Index: status =================================================================== RCS file: /cvsroot/kick/kick/status,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** status 2001/10/03 20:39:11 1.4 --- status 2001/10/04 23:16:42 1.5 *************** *** 259,262 **** --- 259,265 ---- $Log$ + Revision 1.5 2001/10/04 23:16:42 mrau + Bugfix :endofperl behoben + Revision 1.4 2001/10/03 20:39:11 mrau Änderung der Lizenz (GNU GPL) *************** *** 298,300 **** =cut - :endofperl --- 301,302 ---- Index: std =================================================================== RCS file: /cvsroot/kick/kick/std,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** std 2001/10/03 20:39:11 1.3 --- std 2001/10/04 23:16:42 1.4 *************** *** 102,105 **** --- 102,108 ---- $Log$ + Revision 1.4 2001/10/04 23:16:42 mrau + Bugfix :endofperl behoben + Revision 1.3 2001/10/03 20:39:11 mrau Änderung der Lizenz (GNU GPL) *************** *** 138,140 **** =cut - :endofperl --- 141,142 ---- Index: tauszg =================================================================== RCS file: /cvsroot/kick/kick/tauszg,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** tauszg 2001/10/03 20:39:11 1.3 --- tauszg 2001/10/04 23:16:42 1.4 *************** *** 507,510 **** --- 507,513 ---- $Log$ + Revision 1.4 2001/10/04 23:16:42 mrau + Bugfix :endofperl behoben + Revision 1.3 2001/10/03 20:39:11 mrau Änderung der Lizenz (GNU GPL) *************** *** 543,545 **** =cut - :endofperl --- 546,547 ---- Index: tsaldo =================================================================== RCS file: /cvsroot/kick/kick/tsaldo,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** tsaldo 2001/10/03 20:39:11 1.3 --- tsaldo 2001/10/04 23:16:42 1.4 *************** *** 38,41 **** --- 38,44 ---- $Log$ + Revision 1.4 2001/10/04 23:16:42 mrau + Bugfix :endofperl behoben + Revision 1.3 2001/10/03 20:39:11 mrau Änderung der Lizenz (GNU GPL) *************** *** 74,76 **** =cut - :endofperl --- 77,78 ---- Index: werte =================================================================== RCS file: /cvsroot/kick/kick/werte,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** werte 2001/10/03 20:39:11 1.4 --- werte 2001/10/04 23:16:42 1.5 *************** *** 122,125 **** --- 122,128 ---- $Log$ + Revision 1.5 2001/10/04 23:16:42 mrau + Bugfix :endofperl behoben + Revision 1.4 2001/10/03 20:39:11 mrau Änderung der Lizenz (GNU GPL) *************** *** 161,163 **** =cut - :endofperl --- 164,165 ---- |
From: Michael R. <mr...@us...> - 2001-10-03 22:49:57
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv26491 Added Files: install.pl readme.txt Log Message: Installationsroutine implementiert --- NEW FILE: install.pl --- #!/usr/bin/perl use File::Find; # PERL Pfad identifizieren my $perl = $^X; $perl =~ s/\.exe$//i; $perl =~ s/^c\://i; # Test Date::Calc, DBI, DBD::ODBC eval { require Date::Calc; }; die "Date::Calc ist nicht installiert" if $@; eval { require DBI; }; die "DBI ist nicht installiert" if $@; eval { require DBD::ODBC; }; die "DBD::ODBC ist nicht installiert" if $@; # Zielverzeichnis abfragen print "Zielverzeichnis [c:/kick] : "; my $in = <>; chomp ($in); $target = $in ne "" ? $in : 'c:/kick'; $target =~ s/\\/\//gis; $target =~ s/\/$//; # Zielverzeichnis vorbereiten mkdir $target, 1; # Dateien kopieren find (sub { if ($_ !~ /^\.+$/) { push @files, "$File::Find::dir/$_"; } }, "./kick"); foreach (@files) { my ($targetfile) = $_ =~ /kick(\/.+)/i; if (-d $_) { mkdir $target.$targetfile, 1; } else { print "$targetfile\n"; &CopyFile($_, $target.$targetfile); } } # Hilfesystem installieren chdir "$target"; system ("perl makedoc"); # Datenbank vorbereiten if (!(-e "kick.mdb")) { rename "kick.tmpl.mdb", "kick.mdb"; } sub CopyFile { my ($source, $target) = @_; open (SOURCE, "< $source") || return 0; open (TARGET, "> $target") || return 0; if (!(-T $source)) { binmode (SOURCE); binmode (TARGET); while (<SOURCE>) { print TARGET $_; } } else { my $data = join "", <SOURCE>; $data =~ s/^\#\!\/perl\/bin\/perl/\#\!$perl/; print TARGET $data; } close (SOURCE); close (TARGET); return 1; } --- NEW FILE: readme.txt --- =============================================================================== K. I. C. K. - Kasseler Investment Club Kalkulation =============================================================================== COPYRIGHT (c) 2001 Michael Rau. Dieses Programm ist freie Software. Sie können es unter den Bedingungen der GNU General Public License, wie von der Free Software Foundation herausgegeben, weitergeben und/oder modifizieren, entweder unter Version 2 der Lizenz oder (wenn Sie es wünschen) jeder späteren Version. Die Veröffentlichung dieses Programms erfolgt in der Hoffnung, daß es Ihnen von Nutzen sein wird, aber OHNE JEDE GEWÄHRLEISTUNG - sogar ohne die implizite Gewährleistung der MARKTREIFE oder der EIGNUNG FÜR EINEN BESTIMMTEN ZWECK. Details finden Sie in der GNU General Public License. Sie sollten eine Kopie der GNU General Public License zusammen mit diesem Programm erhalten haben. Falls nicht, schreiben Sie an die Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. =============================================================================== INSTALLATION WINDOWS 95, 98, 2000, NT (1) PERL installieren Als aller erstes muss PERL installiert werden. Laden Sie unter http://www.activestate.com die für Sie passende Distribution herunter und folgen Sie den Installationsanweisungen. Der Pfad von PERL.EXE muss anschließend in der PATH Umgebungsvariablen enthalten sein. Die Installationsroutine von ActiveState nimmt diese Einstellung automatisch für Sie vor. TEST (a) Starten Sie den DOS Kommandozeilen-Interpreter (Start -> Ausführen -> command bzw. cmd für Windows NT und 2000) (b) Starten Sie PERL mit der Option -v. MSDOS > perl -v Nach erfolgreicher Installation gibt PERL die Version und die Lizenzbedingungen ausgeben. (2) MODULE installieren KICK setzt auf den folgenden Modulen auf, die nicht zur Standard-Distribution von PERL gehören: - DBI unter http://velocity.activestate.com/code/cpan/d/db/DBI.html - DBD::ODBC unter http://velocity.activestate.com/code/cpan/d/db/DBD-ODBC.html - Date::Calc unter http://velocity.activestate.com/code/cpan/d/da/Date-Calc.html Installieren Sie diese Module mit dem Perl Package Manage (ppm). Geben Sie dazu bei bestehender Internet-Verbindung auf der MS-DOS Ebene (Start -> Ausführen -> command bzw. cmd) folgende Kommandos ein: MSDOS > ppm install dbi MSDOS > ppm install dbd-odbc MSDOS > ppm install date-calc (3) ARCHIV extrahieren Extrahieren Sie das Archiv in ein temporäres Verzeichnis (z.B. c:\temp). Nutzen Sie dazu z.B. die WINZIP Oberfläche ( http://www.winzip.de ). (4) KICK installieren Abschließend muss KICK installiert werden. Wechseln Sie dazu in das temporäre Verzeichnis, in das Sie die Installationsdateien extrahiert haben (z.B. c:\temp). Rufen Sie anschließend das Skript install.pl auf und folgen Sie den Anweisungen. MSDOS > cd c:\temp MSDOS > perl install.pl (5) Dokumentation lesen Ich rate dringend dazu an, als Einstieg in KICK das Dokument doc/manuel.html zu lesen. Eine sinnvolle Strategie, sich mit der Arbeit von KICK vertraut zu machen, sind insbesondere die Beispiele unter test/ und deren angefügte Dokumentation doc/beispiel1.html bis doc/beispiel4.html. =============================================================================== RVS Status : $State: Exp $ Author : $Author: mrau $ Last Modified : $Date: 2001/10/03 22:49:54 $ $Log: readme.txt,v $ Revision 1.1 2001/10/03 22:49:54 mrau Installationsroutine implementiert |
From: Michael R. <mr...@us...> - 2001-10-03 20:39:14
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv11692 Modified Files: GetOption.pm Kick.pm Tools.pm aauszg abschluss asaldo auszg buche dauszg dosql eintrag init kauszg ksaldo ksh liste makedoc report status std tauszg tsaldo werte Added Files: GNU Public License-DE.txt GNU Public License.txt Log Message: Änderung der Lizenz (GNU GPL) --- NEW FILE: GNU Public License-DE.txt --- -------------------------------------------------------------------------------- GNU General Public License Deutsche Übersetzung der Version 2, Juni 1991 Copyright (C) 1989, 1991 Free Software Foundation, Inc. 675 Mass Ave, Cambridge, MA 02139, USA Übersetzung erstellt im Auftrag der S.u.S.E. GmbH [su...@su...] von Katja Lachmann Übersetzungen [na...@fi...], überarbeitet von Peter Gerwinski [pet...@un...] (31. Oktober 1996) Jeder hat das Recht, diese Lizenzurkunde zu vervielfältigen und unveränderte Kopien zu verbreiten; Änderungen sind jedoch nicht gestattet. Diese Übersetzung ist kein rechtskräftiger Ersatz für die englischsprachige Originalversion! Vorwort Die meisten Softwarelizenzen sind daraufhin entworfen worden, Ihnen die Freiheit zu nehmen, die Software weiterzugeben und zu verändern. Im Gegensatz dazu soll Ihnen die GNU General Public License, die allgemeine öffentliche GNU-Lizenz, ebendiese Freiheit garantieren. Sie soll sicherstellen, daß die Software für alle Benutzer frei ist. Diese Lizenz gilt für den Großteil der von der Free Software Foundation herausgegebenen Software und für alle anderen Programme, deren Autoren ihr Werk dieser Lizenz unterstellt haben. Auch Sie können diese Möglichkeit der Lizenzierung für Ihre Programme anwenden. (Ein anderer Teil der Software der Free Software Foundation unterliegt stattdessen der GNU Library General Public License, der allgemeinen öffentlichen GNU-Lizenz für Bibliotheken.) Die Bezeichnung "freie" Software bezieht sich auf Freiheit, nicht auf den Preis. Unsere Lizenzen sollen Ihnen die Freiheit garantieren, Kopien freier Software zu verbreiten (und etwas für diesen Service zu berechnen, wenn Sie möchten), die Möglichkeit, die Software im Quelltext zu erhalten oder den Quelltext auf Wunsch zu bekommen. Die Lizenzen sollen garantieren, daß Sie die Software ändern oder Teile davon in neuen freien Programmen verwenden dürfen - und daß Sie wissen, daß Sie dies alles tun dürfen. Um Ihre Rechte zu schützen, müssen wir Einschränkungen machen, die es jedem verbieten, Ihnen diese Rechte zu verweigern oder Sie aufzufordern, auf diese Rechte zu verzichten. Aus diesen Einschränkungen folgen bestimmte Verantwortlichkeiten für Sie, wenn Sie Kopien der Software verbreiten oder sie verändern. Beispielsweise müssen Sie den Empfängern alle Rechte gewähren, die Sie selbst haben, wenn Sie - kostenlos oder gegen Bezahlung - Kopien eines solchen Programms verbreiten. Sie müssen sicherstellen, daß auch sie den Quelltext erhalten bzw. erhalten können. Und Sie müssen ihnen diese Bedingungen zeigen, damit sie ihre Rechte kennen. Wir schützen Ihre Rechte in zwei Schritten: (1) Wir stellen die Software unter ein Urheberrecht (Copyright), und (2) wir bieten Ihnen diese Lizenz an, die Ihnen das Recht gibt, die Software zu vervielfältigen, zu verbreiten und/oder zu verändern. Um die Autoren und uns zu schützen, wollen wir darüberhinaus sicherstellen, daß jeder erfährt, daß für diese freie Software keinerlei Garantie besteht. Wenn die Software von jemand anderem modifiziert und weitergegeben wird, möchten wir, daß die Empfänger wissen, daß sie nicht das Original erhalten haben, damit von anderen verursachte Probleme nicht den Ruf des ursprünglichen Autors schädigen. Schließlich und endlich ist jedes freie Programm permanent durch Software-Patente bedroht. Wir möchten die Gefahr ausschließen, daß Distributoren eines freien Programms individuell Patente lizensieren - mit dem Ergebnis, daß das Programm proprietär würde. Um dies zu verhindern, haben wir klargestellt, daß jedes Patent entweder für freie Benutzung durch jedermann lizenziert werden muß oder überhaupt nicht lizenziert werden darf. Es folgen die genauen Bedingungen für die Vervielfältigung, Verbreitung und Bearbeitung: Bedingungen für die Vervielfältigung, Verbreitung und Bearbeitung Paragraph 0. Diese Lizenz gilt für jedes Programm und jedes andere Werk, in dem ein entsprechender Vermerk des Copyright-Inhabers darauf hinweist, daß das Werk unter den Bestimmungen dieser General Public License verbreitet werden darf. Im folgenden wird jedes derartige Programm oder Werk als "das Programm" bezeichnet; die Formulierung "auf dem Programm basierendes Werk" bezeichnet das Programm sowie jegliche Bearbeitung des Programms im urheberrechtlichen Sinne, also ein Werk, welches das Programm, auch auszugsweise, sei es unverändert oder verändert und/oder in eine andere Sprache übersetzt, enthält. (Im folgenden wird die Übersetzung ohne Einschränkung als "Bearbeitung" eingestuft.) Jeder Lizenznehmer wird im folgenden als "Sie" angesprochen. Andere Handlungen als Vervielfältigung, Verbreitung und Bearbeitung werden von dieser Lizenz nicht berührt; sie fallen nicht in ihren Anwendungsbereich. Der Vorgang der Ausführung des Programms wird nicht eingeschränkt, und die Ausgaben des Programms unterliegen dieser Lizenz nur, wenn der Inhalt ein auf dem Programm basierendes Werk darstellt (unabhängig davon, daß die Ausgabe durch die Ausführung des Programmes erfolgte). Ob dies zutrifft, hängt von den Funktionen des Programms ab. Paragraph 1. Sie dürfen auf beliebigen Medien unveränderte Kopien des Quelltextes des Programms, wie sie ihn erhalten haben, anfertigen und verbreiten. Voraussetzung hierfür ist, daß Sie mit jeder Kopie einen entsprechenden Copyright-Vermerk sowie einen Haftungsausschluß veröffentlichen, alle Vermerke, die sich auf diese Lizenz und das Fehlen einer Garantie beziehen, unverändert lassen und desweiteren allen anderen Empfängern des Programms zusammen mit dem Programm eine Kopie dieser Lizenz zukommen lassen. Sie dürfen für den eigentlichen Kopiervorgang eine Gebühr verlangen. Wenn Sie es wünschen, dürfen Sie auch gegen Entgelt eine Garantie für das Programm anbieten. Paragraph 2. Sie dürfen Ihre Kopie(n) des Programms oder eines Teils davon verändern, wodurch ein auf dem Programm basierendes Werk entsteht; Sie dürfen derartige Bearbeitungen unter den Bestimmungen von Paragraph 1 vervielfältigen und verbreiten, vorausgesetzt, daß zusätzlich alle folgenden Bedingungen erfüllt werden: (a) Sie müssen die veränderten Dateien mit einem auffälligen Vermerk versehen, der auf die von Ihnen vorgenommene Modifizierung und das Datum jeder Änderung hinweist. (b) Sie müssen dafür sorgen, daß jede von Ihnen verbreitete oder veröffentlichte Arbeit, die ganz oder teilweise von dem Programm oder Teilen davon abgeleitet ist, Dritten gegenüber als Ganzes unter den Bedingungen dieser Lizenz ohne Lizenzgebühren zur Verfügung gestellt wird. (c) Wenn das veränderte Programm normalerweise bei der Ausführung interaktiv Kommandos einliest, müssen Sie dafür sorgen, daß es, wenn es auf dem üblichsten Wege für solche interaktive Nutzung gestartet wird, eine Meldung ausgibt oder ausdruckt, die einen geeigneten Copyright-Vermerk enthält sowie einen Hinweis, daß es keine Gewährleistung gibt (oder anderenfalls, daß Sie Garantie leisten), und daß die Benutzer das Programm unter diesen Bedingungen weiter verbreiten dürfen. Auch muß der Benutzer darauf hingewiesen werden, wie er eine Kopie dieser Lizenz ansehen kann. (Ausnahme: Wenn das Programm selbst interaktiv arbeitet, aber normalerweise keine derartige Meldung ausgibt, muß Ihr auf dem Programm basierendes Werk auch keine solche Meldung ausgeben). Diese Anforderungen betreffen das veränderte Werk als Ganzes. Wenn identifizierbare Abschnitte des Werkes nicht von dem Programm abgeleitet sind und vernünftigerweise selbst als unabhängige und eigenständige Werke betrachtet werden können, dann erstrecken sich diese Lizenz und ihre Bedingungen nicht auf diese Abschnitte, wenn sie als eigenständige Werke verbreitet werden. Wenn Sie jedoch dieselben Abschnitte als Teil eines Ganzen verbreiten, das ein auf dem Programm basierendes Werk darstellt, dann muß die Verbreitung des Ganzen nach den Bedingungen dieser Lizenz erfolgen, deren Bedingungen für weitere Lizenznehmer somit auf die Gesamtheit ausgedehnt werden - und damit auf jeden einzelnen Teil, unabhängig vom jeweiligen Autor. Somit ist es nicht die Absicht dieses Abschnittes, Rechte für Werke in Anspruch zu nehmen oder zu beschneiden, die komplett von Ihnen geschrieben wurden; vielmehr ist es die Absicht, die Rechte zur Kontrolle der Verbreitung von Werken, die auf dem Programm basieren oder unter seiner auszugsweisen Verwendung zusammengestellt worden sind, auszuüben. Ferner bringt ein einfaches Zusammenstellen eines anderen Werkes, das nicht auf dem Programm basiert, zusammen mit dem Programm oder einem auf dem Programm basierenden Werk auf ein- und demselben Speicher- oder Vertriebsmedium das andere Werk nicht in den Anwendungsbereich dieser Lizenz. Paragraph 3. Sie dürfen das Programm (oder ein darauf basierendes Werk gemäß Paragraph 2) als Objectcode oder in ausführbarer Form unter den Bedingungen von Paragraph 1 und 2 vervielfältigen und verbreiten - vorausgesetzt, daß Sie außerdem eine der folgenden Leistungen erbringen: (a) Liefern Sie das Programm zusammen mit dem vollständigen zugehörigen maschinenlesbaren Quelltext auf einem für den Datenaustausch üblichen Medium aus, wobei die Verteilung unter den Bedingungen der Paragraphen 1 und 2 erfolgen muß. Oder: (b) Liefern Sie das Programm zusammen mit einem mindestens drei Jahre lang gültigen schriftlichen Angebot aus, jedem Dritten eine vollständige maschinenlesbare Kopie des Quelltextes zur Verfügung zu stellen - zu nicht höheren Kosten als denen, die durch den physikalischen Kopiervorgang anfallen -, wobei der Quelltext unter den Bedingungen der Paragraphen 1 und 2 auf einem für den Datenaustausch üblichen Medium weitergegeben wird. Oder: (c) Liefern Sie das Programm zusammen mit dem schriftlichen Angebot der Zurverfügungstellung des Quelltextes aus, das Sie selbst erhalten haben. (Diese Alternative ist nur für nicht-kommerzielle Verbreitung zulässig und nur, wenn Sie das Programm als Objectcode oder in ausführbarer Form mit einem entsprechenden Angebot gemäß Absatz b erhalten haben.) Unter dem Quelltext eines Werkes wird diejenige Form des Werkes verstanden, die für Bearbeitungen vorzugsweise verwendet wird. Für ein ausführbares Programm bedeutet "der komplette Quelltext": Der Quelltext aller im Programm enthaltenen Module einschließlich aller zugehörigen Modulschnittstellen-Definitionsdateien sowie der zur Compilation und Installation verwendeten Skripte. Als besondere Ausnahme jedoch braucht der verteilte Quelltext nichts von dem zu enthalten, was üblicherweise (entweder als Quelltext oder in binärer Form) zusammen mit den Hauptkomponenten des Betriebssystems (Kernel, Compiler usw.) geliefert wird, unter dem das Programm läuft - es sei denn, diese Komponente selbst gehört zum ausführbaren Programm. Wenn die Verbreitung eines ausführbaren Programms oder des Objectcodes dadurch erfolgt, daß der Kopierzugriff auf eine dafür vorgesehene Stelle gewährt wird, so gilt die Gewährung eines gleichwertigen Zugriffs auf den Quelltext als Verbreitung des Quelltextes, auch wenn Dritte nicht dazu gezwungen sind, den Quelltext zusammen mit dem Objectcode zu kopieren. Paragraph 4. Sie dürfen das Programm nicht vervielfältigen, verändern, weiter lizenzieren oder verbreiten, sofern es nicht durch diese Lizenz ausdrücklich gestattet ist. Jeder anderweitige Versuch der Vervielfältigung, Modifizierung, Weiterlizenzierung und Verbreitung ist nichtig und beendet automatisch Ihre Rechte unter dieser Lizenz. Jedoch werden die Lizenzen Dritter, die von Ihnen Kopien oder Rechte unter dieser Lizenz erhalten haben, nicht beendet, solange diese die Lizenz voll anerkennen und befolgen. Paragraph 5. Sie sind nicht verpflichtet, diese Lizenz anzunehmen, da Sie sie nicht unterzeichnet haben. Jedoch gibt Ihnen nichts anderes die Erlaubnis, das Programm oder von ihm abgeleitete Werke zu verändern oder zu verbreiten. Diese Handlungen sind gesetzlich verboten, wenn Sie diese Lizenz nicht anerkennen. Indem Sie das Programm (oder ein darauf basierendes Werk) verändern oder verbreiten, erklären Sie Ihr Einverständnis mit dieser Lizenz und mit allen ihren Bedingungen bezüglich der Vervielfältigung, Verbreitung und Veränderung des Programms oder eines darauf basierenden Werkes. Paragraph 6. Jedesmal, wenn Sie das Programm (oder ein auf dem Programm basierendes Werk) weitergeben, erhält der Empfänger automatisch vom ursprünglichen Lizenzgeber die Lizenz, das Programm entsprechend den hier festgelegten Bestimmungen zu vervielfältigen, zu verbreiten und zu verändern. Sie dürfen keine weiteren Einschränkungen der Durchsetzung der hierin zugestandenen Rechte des Empfängers vornehmen. Sie sind nicht dafür verantwortlich, die Einhaltung dieser Lizenz durch Dritte durchzusetzen. Paragraph 7. Sollten Ihnen infolge eines Gerichtsurteils, des Vorwurfs einer Patentverletzung oder aus einem anderen Grunde (nicht auf Patentfragen begrenzt) Bedingungen (durch Gerichtsbeschluß, Vergleich oder anderweitig) auferlegt werden, die den Bedingungen dieser Lizenz widersprechen, so befreien Sie diese Umstände nicht von den Bestimmungen dieser Lizenz. Wenn es Ihnen nicht möglich ist, das Programm unter gleichzeitiger Beachtung der Bedingungen in dieser Lizenz und Ihrer anderweitigen Verpflichtungen zu verbreiten, dann dürfen Sie als Folge das Programm überhaupt nicht verbreiten. Wenn zum Beispiel ein Patent nicht die gebührenfreie Weiterverbreitung des Programms durch diejenigen erlaubt, die das Programm direkt oder indirekt von Ihnen erhalten haben, dann besteht der einzige Weg, sowohl das Patentrecht als auch diese Lizenz zu befolgen, darin, ganz auf die Verbreitung des Programms zu verzichten. Sollte sich ein Teil dieses Paragraphen als ungültig oder unter bestimmten Umständen nicht durchsetzbar erweisen, so soll dieser Paragraph seinem Sinne nach angewandt werden; im übrigen soll dieser Paragraph als Ganzes gelten. Zweck dieses Paragraphen ist nicht, Sie dazu zu bringen, irgendwelche Patente oder andere Eigentumsansprüche zu verletzen oder die Gültigkeit solcher Ansprüche zu bestreiten; dieser Paragraph hat einzig den Zweck, die Integrität des Verbreitungssystems der freien Software zu schützen, das durch die Praxis öffentlicher Lizenzen verwirklicht wird. Viele Leute haben großzügige Beiträge zu dem großen Angebot der mit diesem System verbreiteten Software im Vertrauen auf die konsistente Anwendung dieses Systems geleistet; es liegt am Autor/Geber, zu entscheiden, ob er die Software mittels irgendeines anderen Systems verbreiten will; ein Lizenznehmer hat auf diese Entscheidung keinen Einfluß. Dieser Paragraph ist dazu gedacht, deutlich klarzustellen, was als Konsequenz aus dem Rest dieser Lizenz betrachtet wird. Paragraph 8. Wenn die Verbreitung und/oder die Benutzung des Programms in bestimmten Staaten entweder durch Patente oder durch urheberrechtlich geschützte Schnittstellen eingeschränkt ist, kann der Urheberrechtsinhaber, der das Programm unter diese Lizenz gestellt hat, eine explizite geographische Begrenzung der Verbreitung angeben, in der diese Staaten ausgeschlossen werden, so daß die Verbreitung nur innerhalb und zwischen den Staaten erlaubt ist, die nicht ausgeschlossen sind. In einem solchen Fall beinhaltet diese Lizenz die Beschränkung, als wäre sie in diesem Text niedergeschrieben. Paragraph 9. Die Free Software Foundation kann von Zeit zu Zeit überarbeitete und/oder neue Versionen der General Public License veröffentlichen. Solche neuen Versionen werden vom Grundprinzip her der gegenwärtigen entsprechen, können aber im Detail abweichen, um neuen Problemen und Anforderungen gerecht zu werden. Jede Version dieser Lizenz hat eine eindeutige Versionsnummer. Wenn in einem Programm angegeben wird, daß es dieser Lizenz in einer bestimmten Versionsnummer oder "jeder späteren Version" ("any later version") unterliegt, so haben Sie die Wahl, entweder den Bestimmungen der genannten Version zu folgen oder denen jeder beliebigen späteren Version, die von der Free Software Foundation veröffentlicht wurde. Wenn das Programm keine Versionsnummer angibt, können Sie eine beliebige Version wählen, die je von der Free Software Foundation veröffentlicht wurde. Paragraph 10. Wenn Sie den Wunsch haben, Teile des Programms in anderen freien Programmen zu verwenden, deren Bedingungen für die Verbreitung anders sind, schreiben Sie an den Autor, um ihn um die Erlaubnis zu bitten. Für Software, die unter dem Copyright der Free Software Foundation steht, schreiben Sie an die Free Software Foundation; wir machen zu diesem Zweck gelegentlich Ausnahmen. Unsere Entscheidung wird von den beiden Zielen geleitet werden, zum einen den freien Status aller von unserer freien Software abgeleiteten Werke zu erhalten und zum anderen das gemeinschaftliche Nutzen und Wiederverwenden von Software im allgemeinen zu fördern. Keine Gewährleistung Paragraph 11. Da das Programm ohne jegliche Kosten lizenziert wird, besteht keinerlei Gewährleistung für das Programm, soweit dies gesetzlich zulässig ist. Sofern nicht anderweitig schriftlich bestätigt, stellen die Copyright-Inhaber und/oder Dritte das Programm so zur Verfügung, "wie es ist", ohne irgendeine Gewährleistung, weder ausdrücklich noch implizit, einschließlich - aber nicht begrenzt auf - Marktreife oder Verwendbarkeit für einen bestimmten Zweck. Das volle Risiko bezüglich Qualität und Leistungsfähigkeit des Programms liegt bei Ihnen. Sollte sich das Programm als fehlerhaft herausstellen, liegen die Kosten für notwendigen Service, Reparatur oder Korrektur bei Ihnen. Paragraph 12. In keinem Fall, außer wenn durch geltendes Recht gefordert oder schriftlich zugesichert, ist irgendein Copyright-Inhaber oder irgendein Dritter, der das Programm wie oben erlaubt modifiziert oder verbreitet hat, Ihnen gegenüber für irgendwelche Schäden haftbar, einschließlich jeglicher allgemeiner oder spezieller Schäden, Schäden durch Seiteneffekte (Nebenwirkungen) oder Folgeschäden, die aus der Benutzung des Programms oder der Unbenutzbarkeit des Programms folgen (einschließlich - aber nicht beschränkt auf - Datenverluste, fehlerhafte Verarbeitung von Daten, Verluste, die von Ihnen oder anderen getragen werden müssen, oder dem Unvermögen des Programms, mit irgendeinem anderen Programm zusammenzuarbeiten), selbst wenn ein Copyright-Inhaber oder Dritter über die Möglichkeit solcher Schäden unterrichtet worden war. --- NEW FILE: GNU Public License.txt --- GNU GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1989, 1991 Free Software Foundation, Inc. 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This General Public License applies to most of the Free Software Foundation's software and to any other program whose authors commit to using it. (Some other Free Software Foundation software is covered by the GNU Library General Public License instead.) You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it. For example, if you distribute copies of such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that redistributors of a free program will individually obtain patent licenses, in effect making the program proprietary. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. The precise terms and conditions for copying, distribution and modification follow. GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The "Program", below, refers to any such program or work, and a "work based on the Program" means either the Program or any derivative work under copyright law: that is to say, a work containing the Program or a portion of it, either verbatim or with modifications and/or translated into another language. (Hereinafter, translation is included without limitation in the term "modification".) Each licensee is addressed as "you". Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running the Program is not restricted, and the output from the Program is covered only if its contents constitute a work based on the Program (independent of having been made by running the Program). Whether that is true depends on what the Program does. 1. You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and give any other recipients of the Program a copy of this License along with the Program. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Program or any portion of it, thus forming a work based on the Program, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) You must cause the modified files to carry prominent notices stating that you changed the files and the date of any change. b) You must cause any work that you distribute or publish, that in whole or in part contains or is derived from the Program or any part thereof, to be licensed as a whole at no charge to all third parties under the terms of this License. c) If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the most ordinary way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this License. (Exception: if the Program itself is interactive but does not normally print such an announcement, your work based on the Program is not required to print an announcement.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Program, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Program, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Program. In addition, mere aggregation of another work not based on the Program with the Program (or with a work based on the Program) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may copy and distribute the Program (or a work based on it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you also do one of the following: a) Accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, b) Accompany it with a written offer, valid for at least three years, to give any third party, for a charge no more than your cost of physically performing source distribution, a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, c) Accompany it with the information you received as to the offer to distribute corresponding source code. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form with such an offer, in accord with Subsection b above.) The source code for a work means the preferred form of the work for making modifications to it. For an executable work, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the executable. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. If distribution of executable or object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place counts as distribution of the source code, even though third parties are not compelled to copy the source along with the object code. 4. You may not copy, modify, sublicense, or distribute the Program except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense or distribute the Program is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 5. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Program or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Program (or any work based on the Program), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Program or works based on it. 6. Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 7. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Program at all. For example, if a patent license would not permit royalty-free redistribution of the Program by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Program. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system, which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 8. If the distribution and/or use of the Program is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Program under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 9. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of this License, you may choose any version ever published by the Free Software Foundation. 10. If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. Index: GetOption.pm =================================================================== RCS file: /cvsroot/kick/kick/GetOption.pm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** GetOption.pm 2001/10/03 19:36:41 1.2 --- GetOption.pm 2001/10/03 20:39:11 1.3 *************** *** 172,175 **** --- 172,178 ---- $Log$ + Revision 1.3 2001/10/03 20:39:11 mrau + Änderung der Lizenz (GNU GPL) + Revision 1.2 2001/10/03 19:36:41 mrau Variable PASS (pass_through Ersatz) eingefügt *************** *** 186,195 **** Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT UND HAFTUNGSAUSSCHLUSS ! Copyright (c) 2001 Michael Rau. Alle Rechte vorbehalten. ! Dieses Programm ist freie Software. Sie können es unter den gleichen ! Bedingungen weitergeben und/oder modifizieren wie PERL selbst. ! =cut \ No newline at end of file --- 189,209 ---- Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT ! Copyright (c) 2001 Michael Rau. ! Dieses Programm ist freie Software. Sie können es unter den Bedingungen der ! GNU General Public License, wie von der Free Software Foundation ! herausgegeben, weitergeben und/oder modifizieren, entweder unter Version 2 der ! Lizenz oder (wenn Sie es wünschen) jeder späteren Version. ! Die Veröffentlichung dieses Programms erfolgt in der Hoffnung, daß es Ihnen ! von Nutzen sein wird, aber OHNE JEDE GEWÄHRLEISTUNG - sogar ohne die implizite ! Gewährleistung der MARKTREIFE oder der EIGNUNG FÜR EINEN BESTIMMTEN ZWECK. ! Details finden Sie in der GNU General Public License. ! ! Sie sollten eine Kopie der GNU General Public License zusammen mit diesem ! Programm erhalten haben. Falls nicht, schreiben Sie an die Free Software ! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ! ! =cut Index: Kick.pm =================================================================== RCS file: /cvsroot/kick/kick/Kick.pm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Kick.pm 2001/10/03 19:36:41 1.2 --- Kick.pm 2001/10/03 20:39:11 1.3 *************** *** 3939,3942 **** --- 3939,3945 ---- $Log$ + Revision 1.3 2001/10/03 20:39:11 mrau + Änderung der Lizenz (GNU GPL) + Revision 1.2 2001/10/03 19:36:41 mrau Variable PASS (pass_through Ersatz) eingefügt *************** *** 3953,3962 **** Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT UND HAFTUNGSAUSSCHLUSS ! Copyright (c) 2001 Michael Rau. Alle Rechte vorbehalten. ! Dieses Programm ist freie Software. Sie können es unter den gleichen ! Bedingungen weitergeben und/oder modifizieren wie PERL selbst. ! =cut \ No newline at end of file --- 3956,3977 ---- Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT ! Copyright (c) 2001 Michael Rau. ! Dieses Programm ist freie Software. Sie können es unter den Bedingungen der ! GNU General Public License, wie von der Free Software Foundation ! herausgegeben, weitergeben und/oder modifizieren, entweder unter Version 2 der ! Lizenz oder (wenn Sie es wünschen) jeder späteren Version. ! Die Veröffentlichung dieses Programms erfolgt in der Hoffnung, daß es Ihnen ! von Nutzen sein wird, aber OHNE JEDE GEWÄHRLEISTUNG - sogar ohne die implizite ! Gewährleistung der MARKTREIFE oder der EIGNUNG FÜR EINEN BESTIMMTEN ZWECK. ! Details finden Sie in der GNU General Public License. ! ! Sie sollten eine Kopie der GNU General Public License zusammen mit diesem ! Programm erhalten haben. Falls nicht, schreiben Sie an die Free Software ! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ! ! =cut ! :endofperl Index: Tools.pm =================================================================== RCS file: /cvsroot/kick/kick/Tools.pm,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** Tools.pm 2001/09/29 09:07:44 1.1.1.1 --- Tools.pm 2001/10/03 20:39:11 1.2 *************** *** 389,392 **** --- 389,395 ---- $Log$ + Revision 1.2 2001/10/03 20:39:11 mrau + Änderung der Lizenz (GNU GPL) + Revision 1.1.1.1 2001/09/29 09:07:44 mrau *************** *** 400,409 **** Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT UND HAFTUNGSAUSSCHLUSS ! Copyright (c) 2001 Michael Rau. Alle Rechte vorbehalten. ! Dieses Programm ist freie Software. Sie können es unter den gleichen ! Bedingungen weitergeben und/oder modifizieren wie PERL selbst. ! =cut \ No newline at end of file --- 403,424 ---- Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT ! Copyright (c) 2001 Michael Rau. ! Dieses Programm ist freie Software. Sie können es unter den Bedingungen der ! GNU General Public License, wie von der Free Software Foundation ! herausgegeben, weitergeben und/oder modifizieren, entweder unter Version 2 der ! Lizenz oder (wenn Sie es wünschen) jeder späteren Version. ! Die Veröffentlichung dieses Programms erfolgt in der Hoffnung, daß es Ihnen ! von Nutzen sein wird, aber OHNE JEDE GEWÄHRLEISTUNG - sogar ohne die implizite ! Gewährleistung der MARKTREIFE oder der EIGNUNG FÜR EINEN BESTIMMTEN ZWECK. ! Details finden Sie in der GNU General Public License. ! ! Sie sollten eine Kopie der GNU General Public License zusammen mit diesem ! Programm erhalten haben. Falls nicht, schreiben Sie an die Free Software ! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ! ! =cut ! :endofperl Index: aauszg =================================================================== RCS file: /cvsroot/kick/kick/aauszg,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** aauszg 2001/10/03 19:37:29 1.3 --- aauszg 2001/10/03 20:39:11 1.4 *************** *** 405,408 **** --- 405,411 ---- $Log$ + Revision 1.4 2001/10/03 20:39:11 mrau + Änderung der Lizenz (GNU GPL) + Revision 1.3 2001/10/03 19:37:29 mrau Child Process Execution verändert *************** *** 422,432 **** Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT UND HAFTUNGSAUSSCHLUSS ! Copyright (c) 2001 Michael Rau. Alle Rechte vorbehalten. ! Dieses Programm ist freie Software. Sie koennen es unter den gleichen ! Bedingungen weitergeben und/oder modifizieren wie PERL selbst. =cut ! :endofperl \ No newline at end of file --- 425,446 ---- Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT ! Copyright (c) 2001 Michael Rau. ! Dieses Programm ist freie Software. Sie können es unter den Bedingungen der ! GNU General Public License, wie von der Free Software Foundation ! herausgegeben, weitergeben und/oder modifizieren, entweder unter Version 2 der ! Lizenz oder (wenn Sie es wünschen) jeder späteren Version. ! ! Die Veröffentlichung dieses Programms erfolgt in der Hoffnung, daß es Ihnen ! von Nutzen sein wird, aber OHNE JEDE GEWÄHRLEISTUNG - sogar ohne die implizite ! Gewährleistung der MARKTREIFE oder der EIGNUNG FÜR EINEN BESTIMMTEN ZWECK. ! Details finden Sie in der GNU General Public License. + Sie sollten eine Kopie der GNU General Public License zusammen mit diesem + Programm erhalten haben. Falls nicht, schreiben Sie an die Free Software + Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + =cut ! :endofperl Index: abschluss =================================================================== RCS file: /cvsroot/kick/kick/abschluss,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** abschluss 2001/09/30 20:43:16 1.2 --- abschluss 2001/10/03 20:39:11 1.3 *************** *** 266,269 **** --- 266,272 ---- $Log$ + Revision 1.3 2001/10/03 20:39:11 mrau + Änderung der Lizenz (GNU GPL) + Revision 1.2 2001/09/30 20:43:16 mrau Perl Location auf /perl/bin geändert *************** *** 280,290 **** Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT UND HAFTUNGSAUSSCHLUSS ! Copyright (c) 2001 Michael Rau. Alle Rechte vorbehalten. ! Dieses Programm ist freie Software. Sie koennen es unter den gleichen ! Bedingungen weitergeben und/oder modifizieren wie PERL selbst. =cut ! :endofperl \ No newline at end of file --- 283,304 ---- Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT ! Copyright (c) 2001 Michael Rau. ! Dieses Programm ist freie Software. Sie können es unter den Bedingungen der ! GNU General Public License, wie von der Free Software Foundation ! herausgegeben, weitergeben und/oder modifizieren, entweder unter Version 2 der ! Lizenz oder (wenn Sie es wünschen) jeder späteren Version. ! ! Die Veröffentlichung dieses Programms erfolgt in der Hoffnung, daß es Ihnen ! von Nutzen sein wird, aber OHNE JEDE GEWÄHRLEISTUNG - sogar ohne die implizite ! Gewährleistung der MARKTREIFE oder der EIGNUNG FÜR EINEN BESTIMMTEN ZWECK. ! Details finden Sie in der GNU General Public License. + Sie sollten eine Kopie der GNU General Public License zusammen mit diesem + Programm erhalten haben. Falls nicht, schreiben Sie an die Free Software + Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + =cut ! :endofperl Index: asaldo =================================================================== RCS file: /cvsroot/kick/kick/asaldo,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** asaldo 2001/09/30 20:43:16 1.2 --- asaldo 2001/10/03 20:39:11 1.3 *************** *** 251,254 **** --- 251,257 ---- $Log$ + Revision 1.3 2001/10/03 20:39:11 mrau + Änderung der Lizenz (GNU GPL) + Revision 1.2 2001/09/30 20:43:16 mrau Perl Location auf /perl/bin geändert *************** *** 265,275 **** Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT UND HAFTUNGSAUSSCHLUSS ! Copyright (c) 2001 Michael Rau. Alle Rechte vorbehalten. ! Dieses Programm ist freie Software. Sie koennen es unter den gleichen ! Bedingungen weitergeben und/oder modifizieren wie PERL selbst. =cut ! :endofperl \ No newline at end of file --- 268,289 ---- Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT ! Copyright (c) 2001 Michael Rau. ! Dieses Programm ist freie Software. Sie können es unter den Bedingungen der ! GNU General Public License, wie von der Free Software Foundation ! herausgegeben, weitergeben und/oder modifizieren, entweder unter Version 2 der ! Lizenz oder (wenn Sie es wünschen) jeder späteren Version. ! ! Die Veröffentlichung dieses Programms erfolgt in der Hoffnung, daß es Ihnen ! von Nutzen sein wird, aber OHNE JEDE GEWÄHRLEISTUNG - sogar ohne die implizite ! Gewährleistung der MARKTREIFE oder der EIGNUNG FÜR EINEN BESTIMMTEN ZWECK. ! Details finden Sie in der GNU General Public License. + Sie sollten eine Kopie der GNU General Public License zusammen mit diesem + Programm erhalten haben. Falls nicht, schreiben Sie an die Free Software + Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + =cut ! :endofperl Index: auszg =================================================================== RCS file: /cvsroot/kick/kick/auszg,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** auszg 2001/09/30 20:43:16 1.2 --- auszg 2001/10/03 20:39:11 1.3 *************** *** 379,382 **** --- 379,385 ---- $Log$ + Revision 1.3 2001/10/03 20:39:11 mrau + Änderung der Lizenz (GNU GPL) + Revision 1.2 2001/09/30 20:43:16 mrau Perl Location auf /perl/bin geändert *************** *** 393,403 **** Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT UND HAFTUNGSAUSSCHLUSS ! Copyright (c) 2001 Michael Rau. Alle Rechte vorbehalten. ! Dieses Programm ist freie Software. Sie koennen es unter den gleichen ! Bedingungen weitergeben und/oder modifizieren wie PERL selbst. =cut ! :endofperl \ No newline at end of file --- 396,417 ---- Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT ! Copyright (c) 2001 Michael Rau. ! Dieses Programm ist freie Software. Sie können es unter den Bedingungen der ! GNU General Public License, wie von der Free Software Foundation ! herausgegeben, weitergeben und/oder modifizieren, entweder unter Version 2 der ! Lizenz oder (wenn Sie es wünschen) jeder späteren Version. ! ! Die Veröffentlichung dieses Programms erfolgt in der Hoffnung, daß es Ihnen ! von Nutzen sein wird, aber OHNE JEDE GEWÄHRLEISTUNG - sogar ohne die implizite ! Gewährleistung der MARKTREIFE oder der EIGNUNG FÜR EINEN BESTIMMTEN ZWECK. ! Details finden Sie in der GNU General Public License. + Sie sollten eine Kopie der GNU General Public License zusammen mit diesem + Programm erhalten haben. Falls nicht, schreiben Sie an die Free Software + Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + =cut ! :endofperl Index: buche =================================================================== RCS file: /cvsroot/kick/kick/buche,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** buche 2001/10/03 19:36:41 1.3 --- buche 2001/10/03 20:39:11 1.4 *************** *** 413,416 **** --- 413,419 ---- $Log$ + Revision 1.4 2001/10/03 20:39:11 mrau + Änderung der Lizenz (GNU GPL) + Revision 1.3 2001/10/03 19:36:41 mrau Variable PASS (pass_through Ersatz) eingefügt *************** *** 430,440 **** Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT UND HAFTUNGSAUSSCHLUSS ! Copyright (c) 2001 Michael Rau. Alle Rechte vorbehalten. ! Dieses Programm ist freie Software. Sie koennen es unter den gleichen ! Bedingungen weitergeben und/oder modifizieren wie PERL selbst. =cut ! :endofperl \ No newline at end of file --- 433,454 ---- Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT ! Copyright (c) 2001 Michael Rau. ! Dieses Programm ist freie Software. Sie können es unter den Bedingungen der ! GNU General Public License, wie von der Free Software Foundation ! herausgegeben, weitergeben und/oder modifizieren, entweder unter Version 2 der ! Lizenz oder (wenn Sie es wünschen) jeder späteren Version. ! ! Die Veröffentlichung dieses Programms erfolgt in der Hoffnung, daß es Ihnen ! von Nutzen sein wird, aber OHNE JEDE GEWÄHRLEISTUNG - sogar ohne die implizite ! Gewährleistung der MARKTREIFE oder der EIGNUNG FÜR EINEN BESTIMMTEN ZWECK. ! Details finden Sie in der GNU General Public License. + Sie sollten eine Kopie der GNU General Public License zusammen mit diesem + Programm erhalten haben. Falls nicht, schreiben Sie an die Free Software + Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + =cut ! :endofperl Index: dauszg =================================================================== RCS file: /cvsroot/kick/kick/dauszg,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** dauszg 2001/09/30 20:43:16 1.2 --- dauszg 2001/10/03 20:39:11 1.3 *************** *** 487,490 **** --- 487,493 ---- $Log$ + Revision 1.3 2001/10/03 20:39:11 mrau + Änderung der Lizenz (GNU GPL) + Revision 1.2 2001/09/30 20:43:16 mrau Perl Location auf /perl/bin geändert *************** *** 501,511 **** Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT UND HAFTUNGSAUSSCHLUSS ! Copyright (c) 2001 Michael Rau. Alle Rechte vorbehalten. ! Dieses Programm ist freie Software. Sie koennen es unter den gleichen ! Bedingungen weitergeben und/oder modifizieren wie PERL selbst. =cut ! :endofperl \ No newline at end of file --- 504,525 ---- Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT ! Copyright (c) 2001 Michael Rau. ! Dieses Programm ist freie Software. Sie können es unter den Bedingungen der ! GNU General Public License, wie von der Free Software Foundation ! herausgegeben, weitergeben und/oder modifizieren, entweder unter Version 2 der ! Lizenz oder (wenn Sie es wünschen) jeder späteren Version. ! ! Die Veröffentlichung dieses Programms erfolgt in der Hoffnung, daß es Ihnen ! von Nutzen sein wird, aber OHNE JEDE GEWÄHRLEISTUNG - sogar ohne die implizite ! Gewährleistung der MARKTREIFE oder der EIGNUNG FÜR EINEN BESTIMMTEN ZWECK. ! Details finden Sie in der GNU General Public License. + Sie sollten eine Kopie der GNU General Public License zusammen mit diesem + Programm erhalten haben. Falls nicht, schreiben Sie an die Free Software + Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + =cut ! :endofperl Index: dosql =================================================================== RCS file: /cvsroot/kick/kick/dosql,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** dosql 2001/09/30 20:43:16 1.2 --- dosql 2001/10/03 20:39:11 1.3 *************** *** 193,196 **** --- 193,199 ---- $Log$ + Revision 1.3 2001/10/03 20:39:11 mrau + Änderung der Lizenz (GNU GPL) + Revision 1.2 2001/09/30 20:43:16 mrau Perl Location auf /perl/bin geändert *************** *** 207,217 **** Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT UND HAFTUNGSAUSSCHLUSS ! Copyright (c) 2001 Michael Rau. Alle Rechte vorbehalten. ! Dieses Programm ist freie Software. Sie koennen es unter den gleichen ! Bedingungen weitergeben und/oder modifizieren wie PERL selbst. =cut ! :endofperl \ No newline at end of file --- 210,231 ---- Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT ! Copyright (c) 2001 Michael Rau. ! Dieses Programm ist freie Software. Sie können es unter den Bedingungen der ! GNU General Public License, wie von der Free Software Foundation ! herausgegeben, weitergeben und/oder modifizieren, entweder unter Version 2 der ! Lizenz oder (wenn Sie es wünschen) jeder späteren Version. ! ! Die Veröffentlichung dieses Programms erfolgt in der Hoffnung, daß es Ihnen ! von Nutzen sein wird, aber OHNE JEDE GEWÄHRLEISTUNG - sogar ohne die implizite ! Gewährleistung der MARKTREIFE oder der EIGNUNG FÜR EINEN BESTIMMTEN ZWECK. ! Details finden Sie in der GNU General Public License. + Sie sollten eine Kopie der GNU General Public License zusammen mit diesem + Programm erhalten haben. Falls nicht, schreiben Sie an die Free Software + Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + =cut ! :endofperl Index: eintrag =================================================================== RCS file: /cvsroot/kick/kick/eintrag,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** eintrag 2001/10/03 19:36:41 1.3 --- eintrag 2001/10/03 20:39:11 1.4 *************** *** 318,321 **** --- 318,324 ---- $Log$ + Revision 1.4 2001/10/03 20:39:11 mrau + Änderung der Lizenz (GNU GPL) + Revision 1.3 2001/10/03 19:36:41 mrau Variable PASS (pass_through Ersatz) eingefügt *************** *** 335,345 **** Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT UND HAFTUNGSAUSSCHLUSS ! Copyright (c) 2001 Michael Rau. Alle Rechte vorbehalten. ! Dieses Programm ist freie Software. Sie koennen es unter den gleichen ! Bedingungen weitergeben und/oder modifizieren wie PERL selbst. =cut ! :endofperl \ No newline at end of file --- 338,359 ---- Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT ! Copyright (c) 2001 Michael Rau. ! Dieses Programm ist freie Software. Sie können es unter den Bedingungen der ! GNU General Public License, wie von der Free Software Foundation ! herausgegeben, weitergeben und/oder modifizieren, entweder unter Version 2 der ! Lizenz oder (wenn Sie es wünschen) jeder späteren Version. ! ! Die Veröffentlichung dieses Programms erfolgt in der Hoffnung, daß es Ihnen ! von Nutzen sein wird, aber OHNE JEDE GEWÄHRLEISTUNG - sogar ohne die implizite ! Gewährleistung der MARKTREIFE oder der EIGNUNG FÜR EINEN BESTIMMTEN ZWECK. ! Details finden Sie in der GNU General Public License. + Sie sollten eine Kopie der GNU General Public License zusammen mit diesem + Programm erhalten haben. Falls nicht, schreiben Sie an die Free Software + Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + =cut ! :endofperl Index: init =================================================================== RCS file: /cvsroot/kick/kick/init,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** init 2001/09/30 20:43:16 1.2 --- init 2001/10/03 20:39:11 1.3 *************** *** 69,72 **** --- 69,75 ---- $Log$ + Revision 1.3 2001/10/03 20:39:11 mrau + Änderung der Lizenz (GNU GPL) + Revision 1.2 2001/09/30 20:43:16 mrau Perl Location auf /perl/bin geändert *************** *** 83,93 **** Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT UND HAFTUNGSAUSSCHLUSS ! Copyright (c) 2001 Michael Rau. Alle Rechte vorbehalten. ! Dieses Programm ist freie Software. Sie koennen es unter den gleichen ! Bedingungen weitergeben und/oder modifizieren wie PERL selbst. =cut ! :endofperl \ No newline at end of file --- 86,107 ---- Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT ! Copyright (c) 2001 Michael Rau. ! Dieses Programm ist freie Software. Sie können es unter den Bedingungen der ! GNU General Public License, wie von der Free Software Foundation ! herausgegeben, weitergeben und/oder modifizieren, entweder unter Version 2 der ! Lizenz oder (wenn Sie es wünschen) jeder späteren Version. ! ! Die Veröffentlichung dieses Programms erfolgt in der Hoffnung, daß es Ihnen ! von Nutzen sein wird, aber OHNE JEDE GEWÄHRLEISTUNG - sogar ohne die implizite ! Gewährleistung der MARKTREIFE oder der EIGNUNG FÜR EINEN BESTIMMTEN ZWECK. ! Details finden Sie in der GNU General Public License. + Sie sollten eine Kopie der GNU General Public License zusammen mit diesem + Programm erhalten haben. Falls nicht, schreiben Sie an die Free Software + Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + =cut ! :endofperl Index: kauszg =================================================================== RCS file: /cvsroot/kick/kick/kauszg,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** kauszg 2001/10/03 19:37:29 1.3 --- kauszg 2001/10/03 20:39:11 1.4 *************** *** 488,491 **** --- 488,494 ---- $Log$ + Revision 1.4 2001/10/03 20:39:11 mrau + Änderung der Lizenz (GNU GPL) + Revision 1.3 2001/10/03 19:37:29 mrau Child Process Execution verändert *************** *** 505,515 **** Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT UND HAFTUNGSAUSSCHLUSS ! Copyright (c) 2001 Michael Rau. Alle Rechte vorbehalten. ! Dieses Programm ist freie Software. Sie koennen es unter den gleichen ! Bedingungen weitergeben und/oder modifizieren wie PERL selbst. =cut ! :endofperl \ No newline at end of file --- 508,529 ---- Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT ! Copyright (c) 2001 Michael Rau. ! Dieses Programm ist freie Software. Sie können es unter den Bedingungen der ! GNU General Public License, wie von der Free Software Foundation ! herausgegeben, weitergeben und/oder modifizieren, entweder unter Version 2 der ! Lizenz oder (wenn Sie es wünschen) jeder späteren Version. ! ! Die Veröffentlichung dieses Programms erfolgt in der Hoffnung, daß es Ihnen ! von Nutzen sein wird, aber OHNE JEDE GEWÄHRLEISTUNG - sogar ohne die implizite ! Gewährleistung der MARKTREIFE oder der EIGNUNG FÜR EINEN BESTIMMTEN ZWECK. ! Details finden Sie in der GNU General Public License. + Sie sollten eine Kopie der GNU General Public License zusammen mit diesem + Programm erhalten haben. Falls nicht, schreiben Sie an die Free Software + Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + =cut ! :endofperl Index: ksaldo =================================================================== RCS file: /cvsroot/kick/kick/ksaldo,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** ksaldo 2001/09/30 20:43:16 1.2 --- ksaldo 2001/10/03 20:39:11 1.3 *************** *** 214,217 **** --- 214,220 ---- $Log$ + Revision 1.3 2001/10/03 20:39:11 mrau + Änderung der Lizenz (GNU GPL) + Revision 1.2 2001/09/30 20:43:16 mrau Perl Location auf /perl/bin geändert *************** *** 228,238 **** Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT UND HAFTUNGSAUSSCHLUSS ! Copyright (c) 2001 Michael Rau. Alle Rechte vorbehalten. ! Dieses Programm ist freie Software. Sie koennen es unter den gleichen ! Bedingungen weitergeben und/oder modifizieren wie PERL selbst. =cut ! :endofperl \ No newline at end of file --- 231,252 ---- Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT ! Copyright (c) 2001 Michael Rau. ! Dieses Programm ist freie Software. Sie können es unter den Bedingungen der ! GNU General Public License, wie von der Free Software Foundation ! herausgegeben, weitergeben und/oder modifizieren, entweder unter Version 2 der ! Lizenz oder (wenn Sie es wünschen) jeder späteren Version. ! ! Die Veröffentlichung dieses Programms erfolgt in der Hoffnung, daß es Ihnen ! von Nutzen sein wird, aber OHNE JEDE GEWÄHRLEISTUNG - sogar ohne die implizite ! Gewährleistung der MARKTREIFE oder der EIGNUNG FÜR EINEN BESTIMMTEN ZWECK. ! Details finden Sie in der GNU General Public License. + Sie sollten eine Kopie der GNU General Public License zusammen mit diesem + Programm erhalten haben. Falls nicht, schreiben Sie an die Free Software + Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + =cut ! :endofperl Index: ksh =================================================================== RCS file: /cvsroot/kick/kick/ksh,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** ksh 2001/09/30 20:43:16 1.2 --- ksh 2001/10/03 20:39:11 1.3 *************** *** 160,163 **** --- 160,166 ---- $Log$ + Revision 1.3 2001/10/03 20:39:11 mrau + Änderung der Lizenz (GNU GPL) + Revision 1.2 2001/09/30 20:43:16 mrau Perl Location auf /perl/bin geändert *************** *** 174,183 **** Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT UND HA... [truncated message content] |
Update of /cvsroot/kick/kick/doc In directory usw-pr-cvs1:/tmp/cvs-serv11692/doc Modified Files: beispiel1.pod beispiel2.pod beispiel3.pod beispiel4.pod db.pod howtos.pod manual.pod skripte.pod Log Message: Änderung der Lizenz (GNU GPL) Index: beispiel1.pod =================================================================== RCS file: /cvsroot/kick/kick/doc/beispiel1.pod,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** beispiel1.pod 2001/09/29 09:08:07 1.1.1.1 --- beispiel1.pod 2001/10/03 20:39:11 1.2 *************** *** 412,415 **** --- 412,418 ---- $Log$ + Revision 1.2 2001/10/03 20:39:11 mrau + Änderung der Lizenz (GNU GPL) + Revision 1.1.1.1 2001/09/29 09:08:07 mrau *************** *** 423,432 **** Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT UND HAFTUNGSAUSSCHLUSS ! Copyright (c) 2001 Michael Rau. Alle Rechte vorbehalten. ! Dieses Programm ist freie Software. Sie können es unter den gleichen ! Bedingungen weitergeben und/oder modifizieren wie PERL selbst. =cut --- 426,446 ---- Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT ! Copyright (c) 2001 Michael Rau. ! Dieses Programm ist freie Software. Sie können es unter den Bedingungen der ! GNU General Public License, wie von der Free Software Foundation ! herausgegeben, weitergeben und/oder modifizieren, entweder unter Version 2 der ! Lizenz oder (wenn Sie es wünschen) jeder späteren Version. ! ! Die Veröffentlichung dieses Programms erfolgt in der Hoffnung, daß es Ihnen ! von Nutzen sein wird, aber OHNE JEDE GEWÄHRLEISTUNG - sogar ohne die implizite ! Gewährleistung der MARKTREIFE oder der EIGNUNG FÜR EINEN BESTIMMTEN ZWECK. ! Details finden Sie in der GNU General Public License. ! ! Sie sollten eine Kopie der GNU General Public License zusammen mit diesem ! Programm erhalten haben. Falls nicht, schreiben Sie an die Free Software ! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. =cut Index: beispiel2.pod =================================================================== RCS file: /cvsroot/kick/kick/doc/beispiel2.pod,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** beispiel2.pod 2001/09/29 09:08:05 1.1.1.1 --- beispiel2.pod 2001/10/03 20:39:11 1.2 *************** *** 377,380 **** --- 377,383 ---- $Log$ + Revision 1.2 2001/10/03 20:39:11 mrau + Änderung der Lizenz (GNU GPL) + Revision 1.1.1.1 2001/09/29 09:08:05 mrau *************** *** 388,397 **** Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT UND HAFTUNGSAUSSCHLUSS ! Copyright (c) 2001 Michael Rau. Alle Rechte vorbehalten. ! Dieses Programm ist freie Software. Sie können es unter den gleichen ! Bedingungen weitergeben und/oder modifizieren wie PERL selbst. ! =cut \ No newline at end of file --- 391,411 ---- Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT ! Copyright (c) 2001 Michael Rau. ! Dieses Programm ist freie Software. Sie können es unter den Bedingungen der ! GNU General Public License, wie von der Free Software Foundation ! herausgegeben, weitergeben und/oder modifizieren, entweder unter Version 2 der ! Lizenz oder (wenn Sie es wünschen) jeder späteren Version. ! Die Veröffentlichung dieses Programms erfolgt in der Hoffnung, daß es Ihnen ! von Nutzen sein wird, aber OHNE JEDE GEWÄHRLEISTUNG - sogar ohne die implizite ! Gewährleistung der MARKTREIFE oder der EIGNUNG FÜR EINEN BESTIMMTEN ZWECK. ! Details finden Sie in der GNU General Public License. ! ! Sie sollten eine Kopie der GNU General Public License zusammen mit diesem ! Programm erhalten haben. Falls nicht, schreiben Sie an die Free Software ! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ! ! =cut Index: beispiel3.pod =================================================================== RCS file: /cvsroot/kick/kick/doc/beispiel3.pod,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** beispiel3.pod 2001/09/29 09:08:08 1.1.1.1 --- beispiel3.pod 2001/10/03 20:39:11 1.2 *************** *** 188,191 **** --- 188,194 ---- $Log$ + Revision 1.2 2001/10/03 20:39:11 mrau + Änderung der Lizenz (GNU GPL) + Revision 1.1.1.1 2001/09/29 09:08:08 mrau *************** *** 199,208 **** Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT UND HAFTUNGSAUSSCHLUSS ! Copyright (c) 2001 Michael Rau. Alle Rechte vorbehalten. ! Dieses Programm ist freie Software. Sie können es unter den gleichen ! Bedingungen weitergeben und/oder modifizieren wie PERL selbst. =cut --- 202,222 ---- Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT ! Copyright (c) 2001 Michael Rau. ! Dieses Programm ist freie Software. Sie können es unter den Bedingungen der ! GNU General Public License, wie von der Free Software Foundation ! herausgegeben, weitergeben und/oder modifizieren, entweder unter Version 2 der ! Lizenz oder (wenn Sie es wünschen) jeder späteren Version. ! ! Die Veröffentlichung dieses Programms erfolgt in der Hoffnung, daß es Ihnen ! von Nutzen sein wird, aber OHNE JEDE GEWÄHRLEISTUNG - sogar ohne die implizite ! Gewährleistung der MARKTREIFE oder der EIGNUNG FÜR EINEN BESTIMMTEN ZWECK. ! Details finden Sie in der GNU General Public License. ! ! Sie sollten eine Kopie der GNU General Public License zusammen mit diesem ! Programm erhalten haben. Falls nicht, schreiben Sie an die Free Software ! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. =cut Index: beispiel4.pod =================================================================== RCS file: /cvsroot/kick/kick/doc/beispiel4.pod,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** beispiel4.pod 2001/09/29 09:08:12 1.1.1.1 --- beispiel4.pod 2001/10/03 20:39:11 1.2 *************** *** 116,119 **** --- 116,122 ---- $Log$ + Revision 1.2 2001/10/03 20:39:11 mrau + Änderung der Lizenz (GNU GPL) + Revision 1.1.1.1 2001/09/29 09:08:12 mrau *************** *** 127,136 **** Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT UND HAFTUNGSAUSSCHLUSS ! Copyright (c) 2001 Michael Rau. Alle Rechte vorbehalten. ! Dieses Programm ist freie Software. Sie können es unter den gleichen ! Bedingungen weitergeben und/oder modifizieren wie PERL selbst. ! =cut \ No newline at end of file --- 130,150 ---- Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT ! Copyright (c) 2001 Michael Rau. ! Dieses Programm ist freie Software. Sie können es unter den Bedingungen der ! GNU General Public License, wie von der Free Software Foundation ! herausgegeben, weitergeben und/oder modifizieren, entweder unter Version 2 der ! Lizenz oder (wenn Sie es wünschen) jeder späteren Version. ! Die Veröffentlichung dieses Programms erfolgt in der Hoffnung, daß es Ihnen ! von Nutzen sein wird, aber OHNE JEDE GEWÄHRLEISTUNG - sogar ohne die implizite ! Gewährleistung der MARKTREIFE oder der EIGNUNG FÜR EINEN BESTIMMTEN ZWECK. ! Details finden Sie in der GNU General Public License. ! ! Sie sollten eine Kopie der GNU General Public License zusammen mit diesem ! Programm erhalten haben. Falls nicht, schreiben Sie an die Free Software ! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ! ! =cut Index: db.pod =================================================================== RCS file: /cvsroot/kick/kick/doc/db.pod,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** db.pod 2001/09/29 09:07:50 1.1.1.1 --- db.pod 2001/10/03 20:39:11 1.2 *************** *** 506,509 **** --- 506,512 ---- $Log$ + Revision 1.2 2001/10/03 20:39:11 mrau + Änderung der Lizenz (GNU GPL) + Revision 1.1.1.1 2001/09/29 09:07:50 mrau *************** *** 517,526 **** Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT UND HAFTUNGSAUSSCHLUSS ! Copyright (c) 2001 Michael Rau. Alle Rechte vorbehalten. ! Dieses Programm ist freie Software. Sie können es unter den gleichen ! Bedingungen weitergeben und/oder modifizieren wie PERL selbst. ! =cut \ No newline at end of file --- 520,540 ---- Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT ! Copyright (c) 2001 Michael Rau. ! Dieses Programm ist freie Software. Sie können es unter den Bedingungen der ! GNU General Public License, wie von der Free Software Foundation ! herausgegeben, weitergeben und/oder modifizieren, entweder unter Version 2 der ! Lizenz oder (wenn Sie es wünschen) jeder späteren Version. ! Die Veröffentlichung dieses Programms erfolgt in der Hoffnung, daß es Ihnen ! von Nutzen sein wird, aber OHNE JEDE GEWÄHRLEISTUNG - sogar ohne die implizite ! Gewährleistung der MARKTREIFE oder der EIGNUNG FÜR EINEN BESTIMMTEN ZWECK. ! Details finden Sie in der GNU General Public License. ! ! Sie sollten eine Kopie der GNU General Public License zusammen mit diesem ! Programm erhalten haben. Falls nicht, schreiben Sie an die Free Software ! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ! ! =cut Index: howtos.pod =================================================================== RCS file: /cvsroot/kick/kick/doc/howtos.pod,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** howtos.pod 2001/09/30 20:43:16 1.2 --- howtos.pod 2001/10/03 20:39:11 1.3 *************** *** 551,554 **** --- 551,557 ---- $Log$ + Revision 1.3 2001/10/03 20:39:11 mrau + Änderung der Lizenz (GNU GPL) + Revision 1.2 2001/09/30 20:43:16 mrau Perl Location auf /perl/bin geändert *************** *** 565,574 **** Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT UND HAFTUNGSAUSSCHLUSS ! Copyright (c) 2001 Michael Rau. Alle Rechte vorbehalten. ! Dieses Programm ist freie Software. Sie können es unter den gleichen ! Bedingungen weitergeben und/oder modifizieren wie PERL selbst. ! =cut \ No newline at end of file --- 568,588 ---- Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT ! Copyright (c) 2001 Michael Rau. ! Dieses Programm ist freie Software. Sie können es unter den Bedingungen der ! GNU General Public License, wie von der Free Software Foundation ! herausgegeben, weitergeben und/oder modifizieren, entweder unter Version 2 der ! Lizenz oder (wenn Sie es wünschen) jeder späteren Version. ! Die Veröffentlichung dieses Programms erfolgt in der Hoffnung, daß es Ihnen ! von Nutzen sein wird, aber OHNE JEDE GEWÄHRLEISTUNG - sogar ohne die implizite ! Gewährleistung der MARKTREIFE oder der EIGNUNG FÜR EINEN BESTIMMTEN ZWECK. ! Details finden Sie in der GNU General Public License. ! ! Sie sollten eine Kopie der GNU General Public License zusammen mit diesem ! Programm erhalten haben. Falls nicht, schreiben Sie an die Free Software ! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ! ! =cut Index: manual.pod =================================================================== RCS file: /cvsroot/kick/kick/doc/manual.pod,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** manual.pod 2001/09/29 09:08:02 1.1.1.1 --- manual.pod 2001/10/03 20:39:11 1.2 *************** *** 566,569 **** --- 566,572 ---- $Log$ + Revision 1.2 2001/10/03 20:39:11 mrau + Änderung der Lizenz (GNU GPL) + Revision 1.1.1.1 2001/09/29 09:08:02 mrau *************** *** 577,586 **** Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT UND HAFTUNGSAUSSCHLUSS ! Copyright (c) 2001 Michael Rau. Alle Rechte vorbehalten. ! Dieses Programm ist freie Software. Sie können es unter den gleichen ! Bedingungen weitergeben und/oder modifizieren wie PERL selbst. ! =cut \ No newline at end of file --- 580,600 ---- Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT ! Copyright (c) 2001 Michael Rau. ! Dieses Programm ist freie Software. Sie können es unter den Bedingungen der ! GNU General Public License, wie von der Free Software Foundation ! herausgegeben, weitergeben und/oder modifizieren, entweder unter Version 2 der ! Lizenz oder (wenn Sie es wünschen) jeder späteren Version. ! Die Veröffentlichung dieses Programms erfolgt in der Hoffnung, daß es Ihnen ! von Nutzen sein wird, aber OHNE JEDE GEWÄHRLEISTUNG - sogar ohne die implizite ! Gewährleistung der MARKTREIFE oder der EIGNUNG FÜR EINEN BESTIMMTEN ZWECK. ! Details finden Sie in der GNU General Public License. ! ! Sie sollten eine Kopie der GNU General Public License zusammen mit diesem ! Programm erhalten haben. Falls nicht, schreiben Sie an die Free Software ! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ! ! =cut Index: skripte.pod =================================================================== RCS file: /cvsroot/kick/kick/doc/skripte.pod,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** skripte.pod 2001/09/29 09:08:03 1.1.1.1 --- skripte.pod 2001/10/03 20:39:11 1.2 *************** *** 120,123 **** --- 120,126 ---- $Log$ + Revision 1.2 2001/10/03 20:39:11 mrau + Änderung der Lizenz (GNU GPL) + Revision 1.1.1.1 2001/09/29 09:08:03 mrau *************** *** 131,140 **** Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT UND HAFTUNGSAUSSCHLUSS ! Copyright (c) 2001 Michael Rau. Alle Rechte vorbehalten. ! Dieses Programm ist freie Software. Sie können es unter den gleichen ! Bedingungen weitergeben und/oder modifizieren wie PERL selbst. =cut --- 134,154 ---- Bug Reports, Feedback und Kommentare sind herzlich willkommen. ! =head1 COPYRIGHT ! Copyright (c) 2001 Michael Rau. ! Dieses Programm ist freie Software. Sie können es unter den Bedingungen der ! GNU General Public License, wie von der Free Software Foundation ! herausgegeben, weitergeben und/oder modifizieren, entweder unter Version 2 der ! Lizenz oder (wenn Sie es wünschen) jeder späteren Version. ! ! Die Veröffentlichung dieses Programms erfolgt in der Hoffnung, daß es Ihnen ! von Nutzen sein wird, aber OHNE JEDE GEWÄHRLEISTUNG - sogar ohne die implizite ! Gewährleistung der MARKTREIFE oder der EIGNUNG FÜR EINEN BESTIMMTEN ZWECK. ! Details finden Sie in der GNU General Public License. ! ! Sie sollten eine Kopie der GNU General Public License zusammen mit diesem ! Programm erhalten haben. Falls nicht, schreiben Sie an die Free Software ! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. =cut |
From: Michael R. <mr...@us...> - 2001-10-03 20:08:02
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv22600 Modified Files: kExec.pl Log Message: Bugfix Index: kExec.pl =================================================================== RCS file: /cvsroot/kick/kick/kExec.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** kExec.pl 2001/09/30 20:43:16 1.1 --- kExec.pl 2001/10/03 20:07:59 1.2 *************** *** 28,52 **** exec ('perl ksh kExec.$$$'); - - __END__ - - - $text =~ s/[\r\n]+/ /gis; - my @com = &parse_line(";", 1, $text); - - foreach my $line (@com) { - $line =~ s/^\s+//; - $line =~ s/\s+$//; - if ($line) { - if ($line =~ /^\`(.+)\`$/) { - print "DOS: $1\n"; - print `$1`; - } - else { - print "PERL $line\n"; - print `perl $line`; - } - } - } - - --- 28,29 ---- |
From: Michael R. <mr...@us...> - 2001-10-03 19:39:47
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv5653 Removed Files: bild Log Message: Wird ohne Batch Skripte nicht mehr benötigt --- bild DELETED --- |
From: Michael R. <mr...@us...> - 2001-10-03 19:37:47
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv4526 Modified Files: liste Log Message: Prozeduraufruf vereinheitlicht Index: liste =================================================================== RCS file: /cvsroot/kick/kick/liste,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** liste 2001/09/30 20:43:16 1.2 --- liste 2001/10/03 19:37:45 1.3 *************** *** 17,21 **** my %opt; ! Options ( \%opt, "konten", --- 17,21 ---- my %opt; ! &Options ( \%opt, "konten", *************** *** 280,283 **** --- 280,286 ---- $Log$ + Revision 1.3 2001/10/03 19:37:45 mrau + Prozeduraufruf vereinheitlicht + Revision 1.2 2001/09/30 20:43:16 mrau Perl Location auf /perl/bin geändert |
From: Michael R. <mr...@us...> - 2001-10-03 19:37:31
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv4305 Modified Files: status kauszg aauszg Log Message: Child Process Execution verändert Index: status =================================================================== RCS file: /cvsroot/kick/kick/status,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** status 2001/09/30 20:43:16 1.2 --- status 2001/10/03 19:37:29 1.3 *************** *** 72,76 **** &LongDate($jahr, $monat, $tag); ! my @result = `$com`; shift @result; pop @result; --- 72,76 ---- &LongDate($jahr, $monat, $tag); ! my @result = `perl $com`; shift @result; pop @result; *************** *** 118,125 **** if ($opt { alle } || $opt { konten }) { ! my $com = sprintf 'kauszg -bis "%s" -summe -alle -csv', &LongDate($jahr, $monat, $tag); ! my @result = `$com`; shift @result; pop @result; --- 118,125 ---- if ($opt { alle } || $opt { konten }) { ! my $com = sprintf 'ksaldo -bis "%s" -alle -csv', &LongDate($jahr, $monat, $tag); ! my @result = `perl $com`; shift @result; pop @result; *************** *** 161,165 **** &LongDate($jahr, $monat, $tag); ! my @result = `$com`; shift @result; pop @result; --- 161,165 ---- &LongDate($jahr, $monat, $tag); ! my @result = `perl $com`; shift @result; pop @result; *************** *** 259,262 **** --- 259,265 ---- $Log$ + Revision 1.3 2001/10/03 19:37:29 mrau + Child Process Execution verändert + Revision 1.2 2001/09/30 20:43:16 mrau Perl Location auf /perl/bin geändert *************** *** 281,283 **** =cut ! :endofperl \ No newline at end of file --- 284,286 ---- =cut ! :endofperl Index: kauszg =================================================================== RCS file: /cvsroot/kick/kick/kauszg,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** kauszg 2001/09/30 20:43:16 1.2 --- kauszg 2001/10/03 19:37:29 1.3 *************** *** 41,45 **** my $com = sprintf 'ksaldo %s', join ' ', map { $_ !~ /summe|posten|kopf|von|kurz/i ? "-$_ ".'"'.$opt { $_ }.'"' : "" } keys %opt; ! exec ("$com"); } --- 41,46 ---- my $com = sprintf 'ksaldo %s', join ' ', map { $_ !~ /summe|posten|kopf|von|kurz/i ? "-$_ ".'"'.$opt { $_ }.'"' : "" } keys %opt; ! print `perl $com`; ! exit; } *************** *** 487,490 **** --- 488,494 ---- $Log$ + Revision 1.3 2001/10/03 19:37:29 mrau + Child Process Execution verändert + Revision 1.2 2001/09/30 20:43:16 mrau Perl Location auf /perl/bin geändert Index: aauszg =================================================================== RCS file: /cvsroot/kick/kick/aauszg,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** aauszg 2001/09/30 20:43:16 1.2 --- aauszg 2001/10/03 19:37:29 1.3 *************** *** 44,48 **** my $com = sprintf 'asaldo %s', join ' ', map { $_ !~ /summe|kopf|von|kurz/i ? "-$_ ".'"'.$opt { $_ }.'"' : "" } keys %opt; ! exec ("$com"); } --- 44,49 ---- my $com = sprintf 'asaldo %s', join ' ', map { $_ !~ /summe|kopf|von|kurz/i ? "-$_ ".'"'.$opt { $_ }.'"' : "" } keys %opt; ! print `perl $com`; ! exit; } *************** *** 404,407 **** --- 405,411 ---- $Log$ + Revision 1.3 2001/10/03 19:37:29 mrau + Child Process Execution verändert + Revision 1.2 2001/09/30 20:43:16 mrau Perl Location auf /perl/bin geändert |