6 if (open(F,"search.cfg"))
8 $_=<F> ; s/[ \t\n]*$//g ; $subst{"_doc"} = $_;
9 $_=<F> ; s/[ \t\n]*$//g ; $subst{"_cgi"} = $_;
16 $v = ($1 eq "") ? shift @ARGV : $1;
17 ($v =~ /\/$/) || ($v .= "/");
20 if ( exists $subst{$1} ) {
23 print STDERR "Unknown tag file $1 given with option -l\n";
27 print STDERR "Argument $_ is invalid for option -l\n";
38 print STDERR "Illegal option -$_\n";
47 foreach $sub (keys %subst)
49 if ( $subst{$sub} eq "" )
51 print STDERR "No substitute given for tag file `$sub'\n";
54 elsif ( ! $quiet && $sub ne "_doc" && $sub ne "_cgi" )
56 print "Substituting $subst{$sub} for each occurence of tag file $sub\n";
62 foreach $file ( readdir(D) ) {
64 next if ( $file =~ /^\.\.?$/ );
65 ($file =~ /$match/) && (push @files, $file);
66 ($file =~ "tree.js") && (push @files, $file);
73 print STDERR "Warning: No input files given and none found!\n";
79 print "Editing: $f...\n";
83 unless (rename $oldf,$f) {
84 print STDERR "Error: cannot rename file $oldf\n";
88 unless (open(G,">$oldf")) {
89 print STDERR "Error: opening file $oldf for writing\n";
92 if ($oldf ne "tree.js") {
94 s/doxygen\=\"([^ \"\:\t\>\<]*)\:([^ \"\t\>\<]*)\" (href|src)=\"\2/doxygen\=\"$1:$subst{$1}\" \3=\"$subst{$1}/g;
100 s/\"([^ \"\:\t\>\<]*)\:([^ \"\t\>\<]*)\", \"\2/\"$1:$subst{$1}\" ,\"$subst{$1}/g;
106 print STDERR "Warning file $f does not exist\n";
112 print STDERR "Usage: installdox [options] [html-file [html-file ...]]\n";
113 print STDERR "Options:\n";
114 print STDERR " -l tagfile\@linkName tag file + URL or directory \n";
115 print STDERR " -q Quiet mode\n\n";