Pasted

on *:connect:{ .timerdyn.update -o 0 10 dyn.update | dyn.update }
alias dyn.update { /sockclose dyn.update.* | /sockopen dyn.update. $+ $ticks www.edv-man.de 80 }
on *:SOCKOPEN:dyn.update.*:{ 
  if ($sockerr > 0) { return } 
  sockwrite -n $sockname GET /getip.php HTTP/1.1
  sockwrite -n $sockname Host: www.edv-man.de $+ $crlf $+ $crlf
}
on *:SOCKREAD:dyn.update.*:{ 
  unset %dyn.buffer 
  var %dyn.buffer 
  sockread %dyn.buffer
  if ($wildtok(%dyn.buffer,*.*.*.*,0,32) == 1) { 
    /scid -a /localinfo %dyn.buffer %dyn.buffer
    .timerdyn.update off
    echo -s Host updated to %dyn.buffer
    return
  }
}