<!--ADULTSONLY-->
<meta http-equiv="pics-label" content='(pics-1.1 "http://www.icra.org/ratingsv02.html" l gen true for "http://asstr.org" r (cz 1 la 1 lb 1 lc 1 na 1 nb 1 nc 1 nd 1 ne 1 nf 1 ng 1 nh 1 ni 1 oa 1 ob 1 oc 1 of 1 og 1 oh 1 va 1 vb 1 vc 1 vd 1 ve 1 vf 1 vg 1 vh 1 vi 1 vj 1 vk 1) "http://www.rsac.org/ratingsv01.html" l gen true for "http://asstr.org" r (n 4 s 4 v 4 l 4))' />
<SCRIPT LANGUAGE=JavaScript SRC=/scripts/common.js></script>
<SCRIPT LANGUAGE=JavaScript SRC=/scripts/scroller2.js></script>
<SCRIPT Language="Javascript">
<!--
runScroller();
//-->
</SCRIPT>
<pre>
#!/usr/bin/perl -w

opendir Z, ".";
@in = readdir Z;
closedir Z;

foreach $x ( @in ){
  if( $x =~ /\.wpd$/ ){
    $out = `/usr/src/libwpd-0.7.2/src/conv/text/wpd2text "$x"`;

    $y = $x;
    $y =~ s/\.wpd$/.txt/;

    open F, "&gt;/tmp/mytmp";
    print F $out;
    close F;

    $out = `cat /tmp/mytmp | /usr/bin/step`;

    open F, "&gt;z/$y";
    #open F, "&gt;$y";
    print F $out;
    close F;
    print '"'.$y.'"'."\n";
  }
}

