psyced/place/zwirbel.c

// 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"]));
    }
}