Strings update
[squirrelmail.git] / config / ri_once.pl
CommitLineData
ccad13ab 1#!/usr/bin/perl
2# ri_once.pl
3# Wouter Teepe (wouter@teepe.com)
4#
5# A simple configure script to fix the ri_once issue
6#
7# $Id$
8############################################################
9
10$debug = 0;
11
12# sets the xterm color (only used when $debug=1)
13sub color {
14 $t = $_[0];
15 if ($t == 0) {
16 print "\e[0m";
17 } else {if ($t == 1) {
18 print "\e[0m\e[31;43m";
19 } else {if ($t == 2) {
20 print "\e[0m\e[30;42m";
21 } else {if ($t == 3) {
22 print "\e[0m\e[33;41m";
23 }}}}
24}
25
26# prints arg1 with color arg2 (only used when $debug=1)
27sub myprintdebug {
28 $line = $_[0];
29 $color = $_[1];
30 while ($line ne "") {
31 $pos = index($line, "\n");
32 if ($pos == -1) {
33 &color($color);
34 print $line;
35 $line = "";
36 } else {
37 &color($color);
38 $str = substr($line, 0, $pos);
39 print $str;
40 print "\e[30;40m\n";
41 $line = substr($line, $pos+1);
42 }
43 }
44
45}
46
47# print arg1 to term or $out
48sub myprint {
49 if ($debug) {
50 &myprintdebug;
51 } else {
52 $out .= $_[0];
53 }
54}
55
56# parse php code fore include's and require's
57sub code {
58 $lastbyte = 0;
59 while ($phpcode ne "") {
60 $inc = index($phpcode, 'include');
61 $req = index($phpcode, 'require');
62 if (($req == -1) or (($inc != -1) and ($inc < $req))) {
63 $index = $inc;
64 } else {
65 $index = $req;
66 }
67 if ($index != -1) {
68 &myprint(substr($phpcode, 0, $index), 1);
69 if ($index > 0) {
70 $r = ord(substr($phpcode, $index-1, 1));
71 } else {
72 $r = $lastbyte;
73 }
74 $falsematch = 0;
75 if ((($r >= 125) and ($r <= 255)) or ($r == ord("_")) or
76 (($r >= ord("A")) and ($r <= ord("Z"))) or
77 (($r >= ord("a")) and ($r <= ord("z"))) or
78 (($r >= ord("1")) and ($r <= ord("9")))) {
79 $falsematch = 1;
80 }
81 if (!$falsematch) {
82 $o = index($phpcode, '(', $index);
83 if ($o == -1) {
84 $p = substr($phpcode, $index+7);
85 } else {
86 $p = substr($phpcode, $index+7, $o-$index-7);
87 }
88 if (!($p =~ /^\s*$/)) {
89 $falsematch = 1;
90 }
91 }
92 if (!$falsematch) {
93 $mod++;
94 &myprint('/* \'_once\' Added by ri_once */ ', 3);
95 }
96 &myprint(substr($phpcode, $index, 7), 1);
97 if (!$falsematch) {
98 &myprint('_once', 3);
99 }
100 $lastbyte = ord('e');
101 $phpcode = substr($phpcode, $index+7);
102 } else {
103 &myprint($phpcode, 1);
104 $phpcode = '';
105 }
106 }
107}
108
109# parse php block for comments and strings
110sub php {
111 while ($htmlcomment ne "") {
112 $len = length($htmlcomment);
113 $doublequote = index($htmlcomment, '"');
114 $singlequote = index($htmlcomment, "'");
115 $pound = index($htmlcomment, '#');
116 $slashslash = index($htmlcomment, '//');
117 $slashstar = index($htmlcomment, '/*');
118 if ($doublequote == -1) { $doublequote = $len; }
119 if ($singlequote == -1) { $singlequote = $len; }
120 if ($pound == -1) { $pound = $len; }
121 if ($slashslash == -1) { $slashslash = $len; }
122 if ($slashstar == -1) { $slashstar = $len; }
123
124 $pos = $doublequote; $end = '"'; $sl = 1; $el = 1;
125 if ($pos > $singlequote) { $pos = $singlequote; $end = "'"; }
126 if ($pos > $pound) { $pos = $pound; $end = "\n"; }
127 if ($pos > $slashslash) { $pos = $slashslash; $end = "\n"; $sl = 2; }
128 if ($pos > $slashstar) { $pos = $slashstar; $end = '*/'; $sl = 2; $el = 2; }
129
130 if ($pos < $len) {
131 $phpcode = substr($htmlcomment, 0, $pos);
132 $rest = substr($htmlcomment, $pos);
133 $eoc = index($rest, $end, $sl);
134 if (($end = '"') or ($end = "'")) {
135 while (($eoc > 0) and (substr($rest, $eoc-1, 1) eq '\\')) {
136 $eoc = index($rest, $end, $eoc+1);
137 }
138 }
139 if ($eoc == -1) { $eoc = length($rest); }
140 $phpcomment = substr($rest, 0, $eoc+$el);
141 $htmlcomment = substr($rest, $eoc+$el);
142 &code;
143 &myprint($phpcomment, 2);
144 } else {
145 $phpcode = $htmlcomment;
146 &code;
147 $htmlcomment = '';
148 }
149 }
150}
151
152# parse html file for php blocks
153sub html {
154 while ($text ne '') {
155 $index = index($text, '<?');
156 if ($index != -1) {
157 $html = substr($text, 0, $index+2);
158 $text = substr($text, $index+2);
159 &myprint($html, 0);
160 $index = index($text, '?>');
161 if ($index == -1) { $index = length($text); }
162 $htmlcomment = substr($text, 0, $index);
163 $text = substr($text, $index);
164 $type = substr($htmlcomment, 0, 3);
165 if (uc($type) eq "PHP") {
166 &myprint($type, 0);
167 $htmlcomment = substr($htmlcomment, 3);
168 } else { if (substr($htmlcomment, 0, 1) eq '=') {
169 $mod++;
170 &myprint('php /* \'=\' Modified to \'php blah echo\'by ri_once */ echo ', 3);
171 $htmlcomment = substr($htmlcomment, 1);
172 } else {
173 $mod++;
174 &myprint('php /* \'php\' Added by ri_once */', 3);
175 }}
176 &php;
177 } else {
178 &myprint($text, 0);
179 $text ='';
180 }
181 }
182}
183
184# process a file
185sub dofile {
186 $file = $_[0];
187
188 open (FILE, '<'.$file);
189 $text = '';
190 $htmlcomment = '';
191 $phpcode = '';
192 $out = '';
193 $mod = 0;
194 while ($line = <FILE>) {
195 $text .= $line;
196 }
197 close (FILE);
198
199 &html;
200 if ($debug) {
201 &color(0);
202 print "\n";
203 } else {
204 if ($mod) {
205 $out = "<?php /* Modified at $mod places by ri_once */ ?>\n" . $out;
206# $mode = (stat($file))[2];
207 rename($file, $file.'.before_ri_once');
208 open (FILE, '>'.$file);
209 print FILE $out;
210 close(FILE);
211# chmod($stats[2], $file);
212 }
213 }
214}
215
216# process a directory recursively
217sub dodir {
218 $dirname = $_[0];
219 $dirname =~ s/\/$//;
220 opendir(DIR, $dirname) or die "can't opendir $dirname: $!";
221 while (defined($file = readdir(DIR))) {
222 next if $file =~ /^\.\.?$/;
223 $full = $dirname.'/'.$file;
224 if (-d $full) {
225 &dodir($full);
226 } else { if ($file =~ /.*\.php$/) {
227 &dofile($full);
228 }}
229 }
230 closedir(DIR);
231}
232
233#&dofile($ARGV[0]);
234&dodir($ARGV[0]);
235