6 my ($server, $channel, $blob, $enc, $type, $nick) = @_;
\r
8 Irssi::print("$enc - $type - $blob->{octets}");
\r
10 if (($enc eq "base64") && ($type eq "image/png")) {
\r
11 # just stores the image in /tmp/$nick.png
\r
12 open OFILE, '>', "/tmp/" . $nick . ".png";
\r
13 print OFILE decode_base64($blob->{data});
\r
15 Irssi::signal_stop();
\r
22 my ($data, $server, $channel) = @_;
\r
24 return if $server->{chat_type} !~ /^silc$/i;
\r
26 # let's hope, $data is a png image...
\r
29 read IFILE, $image, 0xffff;
\r
33 $data = encode_base64($image);
\r
34 $octets = length($data);
\r
35 Irssi::print($octets);
\r
37 Irssi::signal_emit("mime-send", $server, $channel, $data, \$octets,
\r
38 "base64", "image/png");
\r
41 Irssi::signal_add("mime", "sig_mime");
\r
42 # /scribble path/to/image.png
\r
43 Irssi::command_bind("scribble", "cmd_scribble");
\r