2 # info ¥Õ¥¡¥¤¥ë·²¤«¤é¡¢database ¤òºîÀ®¤¹¤ë¥¹¥¯¥ê¥×¥È
3 # $Id: genindex.pl,v 1.5 2002/11/12 10:58:36 mdk Exp $
5 # Fujiwara ¤µ¤ó¤Î½ñ¤¤¤¿¥¹¥¯¥ê¥×¥È¤ò¥Ù¡¼¥¹¤Ë¤·¤Æ¤¤¤ë¡£
7 # ·ë¹ç¤¹¤ë Berkeley DB file ¤Î̾Á°¤òÂè1°ú¿ô¤Ë¤¹¤ë¤³¤È¡£
8 # info ¥Õ¥¡¥¤¥ë¤Î¥ê¥¹¥È¤¬¤½¤ì¤Ë³¤¯°ú¿ô¤Ë¤Ê¤ë¡£
14 use jfadmlib qw(:DEFAULT :LOCKS);
17 my $database = shift (@ARGV);
20 my ($H, %index); $H = tie(%index, 'DB_File', "$database",
21 O_RDWR|O_CREAT, 0644, $DB_BTREE) or die;
24 foreach my $file (@ARGV)
28 if (!open(CL, $file)) {
29 print "Can't open.\n";
34 last if /DRAFT.NOINDEX/i;
37 Jcode::convert(\$_, 'euc');
38 if (/^(\w+):\s*(.*)$/) {
39 my ($key, $value) = ($1, $2);
41 $DBITEM{$key} = $value;
46 if ($DBITEM{'NAME'}) {
47 my $name = $DBITEM{'NAME'};
48 foreach my $k (keys %DBITEM) {
49 jfadmlib::add_ent($H, $name, $k, $DBITEM{$k});
53 print STDERR "$file has no NAME field. (ignored)\n";
64 # cperl-indent-level: 4