Ako zistit zdrojovu IP adresu v perle

[Robert Vojta]

# > $tty = `/usr/bin/tty`;

  Tady si ulozi do $tty na ktery tty je pripojen, obvykle /dev/pty/cislo

# > if ($tty =~ "/dev/(.*)\n")

  timhle do $1 ulozim tty, ale bez uvodniho /dev/

# ===========================================================	
# >     if (%$entry->{'ut_user'} ne "" and
# >         %$entry->{'ut_line'} eq $1)

  Pokud je neco v user a pokud souhlasi tty na kterem je pripojen, tak je to
ten spravny zaznam a vezmete si z nej veci co nas zajimaji: 

# >       print "Device name: ".%$entry->{'ut_line'}."\n";
# >       print "Host name  : ".%$entry->{'ut_host'}."\n";

  No a tady v hashi %$entry->{'klic'} jsou hodnoty toho utmp, viz man 5 utmp
Pouzit muzete klice:

  ut_type, ut_pid, ut_line, ut_id, ut_user, ut_host, ut_exit, ut_session,
ut_tv, ut_addr_v6

  Vas samozrejme zajima bud ut_host nebo ut_addr_v6 (pole o 4 int => ip adresa).

  Jeste neco nechapete?

  S pozdravem,
    Robert Vojta

-- 

   Robert Vojta aka Penguin (Oo.oO) // ICQ 64746424 // Phone 0603-167911
     http://www.ipex.cz/~vojta                   mailto: vojta na ipex.cz

       GCS d? s+: a-- C++ SL++++ P+ L++++ E--- W+ N+ K w--- O- M- V-
         PS+ PE Y+ PGP++ t 5? X R tv- b+++ DI? D G+ e+ h-- r++ x?