chore(E2+E3): remove dead Perl tools, kvai.ini, and empty directory

Removes obsolete artifacts from the HP-UX/Borland/Sybase/SVN era. Also removes api/aktsource_dummies/ (empty directory). Co-authored-by: CommandCodeBot <noreply@commandcode.ai>
2026-06-13 08:05:20 +02:00
1 parent ed4ba17475
commit d67cf52675
@@ -1,100 +0,0 @@
-;**********************************************************************
-;* Automatisch generierte KVAI.INI                                    *
-;* Iniviewer V01.16 (C) Management Systems 1999,2000                  *
-;*                                                                    *
-;* Diese Datei ist grundlegender Bestandteil des KVAI-Systems und     *
-;* sollte nicht manuell verändert werden.                             *
-;**********************************************************************
-
-;Generiert von: mr
-;Generiert am : 06.02.2003 18:36:30
-
-[Verzeichnis]
-TEMP=C:\WINNT\TEMP
-RWIN=D:\rw_winBOR\rwlib
-RWOUT=D:\rw_winBOR\data
-RWOBJ=D:\rw_winBOR\obj
-RWDLL=D:\rw_winBOR
-RWLIEF=d:\
-#COMPILER=c:\programme\borland\cbuilder5
-COMPILER=w:\cbuilder5
-
-[Security-DB]
-DRIVER=SYBASE
-DATABASE NAME=kvai_security
-SERVER NAME=MS_SYB_ENTW
-
-[Anwendung-DB]
-DATABASE NAME=kvai_20062
-DRIVER=SYBASE
-SERVER NAME=MS_SYB_ENTW 
-TDS PACKET SIZE = 4096        
-*FETCH COUNT = 500
-
-[#Anwendung-DB]
-DRIVER=SYBASE
-DATABASE NAME=kvai_ag02264_t_20072
-SERVER NAME=MS_SYB_TEST
-PASSWORD=.AragO#
-TDS PACKET SIZE=4096
-
-[#Anwendung-DB]
-DRIVER=ORACLE
-DATABASE NAME=kvai_20072
-SERVER NAME=MS_ORA_OT09206
-TDS PACKET SIZE=4096
-
-[#Anwendung-DB]
-DRIVER=SYBASE
-DATABASE NAME=kvai_st_20064
-SERVER NAME=MS_SYB_ENTW
-TDS PACKET SIZE=4096
-
-[#Anwendung-DB]
-DRIVER=SYBASE
-DATABASE NAME=kvai_st_20062
-SERVER NAME=MS_SYB_ENTW
-TDS PACKET SIZE=4096
-
-[Anwendung-v1]
-DRIVER=ORACLE
-DATABASE NAME=kvai_st_20064
-SERVER NAME=MS_ORA_ENTW
-TDS PACKET SIZE=4096
-
-[Anwendung-v2]
-DRIVER=ORACLE
-DATABASE NAME=kvai_rw_r_20044
-SERVER NAME=MS_ORA_ENTW_2
-TDS PACKET SIZE=4096
-
-[Anwendung-v1]
-DRIVER=SYBASE
-DATABASE NAME=kvai_mr_ref_20041
-SERVER NAME=MS_SYB_ENTW
-TDS PACKET SIZE=4096
-
-
-[#Stammdaten-DB]
-DRIVER=SYBASE
-DATABASE NAME=kvai_e2krwe_stamm
-SERVER NAME=MS_SYB_ENTW
-TDS PACKET SIZE=4096
-
-[#Stammdaten-DB]
-DRIVER=SYBASE
-DATABASE NAME=kvai_rw_mb_20051
-SERVER NAME=MS_SYB_ENTW
-TDS PACKET SIZE=4096
-
-[Stammdaten-DB]
-DRIVER=SYBASE
-DATABASE NAME=kvai_rw_ref_stamm
-SERVER NAME=MS_SYB_ENTW
-TDS PACKET SIZE=4096
-
-[Archiv-DB]
-DRIVER=SYBASE
-DATABASE NAME=kvai_st_20062
-SERVER NAME=MS_SYB_ENTW
-TDS PACKET SIZE=4096
@@ -1,27 +0,0 @@
-#!perl -w
-use strict;
-use 5.006;
-
-use File::Glob    qw(:globally :case GLOB_NOSORT);
-   $File::Glob::DEFAULT_FLAGS |= GLOB_NOSORT;
-use File::Path;
-
-
-my @os = qw(
-   hpux11
-   hpux10
-   linux
-   winnt
-);
-
-
-# alle Makefiles loeschen
-unlink  map { $_ . '_makefile' } @os;
-
-# alle Verzeichnisse fuer die Object-Files loeschen
-rmtree( $_ . '_obj' )
-   for @os;
-
-# angelegte Hilfsdateien und -verzeichnisse loeschen
-unlink <*.C>;
-rmtree( 'ptrepository' );
@@ -1,6 +0,0 @@
-opendir(DIR, ".");
-while($file = readdir DIR) {
-	next unless $file =~ m/\d{3}\w?\.cpp/io;
-	print 'USEUNIT("', $file, '");', "\n";
-}
-closedir DIR;
@@ -1,30 +0,0 @@
-use strict;
-use warnings;
-
-my @res = ();
-opendir(DIR, ".");
-while(my $file = readdir(DIR)) {
-    next unless $file =~ m/(hpp|cpp)$/;
-    
-    print "$file..\n";
-    push @res, $file unless hasIDString($file);
-}
-
-print "\n\nfolgende Dateien besitzen keinen ID-String:\n";
-print join("\n\t", @res);
-
-
-
-sub hasIDString
-{
-    my ($fileName) = @_;
-    my $res = 0;
-    open(FH, "<$fileName");
-    while(<FH>) {
-        next unless m/\$Id:/;
-        $res = 1;
-        last;
-    }
-    close(FH);
-    return $res;
-}
@@ -1,4 +0,0 @@
-#perl -w
-use strict;
-
-($^O =~ /win/i ? sub { system @_ } : sub { exec @_ })->( $^X, '../perlstuff/rw_make.pl', @ARGV );
@@ -1,43 +0,0 @@
-#!/opt/perl5/bin/perl
-
-use sigtrap;
-use English;
-use IO::Handle;
-
-my $Sleeptime = 10;
-#
-my $USER = "kvai";
-my $DB = "kvai_rw_vdg_e_20073";
-my $SERVER = "MS_SYB_ENTW";
-#
-my $RW = "obj_hpux11.64/rw";
-#my $RW = "obj_winnt/rw.exe";
-
-autoflush STDERR;
-autoflush STDOUT;
-
-
-print "Password fuer >$DB< auf Server >$SERVER<:";
-if(defined($ENV{"SYBPASS"})) {
-    print "******* aus Umgebung\n";
-    $PASSWD = $ENV{"SYBPASS"};
-}
-else {
-    $PASSWD = <stdin>;
-    chop($PASSWD);
-}    
-
-my $paketCounter = 1;
-while(1) {
-    my $o = "rwlog".$paketCounter.".log";
-
-	$s = "$RW -U${USER} -P${PASSWD} -S${SERVER} -M${DB} -u${USER} -p${PASSWD}";
-	$s .= " -s${SERVER} -m${DB} -tRW_MR -L11 -d -K -T -O$o";
-    print $s, "\n";
-
-    system($s);
-
-    print "<Enter> ...";
-    $s = <stdin>;
-	$paketCounter++;
-}
@@ -1,56 +0,0 @@
-#!perl -w
-###############################################################################
-###
-###   test_rw.pl
-###
-###      MS-internes Skript zum Start des Hostregelwerks
-###
-### --------------------------------------------------------------------------
-### $Id: test_rw.pl kvai-entw-net_woh/2 2006/01/30 13:24:21 woh $
-###############################################################################
-use strict;
-use 5.006;
-$|=1;
-
-#
-my $USER   = 'kvai';
-my $DB     = 'kvai_woh_20053';
-my $SERVER = 'MS_SYB_ENTW_2';
-my $PASSWD ='.AragO#';
-
-my $USER_st   = 'kvai';
-my $SERVER_st = 'MS_SYB_ENTW_2';
-my $PASSWD_st ='.AragO#';
-
-
-#
-my $RW = (
-   $^O =~ /mswin/i
-      ? 'obj_winnt\rw.exe'
-      : "obj_hpux11.64/rw"       # TODO: Sun
-);
-
-
-x $RW
-   or die "Das Regelwerksbinary '$RW' existiert nicht oder kann nicht ausgefuehrt werden.";
-
-
-my $logfile = 'rw.log';
-while (1) {
-
-	my $s = $RW
-	   . " -U$USER -P$PASSWD -S$SERVER -M$DB"
-	   . " -u$USER_st -p$PASSWD_st -s$SERVER_st -mkvai_steuer -ttest_rw "
-	   . '-d '
-	   . '-K '
-	   . '-T '
-	   . "-L42 -A -O+$logfile "
-	;
-
-   print $s, "\n";
-
-   system($s);
-
-   print "<Enter> ...";
-   <STDIN>;
-}