View/Edit #12:@netforw*ard

Switch to edit mode.

Name(s): @netforw*ard
1:  "Copied from Generic player&&Joueur generique (#6):@netforward by Sleeping_Beauty (#2) Thu Jul  6 07:09:13 1995 EDT"
2:  "@netforward <msg>...                  -- as in help on @netforward"
3:  "@netforward <msg>... on *<recipient>  -- netforwards messages on recipient."
4:  "This command forwards mail-messages to your registered email-address."
5:  if (player != this)
6:    return player:tell(E_PERM)
7:  elseif (reason = $network:email_will_fail(email = player.email_address))
8:    return player:notify(tostr("Cannot forward mail to your email address: ", reason))
9:  endif
10: set_task_perms(player)
11: if (p = player:parse_mailread_cmd("@read", args, "", "on"))
12:   player:set_current_folder(folder = p[1])
13:   msg_seq = p[2]
14:   folderstr = folder == player ? "" | tostr(" from *", folder.name, "(", folder, ")")
15:   if (this:connected() && !$command_utils:yes_or_no(tostr("You are about to forward ", seq_size = $seq_utils:size(msg_seq), " message(s)", folderstr, " to your registered email-address, ", email, ".  Continue?")))
16:     player:notify(tostr("@Netforward cancelled."))
17:     return
18:   endif
19:   reason = `this:netforward(folder, msg_seq) ! ANY'
20:   player:tell(reason == 0 ? tostr("@netforward completed.") | tostr("@netforward failed: ", reason, "."))
21: endif
22: "Last modified by Lao-Tzu (#8084) on Mon Dec 10 19:29:34 2001 MST."

Verb arguments: any any any
Verb perms: Readable NOT-Debug
Verb owned by: Slacker (#55)

You are not logged in.

[home | help | who | search | setup | code]