FCLT#54494 Beveiliging klantscripts iets generieker maken

svn path=/Database/trunk/; revision=40629

ADM/ADM_PAC.SRC

@@ -133,10 +133,36 @@ AS
       groep     VARCHAR2(4);
       fout      NUMBER(1) := 0;
       qry       VARCHAR2(4000);
-      tekst     VARCHAR2 (255);
+      tekst     VARCHAR2 (4000);
+      TYPE table_varchar IS TABLE OF VARCHAR2 (32);
+      var_table_varchar table_varchar;
    BEGIN
-      tekst := '';
+      -- Wat handige info voor in de SPOOL-file (vooral bij licentieklanten waar we het niet altijd weten)
+      var_table_varchar :=
+          table_varchar ('TERMINAL',
+                         'HOST',
+                         'LANGUAGE',
+                         'CURRENT_USER',
+                         'SESSION_USER',
+                         'DB_DOMAIN',
+                         'DB_NAME',
+                         'SERVER_HOST',
+                         'SERVICE_NAME',
+                         'IP_ADDRESS');
+
+      tekst := 'OS-user: ' || SYS_CONTEXT('USERENV','OS_USER');
+      FOR elem IN 1 .. var_table_varchar.COUNT
+      LOOP
+          tekst := tekst ||
+                   CHR(13) ||
+                   var_table_varchar (elem) || ': ' ||
+                   SYS_CONTEXT ('USERENV', var_table_varchar (elem));
+      END LOOP;
+
       BEGIN
+         -- EXECUTE IMMEDIATE oplossing omdat in het CREA-script de fac_version_tabel er niet op tijd
+         -- is, daardoor deze hele package invalid is en aan het eind de REGISTERRUN faalt
+         -- (ook al gebruikt REGISTERRUN deze checkscriptcust niet)
          qry := 'SELECT fac_version_cust'
              || '     , fac_version_group'
              || '  FROM fac_version';