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 |
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 |
] |
] |