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-09-27 23:32:09
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv16500 Added Files: mkall.pl Log Message: no message --- NEW FILE: mkall.pl --- #!/usr/bin/perl # ============================================================================= # RVS Status : $State: Exp $ # Author : $Author: mrau $ # Last Modified : $Date: 2002/09/27 23:32:06 $ # Revision : $Revision: 1.1 $ # ============================================================================= use Getopt::Long; # ============================================================================== my $EXECUTE = 'perl ksh %s/%s'; my $LOG = 'all.log'; my $SEPERATOR = ''; # ============================================================================== my (%parms); GetOptions ( \%parms, "-older:s", "-newer:s", "-help", "-noexecute", ); # help if ($parms { help }) { system( 'pod2text', $0 ); exit; } # ============================================================================== # source directory my $SCRIPT = $ENV { 'skripte' } || "."; $SCRIPT =~ s/\\/\//gis; $SCRIPT =~ s/[\/]$//; # construct regular expression to strip out directory my $regEx = $SCRIPT; $regEx =~ s/(\W)/\\$1/gis; $regEx .= '\/'; # glob all files my @files; while (my $file = <$SCRIPT/*.*>) { if ($file =~ /[\/\\]\d\d\d\d\..+$/) { push @files, $file; } } # delete logfile if (defined( $LOG )) { unlink ( $LOG ); } # execution foreach my $file (sort @files) { $file =~ s/$regEx//oxe; my $older = defined( $parms { older } ) ? $file lt $parms { older } : 1; my $newer = defined( $parms { newer } ) ? $file gt $parms { newer } : 1; if ($older && $newer) { print "$file\n"; my $com = sprintf "$EXECUTE >> $LOG$SEPERATOR\n", $SCRIPT, $file; $com .= sprintf "$ECHO %s$SEPERATOR\n", $file; if (!$parms { noexecute }) { print "\a"; system( $com ); } } } # ============================================================================== __END__ =head1 NAME mkall.pl - Ausführung mehrerer Buchungsskripte =head1 VERSION $Revision: 1.1 $ =head1 SYNOPSIS mkall.pl -older [FILENAME] -newer [FILENAME] -noexecute -h -hilfe =head1 DESCRIPTION Dieses Skript führt eine oder mehrere KICK Buchungsskripte aus. Die optionalen Parameter -newer und -older spezifizieren dabei den Dateinamen der Buchungsskripte. =head1 REQUIRES PERL. =head1 EXAMPLE perl mkall.pl -newer 2001.ende -older 2002.ende =head1 RELEASE NOTES $Log: mkall.pl,v $ Revision 1.1 2002/09/27 23:32:06 mrau no message Revision 1.1 2002/09/26 08:26:40 mrau no message =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 =cut |
From: Michael R. <mr...@us...> - 2002-09-27 23:31:46
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv16336 Modified Files: ksh Log Message: Environment Variablen auswerten Backslash in Slash umwandeln Index: ksh =================================================================== RCS file: /cvsroot/kick/kick/ksh,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** ksh 19 Mar 2002 09:08:19 -0000 1.6 --- ksh 27 Sep 2002 23:31:44 -0000 1.7 *************** *** 84,87 **** --- 84,89 ---- my ($com, $param) = $lines =~ /\s*([^\s]+)\s*(.*)?\;/; + $param =~ s/\%(.+?)\%/$ENV{$1}/gxs; + $param =~ s/\\/\//gis; $lines = ""; *************** *** 197,200 **** --- 199,210 ---- $Log$ + Revision 1.7 2002/09/27 23:31:44 mrau + Environment Variablen auswerten + Backslash in Slash umwandeln + + Revision 1.7 2002/09/26 08:22:12 mrau + Environment Variablen auswerten + Backslash in Slash umwandeln + Revision 1.6 2002/03/19 09:08:19 mrau |
From: Michael R. <mr...@us...> - 2002-09-27 23:30:29
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv15815 Modified Files: dosql Log Message: Kommentare entfernen Index: dosql =================================================================== RCS file: /cvsroot/kick/kick/dosql,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** dosql 19 Mar 2002 09:07:21 -0000 1.5 --- dosql 27 Sep 2002 23:30:25 -0000 1.6 *************** *** 89,92 **** --- 89,96 ---- $opt { sql } =~ s/exit\s*\;.*//gis; + # Kommentare entfernen + + $opt { sql } =~ s/\#.*//gm; + # SQL Statement *************** *** 190,193 **** --- 194,203 ---- $Log$ + Revision 1.6 2002/09/27 23:30:25 mrau + Kommentare entfernen + + Revision 1.6 2002/09/26 08:22:30 mrau + Kommentare entfernen + Revision 1.5 2002/03/19 09:07:21 mrau |
From: Michael R. <mr...@us...> - 2002-05-11 07:02:02
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv10167 Modified Files: kauszg Log Message: SQL Bugfix in kauszg Index: kauszg =================================================================== RCS file: /cvsroot/kick/kick/kauszg,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** kauszg 19 Mar 2002 09:08:08 -0000 1.7 --- kauszg 11 May 2002 07:02:00 -0000 1.8 *************** *** 141,144 **** --- 141,147 ---- # Ein- und Auszahlungen - tBuchungen + # mrau: 11.05.02 08:55 + # Fkt. Concat statt Operator "&" + $sql = "INSERT INTO temp (datum, posten, betrag, bemerkung, referenz) *************** *** 148,152 **** (b.anteile * a.preis), b.bemerkung, ! Trim(t.nachname) & ', ' & Trim(t.vorname) FROM tbuchungen b, --- 151,155 ---- (b.anteile * a.preis), b.bemerkung, ! Concat(Trim(t.nachname), ', ', Trim(t.vorname)) FROM tbuchungen b, *************** *** 536,539 **** --- 539,546 ---- $Log$ + Revision 1.8 2002/05/11 07:02:00 mrau + + SQL Bugfix in kauszg + Revision 1.7 2002/03/19 09:08:08 mrau |
From: Michael R. <mr...@us...> - 2002-04-29 22:06:06
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv1760 Modified Files: install.pl Log Message: Bestehende Konfigurationsdateien werden nicht überschrieben Index: install.pl =================================================================== RCS file: /cvsroot/kick/kick/install.pl,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** install.pl 19 Mar 2002 09:07:55 -0000 1.2 --- install.pl 29 Apr 2002 22:06:00 -0000 1.3 *************** *** 72,76 **** print `perl std driver = ODBC`; ! print `perl std database = Microsoft Access Driver (*.mdb);dbq=kick.mdb`; print `perl std autocommit = `; print `perl std user = `; --- 72,76 ---- print `perl std driver = ODBC`; ! print `perl std database = driver=Microsoft Access Driver (*.mdb);dbq=kick.mdb`; print `perl std autocommit = `; print `perl std user = `; *************** *** 81,84 **** --- 81,87 ---- CopyFile ("init.masql", "init.sql"); } + else { + print "Datenbank existiert bereits.\n"; + } } elsif ($db =~ /mysql/i) { *************** *** 98,121 **** 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; } --- 101,131 ---- my ($source, $target) = @_; ! my ($filename) = $target =~ /.*\/(.+)/; ! if (($filename =~ /^\./) && (-e $target)) { ! print "Konfigurationsdatei $target existiert bereits.\n"; ! return 1; ! } ! else { ! 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; ! } } |
From: Michael R. <mr...@us...> - 2002-04-29 04:15:23
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv6373 Modified Files: init.sql Log Message: SQL auf Standard Datenbank (MS Access) ausgerichtet. Index: init.sql =================================================================== RCS file: /cvsroot/kick/kick/init.sql,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** init.sql 19 Mar 2002 09:07:45 -0000 1.2 --- init.sql 29 Apr 2002 04:15:20 -0000 1.3 *************** *** 11,15 **** CREATE TABLE teilhaber ( ! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT, nachname CHAR(50) NOT NULL, vorname CHAR(50) NOT NULL, --- 11,15 ---- CREATE TABLE teilhaber ( ! id AUTOINCREMENT PRIMARY KEY, nachname CHAR(50) NOT NULL, vorname CHAR(50) NOT NULL, *************** *** 27,31 **** CREATE TABLE konten ( ! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT, titel CHAR(50) NOT NULL, bank CHAR(50), --- 27,31 ---- CREATE TABLE konten ( ! id AUTOINCREMENT PRIMARY KEY, titel CHAR(50) NOT NULL, bank CHAR(50), *************** *** 36,40 **** CREATE TABLE posten ( ! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT, titel CHAR(50) NOT NULL, CONSTRAINT idx UNIQUE (titel) --- 36,40 ---- CREATE TABLE posten ( ! id AUTOINCREMENT PRIMARY KEY, titel CHAR(50) NOT NULL, CONSTRAINT idx UNIQUE (titel) *************** *** 42,46 **** CREATE TABLE depots ( ! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT, titel CHAR(50) NOT NULL, CONSTRAINT idx UNIQUE (titel) --- 42,46 ---- CREATE TABLE depots ( ! id AUTOINCREMENT PRIMARY KEY, titel CHAR(50) NOT NULL, CONSTRAINT idx UNIQUE (titel) *************** *** 48,52 **** CREATE TABLE wptypen ( ! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT, titel CHAR(50) NOT NULL, CONSTRAINT idx UNIQUE (titel) --- 48,52 ---- CREATE TABLE wptypen ( ! id AUTOINCREMENT PRIMARY KEY, titel CHAR(50) NOT NULL, CONSTRAINT idx UNIQUE (titel) *************** *** 54,61 **** 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) ); --- 54,61 ---- 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) ); *************** *** 63,67 **** CREATE TABLE abschluss ( datum DATE PRIMARY KEY NOT NULL, ! id INT NOT NULL AUTO_INCREMENT, preis DOUBLE, CONSTRAINT idx UNIQUE (id) --- 63,67 ---- CREATE TABLE abschluss ( datum DATE PRIMARY KEY NOT NULL, ! id AUTOINCREMENT, preis DOUBLE, CONSTRAINT idx UNIQUE (id) *************** *** 81,96 **** 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, --- 81,96 ---- 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, *************** *** 98,135 **** 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, --- 98,135 ---- 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, *************** *** 137,153 **** 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) ); --- 137,154 ---- 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 ); + |
From: Michael R. <mr...@us...> - 2002-04-29 04:14:27
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv6126 Modified Files: Kick.pm Log Message: Bug im SQL beseitigt Index: Kick.pm =================================================================== RCS file: /cvsroot/kick/kick/Kick.pm,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** Kick.pm 19 Mar 2002 09:04:45 -0000 1.7 --- Kick.pm 29 Apr 2002 04:14:25 -0000 1.8 *************** *** 3614,3618 **** &Sql( sql => 'DROP TABLE temp' ); &Sql( sql => 'CREATE TABLE temp (tempdata DOUBLE)' ); ! $sql = sprintf 'INSERT INTO temp SELECT -1*SUM(anteile) FROM abuchungen WHERE xwpapier = %s', $param { wertpapier }; &Sql( sql => $sql, halt => 1 ); --- 3614,3618 ---- &Sql( sql => 'DROP TABLE temp' ); &Sql( sql => 'CREATE TABLE temp (tempdata DOUBLE)' ); ! $sql = sprintf 'INSERT INTO temp (tempdata) SELECT -1*SUM(anteile) FROM abuchungen WHERE xwpapier = %s', $param { wertpapier }; &Sql( sql => $sql, halt => 1 ); *************** *** 4373,4376 **** --- 4373,4380 ---- $Log$ + Revision 1.8 2002/04/29 04:14:25 mrau + + Bug im SQL beseitigt + Revision 1.7 2002/03/19 09:04:45 mrau |
From: Michael R. <mr...@us...> - 2002-04-29 04:13:43
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv5855 Modified Files: GetOption.pm Log Message: Typprüfung bei numerischen Parametern Index: GetOption.pm =================================================================== RCS file: /cvsroot/kick/kick/GetOption.pm,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** GetOption.pm 23 Oct 2001 20:36:33 -0000 1.5 --- GetOption.pm 29 Apr 2002 04:13:40 -0000 1.6 *************** *** 38,45 **** sub Options { ! my ($hash) = shift @_; ! push @_, "hilfe"; ! push @_, "h"; # mrau, 10.10.2001 22:21 `eval`auswerten, z.B. `100+200` ergibt als --- 38,50 ---- sub Options { ! my ($hash, @opt) = @_; ! push @opt, "hilfe"; ! push @opt, "h"; ! ! # mrau: 28.04.2002 14:56 ! # Typprüfung bei numerischen Parametern ! ! my @optstr = map { $_ =~ /(.+)\=f$/ ? "$1=s" : $_ } @opt; # mrau, 10.10.2001 22:21 `eval`auswerten, z.B. `100+200` ergibt als *************** *** 47,51 **** my ($default, @argv); ! foreach (@ARGV) { if ($_ =~ /^\`(.*?)\`$/) { --- 52,56 ---- my ($default, @argv); ! foreach (@ARGV) { if ($_ =~ /^\`(.*?)\`$/) { *************** *** 64,68 **** my @values; ! foreach (@_) { if ($_ =~ /^\?(.*)/) { $default = $1; --- 69,73 ---- my @values; ! foreach (@optstr) { if ($_ =~ /^\?(.*)/) { $default = $1; *************** *** 70,74 **** } else { ! push @values, $_; } } --- 75,79 ---- } else { ! push @values, $_; } } *************** *** 78,82 **** if (@ARGV) { if ($default) { ! ${$hash}{$default} = sprintf '"%s"', (join " ", @ARGV); } else { --- 83,87 ---- if (@ARGV) { if ($default) { ! ${$hash}{$default} = sprintf '"%s"', (join " ", @ARGV); } else { *************** *** 85,88 **** --- 90,102 ---- } + # mrau: 28.04.2002 14:56 + # Typprüfung bei numerischen Parametern + + foreach (@opt) { + if (($_ =~ /(.+)\=f$/) && (exists(${$hash}{$1})) && (!&IsNumber(${$hash}{$1}))) { + die "Numerischer Parameter $1 erwartet"; + } + } + # Standardparameter lesen *************** *** 115,118 **** --- 129,155 ---- } + sub IsNumber { + + my @bool = map { + if ( ($_ =~ /^-?(\d+(?:\.\d*)?|\.\d+)$/) || + ($_ =~ /\d+[\/\.\-]\d+[\/\.\-]\d+$/) ) { + 1; + } + elsif ($_ =~ /^\#\d+[\/\.\-]\d+[\/\.\-]\d+\#$/) { + if (&DBDriver eq 'mysql') { + 0; + } + else { + 1; + } + } + else { + 0; + } + } @_; + + return wantarray ? @bool : $bool[0]; + } + __END__ *************** *** 208,211 **** --- 245,252 ---- $Log$ + Revision 1.6 2002/04/29 04:13:40 mrau + + Typprüfung bei numerischen Parametern + Revision 1.5 2001/10/23 20:36:33 mrau Default Parameter eingeführt |
From: Michael R. <mr...@us...> - 2002-03-19 09:11:16
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv11101 Modified Files: auszg Log Message: Tools wird nicht mehr gebunden Unterschiedliche JOIN Syntax für MySql und MS Access Anpassung an Rückgabe-Array &Sql_Spalten Quote-Anpassung im Datumsformat (unterschiedliche Behandlung MySql und MS Access) Index: auszg =================================================================== RCS file: /cvsroot/kick/kick/auszg,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** auszg 23 Oct 2001 20:38:48 -0000 1.5 --- auszg 19 Mar 2002 09:11:12 -0000 1.6 *************** *** 10,14 **** use Kick; use GetOption; - use Tools; use Date::Calc qw(check_date Add_Delta_Days); use Text::ParseWords; --- 10,13 ---- *************** *** 79,108 **** # Ein-/Auszahlungen im Report erscheinen ! my $sql = "SELECT ! a.datum AS datum, ! SUM(b.anteile * a.preis * b.waehrung) AS ez1, ! 0 / 1 AS ez2, ! 0 / 1 AS az1, ! 0 / 1 AS az2, ! SUM(b.anteile) AS a1, ! 0 / 1 AS a2, ! MIN(a.preis) AS p1, ! MAX(a.preis) AS p2, ! 0 / 1 AS w ! INTO ! temp ! FROM ! abschluss a ! LEFT OUTER JOIN ! tbuchungen b ! ON ! a.id = b.xende ! WHERE ! b.anteile > 0 ! $interval ! GROUP BY ! a.datum"; ! &Sql ( sql => $sql ); # Auszahlungen --- 78,151 ---- # Ein-/Auszahlungen im Report erscheinen ! my $sql; ! if (&DBDriver eq 'mysql') { ! $sql = 'CREATE TABLE temp ( ! datum DATE NOT NULL, ! ez1 DOUBLE, ! ez2 DOUBLE, ! az1 DOUBLE, ! az2 DOUBLE, ! a1 DOUBLE, ! a2 DOUBLE, ! p1 DOUBLE, ! p2 DOUBLE, ! w DOUBLE ! )'; ! &Sql ( sql => $sql, halt => 1 ); ! ! $sql = "INSERT INTO temp ! SELECT ! a.datum AS datum, ! SUM(b.anteile * a.preis * b.waehrung) AS ez1, ! 0 / 1 AS ez2, ! 0 / 1 AS az1, ! 0 / 1 AS az2, ! SUM(b.anteile) AS a1, ! 0 / 1 AS a2, ! MIN(a.preis) AS p1, ! MAX(a.preis) AS p2, ! 0 / 1 AS w ! FROM ! abschluss a ! LEFT OUTER JOIN ! tbuchungen b ! ON ! a.id = b.xende ! WHERE ! b.anteile > 0 ! $interval ! GROUP BY ! a.datum"; ! } ! else { ! ! $sql = "SELECT ! a.datum AS datum, ! SUM(b.anteile * a.preis * b.waehrung) AS ez1, ! 0 / 1 AS ez2, ! 0 / 1 AS az1, ! 0 / 1 AS az2, ! SUM(b.anteile) AS a1, ! 0 / 1 AS a2, ! MIN(a.preis) AS p1, ! MAX(a.preis) AS p2, ! 0 / 1 AS w ! INTO ! temp ! FROM ! abschluss a ! LEFT OUTER JOIN ! tbuchungen b ! ON ! a.id = b.xende ! WHERE ! b.anteile > 0 ! $interval ! GROUP BY ! a.datum"; ! } ! ! &Sql ( sql => $sql, halt => 1 ); # Auszahlungen *************** *** 247,251 **** if ($opt { csv }) { ! print join "\n", map { (join ";", map { &IsNumber(Trim($_)) ? Trim($_) : '"'.Trim($_).'"' } @{$_}) } (@col, @reformat); print "\n"; } --- 290,294 ---- if ($opt { csv }) { ! print join "\n", map { (join ";", map { &IsNumber(Trim($_)) ? Trim($_) : '"'.Trim($_).'"' } @{$_}) } (\@col, @reformat); print "\n"; } *************** *** 391,394 **** --- 434,444 ---- $Log$ + Revision 1.6 2002/03/19 09:11:12 mrau + + Tools wird nicht mehr gebunden + Unterschiedliche JOIN Syntax für MySql und MS Access + Anpassung an Rückgabe-Array &Sql_Spalten + Quote-Anpassung im Datumsformat (unterschiedliche Behandlung MySql und MS Access) + Revision 1.5 2001/10/23 20:38:48 mrau SQL-Fix: Bewertungen ohne Zahlungen werden jetzt auch angezeigt |
From: Michael R. <mr...@us...> - 2002-03-19 09:09:01
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv10348 Modified Files: tauszg Log Message: Tools wird nicht mehr gebunden Unterschiedliche JOIN Syntax für MySql und MS Access Quote-Anpassung im Datumsformat (unterschiedliche Behandlung MySql und MS Access) Index: tauszg =================================================================== RCS file: /cvsroot/kick/kick/tauszg,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** tauszg 23 Oct 2001 20:38:12 -0000 1.6 --- tauszg 19 Mar 2002 09:08:56 -0000 1.7 *************** *** 10,14 **** use Kick; use GetOption; - use Tools; use Date::Calc qw(check_date Add_Delta_Days); use Text::ParseWords; --- 10,13 ---- *************** *** 107,136 **** # Einzahlungen ! my $sql = "SELECT ! t.id AS teilhaber, ! t.nachname AS nachname, ! t.vorname AS vorname, ! b.datum AS datum, ! a.datum AS wertung, ! a.preis * b.anteile AS einzahlung, ! 0 / 1 AS s_einzahlung, ! 0 / 1 AS auszahlung, ! 0 / 1 AS s_auszahlung, ! a.preis AS preis, ! b.anteile AS anteile, ! 0 / 1 AS s_anteile, ! 0 / 1 AS wert ! INTO ! temp ! FROM ! tbuchungen b, ! teilhaber t, ! abschluss a ! WHERE ! b.xEnde = a.id ! AND b.xTeilhaber = t.id ! AND b.anteile > 0 ! $interval"; ! &Sql ( sql => $sql ); # Auszahlungen --- 106,181 ---- # Einzahlungen ! my $sql; ! if (&DBDriver eq 'mysql') { ! $sql = 'CREATE TABLE temp ( ! teilhaber INT, ! nachname CHAR(50), ! vorname CHAR(50), ! datum DATE, ! wertung DATE, ! einzahlung DOUBLE, ! s_einzahlung DOUBLE, ! auszahlung DOUBLE, ! s_auszahlung DOUBLE, ! preis DOUBLE, ! anteile DOUBLE, ! s_anteile DOUBLE, ! wert DOUBLE ! )'; ! &Sql ( sql => $sql, halt => 1 ); ! $sql = "INSERT INTO temp ! SELECT ! t.id AS teilhaber, ! t.nachname AS nachname, ! t.vorname AS vorname, ! b.datum AS datum, ! a.datum AS wertung, ! a.preis * b.anteile AS einzahlung, ! 0 / 1 AS s_einzahlung, ! 0 / 1 AS auszahlung, ! 0 / 1 AS s_auszahlung, ! a.preis AS preis, ! b.anteile AS anteile, ! 0 / 1 AS s_anteile, ! 0 / 1 AS wert ! FROM ! tbuchungen b, ! teilhaber t, ! abschluss a ! WHERE ! b.xEnde = a.id ! AND b.xTeilhaber = t.id ! AND b.anteile > 0 ! $interval"; ! } ! else { ! $sql = "SELECT ! t.id AS teilhaber, ! t.nachname AS nachname, ! t.vorname AS vorname, ! b.datum AS datum, ! a.datum AS wertung, ! a.preis * b.anteile AS einzahlung, ! 0 / 1 AS s_einzahlung, ! 0 / 1 AS auszahlung, ! 0 / 1 AS s_auszahlung, ! a.preis AS preis, ! b.anteile AS anteile, ! 0 / 1 AS s_anteile, ! 0 / 1 AS wert ! INTO ! temp ! FROM ! tbuchungen b, ! teilhaber t, ! abschluss a ! WHERE ! b.xEnde = a.id ! AND b.xTeilhaber = t.id ! AND b.anteile > 0 ! $interval"; ! } ! ! &Sql ( sql => $sql, halt => 1 ); # Auszahlungen *************** *** 188,192 **** # Saldo nachtragen ! @col = [ qw (name s_einzahlung s_auszahlung s_anteile wert) ]; @felder = qw(dummy dummy s_einzahlung s_auszahlung s_anteile wert); --- 233,237 ---- # Saldo nachtragen ! @col = qw (name s_einzahlung s_auszahlung s_anteile wert); @felder = qw(dummy dummy s_einzahlung s_auszahlung s_anteile wert); *************** *** 247,251 **** if ($opt { kurz }) { ! @col = [ qw (name s_ein s_aus s_anteile wert) ]; @reformat = map { [ substr(&Trim($$_[0]).", ".&Trim($$_[1]),0,50), --- 292,296 ---- if ($opt { kurz }) { ! @col = qw (name s_ein s_aus s_anteile wert); @reformat = map { [ substr(&Trim($$_[0]).", ".&Trim($$_[1]),0,50), *************** *** 271,275 **** elsif ($opt { kurz }) { ! @col = [qw (datum einzahlung auszahlung preis anteile gesamt)]; @reformat = map { [ &ShortDate(&ParseDBDate($$_[0])), --- 316,320 ---- elsif ($opt { kurz }) { ! @col = qw (datum einzahlung auszahlung preis anteile gesamt); @reformat = map { [ &ShortDate(&ParseDBDate($$_[0])), *************** *** 300,307 **** # Ouput ! my @data = (@col, @reformat); if ($opt { csv }) { ! print join "\n", map { (join ";", map { &IsNumber(Trim($_)) ? Trim($_) : '"'.Trim($_).'"' } @{$_}) } (@col, @reformat); print "\n"; } --- 345,352 ---- # Ouput ! my @data = (\@col, @reformat); if ($opt { csv }) { ! print join "\n", map { (join ";", map { &IsNumber(Trim($_)) ? Trim($_) : '"'.Trim($_).'"' } @{$_}) } (\@col, @reformat); print "\n"; } *************** *** 510,513 **** --- 555,564 ---- $Log$ + Revision 1.7 2002/03/19 09:08:56 mrau + + Tools wird nicht mehr gebunden + Unterschiedliche JOIN Syntax für MySql und MS Access + Quote-Anpassung im Datumsformat (unterschiedliche Behandlung MySql und MS Access) + Revision 1.6 2001/10/23 20:38:12 mrau Default Parameter definiert |
From: Michael R. <mr...@us...> - 2002-03-19 09:08:47
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv10291 Modified Files: status Log Message: Tools wird nicht mehr gebunden Quote-Anpassung im Datumsformat (unterschiedliche Behandlung MySql und MS Access) Index: status =================================================================== RCS file: /cvsroot/kick/kick/status,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** status 14 Oct 2001 21:55:02 -0000 1.6 --- status 19 Mar 2002 09:08:43 -0000 1.7 *************** *** 11,15 **** use Date::Calc qw(check_date Date_to_Days Add_Delta_Days); use GetOption; - use Tools; use Text::ParseWords; use strict; --- 11,14 ---- *************** *** 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)); --- 52,56 ---- my ($jahr, $monat, $tag); ! &Sql ( sql => (sprintf 'SELECT MIN(datum) FROM abschluss WHERE datum >= %s', &Quote(&DBDate(&ParseDate($opt { datum }))))); if (&ParseDBDate (&Sql_Zelle(0))) { ($jahr, $monat, $tag) = &ParseDBDate (&Sql_Zelle(0)); *************** *** 71,75 **** my $com = sprintf 'tauszg -bis "%s" -summe -csv', &LongDate($jahr, $monat, $tag); - my @result = `perl $com`; shift @result; --- 70,73 ---- *************** *** 262,265 **** --- 260,268 ---- $Log$ + Revision 1.7 2002/03/19 09:08:43 mrau + + Tools wird nicht mehr gebunden + Quote-Anpassung im Datumsformat (unterschiedliche Behandlung MySql und MS Access) + Revision 1.6 2001/10/14 21:55:02 mrau Bugfix SQL-Statement zur Selektion des 'nächsten' Abschlusses |
From: Michael R. <mr...@us...> - 2002-03-19 09:08:34
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv10216 Modified Files: report Log Message: Tools wird nicht mehr gebunden Quote-Anpassung im Datumsformat (unterschiedliche Behandlung MySql und MS Access) Index: report =================================================================== RCS file: /cvsroot/kick/kick/report,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** report 4 Oct 2001 23:16:42 -0000 1.4 --- report 19 Mar 2002 09:08:31 -0000 1.5 *************** *** 11,15 **** use Date::Calc qw(check_date Date_to_Days Add_Delta_Days); use GetOption; - use Tools; use Text::ParseWords; use strict; --- 11,14 ---- *************** *** 46,50 **** my ($jahr1, $monat1, $tag1, $jahr0, $monat0, $tag0); ! &Sql ( sql => (sprintf 'SELECT MIN(datum) FROM abschluss WHERE datum >= %s', &DBDate(&ParseDate($opt { datum })))); if (&ParseDBDate (&Sql_Zelle(0))) { ($jahr1, $monat1, $tag1) = &ParseDBDate (&Sql_Zelle(0)); --- 45,49 ---- my ($jahr1, $monat1, $tag1, $jahr0, $monat0, $tag0); ! &Sql ( sql => (sprintf 'SELECT MIN(datum) FROM abschluss WHERE datum >= %s', &Quote(&DBDate(&ParseDate($opt { datum }))))); if (&ParseDBDate (&Sql_Zelle(0))) { ($jahr1, $monat1, $tag1) = &ParseDBDate (&Sql_Zelle(0)); *************** *** 56,60 **** # Vortragsdatum ! &Sql ( sql => (sprintf 'SELECT MAX(datum) FROM abschluss WHERE datum < %s', &DBDate(&ParseDate($opt { datum })))); if (&ParseDBDate (&Sql_Zelle(0))) { ($jahr0, $monat0, $tag0) = &Add_Delta_Days(&ParseDBDate (&Sql_Zelle(0)), 1); --- 55,59 ---- # Vortragsdatum ! &Sql ( sql => (sprintf 'SELECT MAX(datum) FROM abschluss WHERE datum < %s', &Quote(&DBDate(&ParseDate($opt { datum }))))); if (&ParseDBDate (&Sql_Zelle(0))) { ($jahr0, $monat0, $tag0) = &Add_Delta_Days(&ParseDBDate (&Sql_Zelle(0)), 1); *************** *** 72,76 **** my $preis; ! &Sql ( sql => (sprintf 'SELECT preis FROM abschluss WHERE datum = %s', &DBDate($jahr1, $monat1, $tag1))); if (&Sql_Zeilen) { $preis = &Sql_Zelle(0); --- 71,75 ---- my $preis; ! &Sql ( sql => (sprintf 'SELECT preis FROM abschluss WHERE datum = %s', &Quote(&DBDate($jahr1, $monat1, $tag1)))); if (&Sql_Zeilen) { $preis = &Sql_Zelle(0); *************** *** 411,414 **** --- 410,418 ---- $Log$ + Revision 1.5 2002/03/19 09:08:31 mrau + + Tools wird nicht mehr gebunden + Quote-Anpassung im Datumsformat (unterschiedliche Behandlung MySql und MS Access) + Revision 1.4 2001/10/04 23:16:42 mrau Bugfix :endofperl behoben |
From: Michael R. <mr...@us...> - 2002-03-19 09:08:23
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv10169 Modified Files: ksh Log Message: Tools wird nicht mehr gebunden Fehlermeldung mit Eingabe-Zeilennr. angereichert (Bug) Fehlermeldung "Unbekannte Datei" eingefügt Index: ksh =================================================================== RCS file: /cvsroot/kick/kick/ksh,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** ksh 23 Oct 2001 20:39:54 -0000 1.5 --- ksh 19 Mar 2002 09:08:19 -0000 1.6 *************** *** 9,13 **** use Text::ParseWords; - use Tools; use Kick; use strict; --- 9,12 ---- *************** *** 32,35 **** --- 31,38 ---- ); + if (!(-e (join " ", @ARGV))) { + die "Unbekannte Datei @ARGV"; + } + my ($lines); my $cursor = 0; *************** *** 39,42 **** --- 42,46 ---- # add current line + $cursor++; if ((!$interactive) && (!$opt { leise })) { print $_; *************** *** 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; --- 101,110 ---- do ($com); if ($@ && !$interactive) { ! # mrau: 23.10.01 21:53 # Aussagekräftige Fehlermeldung ! my ($msg, $modul, $line) = $@ =~ /(.*?)\sat\s(.*?)\sline\s(\d+)/; ! printf "Zeile %d: %s.\nModul %s (Code-Line %d).\n", $cursor, $msg, $modul, $line; &Rollback; exit; *************** *** 193,196 **** --- 197,206 ---- $Log$ + Revision 1.6 2002/03/19 09:08:19 mrau + + Tools wird nicht mehr gebunden + Fehlermeldung mit Eingabe-Zeilennr. angereichert (Bug) + Fehlermeldung "Unbekannte Datei" eingefügt + Revision 1.5 2001/10/23 20:39:54 mrau Option <leise>, <dateiname> eingeführt; Erweiterte Syntax-Prüfung |
From: Michael R. <mr...@us...> - 2002-03-19 09:08:12
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv10121 Modified Files: kauszg Log Message: Tools wird nicht mehr gebunden Unterschiedliche JOIN Syntax für MySql und MS Access Einheitliche Kleinschreibung bei Tabellennamen (Anpassung nötig für MySql) Anpassung an Rückgabe-Array &Sql_Spalten Index: kauszg =================================================================== RCS file: /cvsroot/kick/kick/kauszg,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** kauszg 23 Oct 2001 20:38:12 -0000 1.6 --- kauszg 19 Mar 2002 09:08:08 -0000 1.7 *************** *** 3,7 **** use Kick; use GetOption; - use Tools; use Date::Calc qw(check_date Add_Delta_Days); use Text::ParseWords; --- 3,6 ---- *************** *** 93,111 **** # Standard Buchungen und Umbuchungen - bBuchungen JOIN uBuchungen ! my $sql = "SELECT ! b.datum, ! p.titel AS posten, ! b.waehrung * b.betrag AS betrag, ! b.bemerkung, ! k.titel AS referenz, ! 0 / 1 AS saldo ! INTO ! temp ! FROM ! (bbuchungen b ! LEFT OUTER JOIN (ubuchungen u LEFT OUTER JOIN konten k ON k.id = u.xkonto) ON u.xbuchung = b.id) ! LEFT JOIN posten p ON p.id = b.xposten ! WHERE ! $interval"; &Sql ( sql => $sql, halt => 1); --- 92,139 ---- # Standard Buchungen und Umbuchungen - bBuchungen JOIN uBuchungen ! my $sql; ! if (&DBDriver eq 'mysql') { ! $sql = 'CREATE TABLE temp ( ! datum DATE NOT NULL, ! posten CHAR(50), ! betrag DOUBLE, ! bemerkung CHAR(50), ! referenz CHAR(50), ! saldo DOUBLE ! )'; ! &Sql ( sql => $sql, halt => 1); ! $sql = "INSERT INTO temp ! SELECT ! b.datum, ! p.titel AS posten, ! b.waehrung * b.betrag AS betrag, ! b.bemerkung, ! k.titel AS referenz, ! 0 / 1 AS saldo ! FROM ! bbuchungen b ! LEFT OUTER JOIN ubuchungen u ON u.xbuchung = b.id ! LEFT OUTER JOIN konten k ON k.id = u.xkonto ! LEFT JOIN posten p ON p.id = b.xposten ! WHERE ! $interval"; ! } ! else { ! $sql = "SELECT ! b.datum, ! p.titel AS posten, ! b.waehrung * b.betrag AS betrag, ! b.bemerkung, ! k.titel AS referenz, ! 0 / 1 AS saldo ! INTO ! temp ! FROM ! (bbuchungen b ! LEFT OUTER JOIN (ubuchungen u LEFT OUTER JOIN konten k ON k.id = u.xkonto) ON u.xbuchung = b.id) ! LEFT JOIN posten p ON p.id = b.xposten ! WHERE ! $interval"; ! } &Sql ( sql => $sql, halt => 1); *************** *** 122,126 **** Trim(t.nachname) & ', ' & Trim(t.vorname) FROM ! tBuchungen b, abschluss a, posten p, --- 150,154 ---- Trim(t.nachname) & ', ' & Trim(t.vorname) FROM ! tbuchungen b, abschluss a, posten p, *************** *** 145,149 **** w.titel FROM ! aBuchungen b, posten p, wertpapiere w --- 173,177 ---- w.titel FROM ! abuchungen b, posten p, wertpapiere w *************** *** 157,180 **** # Umbuchungen - uBuchungen ! $sql = "INSERT INTO temp ! (datum, posten, betrag, bemerkung, referenz) ! SELECT ! b.datum, ! p.titel, ! b.waehrung * b.betrag, ! b.bemerkung, ! k.titel ! FROM ! (ubuchungen b ! LEFT OUTER JOIN ( ! bbuchungen z LEFT OUTER JOIN ! konten k ! ON k.id = z.xkonto) ! ON z.id = b.xbuchung) ! LEFT OUTER JOIN ! posten p ! ON p.id = b.xposten ! WHERE $interval"; &Sql ( sql => $sql, halt => 1); --- 185,225 ---- # Umbuchungen - uBuchungen ! if (&DBDriver eq 'mysql') { ! $sql = "INSERT INTO temp ! (datum, posten, betrag, bemerkung, referenz) ! SELECT ! b.datum, ! p.titel, ! b.waehrung * b.betrag, ! b.bemerkung, ! k.titel ! FROM ! ubuchungen b LEFT OUTER JOIN bbuchungen z ON z.id = b.xbuchung ! LEFT OUTER JOIN konten k ON k.id = z.xkonto ! LEFT OUTER JOIN posten p ON p.id = b.xposten ! WHERE $interval"; ! } ! else { ! $sql = "INSERT INTO temp ! (datum, posten, betrag, bemerkung, referenz) ! SELECT ! b.datum, ! p.titel, ! b.waehrung * b.betrag, ! b.bemerkung, ! k.titel ! FROM ! (ubuchungen b ! LEFT OUTER JOIN ( ! bbuchungen z ! LEFT OUTER JOIN ! konten k ! ON k.id = z.xkonto) ! ON z.id = b.xbuchung) LEFT OUTER JOIN ! posten p ! ON p.id = b.xposten ! WHERE $interval"; ! } &Sql ( sql => $sql, halt => 1); *************** *** 191,195 **** a.titel FROM ! dBuchungen b, wertpapiere a, posten p --- 236,240 ---- a.titel FROM ! dbuchungen b, wertpapiere a, posten p *************** *** 224,228 **** } @tab = (['VORTRAG', $startsaldo ], @tab, ['SUMME', $saldo ] ); ! @col = [qw (posten betrag)]; @felder = qw(posten betrag); } --- 269,273 ---- } @tab = (['VORTRAG', $startsaldo ], @tab, ['SUMME', $saldo ] ); ! @col = qw (posten betrag); @felder = qw(posten betrag); } *************** *** 301,308 **** # Ouput ! my @data = (@col, @reformat); if ($opt { csv }) { ! print join "\n", map { (join ";", map { &IsNumber(Trim($_)) ? Trim($_) : '"'.Trim($_).'"' } @{$_}) } (@col, @reformat); print "\n"; } --- 346,353 ---- # Ouput ! my @data = (\@col, @reformat); if ($opt { csv }) { ! print join "\n", map { (join ";", map { &IsNumber(Trim($_)) ? Trim($_) : '"'.Trim($_).'"' } @{$_}) } (\@col, @reformat); print "\n"; } *************** *** 491,494 **** --- 536,546 ---- $Log$ + Revision 1.7 2002/03/19 09:08:08 mrau + + Tools wird nicht mehr gebunden + Unterschiedliche JOIN Syntax für MySql und MS Access + Einheitliche Kleinschreibung bei Tabellennamen (Anpassung nötig für MySql) + Anpassung an Rückgabe-Array &Sql_Spalten + Revision 1.6 2001/10/23 20:38:12 mrau Default Parameter definiert |
From: Michael R. <mr...@us...> - 2002-03-19 09:07:59
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv10041 Modified Files: install.pl Log Message: Datenbank abfragen und differenzierte Vorbereitung der Datenbank Unterschiedliche Syntax für MS Access und MySql Index: install.pl =================================================================== RCS file: /cvsroot/kick/kick/install.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** install.pl 3 Oct 2001 22:49:54 -0000 1.1 --- install.pl 19 Mar 2002 09:07:55 -0000 1.2 *************** *** 25,28 **** --- 25,37 ---- $target =~ s/\/$//; + # Datenbank abfragen + + do { + print "Datenbank (mdb|mysql) [mdb] : "; + $in = <>; + chomp ($in); + } while ($in !~ /^\s*(|mdb|mysql)\s*$/i); + my $db = $in ne "" ? $1 : 'mdb'; + # Zielverzeichnis vorbereiten *************** *** 58,63 **** # Datenbank vorbereiten ! if (!(-e "kick.mdb")) { ! rename "kick.tmpl.mdb", "kick.mdb"; } --- 67,95 ---- # Datenbank vorbereiten ! if ($db =~ /mdb/i) { ! ! print "Initialisiere MS Access Datenbank.\n"; ! ! print `perl std driver = ODBC`; ! print `perl std database = Microsoft Access Driver (*.mdb);dbq=kick.mdb`; ! print `perl std autocommit = `; ! print `perl std user = `; ! print `perl std password = `; ! ! if (!(-e "kick.mdb")) { ! CopyFile ("kick.tmpl.mdb", "kick.mdb"); ! CopyFile ("init.masql", "init.sql"); ! } ! } ! elsif ($db =~ /mysql/i) { ! print "Initialisiere MySql Datenbank.\n"; ! ! print `perl std driver = mysql`; ! print `perl std database = kick:localhost`; ! print `perl std autocommit = 1`; ! print `perl std user = admin`; ! print `perl std password = sa`; ! ! CopyFile ("init.mysql", "init.sql"); } |
From: Michael R. <mr...@us...> - 2002-03-19 09:07:48
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv9976 Modified Files: init.sql Log Message: Delete ausgelagert Unterschiedliche Syntax für MS Access und MySql (init.masql, init.mysql) Index: init.sql =================================================================== RCS file: /cvsroot/kick/kick/init.sql,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** init.sql 29 Sep 2001 09:07:45 -0000 1.1.1.1 --- init.sql 19 Mar 2002 09:07:45 -0000 1.2 *************** *** 8,31 **** // - // Tabellen löschen - - DROP table wertungen; - DROP table abuchungen; - DROP table dbuchungen; - DROP table tbuchungen; - DROP table ubuchungen; - DROP table bbuchungen; - DROP table konten; - DROP table posten; - DROP table teilhaber; - DROP table wertpapiere; - DROP table depots; - DROP table wptypen; - DROP table abschluss; - // Objekt Tabellen anlegen CREATE TABLE teilhaber ( ! id AUTOINCREMENT PRIMARY KEY, nachname CHAR(50) NOT NULL, vorname CHAR(50) NOT NULL, --- 8,15 ---- // // Objekt Tabellen anlegen CREATE TABLE teilhaber ( ! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT, nachname CHAR(50) NOT NULL, vorname CHAR(50) NOT NULL, *************** *** 43,47 **** CREATE TABLE konten ( ! id AUTOINCREMENT PRIMARY KEY, titel CHAR(50) NOT NULL, bank CHAR(50), --- 27,31 ---- CREATE TABLE konten ( ! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT, titel CHAR(50) NOT NULL, bank CHAR(50), *************** *** 52,56 **** CREATE TABLE posten ( ! id AUTOINCREMENT PRIMARY KEY, titel CHAR(50) NOT NULL, CONSTRAINT idx UNIQUE (titel) --- 36,40 ---- CREATE TABLE posten ( ! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT, titel CHAR(50) NOT NULL, CONSTRAINT idx UNIQUE (titel) *************** *** 58,62 **** CREATE TABLE depots ( ! id AUTOINCREMENT PRIMARY KEY, titel CHAR(50) NOT NULL, CONSTRAINT idx UNIQUE (titel) --- 42,46 ---- CREATE TABLE depots ( ! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT, titel CHAR(50) NOT NULL, CONSTRAINT idx UNIQUE (titel) *************** *** 64,68 **** CREATE TABLE wptypen ( ! id AUTOINCREMENT PRIMARY KEY, titel CHAR(50) NOT NULL, CONSTRAINT idx UNIQUE (titel) --- 48,52 ---- CREATE TABLE wptypen ( ! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT, titel CHAR(50) NOT NULL, CONSTRAINT idx UNIQUE (titel) *************** *** 70,77 **** 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) ); --- 54,61 ---- 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) ); *************** *** 79,83 **** CREATE TABLE abschluss ( datum DATE PRIMARY KEY NOT NULL, ! id AUTOINCREMENT, preis DOUBLE, CONSTRAINT idx UNIQUE (id) --- 63,67 ---- CREATE TABLE abschluss ( datum DATE PRIMARY KEY NOT NULL, ! id INT NOT NULL AUTO_INCREMENT, preis DOUBLE, CONSTRAINT idx UNIQUE (id) *************** *** 96,112 **** // 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, --- 80,96 ---- // 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, *************** *** 114,151 **** 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, --- 98,135 ---- 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, *************** *** 153,179 **** 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 ); - - exit; - - // RELEASE NOTES - - $Log$ - Revision 1.1.1.1 2001/09/29 09:07:45 mrau - - Import - --- 137,153 ---- 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 09:07:37
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv9904 Modified Files: init Log Message: Fehlerkontrolle im Init-Prozess Index: init =================================================================== RCS file: /cvsroot/kick/kick/init,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** init 4 Oct 2001 23:16:42 -0000 1.4 --- init 19 Mar 2002 09:07:33 -0000 1.5 *************** *** 27,32 **** } } ! &Init; ! print "OK.\n"; __END__ --- 27,36 ---- } } ! if (&Init) { ! print "OK.\n"; ! } ! else { ! die "Bei der Initialisierung sind Fehler aufgetreten"; ! } __END__ *************** *** 69,72 **** --- 73,80 ---- $Log$ + Revision 1.5 2002/03/19 09:07:33 mrau + + Fehlerkontrolle im Init-Prozess + Revision 1.4 2001/10/04 23:16:42 mrau Bugfix :endofperl behoben |
From: Michael R. <mr...@us...> - 2002-03-19 09:07:25
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv9837 Modified Files: dosql Log Message: Tools wird nicht mehr gebunden Anpassung an Rückgabe-Array &Sql_Spalten Index: dosql =================================================================== RCS file: /cvsroot/kick/kick/dosql,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** dosql 4 Oct 2001 23:16:42 -0000 1.4 --- dosql 19 Mar 2002 09:07:21 -0000 1.5 *************** *** 10,14 **** use Kick; use GetOption; - use Tools; use strict; --- 10,13 ---- *************** *** 106,117 **** # Ouput ! if (scalar @{&Sql_Spalten} > 0) { ! # Result-Set ! printf "\n%s\n", &XTab (data => [&Sql_Spalten, @{&Sql_Daten}], header => 1); printf " %d records.\n\n", &Sql_Zeilen; } ! elsif (&Sql_Zeilen > 0) { ! # Datenmanipulation printf "%d manipulierte Zeile(n).\n", scalar &Sql_Zeilen; --- 105,114 ---- # Ouput ! if (&Sql_Daten > 0) { # Result-Set ! printf "\n%s\n", &XTab (data => [\@{&Sql_Spalten}, @{&Sql_Daten}], header => 1); printf " %d records.\n\n", &Sql_Zeilen; } ! elsif (&Sql_Zeilen) { # Datenmanipulation printf "%d manipulierte Zeile(n).\n", scalar &Sql_Zeilen; *************** *** 193,196 **** --- 190,198 ---- $Log$ + Revision 1.5 2002/03/19 09:07:21 mrau + + Tools wird nicht mehr gebunden + Anpassung an Rückgabe-Array &Sql_Spalten + Revision 1.4 2001/10/04 23:16:42 mrau Bugfix :endofperl behoben |
From: Michael R. <mr...@us...> - 2002-03-19 09:07:13
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv9785 Modified Files: dauszg Log Message: Tools wird nicht mehr gebunden Anpassung an Rückgabe-Array &Sql_Spalten Index: dauszg =================================================================== RCS file: /cvsroot/kick/kick/dauszg,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** dauszg 23 Oct 2001 20:38:12 -0000 1.5 --- dauszg 19 Mar 2002 09:07:09 -0000 1.6 *************** *** 10,14 **** use Kick; use GetOption; - use Tools; use Date::Calc qw(check_date Add_Delta_Days); use Text::ParseWords; --- 10,13 ---- *************** *** 323,327 **** if ($opt { csv }) { ! print join "\n", map { (join ";", map { &IsNumber(Trim($_)) ? Trim($_) : '"'.Trim($_).'"' } @{$_}) } (@col, @reformat); print "\n"; } --- 322,326 ---- if ($opt { csv }) { ! print join "\n", map { (join ";", map { &IsNumber(Trim($_)) ? Trim($_) : '"'.Trim($_).'"' } @{$_}) } (\@col, @reformat); print "\n"; } *************** *** 490,493 **** --- 489,497 ---- $Log$ + Revision 1.6 2002/03/19 09:07:09 mrau + + Tools wird nicht mehr gebunden + Anpassung an Rückgabe-Array &Sql_Spalten + Revision 1.5 2001/10/23 20:38:12 mrau Default Parameter definiert |
From: Michael R. <mr...@us...> - 2002-03-19 09:07:01
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv9719 Modified Files: asaldo Log Message: Tools wird nicht mehr gebunden Unterschiedliche JOIN Syntax für MySql und MS Access Anpassung an Rückgabe-Array &Sql_Spalten Index: asaldo =================================================================== RCS file: /cvsroot/kick/kick/asaldo,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** asaldo 14 Oct 2001 21:53:29 -0000 1.5 --- asaldo 19 Mar 2002 09:06:56 -0000 1.6 *************** *** 10,14 **** use Kick; use GetOption; - use Tools; use Date::Calc qw(check_date Add_Delta_Days); use Text::ParseWords; --- 10,13 ---- *************** *** 255,258 **** --- 254,263 ---- $Log$ + Revision 1.6 2002/03/19 09:06:56 mrau + + Tools wird nicht mehr gebunden + Unterschiedliche JOIN Syntax für MySql und MS Access + Anpassung an Rückgabe-Array &Sql_Spalten + Revision 1.5 2001/10/14 21:53:29 mrau Sortierte Ausgabe der Wertpapiere |
From: Michael R. <mr...@us...> - 2002-03-19 09:06:49
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv9647 Modified Files: aauszg Log Message: Tools wird nicht mehr gebunden Unterschiedliche JOIN Syntax für MySql und MS Access Anpassung an Rückgabe-Array &Sql_Spalten Quote-Anpassung im Datumsformat (unterschiedliche Behandlung MySql und MS Access) DBDate Einsatz mit vorgeschaltetem Quoting Index: aauszg =================================================================== RCS file: /cvsroot/kick/kick/aauszg,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** aauszg 23 Oct 2001 20:38:12 -0000 1.6 --- aauszg 19 Mar 2002 09:06:44 -0000 1.7 *************** *** 10,14 **** use Kick; use GetOption; - use Tools; use Date::Calc qw(check_date Add_Delta_Days); use Text::ParseWords; --- 10,13 ---- *************** *** 97,118 **** # Wertungen ! my $sql = "SELECT ! w.datum, ! 'Wertung' AS transaktion, ! 0 / 1 AS anteile, ! 0 / 1 AS s_anteile, ! w.waehrung * w.kurs AS kurs, ! w.bemerkung, ! '' AS referenz, ! 0 / 1 AS gebuehr, ! 0 / 1 AS s_gebuehr, ! 0 / 1 AS betrag, ! 0 / 1 AS wert ! INTO ! temp ! FROM ! wertungen w ! WHERE ! $interval"; &Sql ( sql => $sql, halt => 1); --- 96,156 ---- # Wertungen ! my $sql; ! ! if (&DBDriver eq 'mysql') { ! $sql = "CREATE TABLE temp ( ! datum date NOT NULL, ! transaktion CHAR(50), ! anteile DOUBLE, ! s_anteile DOUBLE, ! kurs DOUBLE, ! bemerkung CHAR(50), ! referenz CHAR(50), ! gebuehr DOUBLE, ! s_gebuehr DOUBLE, ! betrag DOUBLE, ! wert DOUBLE ! )"; ! ! &Sql ( sql => $sql, halt => 1); ! ! $sql = "INSERT INTO temp ! SELECT ! w.datum, ! 'Wertung', ! 0 / 1, ! 0 / 1, ! w.waehrung * w.kurs, ! w.bemerkung, ! '', ! 0 / 1, ! 0 / 1, ! 0 / 1, ! 0 / 1 ! FROM ! wertungen w ! WHERE ! $interval"; ! } ! else { ! $sql = "SELECT ! w.datum, ! 'Wertung' AS transaktion, ! 0 / 1 AS anteile, ! 0 / 1 AS s_anteile, ! w.waehrung * w.kurs AS kurs, ! w.bemerkung, ! '' AS referenz, ! 0 / 1 AS gebuehr, ! 0 / 1 AS s_gebuehr, ! 0 / 1 AS betrag, ! 0 / 1 AS wert ! INTO ! temp ! FROM ! wertungen w ! WHERE ! $interval"; ! } &Sql ( sql => $sql, halt => 1); *************** *** 143,148 **** # Temporäre Tabelle lesen - # Temporäre Tabelle lesen - $sql = "SELECT * FROM temp ORDER BY datum, transaktion"; --- 181,184 ---- *************** *** 205,209 **** if ($opt { kurz }) { ! @col = [qw (datum anteile s_anteile kurs gebuehr s_gebuehr wert)]; @reformat = map { [ &ShortDate(&ParseDBDate($$_[0])), --- 241,245 ---- if ($opt { kurz }) { ! @col = qw (datum anteile s_anteile kurs gebuehr s_gebuehr wert); @reformat = map { [ &ShortDate(&ParseDBDate($$_[0])), *************** *** 236,243 **** # Ouput ! my @data = (@col, @reformat); if ($opt { csv }) { ! print join "\n", map { (join ";", map { &IsNumber(Trim($_)) ? Trim($_) : '"'.Trim($_).'"' } @{$_}) } (@col, @reformat); print "\n"; } --- 272,279 ---- # Ouput ! my @data = (\@col, @reformat); if ($opt { csv }) { ! print join "\n", map { (join ";", map { &IsNumber(Trim($_)) ? Trim($_) : '"'.Trim($_).'"' } @{$_}) } (\@col, @reformat); print "\n"; } *************** *** 408,411 **** --- 444,455 ---- $Log$ + Revision 1.7 2002/03/19 09:06:44 mrau + + Tools wird nicht mehr gebunden + Unterschiedliche JOIN Syntax für MySql und MS Access + Anpassung an Rückgabe-Array &Sql_Spalten + Quote-Anpassung im Datumsformat (unterschiedliche Behandlung MySql und MS Access) + DBDate Einsatz mit vorgeschaltetem Quoting + Revision 1.6 2001/10/23 20:38:12 mrau Default Parameter definiert |
From: Michael R. <mr...@us...> - 2002-03-19 09:06:24
|
Update of /cvsroot/kick/kick/doc In directory usw-pr-cvs1:/tmp/cvs-serv9494/doc Modified Files: howtos.pod Log Message: Tools wird nicht mehr gebunden Index: howtos.pod =================================================================== RCS file: /cvsroot/kick/kick/doc/howtos.pod,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** howtos.pod 3 Oct 2001 20:39:11 -0000 1.3 --- howtos.pod 19 Mar 2002 09:06:19 -0000 1.4 *************** *** 485,489 **** <01> use Kick; - <02> use Tools; <03> <04> my @teilhaber = &Eintrag ( --- 485,488 ---- *************** *** 551,554 **** --- 550,557 ---- $Log$ + Revision 1.4 2002/03/19 09:06:19 mrau + + Tools wird nicht mehr gebunden + Revision 1.3 2001/10/03 20:39:11 mrau Änderung der Lizenz (GNU GPL) |
From: Michael R. <mr...@us...> - 2002-03-19 09:06:23
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv9494 Modified Files: abschluss buche liste ksaldo eintrag makedoc werte Log Message: Tools wird nicht mehr gebunden Index: abschluss =================================================================== RCS file: /cvsroot/kick/kick/abschluss,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** abschluss 4 Oct 2001 23:16:42 -0000 1.4 --- abschluss 19 Mar 2002 09:06:18 -0000 1.5 *************** *** 11,15 **** use Date::Calc qw(check_date Date_to_Days); use GetOption; - use Tools; use Text::ParseWords; use strict; --- 11,14 ---- *************** *** 266,269 **** --- 265,272 ---- $Log$ + Revision 1.5 2002/03/19 09:06:18 mrau + + Tools wird nicht mehr gebunden + Revision 1.4 2001/10/04 23:16:42 mrau Bugfix :endofperl behoben Index: buche =================================================================== RCS file: /cvsroot/kick/kick/buche,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** buche 4 Oct 2001 23:16:42 -0000 1.5 --- buche 19 Mar 2002 09:06:18 -0000 1.6 *************** *** 10,14 **** use Kick; use GetOption; - use Tools; use strict; --- 10,13 ---- *************** *** 89,95 **** } } ! ! if ($opt { posten } =~ /einzahlung/i) { ! $ok = &Einzahlung ( %opt ); } elsif ($opt { posten } =~ /auszahlung/i) { --- 88,93 ---- } } ! if ($opt { posten } =~ /einzahlung/i) { ! $ok = &Einzahlung ( %opt ); } elsif ($opt { posten } =~ /auszahlung/i) { *************** *** 413,416 **** --- 411,418 ---- $Log$ + Revision 1.6 2002/03/19 09:06:18 mrau + + Tools wird nicht mehr gebunden + Revision 1.5 2001/10/04 23:16:42 mrau Bugfix :endofperl behoben Index: liste =================================================================== RCS file: /cvsroot/kick/kick/liste,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** liste 4 Oct 2001 23:16:42 -0000 1.5 --- liste 19 Mar 2002 09:06:18 -0000 1.6 *************** *** 10,14 **** use Kick; use GetOption; - use Tools; use Text::ParseWords; use strict; --- 10,13 ---- *************** *** 75,81 **** } ! if (!&Sql ( sql => $sql )) { die "Die Tabelle konnte nicht selektiert werden"; } my @tab = &Sql_Daten; my $col = &Sql_Spalten; --- 74,81 ---- } ! if (!&Sql ( sql => $sql , leise => 0)) { die "Die Tabelle konnte nicht selektiert werden"; } + my @tab = &Sql_Daten; my $col = &Sql_Spalten; *************** *** 280,283 **** --- 280,287 ---- $Log$ + Revision 1.6 2002/03/19 09:06:18 mrau + + Tools wird nicht mehr gebunden + Revision 1.5 2001/10/04 23:16:42 mrau Bugfix :endofperl behoben Index: ksaldo =================================================================== RCS file: /cvsroot/kick/kick/ksaldo,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** ksaldo 4 Oct 2001 23:16:42 -0000 1.4 --- ksaldo 19 Mar 2002 09:06:18 -0000 1.5 *************** *** 10,14 **** use Kick; use GetOption; - use Tools; use Date::Calc qw(check_date Add_Delta_Days); use Text::ParseWords; --- 10,13 ---- *************** *** 214,217 **** --- 213,220 ---- $Log$ + Revision 1.5 2002/03/19 09:06:18 mrau + + Tools wird nicht mehr gebunden + Revision 1.4 2001/10/04 23:16:42 mrau Bugfix :endofperl behoben Index: eintrag =================================================================== RCS file: /cvsroot/kick/kick/eintrag,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** eintrag 4 Oct 2001 23:16:42 -0000 1.5 --- eintrag 19 Mar 2002 09:06:18 -0000 1.6 *************** *** 3,7 **** use Kick; use Getopt::Long; - use Tools; use Text::ParseWords; use strict; --- 3,6 ---- *************** *** 318,321 **** --- 317,324 ---- $Log$ + Revision 1.6 2002/03/19 09:06:18 mrau + + Tools wird nicht mehr gebunden + Revision 1.5 2001/10/04 23:16:42 mrau Bugfix :endofperl behoben Index: makedoc =================================================================== RCS file: /cvsroot/kick/kick/makedoc,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** makedoc 4 Oct 2001 23:16:42 -0000 1.4 --- makedoc 19 Mar 2002 09:06:18 -0000 1.5 *************** *** 10,14 **** use File::Find; use DBI; - use Tools; use Pod::Html; --- 10,13 ---- *************** *** 107,110 **** --- 106,113 ---- $Log$ + Revision 1.5 2002/03/19 09:06:18 mrau + + Tools wird nicht mehr gebunden + Revision 1.4 2001/10/04 23:16:42 mrau Bugfix :endofperl behoben Index: werte =================================================================== RCS file: /cvsroot/kick/kick/werte,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** werte 4 Oct 2001 23:16:42 -0000 1.5 --- werte 19 Mar 2002 09:06:18 -0000 1.6 *************** *** 10,14 **** use Kick; use GetOption; - use Tools; use strict; --- 10,13 ---- *************** *** 122,125 **** --- 121,128 ---- $Log$ + Revision 1.6 2002/03/19 09:06:18 mrau + + Tools wird nicht mehr gebunden + Revision 1.5 2001/10/04 23:16:42 mrau Bugfix :endofperl behoben |
From: Michael R. <mr...@us...> - 2002-03-19 09:04:48
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv9145 Modified Files: Kick.pm Log Message: Tools Routinen eingefügt und Tools.pm Bindung entfernt SQLAutocommit als Variable eingefügt autocommit und printerror als parameter spezifiziert Commit / Rollback nur im Falle autocommit == 0 Parameter leise bei &sql eingeführt Daten-Rückgabe bei &sql nur im Falle SQL eq "SELECT" (Anpassung nötig für MySql) &Sql_Spalten gibt ab sofort einen Array (früher Referenz auf Array) zurück Einheitliche Kleinschreibung bei Tabellennamen (Anpassung nötig für MySql) Sicherheitsabfrage bei &Sql_Spalten Delete-Tabels bei Init ausgelagert DBDate Einsatz mit vorgeschaltetem Quoting (Anpassung nötig für MySql) Änderung SQL Syntax bei Auflösen _zahlung / _kauf (Anpassung nötig für MySql) Neue Routine DBDriver (Rückgabe 'mysql' / 'odbc') Index: Kick.pm =================================================================== RCS file: /cvsroot/kick/kick/Kick.pm,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** Kick.pm 23 Oct 2001 20:37:11 -0000 1.6 --- Kick.pm 19 Mar 2002 09:04:45 -0000 1.7 *************** *** 14,18 **** use Text::ParseWords; use Date::Calc qw( check_date Date_to_Days Add_Delta_Days ); ! use Tools; BEGIN { --- 14,19 ---- use Text::ParseWords; use Date::Calc qw( check_date Date_to_Days Add_Delta_Days ); ! use Time::Local; ! use Time::localtime; [...1300 lines suppressed...] $Log$ + Revision 1.7 2002/03/19 09:04:45 mrau + + Tools Routinen eingefügt und Tools.pm Bindung entfernt + SQLAutocommit als Variable eingefügt + autocommit und printerror als parameter spezifiziert + Commit / Rollback nur im Falle autocommit == 0 + Parameter leise bei &sql eingeführt + Daten-Rückgabe bei &sql nur im Falle SQL eq "SELECT" (Anpassung nötig für MySql) + &Sql_Spalten gibt ab sofort einen Array (früher Referenz auf Array) zurück + Einheitliche Kleinschreibung bei Tabellennamen (Anpassung nötig für MySql) + Sicherheitsabfrage bei &Sql_Spalten + Delete-Tabels bei Init ausgelagert + DBDate Einsatz mit vorgeschaltetem Quoting (Anpassung nötig für MySql) + Änderung SQL Syntax bei Auflösen _zahlung / _kauf (Anpassung nötig für MySql) + Neue Routine DBDriver (Rückgabe 'mysql' / 'odbc') + Revision 1.6 2001/10/23 20:37:11 mrau Debugging entfnert |
From: Michael R. <mr...@us...> - 2002-03-19 08:38:07
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv2645 Added Files: delete.sql Log Message: Seperates Initialisierungs-Skript --- NEW FILE: delete.sql --- // // SKRIPT ZUR INITIALISIERUNG DER DATENBANK // ============================================================================ // RVS Status : $State: Exp $ // Author : $Author: mrau $ // Last Modified : $Date: 2002/03/19 08:38:00 $ // Revision : $Revision: 1.1 $ // // Tabellen löschen DROP table wertungen; DROP table abuchungen; DROP table dbuchungen; DROP table tbuchungen; DROP table ubuchungen; DROP table bbuchungen; DROP table konten; DROP table posten; DROP table teilhaber; DROP table wertpapiere; DROP table depots; DROP table wptypen; DROP table abschluss; |