tris/recoll
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

send mimetype

Browse Source
This commit is contained in:
dockes 2009-11-11 18:09:07 +00:00
parent 7f5f5cf761
commit 451041e7db
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/filters/rclimg
View File

@ -143,6 +143,7 @@ if ($@) {
exit(1); exit(1);
} }
#print STDERR "RCLIMG: Starting\n";
$| = 1; $| = 1;
while (1) { while (1) {
# print STDERR "RCLIMG: waiting for command\n"; # print STDERR "RCLIMG: waiting for command\n";
@ -164,6 +165,7 @@ while (1) {
next; next;
} }
print "Mimetype: 9\ntext/html";
my $data = imgTagsToHtml($params{"filename:"}); my $data = imgTagsToHtml($params{"filename:"});
my $l = length($data); my $l = length($data);
print "Document: $l\n"; print "Document: $l\n";
@ -175,3 +177,4 @@ while (1) {
print "\n"; print "\n";
# print STDERR "RCLIMG: done writing data\n"; # print STDERR "RCLIMG: done writing data\n";
} }
#print STDERR "RCLIMG: Exiting\n";