Menu
▾
▴
[Kick-developers] CVS: kick kExec.pl,NONE,1.1 aauszg,1.1.1.1,1.2 abschluss,1.1.1.1,1.2 asaldo,1.1.1.1,1.2 auszg,1.1.1.1,1.2 buche,1.1.1.1,1.2 dauszg,1.1.1.1,1.2 dosql,1.1.1.1,1.2 eintrag,1.1.1.1,1.2 init,1.1.1.1,1.2 kauszg,1.1.1.1,1.2 ksaldo,1.1.1.1,1.2 ksh,1.1.1.1,1.2 liste,1.1.1.1,1.2 makedoc,1.1.1.1,1.2 report,1.1.1.1,1.2 status,1.1.1.1,1.2 std,1.1.1.1,1.2 tauszg,1.1.1.1,1.2 tsaldo,1.1.1.1,1.2 werte,1.1.1.1,1.2
|
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
|