543
@verb #6397:"tell_www_page" this none this rxdo #6397
@program #6397:"tell_www_page" this none this
if (dobjstr == "?mail")
if (!player:isa($webber) || !$perm_utils:controls(player.user, this))
return $www.error:unauthorized()
endif
endif
player:tell("")
player:tell("![](\"http://members.home.net/destro/stuff/jtg.jpg\")
")
player:tell("
")
player:tell("")
if (this:connected())
player:tell("Connected: Yes (For ", $time_utils:english_time(connected_seconds(this)), ")")
else
player:tell("Connected: No (Last disconnected: ", ctime(this.last_disconnect_time), ")")
endif
player:tell("
")
player:tell("Current Location: ", $www:link(this.location))
player:tell("
")
player:tell("Homepage: http://members.home.net/destro")
player:tell("
Grab some lyrics")
player:tell("
")
player:tell(this.description)
player:tell("
")
player:Tell("![](\"http://members.home.net/destro/james16.jpg\")
")
player:tell("")
"Last modified by James (#6397) on Mon Aug 16 20:03:23 1999 MDT."
.
0