/[wait]/cvs-head/script/index_ora
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /cvs-head/script/index_ora

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 55 by ulpfr, Mon Dec 31 14:07:22 2001 UTC revision 59 by ulpfr, Fri Jan 4 14:51:53 2002 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2  #                              -*- Mode: Perl -*-  #                              -*- Mode: Perl -*-
3  # $Basename$  # $Basename$
4  # $Revision: 1.1 $  # $Revision: 1.2 $
5  # Author          : Ulrich Pfeifer  # Author          : Ulrich Pfeifer
6  # Created On      : Mon Dec 31 13:57:11 2001  # Created On      : Mon Dec 31 13:57:11 2001
7  # Last Modified By: Ulrich Pfeifer  # Last Modified By: Ulrich Pfeifer
8  # Last Modified On: Mon Dec 31 14:37:43 2001  # Last Modified On: Fri Jan  4 15:47:31 2002
9  # Language        : CPerl  # Language        : CPerl
10  #  #
11  # (C) Copyright 2001, UUNET Deutschland GmbH, Germany  # (C) Copyright 2001, UUNET Deutschland GmbH, Germany
# Line 79  my $access = tie %D, 'WAIT::Document::Or Line 79  my $access = tie %D, 'WAIT::Document::Or
79    or die "Couldn't tie to file: $!\n";    or die "Couldn't tie to file: $!\n";
80    
81  my $tb = $db->create_table(name     => $OPT{table},  my $tb = $db->create_table(name     => $OPT{table},
82                             attr     => ['text', 'author', 'title',                             attr     => ['author', 'title',
83                                          'headline', 'docid'],                                          'headline', 'docid'],
84                             layout   => $layout,                             layout   => $layout,
85                             access   => $access,                             access   => $access,
86                             invindex =>                             invindex =>
87                             [                             [
88                              'title'  => $stem,                              'title'  => $stem,
89                                'about'  => $stem,
90                              'text'   => $text,                              'text'   => $text,
91                              'author' => $text,                              'author' => $text,
92                             ]                             ]
Legend:
Removed from v.55  
changed lines
  Added in v.59
  ViewVC Help
Powered by ViewVC 1.1.26