#!/bin/sh
# gpdoc -- GPib DOCument
#
if [ $# != 0 ]; then
echo No arguments required.;exit;
fi
echo 'GPG-4301 オンラインヘルプ' > help/AllFiles.html
for i in `perl -e 'foreach $line(){if($line =~ /){$line =~ s/<\/?(html|head|body|meta)(| .*?)>//g; $line =~ s/(.*?<\/title>|\[ 戻 る \])//g; if($line !~ /^\s+$/){print "$line";}}' >> help/AllFiles.html
done
echo '</body></html>' >> help/AllFiles.html
#