/usr/share/irssi/scripts/calc.pl is in irssi-scripts 20131030.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | use strict;
use vars qw($VERSION %IRSSI);
use Irssi qw(command_bind active_win);
$VERSION = '1.10';
%IRSSI = (
authors => 'Juerd',
contact => 'juerd@juerd.nl',
name => 'Calculator',
description => 'Simple /calc mechanism',
license => 'Public Domain',
url => 'http://juerd.nl/irssi/',
changed => 'Thu Mar 19 11:00 CET 2002',
);
command_bind(
calc => sub {
my ($msg) = @_;
for ($msg) {
s/,/./g;
s/[^*.+0-9&|)(x\/^-]//g;
s/\*\*/^/g;
s/([*+\\.\/x-])\1*/$1/g;
s/\^/**/g;
s/(?<!0)x//g;
}
my $answer = eval("($msg) || 0");
active_win->print($@ ? "$msg = ERROR (${\ (split / at/, $@, 2)[0]})" : "$msg = $answer");
}
);
|