sub post_outgoing {
   print "Processing outgoing messages\n";
   my @article=();
   my $q2 = db_fetch("SELECT poster,newsgroup,subject,refs,body FROM usenet_outgoing");
   while ( my ($poster,$newsgroup,$subject,$refs,$body) = $q2->fetchrow_array ) {
      push(@article,"Subject: $subject\n");
      push(@article,"From: $poster\n");
      push(@article,"Sender: $poster\n");
      push(@article,"Newsgroups: $newsgroup\n");
      push(@article,"Content-Type: text/plain; charset=ISO-8859-1:\n");
      push(@article,"Content-Transfer-Encoding: 8bit\n");
      push(@article,"User-Agent: $useragent\n");
      if ($refs) { push(@article,"References: $refs\n"); }
      push(@article,"Organization: $organization\n");
      autoformat $body, {right=>72};
      push(@article,"\n$body\n\n$footer\n");
      print "Posting message by $poster to $newsgroup...\n";
      $c->post(@article);
      @article = ();
   }
   db_execute("DELETE FROM usenet_outgoing");
}