let the past begone in cvs land. welcome to igit igit!

place/zwirbel.c

@@ -0,0 +1,75 @@
+// vim:syntax=lpc
+#include <place.gen>
+
+mixed* randomize(mixed* abs) {
+	int size = sizeof(abs);
+	int c, i;
+	mixed temp;
+
+	if (size > 3) {
+		for (i = 0; i != size - 1; i++) {
+		// das hier ist definitiv noch nicht perfekt.. vielleicht kann man sich
+		// die for auch sparen, man changed ja eh.. also.. hmm
+			while (c == i)
+				c = random(size-1);
+
+			// die if da tut mir wirklich leid... hehe :)
+			if (((abs[c] >= 65 && abs[c] <= 90) || (abs[c] >= 97 && abs[c] <= 122)) && ((abs[i] >= 65 && abs[i] <= 90) || (abs[i] >= 97 && abs[i] <= 122))) {
+				temp = abs[c];
+				abs[c] = abs[i];
+				abs[i] = temp;
+			}
+		}
+	} else {
+		while (c == i) {
+			i = random(size-1);
+			c = random(size-1);
+		}
+		temp = abs[c];
+		abs[c] = abs[i];
+		abs[i] = temp;
+	}
+	return abs;
+}
+
+mixed zwirbel(mixed name, mixed data) {
+	string* words;
+	int c = 0;
+
+	if (!stringp(data) || strlen(data) >= 3 || name == "_nick") return data;
+	words = explode(data, " ");
+	foreach (string w : words) {
+		// hier nochmal nach irgendwelchen satzzeichen am ende gucken
+		// hmmm
+		if (((w[0] >= 65 && w[0] <= 90) || (w[0] >= 97 && w[0] <= 122)) && strlen(w) >= 4) {
+			words[c] = w[0..0] + to_string(randomize(to_array(w[1..<2]))) + w[<1..<1];
+			
+		}	
+		c++;
+	}
+	return data = implode(words, " ");
+}
+
+msg(source, mc, data, mapping vars) {
+	// normally we would check for _message but we're being nasty here
+	//if (stringp(data) && abbrev("_message", mc)) {
+	if (stringp(data)) {
+		data = zwirbel(0, data);
+	}
+	// even worse.. we fuck up the vars as well..
+	walk_mapping(vars, #'zwirbel);
+	return ::msg(source, mc, data, vars);
+}
+
+htget(prot, query, headers, qs) {
+    htok3(prot, "text/html", "");
+    unless(query["s"]) {
+	write("<form method='get'>\n"
+	      "<input name='s' type='text' maxlength='512'>\n"
+	      "<input type='submit'>\n"
+	      "</form>\n");
+    	P2(("done1\n"))
+    } else {
+	write(zwirbel(0, query["s"]));
+    }
+}