Help for this page

Select Code to Download


  1. or download this
    Data strucure: Message ID (Parent)

...
       |-- 4 (3)
       |   \-- 6 (4)
       \-- 5 (3)
  2. or download this
    # Get the data and store it in a message hash
while (<DATA>) {
...
        content => $content
    );
}
  3. or download this
    foreach my $id (keys %{$msg}) {
    next if ($msg->{$id}->{thread} == 0);
    push @{ $msg->{ $msg->{$id}->{thread} }->{children} }, $id;
}