--- cvs-head/script/index_mail	2000/12/29 15:33:06	47
+++ cvs-head/script/index_mail	2000/12/29 16:09:58	48
@@ -1,10 +1,10 @@
 #                              -*- Mode: Perl -*- 
 # $Basename: index_mail $
-# $Revision: 1.1 $
+# $Revision: 1.2 $
 # Author          : Ulrich Pfeifer
 # Created On      : Fri Apr  7 13:45:50 2000
 # Last Modified By: Ulrich Pfeifer
-# Last Modified On: Fri Dec 29 16:07:43 2000
+# Last Modified On: Fri Dec 29 17:07:26 2000
 # Language        : CPerl
 # 
 # (C) Copyright 2000, UUNET Deutschland GmbH, Germany
@@ -78,7 +78,7 @@
   or die "Couldn't tie to file: $!\n";
 
 my $tb = $db->create_table(name     => $OPT{table},
-                           attr     => ['docid', 'headline', 'text'],
+                           attr     => ['from', 'to', 'subject', 'article', 'docid', 'headline'],
                            layout   => $layout,
                            access   => $access,
                            invindex =>
@@ -95,10 +95,11 @@
   my $record   = $layout->split($value);
   my $headline = $record->{subject};
   $headline =~ s/\s+/ /sg;
-  printf "%s\n", substr($headline,0,80);
+  #printf "%s\n", substr($headline,0,80);
   $tb->insert('docid'  => $did,
               headline => $headline,
               %{$record});
+  print $did,"\n" if $did =~ / 0 0/;
 }
 $tb->set(top=>1);
 $tb->close();