/******************************************************************************/
/* $VER: 1.1 Copyright ©2000 by Uwe "AC-Overmind" Horn */
/* $AUTHOR: Uwe "AC-Overmind" Horn */
/* $DESCRIPTION: Read IP, make HTML-File and send to Homepage */
/******************************************************************************/
AddLib("rexxsupport.library",0,-30,0)
parse arg got_ip
options results
/******************************************************************************/
/* AmFTP starten und File senden */
/* starting AmFTP and send the File */
/******************************************************************************/
runftp='C:Run >NIL: Internet:AmFTP/AmFTP'
Address command runftp
/******************************************************************************/
/* IP ermitteln */
/* looking for the IP */
/******************************************************************************/
call addlib("rxsocket.library",0,-30,0)
got_ip=GetHostID()
/******************************************************************************/
/* HTML-Datei generieren */
/* generate the HTML-File */
/******************************************************************************/
File='IP.html'
Destination='RAM:T/IP.html'
If Open(WriteHandle, Destination,'WRITE') Then Do
WriteLN(WriteHandle,'')
WriteLN(WriteHandle,'')
WriteLN(WriteHandle,'')
WriteLN(WriteHandle,'
')
WriteLN(WriteHandle,'
')
WriteLN(WriteHandle,''||got_ip'')
WriteLN(WriteHandle,'')
WriteLN(WriteHandle,'')
WriteLN(WriteHandle,'')
Close(WriteHandle)
End
/*****************************************************************************/
/* Port öffnen */
/* open Port */
/*****************************************************************************/
RXLIB "AMFTP.1"
ADDRESS 'AMFTP.1'
CALL OPENPORT("AMFTP-RESULT.1")
/*****************************************************************************/
/* verbinden "Connect 7" bedeutet, 7ter Eintrag in der AmFTP Serverliste */
/* connect "Connect 7" ist the 7th entry in the Server list of AmFTP */
/*****************************************************************************/
CONNECT 7
WAITACTION "AMFTP-RESULT.1"
CALL WAITPKT "AMFTP-RESULT.1"
/*****************************************************************************/
/* File senden */
/* send file */
/*****************************************************************************/
CHANGELOCALDIR "RAM:T/"
SEND "IP.html"
WAITACTION "AMFTP-RESULT.1"
CALL WAITPKT "AMFTP-RESULT.1"
/*****************************************************************************/
/* Verbindung beenden und Port schließen */
/* Cancel connection an close Port */
/*****************************************************************************/
CLOSE
CALL CLOSEPORT "AMFTP-RESULT.1"
exit