#
# url-pattern-translator.pl old.action > new.action
#
-# Only convert your files once, or, as RoboCop used to say,
-# there will be... trouble.
-#
# Copyright (c) 2008 Fabian Keil <fk@fabiankeil.de>
#
# Permission to use, copy, modify, and distribute this software for any
# Match single character with a dot.
$hp =~ s@(?<!\))\?@.@g;
+ # Add the prefix
+ $hp = "PCRE-HOST-PATTERN:" . $hp;
+
return $hp;
}
$type_to_skip = "whitespace";
- } elsif (m@^\s*TAG:@) {
+ } elsif (m@^\s*CLIENT-TAG:@i) {
+
+ $type_to_skip = "client tag patttern";
+
+ } elsif (m@^\s*TAG:@i) {
$type_to_skip = "tag patttern";
$type_to_skip = "predefined settings";
+ } elsif (m@^\s*PCRE-HOST-PATTERN:@i) {
+
+ $type_to_skip = "already converted pcre host patttern";
+
}
#p("Skipping " . $type_to_skip . ": " . $_) if defined $type_to_skip;