[BACK]Return to chmhelper.pl CVS log [TXT] [DIR] Up to [parser3project] / parser3 / src / doc
File:  [parser3project] / parser3 / src / doc / chmhelper.pl
Revision 1.2: download - view: text, annotated - select for diffs - revision graph
Tue Mar 30 08:32:17 2004 UTC (22 years, 3 months ago) by paf
Branches: MAIN
CVS tags: release_3_5_1, release_3_5_0, release_3_4_6, release_3_4_5, release_3_4_4, release_3_4_3, release_3_4_2, release_3_4_1, release_3_4_0, release_3_3_0, release_3_2_3, release_3_2_2, release_3_2_1, release_3_2_0, release_3_1_6, release_3_1_5, release_3_1_4, release_3_1_3, paf_left, HEAD
merged bugfixes from 3.1.2, changed version to 3.1.3beta

#!/usr/bin/perl
undef $/;

scandir("./",*action);

sub action {
	$file=@_[0];
	print "$file\n";
	
	open(FILE, $file);
	$_=<FILE>;
	close($file);

	s/\.html/.htm/sg;
#    s/(\<head\>)/$1<meta http-equiv="Content-Type" content="text\/html;charset=Windows-1251">/;
    s/(Language=)/;$1/;

	open(FILE, ">$file");
	print FILE $_;
	close($file);
}

sub scandir {
	local($Dir, *Sub) = @_;

	opendir Dir, $Dir;
	local(@Dir) = readdir Dir;
	closedir Dir;

	foreach $ProcessFiles (1, 0) {
		foreach $FileName (@Dir) {
			next if $FileName =~ /^\./;

			$FullName = $Dir.$FileName;
			
			if ($ProcessFiles) {
				$TotalCount++;
				Sub($FullName) if (!-d $FullName && $FileName =~ /(^tree\.htm|\.hh.)$/);
			} else {
				scandir("$FullName/") if -d $FullName;
			}
		}
	}
}
E-mail: