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...> - 2001-10-03 19:36:46
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv3789 Modified Files: werte eintrag buche Kick.pm GetOption.pm Log Message: Variable PASS (pass_through Ersatz) eingefügt Index: werte =================================================================== RCS file: /cvsroot/kick/kick/werte,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** werte 2001/09/30 20:43:16 1.2 --- werte 2001/10/03 19:36:41 1.3 *************** *** 16,20 **** my %opt; ! Getopt::Long::config('pass_through'); Options ( \%opt, --- 16,20 ---- my %opt; ! $GetOption::PASS = 1; Options ( \%opt, *************** *** 26,29 **** --- 26,30 ---- "bemerkung=s", ); + $GetOption::PASS = 0; # Parameter prüfen *************** *** 121,124 **** --- 122,128 ---- $Log$ + Revision 1.3 2001/10/03 19:36:41 mrau + Variable PASS (pass_through Ersatz) eingefügt + Revision 1.2 2001/09/30 20:43:16 mrau Perl Location auf /perl/bin geändert Index: eintrag =================================================================== RCS file: /cvsroot/kick/kick/eintrag,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** eintrag 2001/09/30 20:43:16 1.2 --- eintrag 2001/10/03 19:36:41 1.3 *************** *** 17,21 **** my %opt; ! Getopt::Long::config('pass_through'); GetOptions ( \%opt, --- 17,21 ---- my %opt; ! $GetOption::PASS = 1; GetOptions ( \%opt, *************** *** 29,32 **** --- 29,33 ---- "entfernen|loeschen", ); + $GetOption::PASS = 0; # Parameter prüfen *************** *** 317,320 **** --- 318,324 ---- $Log$ + Revision 1.3 2001/10/03 19:36:41 mrau + Variable PASS (pass_through Ersatz) eingefügt + Revision 1.2 2001/09/30 20:43:16 mrau Perl Location auf /perl/bin geändert Index: buche =================================================================== RCS file: /cvsroot/kick/kick/buche,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** buche 2001/09/30 20:43:16 1.2 --- buche 2001/10/03 19:36:41 1.3 *************** *** 16,21 **** my %opt; ! Getopt::Long::config('pass_through'); ! Options ( \%opt, # MUSS-Feld Validierung "datum=s", # x x --- 16,20 ---- my %opt; ! &Options ( \%opt, # MUSS-Feld Validierung "datum=s", # x x *************** *** 414,417 **** --- 413,419 ---- $Log$ + Revision 1.3 2001/10/03 19:36:41 mrau + Variable PASS (pass_through Ersatz) eingefügt + Revision 1.2 2001/09/30 20:43:16 mrau Perl Location auf /perl/bin geändert *************** *** 436,438 **** =cut ! :endofperl --- 438,440 ---- =cut ! :endofperl \ No newline at end of file Index: Kick.pm =================================================================== RCS file: /cvsroot/kick/kick/Kick.pm,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** Kick.pm 2001/09/29 09:07:43 1.1.1.1 --- Kick.pm 2001/10/03 19:36:41 1.2 *************** *** 95,99 **** # DB Optionen lesen ! Getopt::Long::config("pass_through"); my %param; Options ( --- 95,99 ---- # DB Optionen lesen ! $GetOption::PASS = 1; my %param; Options ( *************** *** 106,110 **** "errorlk=s", ); ! Getopt::Long::config("nopass_through"); # connect to Db --- 106,110 ---- "errorlk=s", ); ! $GetOption::PASS = 0; # connect to Db *************** *** 3939,3942 **** --- 3939,3945 ---- $Log$ + Revision 1.2 2001/10/03 19:36:41 mrau + Variable PASS (pass_through Ersatz) eingefügt + Revision 1.1.1.1 2001/09/29 09:07:43 mrau Index: GetOption.pm =================================================================== RCS file: /cvsroot/kick/kick/GetOption.pm,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** GetOption.pm 2001/09/29 09:07:28 1.1.1.1 --- GetOption.pm 2001/10/03 19:36:41 1.2 *************** *** 15,19 **** require 5.004; use Exporter (); ! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); $VERSION = do{my@r=q$Revision$=~/\d+/g;sprintf '%d.'.'%02d'x$#r,@r}; --- 15,19 ---- require 5.004; use Exporter (); ! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $PASS); $VERSION = do{my@r=q$Revision$=~/\d+/g;sprintf '%d.'.'%02d'x$#r,@r}; *************** *** 33,36 **** --- 33,37 ---- use vars @EXPORT, @EXPORT_OK; + $PASS = 0; 1; *************** *** 42,46 **** push @_, "h"; ! GetOptions ($hash, @_); # Standardparameter lesen --- 43,51 ---- push @_, "h"; ! &Getopt::Long::Configure('pass_through'); ! &GetOptions ($hash, @_); ! if (@ARGV) { ! die "Unbekannte Option @ARGV" unless ($PASS) ! } # Standardparameter lesen *************** *** 167,170 **** --- 172,178 ---- $Log$ + Revision 1.2 2001/10/03 19:36:41 mrau + Variable PASS (pass_through Ersatz) eingefügt + Revision 1.1.1.1 2001/09/29 09:07:28 mrau |
From: Michael R. <mr...@us...> - 2001-09-30 20:43:20
|
Update of /cvsroot/kick/kick/doc In directory usw-pr-cvs1:/tmp/cvs-serv13157/doc Modified Files: howtos.pod Log Message: Perl Location auf /perl/bin geändert Index: howtos.pod =================================================================== RCS file: /cvsroot/kick/kick/doc/howtos.pod,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** howtos.pod 2001/09/29 09:08:10 1.1.1.1 --- howtos.pod 2001/09/30 20:43:16 1.2 *************** *** 240,244 **** Daraus folgt, dass ein Fehlerteufel im Skript einfach bereinigt und das Skript erneut wieder aufgerufen wird. Versuchen Sie dies anhand ! der L<Beispielskripte|doc::intro/beispiel>. Sämtliche nachfolgenden Abschlussbewertungen werden abschließend erneut ausgeführt, die die Änderung durch einen veränderten Anteilspreis Auswirkungen auf --- 240,244 ---- Daraus folgt, dass ein Fehlerteufel im Skript einfach bereinigt und das Skript erneut wieder aufgerufen wird. Versuchen Sie dies anhand ! der L<Beispielskripte|doc::manual/beispiel>. Sämtliche nachfolgenden Abschlussbewertungen werden abschließend erneut ausgeführt, die die Änderung durch einen veränderten Anteilspreis Auswirkungen auf *************** *** 551,554 **** --- 551,557 ---- $Log$ + Revision 1.2 2001/09/30 20:43:16 mrau + Perl Location auf /perl/bin geändert + Revision 1.1.1.1 2001/09/29 09:08:10 mrau |
From: Michael R. <mr...@us...> - 2001-09-30 20:43:20
|
Update of /cvsroot/kick/kick/test In directory usw-pr-cvs1:/tmp/cvs-serv13157/test Modified Files: 2000.01 Log Message: Perl Location auf /perl/bin geändert Index: 2000.01 =================================================================== RCS file: /cvsroot/kick/kick/test/2000.01,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** 2000.01 2001/09/29 09:07:45 1.1.1.1 --- 2000.01 2001/09/30 20:43:16 1.2 *************** *** 137,139 **** # === ABRECHNUNG < ENDE > ===================================================== ! abschluss -ende; \ No newline at end of file --- 137,139 ---- # === ABRECHNUNG < ENDE > ===================================================== ! abschluss -ende; |
From: Michael R. <mr...@us...> - 2001-09-30 20:43:20
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv13157 Modified Files: aauszg abschluss asaldo auszg buche dauszg dosql eintrag init kauszg ksaldo ksh liste makedoc report status std tauszg tsaldo werte Added Files: kExec.pl Log Message: Perl Location auf /perl/bin geändert --- NEW FILE: kExec.pl --- #!/usr/bin/perl use Win32::Clipboard; use Text::ParseWords; my $text = Win32::Clipboard::GetText(); $text =~ s/\r+//gis; my @com = &parse_line(";", 1, $text); open (CMD, '> kExec.$$$'); foreach $text (@com) { if ($text !~ /^\s+$/) { if ($text =~ /^\s*\`(.+)\`\s*$/) { printf CMD "\n# === %s ===\n\n", $1; open (INC, $1) || die "$1, $!"; print CMD join "", <INC>; close (INC); } else { print CMD "$text;\n"; } } } close (CMD); 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`; } } } Index: aauszg =================================================================== RCS file: /cvsroot/kick/kick/aauszg,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** aauszg 2001/09/29 09:07:26 1.1.1.1 --- aauszg 2001/09/30 20:43:16 1.2 *************** *** 1,3 **** ! #!/usr/bin/perl # ============================================================================= --- 1,3 ---- ! #!/perl/bin/perl # ============================================================================= *************** *** 404,407 **** --- 404,410 ---- $Log$ + Revision 1.2 2001/09/30 20:43:16 mrau + Perl Location auf /perl/bin geändert + Revision 1.1.1.1 2001/09/29 09:07:26 mrau Index: abschluss =================================================================== RCS file: /cvsroot/kick/kick/abschluss,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** abschluss 2001/09/29 09:07:21 1.1.1.1 --- abschluss 2001/09/30 20:43:16 1.2 *************** *** 1,3 **** ! #!/usr/bin/perl # ============================================================================= --- 1,3 ---- ! #!/perl/bin/perl # ============================================================================= *************** *** 266,269 **** --- 266,272 ---- $Log$ + Revision 1.2 2001/09/30 20:43:16 mrau + Perl Location auf /perl/bin geändert + Revision 1.1.1.1 2001/09/29 09:07:21 mrau Index: asaldo =================================================================== RCS file: /cvsroot/kick/kick/asaldo,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** asaldo 2001/09/29 09:07:08 1.1.1.1 --- asaldo 2001/09/30 20:43:16 1.2 *************** *** 1,3 **** ! #!/usr/bin/perl # ============================================================================= --- 1,3 ---- ! #!/perl/bin/perl # ============================================================================= *************** *** 251,254 **** --- 251,257 ---- $Log$ + Revision 1.2 2001/09/30 20:43:16 mrau + Perl Location auf /perl/bin geändert + Revision 1.1.1.1 2001/09/29 09:07:08 mrau Index: auszg =================================================================== RCS file: /cvsroot/kick/kick/auszg,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** auszg 2001/09/29 09:07:09 1.1.1.1 --- auszg 2001/09/30 20:43:16 1.2 *************** *** 1,3 **** ! #!/usr/bin/perl # ============================================================================= --- 1,3 ---- ! #!/perl/bin/perl # ============================================================================= *************** *** 379,382 **** --- 379,385 ---- $Log$ + Revision 1.2 2001/09/30 20:43:16 mrau + Perl Location auf /perl/bin geändert + Revision 1.1.1.1 2001/09/29 09:07:09 mrau Index: buche =================================================================== RCS file: /cvsroot/kick/kick/buche,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** buche 2001/09/29 09:07:11 1.1.1.1 --- buche 2001/09/30 20:43:16 1.2 *************** *** 1,3 **** ! #!/usr/bin/perl # ============================================================================= --- 1,3 ---- ! #!/perl/bin/perl # ============================================================================= *************** *** 61,65 **** # Ein-/Auszahlung ! if (($opt { posten } =~ /^[aus|ein]zahlung$/i) || defined ($opt { teilhaber })) { $opt { teilhaber } = &Suche ( tabelle => 'teilhaber', name => $opt { teilhaber } ) --- 61,65 ---- # Ein-/Auszahlung ! if (($opt { posten } =~ /^aus|einzahlung$/i) || defined ($opt { teilhaber })) { $opt { teilhaber } = &Suche ( tabelle => 'teilhaber', name => $opt { teilhaber } ) *************** *** 414,417 **** --- 414,420 ---- $Log$ + Revision 1.2 2001/09/30 20:43:16 mrau + Perl Location auf /perl/bin geändert + Revision 1.1.1.1 2001/09/29 09:07:11 mrau *************** *** 433,435 **** =cut ! :endofperl \ No newline at end of file --- 436,438 ---- =cut ! :endofperl Index: dauszg =================================================================== RCS file: /cvsroot/kick/kick/dauszg,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** dauszg 2001/09/29 09:07:13 1.1.1.1 --- dauszg 2001/09/30 20:43:16 1.2 *************** *** 1,3 **** ! #!/usr/bin/perl # ============================================================================= --- 1,3 ---- ! #!/perl/bin/perl # ============================================================================= *************** *** 487,490 **** --- 487,493 ---- $Log$ + Revision 1.2 2001/09/30 20:43:16 mrau + Perl Location auf /perl/bin geändert + Revision 1.1.1.1 2001/09/29 09:07:13 mrau Index: dosql =================================================================== RCS file: /cvsroot/kick/kick/dosql,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** dosql 2001/09/29 09:07:13 1.1.1.1 --- dosql 2001/09/30 20:43:16 1.2 *************** *** 1,3 **** ! #!/usr/bin/perl # ============================================================================= --- 1,3 ---- ! #!/perl/bin/perl # ============================================================================= *************** *** 193,196 **** --- 193,199 ---- $Log$ + Revision 1.2 2001/09/30 20:43:16 mrau + Perl Location auf /perl/bin geändert + Revision 1.1.1.1 2001/09/29 09:07:13 mrau Index: eintrag =================================================================== RCS file: /cvsroot/kick/kick/eintrag,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** eintrag 2001/09/29 09:07:15 1.1.1.1 --- eintrag 2001/09/30 20:43:16 1.2 *************** *** 1,3 **** ! #!/usr/bin/perl use Kick; --- 1,3 ---- ! #!/perl/bin/perl use Kick; *************** *** 317,320 **** --- 317,323 ---- $Log$ + Revision 1.2 2001/09/30 20:43:16 mrau + Perl Location auf /perl/bin geändert + Revision 1.1.1.1 2001/09/29 09:07:15 mrau Index: init =================================================================== RCS file: /cvsroot/kick/kick/init,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** init 2001/09/29 09:07:15 1.1.1.1 --- init 2001/09/30 20:43:16 1.2 *************** *** 1,3 **** ! #!/usr/bin/perl # ============================================================================= --- 1,3 ---- ! #!/perl/bin/perl # ============================================================================= *************** *** 69,72 **** --- 69,75 ---- $Log$ + Revision 1.2 2001/09/30 20:43:16 mrau + Perl Location auf /perl/bin geändert + Revision 1.1.1.1 2001/09/29 09:07:15 mrau Index: kauszg =================================================================== RCS file: /cvsroot/kick/kick/kauszg,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** kauszg 2001/09/29 09:07:17 1.1.1.1 --- kauszg 2001/09/30 20:43:16 1.2 *************** *** 1,3 **** ! #!/usr/bin/perl use Kick; --- 1,3 ---- ! #!/perl/bin/perl use Kick; *************** *** 487,490 **** --- 487,493 ---- $Log$ + Revision 1.2 2001/09/30 20:43:16 mrau + Perl Location auf /perl/bin geändert + Revision 1.1.1.1 2001/09/29 09:07:17 mrau Index: ksaldo =================================================================== RCS file: /cvsroot/kick/kick/ksaldo,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** ksaldo 2001/09/29 09:07:17 1.1.1.1 --- ksaldo 2001/09/30 20:43:16 1.2 *************** *** 1,3 **** ! #!/usr/bin/perl # ============================================================================= --- 1,3 ---- ! #!/perl/bin/perl # ============================================================================= *************** *** 214,217 **** --- 214,220 ---- $Log$ + Revision 1.2 2001/09/30 20:43:16 mrau + Perl Location auf /perl/bin geändert + Revision 1.1.1.1 2001/09/29 09:07:17 mrau Index: ksh =================================================================== RCS file: /cvsroot/kick/kick/ksh,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** ksh 2001/09/29 09:07:18 1.1.1.1 --- ksh 2001/09/30 20:43:16 1.2 *************** *** 1,3 **** ! #!/usr/bin/perl # ============================================================================= --- 1,3 ---- ! #!/perl/bin/perl # ============================================================================= *************** *** 21,25 **** my $cursor = 0; - print ">"; while (<>) { --- 21,24 ---- *************** *** 55,88 **** $lines = ""; ! # execute command ! if ($com =~ /^(exit)|(quit)$/) { ! exit; ! } ! if ($com =~ /^\!(.*)/) { ! $com = 'dosql.bat'; ! $param = "$1 $param"; ! } ! elsif (!(-e $com)) { ! $com = "$com.bat"; ! } ! if (-e $com) { ! @ARGV = &shellwords($param); ! do ($com); ! if ($@ && !$interactive) { ! print $@; ! &Rollback; exit; } ! } ! else { ! print "Unbekannte Anweisung <$com>\n"; ! &Rollback; ! if (!$interactive) { ! exit; } } } - print ">"; } --- 54,86 ---- $lines = ""; ! if ($com !~ /^\s*$/) { ! # execute command ! ! if ($com =~ /^(exit)|(quit)$/) { exit; } ! if ($com =~ /^\!(.*)/) { ! $com = 'dosql'; ! $param = "$1 $param"; ! } ! if (-e $com) { ! @ARGV = &shellwords($param); ! do ($com); ! if ($@ && !$interactive) { ! print $@; ! &Rollback; ! exit; ! } } + else { + print "Unbekannte Anweisung <$com>\n"; + &Rollback; + if (!$interactive) { + exit; + } + } } } } *************** *** 162,165 **** --- 160,166 ---- $Log$ + Revision 1.2 2001/09/30 20:43:16 mrau + Perl Location auf /perl/bin geändert + Revision 1.1.1.1 2001/09/29 09:07:18 mrau *************** *** 181,183 **** =cut ! :endofperl \ No newline at end of file --- 182,184 ---- =cut ! :endofperl Index: liste =================================================================== RCS file: /cvsroot/kick/kick/liste,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** liste 2001/09/29 09:07:18 1.1.1.1 --- liste 2001/09/30 20:43:16 1.2 *************** *** 1,3 **** ! #!/usr/bin/perl # ============================================================================= --- 1,3 ---- ! #!/perl/bin/perl # ============================================================================= *************** *** 280,283 **** --- 280,286 ---- $Log$ + Revision 1.2 2001/09/30 20:43:16 mrau + Perl Location auf /perl/bin geändert + Revision 1.1.1.1 2001/09/29 09:07:18 mrau Index: makedoc =================================================================== RCS file: /cvsroot/kick/kick/makedoc,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** makedoc 2001/09/29 09:07:45 1.1.1.1 --- makedoc 2001/09/30 20:43:16 1.2 *************** *** 1,3 **** ! #!/usr/bin/perl # ============================================================================= --- 1,3 ---- ! #!/perl/bin/perl # ============================================================================= *************** *** 11,14 **** --- 11,15 ---- use DBI; use Tools; + use Pod::Html; # POD => HTML *************** *** 34,38 **** if ($content =~ /^\=head1/im) { print " $file\n"; ! `pod2html $_ --css kick.css --outfile doc/$file.html`; } elsif ($_ =~ /\.man$/i) { --- 35,39 ---- if ($content =~ /^\=head1/im) { print " $file\n"; ! pod2html("--infile=$_", "--css=kick.css", "--outfile=doc/$file.html"); } elsif ($_ =~ /\.man$/i) { *************** *** 106,109 **** --- 107,113 ---- $Log$ + Revision 1.2 2001/09/30 20:43:16 mrau + Perl Location auf /perl/bin geändert + Revision 1.1.1.1 2001/09/29 09:07:45 mrau Index: report =================================================================== RCS file: /cvsroot/kick/kick/report,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** report 2001/09/29 09:07:25 1.1.1.1 --- report 2001/09/30 20:43:16 1.2 *************** *** 1,3 **** ! #!/usr/bin/perl # ============================================================================= --- 1,3 ---- ! #!/perl/bin/perl # ============================================================================= *************** *** 46,50 **** my ($jahr1, $monat1, $tag1, $jahr0, $monat0, $tag0); ! &Sql ( sql => (sprintf 'SELECT MAX(datum) FROM abschluss WHERE datum >= %s', &DBDate(&ParseDate($opt { datum })))); if (&ParseDBDate (&Sql_Zelle(0))) { ($jahr1, $monat1, $tag1) = &ParseDBDate (&Sql_Zelle(0)); --- 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)); *************** *** 58,62 **** &Sql ( sql => (sprintf 'SELECT MAX(datum) FROM abschluss WHERE datum < %s', &DBDate(&ParseDate($opt { datum })))); if (&ParseDBDate (&Sql_Zelle(0))) { ! ($jahr0, $monat0, $tag0) = &ParseDBDate (&Sql_Zelle(0)); } --- 58,62 ---- &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); } *************** *** 130,150 **** $tot_summe += $s_anteile; ! if ($opt { kurz }) { ! printf " %-26s : %11.2f %11.2f %11.2f %11.2f\n", ! $_, ! $einz, ! $ausz, ! $anteile, ! $s_anteile * $preis; ! } ! else { ! printf " %-26s : %11s %11.2f %11.2f %11.2f %11.2f %11.2f\n", ! $_, ! "", ! $einz, ! $ausz, ! $anteile, ! $s_anteile, ! $s_anteile * $preis; } } --- 130,153 ---- $tot_summe += $s_anteile; ! if (($anteile != 0) || ($s_anteile != 0)) { ! ! if ($opt { kurz }) { ! printf " %-26s : %11.2f %11.2f %11.2f %11.2f\n", ! $_, ! $einz, ! $ausz, ! $anteile, ! $s_anteile * $preis; ! } ! else { ! printf " %-26s : %11s %11.2f %11.2f %11.2f %11.2f %11.2f\n", ! $_, ! "", ! $einz, ! $ausz, ! $anteile, ! $s_anteile, ! $s_anteile * $preis; ! } } } *************** *** 193,197 **** &LongDate($jahr1, $monat1, $tag1); ! my @result = `$com`; shift @result; pop @result; --- 196,200 ---- &LongDate($jahr1, $monat1, $tag1); ! my @result = `perl $com`; shift @result; pop @result; *************** *** 295,319 **** my ($datum, $kurs, $devise) = &WP_Kurs ( wertpapier => $wertpapiere { $_ }, datum => &LongDate($jahr1, $monat1, $tag1) ); ! if ($opt { kurz }) { ! printf " %-26s : %11.2f %11.2f %11.2f %11.2f\n", ! $_, ! $betrag, ! $s_anteile, ! $kurs * $devise, ! $s_anteile * $kurs * $devise; ! } ! else { ! printf " %-26s : %11.2f %11.2f %11.2f %11.2f %11.2f %11.2f\n", ! $_, ! $betrag, ! $gebuehr, ! $anteile, ! $s_anteile, ! $kurs * $devise, ! $s_anteile * $kurs * $devise; } - $wp_summe += $s_anteile * $kurs * $devise; - $s_betrag += $betrag; - $s_gebuehr += $gebuehr; } --- 298,325 ---- my ($datum, $kurs, $devise) = &WP_Kurs ( wertpapier => $wertpapiere { $_ }, datum => &LongDate($jahr1, $monat1, $tag1) ); ! if (($anteile != 0) || ($s_anteile != 0)) { ! ! if ($opt { kurz }) { ! printf " %-26s : %11.2f %11.2f %11.2f %11.2f\n", ! $_, ! $betrag, ! $s_anteile, ! $kurs * $devise, ! $s_anteile * $kurs * $devise; ! } ! else { ! printf " %-26s : %11.2f %11.2f %11.2f %11.2f %11.2f %11.2f\n", ! $_, ! $betrag, ! $gebuehr, ! $anteile, ! $s_anteile, ! $kurs * $devise, ! $s_anteile * $kurs * $devise; ! } ! $wp_summe += $s_anteile * $kurs * $devise; ! $s_betrag += $betrag; ! $s_gebuehr += $gebuehr; } } *************** *** 405,408 **** --- 411,417 ---- $Log$ + Revision 1.2 2001/09/30 20:43:16 mrau + Perl Location auf /perl/bin geändert + Revision 1.1.1.1 2001/09/29 09:07:25 mrau *************** *** 424,426 **** =cut ! :endofperl \ No newline at end of file --- 433,435 ---- =cut ! :endofperl Index: status =================================================================== RCS file: /cvsroot/kick/kick/status,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** status 2001/09/29 09:07:20 1.1.1.1 --- status 2001/09/30 20:43:16 1.2 *************** *** 1,3 **** ! #!/usr/bin/perl # ============================================================================= --- 1,3 ---- ! #!/perl/bin/perl # ============================================================================= *************** *** 259,262 **** --- 259,265 ---- $Log$ + Revision 1.2 2001/09/30 20:43:16 mrau + Perl Location auf /perl/bin geändert + Revision 1.1.1.1 2001/09/29 09:07:20 mrau Index: std =================================================================== RCS file: /cvsroot/kick/kick/std,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** std 2001/09/29 09:07:07 1.1.1.1 --- std 2001/09/30 20:43:16 1.2 *************** *** 1,3 **** ! #!/usr/bin/perl # ============================================================================= --- 1,3 ---- ! #!/perl/bin/perl # ============================================================================= *************** *** 102,105 **** --- 102,108 ---- $Log$ + Revision 1.2 2001/09/30 20:43:16 mrau + Perl Location auf /perl/bin geändert + Revision 1.1.1.1 2001/09/29 09:07:07 mrau Index: tauszg =================================================================== RCS file: /cvsroot/kick/kick/tauszg,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** tauszg 2001/09/29 09:07:24 1.1.1.1 --- tauszg 2001/09/30 20:43:16 1.2 *************** *** 1,3 **** ! #!/usr/bin/perl # ============================================================================= --- 1,3 ---- ! #!/perl/bin/perl # ============================================================================= *************** *** 507,510 **** --- 507,513 ---- $Log$ + Revision 1.2 2001/09/30 20:43:16 mrau + Perl Location auf /perl/bin geändert + Revision 1.1.1.1 2001/09/29 09:07:24 mrau Index: tsaldo =================================================================== RCS file: /cvsroot/kick/kick/tsaldo,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** tsaldo 2001/09/29 09:07:24 1.1.1.1 --- tsaldo 2001/09/30 20:43:16 1.2 *************** *** 1,3 **** ! #!/usr/bin/perl # ============================================================================= --- 1,3 ---- ! #!/perl/bin/perl # ============================================================================= *************** *** 38,41 **** --- 38,44 ---- $Log$ + Revision 1.2 2001/09/30 20:43:16 mrau + Perl Location auf /perl/bin geändert + Revision 1.1.1.1 2001/09/29 09:07:24 mrau Index: werte =================================================================== RCS file: /cvsroot/kick/kick/werte,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** werte 2001/09/29 09:07:19 1.1.1.1 --- werte 2001/09/30 20:43:16 1.2 *************** *** 1,3 **** ! #!/usr/bin/perl # ============================================================================= --- 1,3 ---- ! #!/perl/bin/perl # ============================================================================= *************** *** 121,124 **** --- 121,127 ---- $Log$ + Revision 1.2 2001/09/30 20:43:16 mrau + Perl Location auf /perl/bin geändert + Revision 1.1.1.1 2001/09/29 09:07:19 mrau |
From: Michael R. <mr...@us...> - 2001-09-30 20:41:53
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv13082 Modified Files: .database .driver Log Message: Anpassung Index: .database =================================================================== RCS file: /cvsroot/kick/kick/.database,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** .database 2001/09/29 09:07:26 1.1.1.1 --- .database 2001/09/30 20:41:50 1.2 *************** *** 1 **** ! driver=Microsoft Access Driver (*.mdb);dbq=kick.mdb --- 1 ---- ! driver=Microsoft Access Driver (*.mdb);dbq=kick.mdb \ No newline at end of file Index: .driver =================================================================== RCS file: /cvsroot/kick/kick/.driver,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** .driver 2001/09/29 09:07:26 1.1.1.1 --- .driver 2001/09/30 20:41:50 1.2 *************** *** 1 **** ! ODBC --- 1 ---- ! ODBC \ No newline at end of file |
From: Michael R. <mr...@us...> - 2001-09-29 12:34:16
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv20779 Removed Files: test.txt Log Message: Test erfolgreich --- test.txt DELETED --- |
From: Michael R. <mr...@us...> - 2001-09-29 12:28:58
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv19557 Modified Files: test.txt Log Message: Test Index: test.txt =================================================================== RCS file: /cvsroot/kick/kick/test.txt,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** test.txt 2001/09/29 11:58:57 1.3 --- test.txt 2001/09/29 12:28:55 1.4 *************** *** 1,2 **** --- 1,3 ---- + asdf tagölkj as ölkj asdf |
From: Michael R. <mr...@us...> - 2001-09-29 12:06:50
|
Date: Saturday September 29, 2001 @ 5:06 Author: mrau Update of /cvsroot/kick/CVSROOT In directory usw-pr-cvs1:/tmp/cvs-serv16821 Modified Files: checkoutlist loginfo Log Message: Anpassung an syncmail =================================================================== File: checkoutlist Status: Up-to-date Working revision: 1.2 Sat Sep 29 12:06:49 2001 Repository revision: 1.2 /cvsroot/kick/CVSROOT/checkoutlist,v Existing Tags: No Tags Exist =================================================================== File: loginfo Status: Up-to-date Working revision: 1.4 Sat Sep 29 12:06:49 2001 Repository revision: 1.4 /cvsroot/kick/CVSROOT/loginfo,v Existing Tags: No Tags Exist |
From: Michael R. <mr...@us...> - 2001-09-29 12:05:06
|
Date: Saturday September 29, 2001 @ 5:05 Author: mrau Update of /cvsroot/kick/CVSROOT In directory usw-pr-cvs1:/tmp/cvs-serv16556 Added Files: syncmail Log Message: Import =================================================================== File: syncmail Status: Up-to-date Working revision: 1.1 Sat Sep 29 12:05:06 2001 Repository revision: 1.1 /cvsroot/kick/CVSROOT/syncmail,v Existing Tags: No Tags Exist |
From: Michael R. <mr...@us...> - 2001-09-29 11:58:58
|
Date: Saturday September 29, 2001 @ 4:58 Author: mrau Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv15423 Added Files: test.txt Log Message: Test =================================================================== File: test.txt Status: Up-to-date Working revision: 1.3 Sat Sep 29 11:58:57 2001 Repository revision: 1.3 /cvsroot/kick/kick/test.txt,v Existing Tags: start (revision: 1.1.1.1) vendor (branch: 1.1.1) |