- Timestamp:
- Mar 11, 2005, 12:51:42 PM (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
tools/g_list.pl
r2592 r4025 169 169 parse_config(); 170 170 171 $TP=''; 172 if ($tproxy !~ m/no/i) { 173 $TP .= "\n"; 174 $TP .= "Tproxy on cidr range $tproxy"; 175 $TP .= "<b>WARNING - specification propably wrong - should be a cidr</b>" 176 unless $tproxy =~ m/\d+\.\d+\.\d+\.\d+\/\d+/; 177 }; 178 179 171 180 172 181 print <<EOXY; … … 188 197 Y=$Y 189 198 190 191 199 OS=$OS 200 201 $TP 192 202 </PRE></TD></TR> 193 203 EOXY
Note:
See TracChangeset
for help on using the changeset viewer.