how can i list wich interface loaded without
need to parse /etc/networks/...?
I would parse /proc/net/dev instead....
program ifnames;
var
s:shortstring;
f:text;
p:LongInt;
begin
assign(f,'/proc/net/dev');
reset(f);
while not eof(f) do begin
readln(f,s);
p:=pos(':',s);
if ( p > 0 ) then begin
delete(s, p, 255);
while ( s <> '' ) and (s[1]=#32) do delete(s,1,1);
writeln(s);
end;
end;
close(f);
end.
_______________________________________________
fpc-pascal maillist - [email protected]
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
