View/Edit #119:get_headers

Switch to edit mode.

1:  caller != this && caller:isa(#120) == 0 && raise(E_PERM)
2:  "Gimme range-range or just a number."
3:  if (index(args[1], "-"))
4:    range = $su:explode(args[1], "-")
5:  else
6:    range = {args[1], args[1]}
7:  endif
8:  range = {toint(range[1]), toint(range[2])}
9:  if (range[1] == range[2])
10:   foo = {{@caller.group:headers_in_seq(caller.group:get_num(range[1])), range[1]}}
11:   return foo
12: else
13:   foo = caller.group:headers_in_seq({caller.group:get_num(range[1]), caller.group:get_num(range[2])})
14:   for x in [1..length(foo)]
15:     foo[x] = {@foo[x], range[1] - 1 + x}
16:   endfor
17:   foo = {@foo, {@caller.group:headers_in_seq(caller.group:get_num(range[2])), range[2]}}
18:   "For a range of messages. I have absolutely no idea of how to do this."
19:   for x in [1..length(foo)]
20:     for y in [1..length(foo[x][2])]
21:       foo[x][2][y] = `strsub(foo[x][2][y], "~", "~7E") ! ANY => foo[x][2][y]'
22:     endfor
23:   endfor
24:   return foo
25: endif
26: "Last modified by Dax (#789) on Tue May  3 14:13:04 2005 MDT."

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