Posted: May 20 2004 at 21:08 | IP Logged

I'll be the first! Here is a macro that gets your current IP address, and, can e-mail it, or, do anything else when it changes. You need a global variable called IP.

insert into macroheader values ('GET IP 2','GET IP',4,4,252,96,0,0,0,12632256,0,0,1,'',10);
insert into macrodetail values ('GET IP 2',1,15,'[LOCAL1]',NULL,'ph_htmlunescape( ph_geturl( "http://www.ods.org/cgi-bin/myip ,0);
insert into macrodetail values ('GET IP 2',2,16,'',NULL,'if( len( "[LOCAL1]" <> 183, 999 ,1)',0);
insert into macrodetail values ('GET IP 2',3,15,'[LOCAL2]',NULL,'pos( "[LOCAL1]", "/plain") + 8',0);
insert into macrodetail values ('GET IP 2',4,15,'[LOCAL1]',NULL,'mid( "[LOCAL1]", [LOCAL2], 18)',0);
insert into macrodetail values ('GET IP 2',5,15,'[LOCAL1]',NULL,'replace( "[LOCAL1]", 1, 2, "")',0);
insert into macrodetail values ('GET IP 2',6,15,'[LOCAL1]',NULL,'replace( "[LOCAL1]", len( "[LOCAL1]")-1, 2, "")',0);
insert into macrodetail values ('GET IP 2',7,37,'',NULL,'Jump out if same',0);
insert into macrodetail values ('GET IP 2',8,16,'',NULL,'if( "[LOCAL1]" = "{IP}", 999, 1)',0);
insert into macrodetail values ('GET IP 2',9,10,'IP',NULL,'"[LOCAL1]"',0);
insert into macrodetail values ('GET IP 2',12,1,'SETUP EMAIL',0,'',0);
insert into macrodetail values ('GET IP 2',15,20,'',NULL,'"New IP is: " + "{IP}"',0);

Posted: May 21 2004 at 23:57 | IP Logged

Tony,

Excellent!!  This will be a huge boon to users that don't have a static IP.

The only problem is with the second line.  It was causing the import not to succeed properly because of some missing parenthesis, double quote, and single quote.  It's probably the messageboard that caused the failure since it appears to have interpreted it as a link.  The only other prob was I didn't have a macro called 'SETUP EMAIL' either but that would be easy to correct.

I also went ahead and played around with it some and came up with just a slightly different version.  Try it and let me know what you think.

insert into macroheader values ('GET IP 2','GET IP',4,4,252,96,0,0,0,12632256,0,0,1,'',10);
insert into macrodetail values ('GET IP 2',1,15,'[LOCAL1]',NULL,'ph_geturl("www.ods.org/cgi-bin/myip")',0);
insert into macrodetail values ('GET IP 2',2,16,'',NULL,'if(left("[LOCAL1]",12) <> "HTTP/1.1 200",999,1)',0);
insert into macrodetail values ('GET IP 2',3,15,'[LOCAL2]',NULL,'pos("[LOCAL1]", "~r~n~r~n") + 4',0);
insert into macrodetail values ('GET IP 2',4,15,'[LOCAL3]',NULL,'pos("[LOCAL1]","~r~n",[LOCAL2])',0);
insert into macrodetail values ('GET IP 2',5,15,'[LOCAL1]',NULL,'mid("[LOCAL1]",[LOCAL2],[LOCAL3] - [LOCAL2])',0);
insert into macrodetail values ('GET IP 2',6,37,'',NULL,'Jump out if same',0);
insert into macrodetail values ('GET IP 2',7,16,'',NULL,'if("[LOCAL1]" = "{IP}",999,1)',0);
insert into macrodetail values ('GET IP 2',8,10,'IP',NULL,'"[LOCAL1]"',0);

Thanks for making this available for others !!

Dave.

PS.  It was the messageboard that corrupted the link.  I had the same problem.  I went ahead and changed the macro so as not to have the http : // (the ph_geturl function will add it for you if it's not there) and all seems well.

Posted: May 22 2004 at 12:21 | IP Logged

Tony,

Exactly...the ~r is a carriage return and the ~n is a line feed.  PowerHome uses these escape characters for embedding within strings.  Even though it looks as if its 4 characters, a ~r~n actually only counts as 2 characters.  You'll probably remember also the ~t for a tab character.

The ph_geturl function returns the actual HTTP string received from the socket.  So what you'll have is the header information (per the HTTP specification), with each line separated by a carriage return, line feed followed by a double carriage return, line feed pair to signal the start of the HTML and the end of the header.  This is what Im searching on in my macro.

Take care,

Dave.