https://pickwiki.org/index.php?action=history&feed=atom&title=GET.REMOTE.IP
GET.REMOTE.IP - Revision history
2026-04-29T02:26:40Z
Revision history for this page on the wiki
MediaWiki 1.43.0
https://pickwiki.org/index.php?title=GET.REMOTE.IP&diff=1842&oldid=prev
Conversion script: link fix
2015-02-26T23:48:54Z
<p>link fix</p>
<p><b>New page</b></p><div> SUBROUTINE GET.REMOTE.IP([[REMOTE_IP]])<br />
*<br />
* clients connect from 192.168.0.0 network<br />
*<br />
NETWORK = "192.168.0.0"<br />
*<br />
* get linux device name<br />
*<br />
PORT.NUM = SYSTEM(22)<br />
EXECUTE 'LIST-LINES ':PORT.NUM CAPTURING OUTPUT<br />
OUTPUT = OUTPUT<2><br />
CONVERT CHAR(32) TO CHAR(254) IN OUTPUT<br />
LASTIDX = DCOUNT(OUTPUT,CHAR(254))<br />
DEVID = OUTPUT<LASTIDX><br />
DEVID = SWAP(DEVID,"/dev/","")<br />
*<br />
* get the hostname for the device<br />
*<br />
EXECUTE '!w -h' CAPTURING OUTPUT<br />
LNS = DCOUNT(OUTPUT,CHAR(254))<br />
IDX = 0<br />
FOR PTR = 1 TO LNS<br />
TLINE = OUTPUT<PTR><br />
CONVERT CHAR(32) TO CHAR(254) IN TLINE<br />
LOCATE DEVID IN TLINE SETTING VM THEN<br />
IDX = PTR<br />
END<br />
NEXT PTR<br />
IF IDX > 0 THEN<br />
WLINE = OUTPUT<IDX><br />
END ELSE<br />
RETURN<br />
END<br />
CONVERT CHAR(32) TO CHAR(254) IN WLINE<br />
LNS = DCOUNT(WLINE,CHAR(254))<br />
IPCOL = 0<br />
HOSTNAME = ''<br />
OK = 0<br />
FOR PTR = 1 TO LNS<br />
IF WLINE<PTR> # "" AND IPCOL = 1 THEN<br />
HOSTNAME = WLINE<PTR><br />
OK = 1<br />
EXIT<br />
END<br />
IF WLINE<PTR> = DEVID THEN<br />
IPCOL = 1<br />
END<br />
NEXT PTR<br />
*<br />
* bail! we can't get an IP!<br />
*<br />
IF OK = 0 THEN<br />
[[REMOTE_IP]] = ''<br />
RETURN<br />
END<br />
*<br />
* we got an IP!<br />
*<br />
HOSTNAME = TRIM(HOSTNAME)<br />
*<br />
* determine if this hostname is an IP address or<br />
* a DNS resolved hostname<br />
* if it is not an IP address then resolve it locally<br />
*<br />
IPADDR = ''<br />
IF HOSTNAME[1,3] # NETWORK[1,3] THEN<br />
EXECUTE '!host ':HOSTNAME CAPTURING IPADDR<br />
CONVERT CHAR(32) TO CHAR(254) IN IPADDR<br />
LNS = DCOUNT(IPADDR,CHAR(254))<br />
[[REMOTE_IP]] = IPADDR<LNS><br />
END ELSE<br />
[[REMOTE_IP]] = HOSTNAME<br />
END<br />
RETURN</div>
Conversion script