136 |
# boost title |
# boost title |
137 |
$doc->add_hidden_text($title); |
$doc->add_hidden_text($title); |
138 |
|
|
139 |
print $doc->dump_draft if ($verbose); |
print $doc->dump_draft if ($debug); |
140 |
|
|
141 |
# register the document object to the database |
# register the document object to the database |
142 |
$db->put_doc($doc); |
$db->put_doc($doc); |
195 |
my $contents; |
my $contents; |
196 |
|
|
197 |
return if (! $force && -l $path || $path =~ m#/.svn# || $path =~ m/(~|.bak|.gif)$/); |
return if (! $force && -l $path || $path =~ m#/.svn# || $path =~ m/(~|.bak|.gif)$/); |
198 |
|
return if (! $all && -d $path); |
199 |
|
|
200 |
my $mtime = (stat($path))[9] || -1; |
my $mtime = (stat($path))[9] || -1; |
201 |
my $mtime_db = eval { $db->get_doc_attr_by_uri("file:///$path", '@mtime') }; |
my $mtime_db = eval { $db->get_doc_attr_by_uri("file:///$path", '@mtime') }; |