8 my($now,$count,$dir,$prefix);
10 $dir=$$props{'convert'}{'work_dir'};
11 $prefix=$$props{'convert'}{'work_prefix'};
15 while (-f $dir.$prefix.$now.".".$count) { $count++; }
18 if (sysopen(HANDLE,$dir.$prefix.$now.".".$count,O_CREATE|O_RDWR)) { close(HANDLE); }
20 return $dir.$prefix.$now.".".$count;
28 $file=&mk_workfile($props);
29 if (open(HANDLE,">".$file)) {
34 ## error - do not convert
37 if (open(HANDLE,$$props{'bin'}{'html_to_text'}.$file."|")) {