mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-01 11:42:43 +02:00
36 lines
1.0 KiB
ObjectPascal
36 lines
1.0 KiB
ObjectPascal
Program testu;
|
|
|
|
uses utmp,linux;
|
|
|
|
Const UTMPFile = '/var/run/utmp';
|
|
|
|
var
|
|
EndOfUsers : Boolean;
|
|
m,d,y,hh,mm,ss : Word;
|
|
|
|
begin
|
|
Set_utmp_file(UTMPFile);
|
|
Writeln ('Number of utmp entries : ',number_of_utmp_entries);
|
|
set_search_parameters (Include ,All_login_types);
|
|
Read_logged_users;
|
|
Writeln ('Number of logged users : ',Number_Of_logged_users);
|
|
While More_USers do
|
|
With Get_Next_user do
|
|
begin
|
|
Writeln ('Logtype : ',login_type_names[type_of_login]);
|
|
Writeln ('Pid : ',Pid);
|
|
Writeln ('Device : ',Device);
|
|
Writeln ('TTYname : ',TTy_Name);
|
|
EpochToLocal(login_time,y,m,d,hh,mm,ss);
|
|
Writeln ('Login Time : ',y,'/',m,'/',d,' ',hh,':',mm,':',ss);
|
|
Writeln ('User Name : ',user_name);
|
|
Writeln ('Host name : ',host_name);
|
|
Write ('IP address : ',Ip_address[1],'.',Ip_address[2]);
|
|
Writeln ('.',ip_address[3],'.',ip_address[4]);
|
|
end;
|
|
end. $Log$
|
|
end. Revision 1.2 2000-07-13 11:33:32 michael
|
|
end. + removed logs
|
|
end.
|
|
}
|