+sub write_irssi {
+ my @text = @_;
+ my $output = $outputstack[0];
+
+ my $format = '%%mxmlrtorrent: %%n' . shift(@text);
+
+ # escape % in parameters from irssi
+ s/%/%%/g foreach @text;
+
+ if (defined($output) and ref($output)) {
+ $output->print(sprintf($format, @text), MSGLEVEL_CLIENTCRAP);
+ } else {
+ Irssi::print(sprintf($format, @text));
+ }
+
+}
+
+sub push_output {
+ unshift(@outputstack, shift);
+}