Libreria systemusers

[nomorelogic]

già provato ma il risultato è

last --time-format iso


last: invalid option -- '-'
Usage: last [-num | -n num] [-f file] [-t YYYYMMDDHHMMSS] [-R] [-adioxFw] [username..] [tty..]

prima di consigliartelo l'ho provato...
man last
ti da qualche aiuto?

in alternativa puoi usare -t

[nomorelogic]

PS:
Linux è open source ... e i comandi gnu altrettanto ... butto lì l'idea del porting dell'api da zero

Stilgar... troppo sole fa male

[Stilgar]

Codice: [Seleziona]

type
  TUtmp = packed record
    ut_type: short;              (* Type of record *)
    ut_pid: pid_t;               (* PID of login process *)
    ut_line: array [0..UT_LINESIZE - 1] of char; (* Device name of tty - "/dev/" *)
    ut_id: array [0..4 - 1] of char;             (* Terminal name suffix,
                                               or inittab(5) ID *)
    ut_user: array [0..UT_NAMESIZE - 1] of char; (* Username *)
    ut_host: array [0..UT_HOSTSIZE] of char; (* Hostname for remote login, or
                                               kernel version for run-level
                                               messages *)
    ut_exit: exit_status;  (* Exit status of a process
                                               marked as DEAD_PROCESS; not
                                               used by Linux init( *)
              (* The ut_session and ut_tv fields must be the same size when
                 compiled 32- and 64-bit.  This allows data files and shared
                 memory to be shared between 32- and 64-bit applications. *)
          {$if __WORDSIZE == 64 and defined __WORDSIZE_COMPAT32}
    ut_session: int32_t;           (* Session ID (getsid(2)),
                                               used for windowing *)
    ut_tv: record
      tv_sec: int32_t;           (* Seconds *)
      tv_usec: int32_t;          (* Microseconds *)
    end;                       (* Time entry was made *)
          {$else}
    ut_session: long;           (* Session ID *)
    ut_tv: timeval;        (* Time entry was made *)
          {$endif}

    ut_addr_v6: array[0..3 - 1] of int32_t;        (* Internet address of remote
                                               host; IPv4 address uses
                                               just ut_addr_v6[0] *)
    __unused: array [0..20 - 1] of char;            (* Reserved for future use *)
  end;

           

[Stilgar]

@nomore ... ho 3 solo birre da 0.5 in corpo
Sale ne uso solo al mare quando faccio il bagno e quest'anno ho fatto molte docce e pochi bagni (visto i monsoni che giravano qui in veneto )
Intendevo il porting dell'api da zero.
Last è un comando di cui si può leggere il sorgente. Se non esiste la libreria (come in window) si può controllare e verificare cosa interessa e "modificarlo" a piacimento :p
Stavo provando a scrivere la funzione per xinyman
poi torno al mio traduttore pirata

Stilgar

[Stilgar]

urca ... trovo interessante l'unità utmp ...

[Stilgar]

BINGO:

Codice: [Seleziona]

Program testu;
uses utmp,unixutil;
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.

va bene xinyman?
Abbastanza "poco testo"?

Stilgar

[nomorelogic]

wow, bel lavoro Stilgar

@xinyman
ti tocca eliminare la chiamata del comando last con TProcess (ed includere questo sorgente nella tua classe)...

[Stilgar]

Ho solo cercato un esempio di utilizzo della utmp
Solo ricerca con google

:p

Stilgar

PS:
Grazie

[xinyiman]

BINGO:

Codice: [Seleziona]

Program testu;
uses utmp,unixutil;
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.

va bene xinyman?
Abbastanza "poco testo"?

Stilgar

Lo avevo già provato ma questo è il risultato

Codice: [Seleziona]

francesco@netbook-mint ~/Documenti/Lazarus/test2utmp $ sudo  ./project1 
[sudo] password for francesco: 
Number of utmp entries : 10
Number of logged users : 2
Logtype : Boot time
Pid : 0
Device : 
TTYname : 
Login Time : 1970/1/1 2:0:0
User Name : 
Host name : 
IP address : 0.0.0.0
Logtype : Run level
Pid : 0
Device : 
TTYname : 
Login Time : 1970/1/1 2:0:0
User Name : 
Host name : 
IP address : 0.0.0.0
Logtype : Login process
Pid : 0
Device : ty4
TTYname : 
Login Time : 1970/1/1 2:0:0
User Name : 
Host name : 
IP address : 0.0.0.0
Logtype : Login process
Pid : 0
Device : ty5
TTYname : 
Login Time : 1970/1/1 2:0:0
User Name : 
Host name : 
IP address : 0.0.0.0
Logtype : Login process
Pid : 0
Device : ty2
TTYname : 
Login Time : 1970/1/1 2:0:0
User Name : 
Host name : 
IP address : 0.0.0.0
Logtype : Login process
Pid : 0
Device : ty3
TTYname : 
Login Time : 1970/1/1 2:0:0
User Name : 
Host name : 
IP address : 0.0.0.0
Logtype : Login process
Pid : 0
Device : ty6
TTYname : 
Login Time : 1970/1/1 2:0:0
User Name : 
Host name : 
IP address : 0.0.0.0
Logtype : Login process
Pid : 0
Device : ty1
TTYname : 
Login Time : 1970/1/1 2:0:0
User Name : 
Host name : 
IP address : 0.0.0.0
Logtype : User process
Pid : 0
Device : ty8
TTYname : 
Login Time : 1970/1/1 2:0:0
User Name : 
Host name : 
IP address : 0.0.0.0
Logtype : User process
Pid : 0
Device : ts/2
TTYname : 
Login Time : 1970/1/1 2:0:0
User Name : 
Host name : 
IP address : 0.0.0.0

Ovvero nessun dato utile

[Stilgar]

EpochToLocal(login_time,y,m,d,hh,mm,ss); Writeln ('Login Time : ',y,'/',m,'/',d,' ',hh,':',mm,':',ss);

Login Time : 1970/1/1 2:0:0

[xinyiman]

già provato ma il risultato è

last --time-format iso


last: invalid option -- '-'
Usage: last [-num | -n num] [-f file] [-t YYYYMMDDHHMMSS] [-R] [-adioxFw] [username..] [tty..]

prima di consigliartelo l'ho provato...
man last
ti da qualche aiuto?

in alternativa puoi usare -t

Non sono riuscito a farlo funzionare nemmeno con -t

[xinyiman]

Sul mio pc ho risolto così, mi testereste il sorgente anche sulle vostre versioni linux? E mi date un riscontro? Grazie mille

[xinyiman]

Ora mi piacerebbe inserire una funzione che faccia la verifica se l'utente e la password inseriti sono corretti. Ideee al riguardo?

Lo scopo sarebbe realizzare programmi che usino lo stesso username e password dell'accesso al sistema così da semplificare la vita agli utenti e non doversi ricordare mille password...

[nomorelogic]

mi sa tanto che tocca fare un approccio alla Stilgar, ovvero:
vedere cosa fanno i sorgenti di passwd

[xinyiman]

mi sa tanto che tocca fare un approccio alla Stilgar, ovvero:
vedere cosa fanno i sorgenti di passwd

Lo credo pure io, ma non ho voglia di farmi uno sbattone, ora vedo che fare...

anche perchè ho appena trovato questa cartella nei sorgenti fifpc

/usr/share/fpcsrc/2.6.4/packages/users/examples/

e mi sta iniziando a montare un certo qual nervoso...anche se i sorgenti per testare la password non mi funzionano...grrrrrrrrrrrrrrrrrrrrr