new function RXLITERAL() for escaping regex characters

[cgilite] / cgilite.awk

diff --git a/cgilite.awk b/cgilite.awk
index 0a1e1cab6f9edb292e3a873bc49a2b1d786dce06..ebf44113d1b3333eec25166a81201d01b3cd3703 100644 (file)
--- a/cgilite.awk
+++ b/cgilite.awk
@@ -1,5 +1,7 @@
 #!/bin/env awk -f
 
+function debug(t) { printf "%s\n", t >>"/dev/stderr"; }
+
 function PATH( str,    seg, out ) {
   while ( str ) {
     seg = str;
@@ -99,7 +101,7 @@ function _cgilite_request(    key, val) {
   getline; REQUEST_METHOD = $1; REQUEST_URI = $2; SERVER_PROTOCOL = $3;
   while ( getline ) {
     if ($0 ~ /^\r?$/) break;
-    else if ($0 ~ /^[a-zA-Z][0-9a-zA-Z-_]+: .*/) {
+    else if ($0 ~ /^[a-zA-Z][0-9a-zA-Z_-]+: .*/) {
       key = toupper($0);
       sub(/:.*$/, "", key);
       gsub(/-/, "_", key);
@@ -151,8 +153,9 @@ BEGIN {
   split("", _GET); split("", _POST); split("", _REF);
   split("", _HEADER); split("", _COOKIE);
 
-  if ( ENVIRON["REQUEST_METHOD"] )
+  if ( ENVIRON["REQUEST_METHOD"] ) {
     _cgilite_headers();
-  else
+  } else {
     _cgilite_request();
+  }
 }