[8d1c2d]: UserLib.def History

Parent: [288ae8] (diff)

Download this file

UserLib.def    33 lines (25 with data), 1.8 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
DEFINITION MODULE UserLib;



  (*------------------------------------------------------------------------*)

  (* Ermittelt den Benutzernamen des aktuellen Benutzers.                   *)

  (* Fetch the user name of the actual user.                                *)

  (*------------------------------------------------------------------------*)

  (* Implementation : Michael Riedl                                         *)

  (* Licence        : GNU Lesser General Public License (LGPL)              *)

  (*------------------------------------------------------------------------*)



  (* $Id: UserLib.def,v 1.4 2018/06/08 21:38:43 mriedl Exp mriedl $ *)



PROCEDURE GetUserName(VAR UserName : ARRAY OF CHAR);



          (*----------------------------------------------------------------*)

          (* Ermittelt den Login-Namen des Benutzers.                       *)

          (*                                                                *)

          (* Fetch the user name of the actual user.                        *)

          (*----------------------------------------------------------------*)



PROCEDURE GetFullUserName(VAR UserName     : ARRAY OF CHAR;

                          VAR LongUserName : ARRAY OF CHAR);



          (*----------------------------------------------------------------*)

          (* Ermittelt den effektiven Login-Namen des Benutzers  (UserName) *)

          (* sowie den vollen Usernamen aus der Datei /etc/passwd.          *)

          (*                                                                *)

          (* Fetch the effective logoin name of the actual user and the     *)

          (* full users name as seen in /etc/passwd                         *)

          (*----------------------------------------------------------------*)



END UserLib.