Irssi::print() doesn't call printtext() with args (.., "%s", text)

since it broke %_ etc. formats. But instead of crashing every time
someone prints %s with Irssi::print(), irssi now checks all those
formats and prints them as-is.


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1028 dbcabf3a-b0e7-0310-adc4-f8d773084564

src/perl/perl-common.c

@@ -435,6 +435,41 @@ void printformat_perl(TEXT_DEST_REC *dest, char *format, char **arglist)
 	g_free(module);
 }
 
+/* change all %s strings to %%s */
+char *perl_fix_formats(char *str)
+{
+	char *ret, *out;
+
+	out = ret = g_malloc(strlen(str)*2+1);
+	while (*str != '\0') {
+		if (*str == '%') {
+                        str++;
+			switch (*str) {
+			case 's':
+			case 'd':
+			case 'f':
+			case 'u':
+			case 'l':
+			case '%':
+                                *out++ = '%';
+				*out++ = '%';
+				if (*str == '%')
+                                        str += 2;
+				break;
+			default:
+				*out++ = '%';
+                                break;
+			}
+
+                        continue;
+		}
+
+                *out++ = *str++;
+	}
+        *out = '\0';
+        return ret;
+}
+
 void perl_command(const char *cmd, SERVER_REC *server, WI_ITEM_REC *item)
 {
         const char *cmdchars;