===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
weechat-scripts-20200815/python/autosort.py-986-a helper variable named `{cyan}foo{reset}` can be accessed in a main rule with the
weechat-scripts-20200815/python/autosort.py:987:string `{cyan}${{foo}}{reset}`.
weechat-scripts-20200815/python/autosort.py-988-
##############################################
weechat-scripts-20200815/perl/cmdind.pl-78- elsif (!length $input_str) {
weechat-scripts-20200815/perl/cmdind.pl:79: $tmpl = $cmd //= _get_setting_eval('command_item', '${color:*red}[COMMAND]${color:-bold} ');
weechat-scripts-20200815/perl/cmdind.pl-80- }
weechat-scripts-20200815/perl/cmdind.pl-81- elsif ($str ne $input_str) {
weechat-scripts-20200815/perl/cmdind.pl:82: $tmpl = $esc_text //= _get_setting_eval('esc_text_item', '${color:*brown}[INPUT]${color:reset} ');
weechat-scripts-20200815/perl/cmdind.pl-83- }
weechat-scripts-20200815/perl/cmdind.pl-84- else {
weechat-scripts-20200815/perl/cmdind.pl:85: $tmpl = $text //= _get_setting_eval('text_item', '${color:*green}[INPUT]${color:reset} ');
weechat-scripts-20200815/perl/cmdind.pl-86- }
##############################################
weechat-scripts-20200815/perl/jnotify.pl-167- if ( index($command_chars,$command_char) == -1) {
weechat-scripts-20200815/perl/jnotify.pl:168: system( $external_command . "&" ); # start external program
weechat-scripts-20200815/perl/jnotify.pl-169- }else{
##############################################
weechat-scripts-20200815/perl/rhythmbox.pl-108- else {
weechat-scripts-20200815/perl/rhythmbox.pl:109: chomp( my $cs = (`rhythmbox-client --print-playing-format "$format"`)); #Dbl Quotes required
weechat-scripts-20200815/perl/rhythmbox.pl-110- weechat::command($buffer, "/say Now Playing: $cs");
##############################################
weechat-scripts-20200815/perl/rhythmbox.pl-127- my $playing_string = $greeting[$index];
weechat-scripts-20200815/perl/rhythmbox.pl:128: chomp( my $cs = (`rhythmbox-client --print-playing-format "$format"`)); #Dbl Quotes required
weechat-scripts-20200815/perl/rhythmbox.pl-129- weechat::command($buffer, "/say $playing_string $cs");
##############################################
weechat-scripts-20200815/perl/rhythmbox.pl-143- $status = "playing";
weechat-scripts-20200815/perl/rhythmbox.pl:144: chomp( my $cs = (`rhythmbox-client --print-playing-format "$format"`)); #Dbl Quotes required
weechat-scripts-20200815/perl/rhythmbox.pl-145- weechat::print( $buffer, "Now Playing: $cs" );
##############################################
weechat-scripts-20200815/perl/rhythmbox.pl-153- chomp( my $next = (`rhythmbox-client --next`));
weechat-scripts-20200815/perl/rhythmbox.pl:154: chomp( my $cs = (`rhythmbox-client --print-playing-format "$format"`)); #Dbl Quotes required
weechat-scripts-20200815/perl/rhythmbox.pl-155- weechat::print( $buffer, "Now Playing: $cs" );
##############################################
weechat-scripts-20200815/perl/rhythmbox.pl-162- chomp( my $prev = (`rhythmbox-client --previous`));
weechat-scripts-20200815/perl/rhythmbox.pl:163: chomp( my $cs = (`rhythmbox-client --print-playing-format "$format"`)); #Dbl Quotes required
weechat-scripts-20200815/perl/rhythmbox.pl-164- weechat::print( $buffer, "Now Playing: $cs" );
##############################################
weechat-scripts-20200815/perl/amarok2.pl-144-
weechat-scripts-20200815/perl/amarok2.pl:145: my $time = millisecs_to_time( `$cmd org.kde.amarok /Player PositionGet` );
weechat-scripts-20200815/perl/amarok2.pl-146- $mtime = millisecs_to_time($mtime); # max. time
##############################################
weechat-scripts-20200815/perl/amarok2.pl-184- my $cmd2 = sprintf("ssh -p %d %s@%s %s %s %s:",$ssh{port},$ssh{user},$ssh{host},$cmd, $amarok_remote, $arg); # make it ssh
weechat-scripts-20200815/perl/amarok2.pl:185: $amarok_result = `$cmd2`;
weechat-scripts-20200815/perl/amarok2.pl-186- }else{
weechat-scripts-20200815/perl/amarok2.pl:187: $amarok_result = `$cmd $amarok_remote "\"^"$arg":\""`;
weechat-scripts-20200815/perl/amarok2.pl-188- }
##############################################
weechat-scripts-20200815/perl/amarok2.pl-242- my $cmd2 = sprintf("ssh -p %d %s@%s %s %s%s",$ssh{port},$ssh{user},$ssh{host},$cmd, $amarok_com, $arg); # make it ssh
weechat-scripts-20200815/perl/amarok2.pl:243: system("$cmd2 2>/dev/null 1>&2 &");
weechat-scripts-20200815/perl/amarok2.pl-244- }else{
weechat-scripts-20200815/perl/amarok2.pl:245: my $amarok_rc = (`$cmd $amarok_com"$arg"`); # remote command + arg (Play/Pause/Stop/Prev/Next)
weechat-scripts-20200815/perl/amarok2.pl-246- }
##############################################
weechat-scripts-20200815/perl/amarok2.pl-251-$buffer = weechat::current_buffer;
weechat-scripts-20200815/perl/amarok2.pl:252:if (!`$cmd`){ # check for qdbus
weechat-scripts-20200815/perl/amarok2.pl-253- weechat::print($buffer,"Could not find $cmd. Make sure $cmd is in your PATH or edit $cmd-variable in the script ($cmd is part of libqt4-dbus)");
##############################################
weechat-scripts-20200815/perl/amarok2.pl-256-return weechat::WEECHAT_RC_OK if ($ssh{status} eq "enabled");
weechat-scripts-20200815/perl/amarok2.pl:257:if (!`$amarokcheck`){ # is Amarok running?
weechat-scripts-20200815/perl/amarok2.pl-258- weechat::print($buffer,"Amarok2 is not running. Please start Amarok2");
##############################################
weechat-scripts-20200815/perl/weerock.pl-97- if(`pgrep audacious`) {
weechat-scripts-20200815/perl/weerock.pl:98: ($artist,$album,$title,$ct,$tt) = `$cmd` =~ /$exp/;
weechat-scripts-20200815/perl/weerock.pl-99-
##############################################
weechat-scripts-20200815/perl/weerock.pl-114- if(`pgrep banshee`) {
weechat-scripts-20200815/perl/weerock.pl:115: ($artist,$album,$title,$ct,$tt) = `$cmd` =~ /$exp/;
weechat-scripts-20200815/perl/weerock.pl-116-
##############################################
weechat-scripts-20200815/perl/weerock.pl-130- if(`pgrep exaile`) {
weechat-scripts-20200815/perl/weerock.pl:131: ($album,$artist,$title,$tt,$ct) = `$cmd` =~ /$exp/;
weechat-scripts-20200815/perl/weerock.pl-132-
##############################################
weechat-scripts-20200815/perl/weerock.pl-159- if(`pgrep mpd`) {
weechat-scripts-20200815/perl/weerock.pl:160: ($artist,$album,$title,$ct,$tt) = `$cmd` =~ /$exp/;
weechat-scripts-20200815/perl/weerock.pl-161- }
##############################################
weechat-scripts-20200815/perl/weerock.pl-175- if(`pgrep mpd`) {
weechat-scripts-20200815/perl/weerock.pl:176: ($artist,$album,$title) = `$cmd` =~ /$exp/;
weechat-scripts-20200815/perl/weerock.pl-177- }
##############################################
weechat-scripts-20200815/perl/weerock.pl-187- if(`pgrep pytone`) {
weechat-scripts-20200815/perl/weerock.pl:188: ($artist,$title,$ct,$tt) = `$cmd` =~ /$exp/;
weechat-scripts-20200815/perl/weerock.pl-189- }
##############################################
weechat-scripts-20200815/perl/weerock.pl-199- if(`pgrep quodlibet`) {
weechat-scripts-20200815/perl/weerock.pl:200: ($artist,$album,$title) = `$cmd` =~ /$exp/;
weechat-scripts-20200815/perl/weerock.pl-201- }
##############################################
weechat-scripts-20200815/perl/hotlist2extern.pl-96- }
weechat-scripts-20200815/perl/hotlist2extern.pl:97: system(eval_expression($options{external_command_hotlist_empty}));
weechat-scripts-20200815/perl/hotlist2extern.pl-98- }
##############################################
weechat-scripts-20200815/perl/hotlist2extern.pl-153- }else{
weechat-scripts-20200815/perl/hotlist2extern.pl:154: system($res2);
weechat-scripts-20200815/perl/hotlist2extern.pl-155- }
##############################################
weechat-scripts-20200815/perl/hotlist2extern.pl-172- my ($data) = ($_[0]);
weechat-scripts-20200815/perl/hotlist2extern.pl:173: system($data) unless($data eq "");
weechat-scripts-20200815/perl/hotlist2extern.pl-174- return weechat::WEECHAT_RC_OK;
##############################################
weechat-scripts-20200815/perl/sysinfo.pl-409- $distro = $distros[0];
weechat-scripts-20200815/perl/sysinfo.pl:410: $distrov = `cat $distros[1] | head -n 1`;
weechat-scripts-20200815/perl/sysinfo.pl-411- chomp($distrov);
##############################################
weechat-scripts-20200815/perl/sysinfo.pl-509- chomp($cpu);
weechat-scripts-20200815/perl/sysinfo.pl:510: $smp = `$sysctl -n hw.ncpu`;
weechat-scripts-20200815/perl/sysinfo.pl-511- chomp($smp);
##############################################
weechat-scripts-20200815/perl/sysinfo.pl-532- $cpu = "$cpu ($mhz MHz)";
weechat-scripts-20200815/perl/sysinfo.pl:533: $smp = `$sysctl -n hw.ncpu`;
weechat-scripts-20200815/perl/sysinfo.pl-534- chomp($smp);
##############################################
weechat-scripts-20200815/perl/sysinfo.pl-547- $cpu =~ s/([0-9.]* [MG]Hz)$/($1)/;
weechat-scripts-20200815/perl/sysinfo.pl:548: $smp = `$sysctl -n hw.ncpu`;
weechat-scripts-20200815/perl/sysinfo.pl-549- chomp($smp);
##############################################
weechat-scripts-20200815/perl/sysinfo.pl-670- $cpu = `/usr/sbin/psrinfo -vp | tail -1`; chomp($cpu);
weechat-scripts-20200815/perl/sysinfo.pl:671: $mhz = `/usr/sbin/psrinfo -vp | grep MHz | awk '{ print "(" \$(NF-1) " " \$NF}' | tail -1`; chomp($mhz);
weechat-scripts-20200815/perl/sysinfo.pl-672- $cpu = "$cpu $mhz";
##############################################
weechat-scripts-20200815/perl/sysinfo.pl-676- if($osp =~ "sparc") {
weechat-scripts-20200815/perl/sysinfo.pl:677: $cpu = `/usr/platform/${osm}/sbin/prtdiag | head -1`; chomp($cpu);
weechat-scripts-20200815/perl/sysinfo.pl-678- $cpu =~ s/.*${osm} //;
##############################################
weechat-scripts-20200815/perl/sysinfo.pl-692- }
weechat-scripts-20200815/perl/sysinfo.pl:693: $mhz = `$sysctl -n hw.cpufrequency`; chomp($mhz);
weechat-scripts-20200815/perl/sysinfo.pl-694- $mhz = sprintf("%.2f", $mhz / 1000000);
##############################################
weechat-scripts-20200815/perl/sysinfo.pl-781- if($irix || $irix64) {
weechat-scripts-20200815/perl/sysinfo.pl:782: $vara = `$df | grep dev | awk '{ sum+=\$3 / 1024 / 1024}; END { print sum }'`; chomp($vara);
weechat-scripts-20200815/perl/sysinfo.pl:783: $vard = `$df | grep dev | awk '{ sum+=\$4 / 1024 / 1024}; END { print sum }'`; chomp($vard);
weechat-scripts-20200815/perl/sysinfo.pl-784- } elsif($sun) {
weechat-scripts-20200815/perl/sysinfo.pl:785: $vara = `$df | grep -v swap | grep -v libc | awk '{ sum+=\$2 / 1024 / 1024}; END { print sum }'`; chomp($vara);
weechat-scripts-20200815/perl/sysinfo.pl:786: $vard = `$df | grep -v swap | grep -v libc | awk '{ sum+=\$3 / 1024 / 1024}; END { print sum }'`; chomp($vard);
weechat-scripts-20200815/perl/sysinfo.pl-787- } elsif($freebsd) {
weechat-scripts-20200815/perl/sysinfo.pl-788- if ($isJail == '1') { # in jails, storage is listed as /mnt/ mountpoints from the host, not as /dev/ devices
weechat-scripts-20200815/perl/sysinfo.pl:789: $vara = `$df | grep -v swap | awk '{ sum+=\$2 / 1024 / 1024}; END { print sum }'`; chomp($vara);
weechat-scripts-20200815/perl/sysinfo.pl:790: $vard = `$df | grep -v swap | awk '{ sum+=\$3 / 1024 / 1024}; END { print sum }'`; chomp($vard);
weechat-scripts-20200815/perl/sysinfo.pl-791- } else {
weechat-scripts-20200815/perl/sysinfo.pl:792: $vara = `$df | grep dev | awk '{ sum+=\$2 / 1024 / 1024}; END { print sum }'`; chomp($vara);
weechat-scripts-20200815/perl/sysinfo.pl:793: $vard = `$df | grep dev | awk '{ sum+=\$3 / 1024 / 1024}; END { print sum }'`; chomp($vard);
weechat-scripts-20200815/perl/sysinfo.pl-794- }
weechat-scripts-20200815/perl/sysinfo.pl-795- } else {
weechat-scripts-20200815/perl/sysinfo.pl:796: $vara = `$df | grep dev | awk '{ sum+=\$2 / 1024 / 1024}; END { print sum }'`; chomp($vara);
weechat-scripts-20200815/perl/sysinfo.pl:797: $vard = `$df | grep dev | awk '{ sum+=\$3 / 1024 / 1024}; END { print sum }'`; chomp($vard);
weechat-scripts-20200815/perl/sysinfo.pl-798- }
##############################################
weechat-scripts-20200815/perl/sysinfo.pl-847- } elsif($darwin) {
weechat-scripts-20200815/perl/sysinfo.pl:848: $vard = `vm_stat | grep 'Pages active' | awk '{print \$3}'` * 4096;
weechat-scripts-20200815/perl/sysinfo.pl:849: $vara = `$sysctl -n hw.memsize`;
weechat-scripts-20200815/perl/sysinfo.pl-850- } elsif($sun) {
weechat-scripts-20200815/perl/sysinfo.pl:851: $vara = `/usr/sbin/prtconf | grep "Mem" | awk '{print \$3}'` * 1024 * 1024;
weechat-scripts-20200815/perl/sysinfo.pl:852: $vard = `/bin/vmstat 1 2 | tail -1 | awk '{print \$5 * 1024}'`;
weechat-scripts-20200815/perl/sysinfo.pl-853- $vard = $vara - $vard
##############################################
weechat-scripts-20200815/perl/sysinfo.pl-862- } elsif($netbsd) {
weechat-scripts-20200815/perl/sysinfo.pl:863: $vard = `vmstat -t | tail -n 1 | awk '{print \$8}'`;
weechat-scripts-20200815/perl/sysinfo.pl-864- $vard = $vard * 4096;
##############################################
weechat-scripts-20200815/perl/sysinfo.pl-866- } else {
weechat-scripts-20200815/perl/sysinfo.pl:867: $vard = `vmstat -s | grep 'pages active' | awk '{print \$1}'` * `vmstat -s | grep 'per page' | awk '{print \$1}'`;
weechat-scripts-20200815/perl/sysinfo.pl:868: $vara = `$sysctl -n hw.physmem`;
weechat-scripts-20200815/perl/sysinfo.pl-869- }
##############################################
weechat-scripts-20200815/perl/sysinfo.pl-980- if($freebsd || $dragonfly) {
weechat-scripts-20200815/perl/sysinfo.pl:981: $var = `$sysctl -n kern.boottime | awk '{print \$4}'`;
weechat-scripts-20200815/perl/sysinfo.pl-982- }
weechat-scripts-20200815/perl/sysinfo.pl-983- if($netbsd || $openbsd || $darwin) {
weechat-scripts-20200815/perl/sysinfo.pl:984: $var = `$sysctl -n kern.boottime`;
weechat-scripts-20200815/perl/sysinfo.pl-985- }
##############################################
weechat-scripts-20200815/perl/parse_relayed_msg.pl-815- {
weechat-scripts-20200815/perl/parse_relayed_msg.pl:816: $string = weechat::hook_modifier_exec( "colorize_lines",$modifier_data,"$nick\t$string");
weechat-scripts-20200815/perl/parse_relayed_msg.pl-817- if ($string ne "")
##############################################
weechat-scripts-20200815/perl/listsort.pl-38- }
weechat-scripts-20200815/perl/listsort.pl:39: weechat::hook_modifier_exec("irc_color_decode", 1, $hashtable{"output"}); # show irc colors
weechat-scripts-20200815/perl/listsort.pl-40- return weechat::WEECHAT_RC_OK;
##############################################
weechat-scripts-20200815/perl/listsort.pl-73-sub list_chan {
weechat-scripts-20200815/perl/listsort.pl:74: weechat::hook_modifier_exec("irc_color_decode", 1, $_[3]);
weechat-scripts-20200815/perl/listsort.pl-75- return "";
##############################################
weechat-scripts-20200815/perl/launcher.pl-117- $command =~ s/\$signal_data/'$signal_data'/g;
weechat-scripts-20200815/perl/launcher.pl:118: system($command.$command_suffix);
weechat-scripts-20200815/perl/launcher.pl-119- }
##############################################
weechat-scripts-20200815/perl/notifym.pl-71- my ($urgency, $summary, $body) = @_;
weechat-scripts-20200815/perl/notifym.pl:72: my $retval = system("notify-send", "-u", $urgency, $summary, $body);
weechat-scripts-20200815/perl/notifym.pl-73-}
##############################################
weechat-scripts-20200815/perl/spell_menu.pl-321- weechat::print($buf, " \t".mangle_man_for_wee($_)) # weird bug with \t\t showing nothing?
weechat-scripts-20200815/perl/spell_menu.pl:322: for `pod2man \Q$file\E 2>/dev/null | GROFF_NO_SGR=1 nroff -mandoc -rLL=${width}n -rLT=${width}n -Tutf8 2>/dev/null`;
weechat-scripts-20200815/perl/spell_menu.pl-323- weechat::command($buf, '/window scroll_top');
##############################################
weechat-scripts-20200815/perl/strmon.pl-188- my $command="notify-send \"$message\" ";
weechat-scripts-20200815/perl/strmon.pl:189: system($command);
weechat-scripts-20200815/perl/strmon.pl-190- }
##############################################
weechat-scripts-20200815/perl/strmon.pl-194- my $command="mplayer -ao alsa $sound 1 > /dev/null 2> /dev/null &";
weechat-scripts-20200815/perl/strmon.pl:195: system($command);
weechat-scripts-20200815/perl/strmon.pl-196- }
##############################################
weechat-scripts-20200815/perl/strmon.pl-207- {
weechat-scripts-20200815/perl/strmon.pl:208: my @list=`ls $picdir`;
weechat-scripts-20200815/perl/strmon.pl-209- chop @list;
##############################################
weechat-scripts-20200815/perl/strmon.pl-212- {
weechat-scripts-20200815/perl/strmon.pl:213: my @list=`ls $sounddir`;
weechat-scripts-20200815/perl/strmon.pl-214- chop @list;
##############################################
weechat-scripts-20200815/perl/strmon.pl-220- my $command="notify-send \"<img src='$pic'>\" &";
weechat-scripts-20200815/perl/strmon.pl:221: system($command);
weechat-scripts-20200815/perl/strmon.pl-222- $ret="done";
##############################################
weechat-scripts-20200815/perl/strmon.pl-227- my $command="mplayer -ao alsa $sound 1 > /dev/null 2> /dev/null &";
weechat-scripts-20200815/perl/strmon.pl:228: system($command);
weechat-scripts-20200815/perl/strmon.pl-229- $ret="done";
##############################################
weechat-scripts-20200815/perl/notify_send.pl-135- s/\$message/$message/g for @args;
weechat-scripts-20200815/perl/notify_send.pl:136: system($command, @args);
weechat-scripts-20200815/perl/notify_send.pl-137- }
##############################################
weechat-scripts-20200815/perl/newsbar.pl-422- {
weechat-scripts-20200815/perl/newsbar.pl:423: system("$ssh_cmd $arg 2>/dev/null 1>&2 &");
weechat-scripts-20200815/perl/newsbar.pl-424- } else {
weechat-scripts-20200815/perl/newsbar.pl:425: system("$arg 2>/dev/null 1>&2 &");
weechat-scripts-20200815/perl/newsbar.pl-426- }
##############################################
weechat-scripts-20200815/perl/stalker.pl-809- # from date ? to date ?
weechat-scripts-20200815/perl/stalker.pl:810: $sth = $DBH->prepare( "DELETE FROM records WHERE added >= '" . $day1 . "' AND added < '" . $day2 . "'" );
weechat-scripts-20200815/perl/stalker.pl-811- $sth->execute();
##############################################
weechat-scripts-20200815/perl/thinklight_blink.pl-80- {
weechat-scripts-20200815/perl/thinklight_blink.pl:81: system($blink_command_off);
weechat-scripts-20200815/perl/thinklight_blink.pl-82- }
##############################################
weechat-scripts-20200815/perl/thinklight_blink.pl-84- {
weechat-scripts-20200815/perl/thinklight_blink.pl:85: system($blink_command_on);
weechat-scripts-20200815/perl/thinklight_blink.pl-86- }
##############################################
weechat-scripts-20200815/perl/multiline.pl-349- weechat::print($buf, " \t".mangle_man_for_wee($_)) # weird bug with \t\t showing nothing?
weechat-scripts-20200815/perl/multiline.pl:350: for `pod2man \Q$file\E 2>/dev/null | GROFF_NO_SGR=1 nroff -mandoc -rLL=${width}n -rLT=${width}n -Tutf8 2>/dev/null`;
weechat-scripts-20200815/perl/multiline.pl-351- weechat::command($buf, '/window scroll_top');
##############################################
weechat-scripts-20200815/perl/volumeter.pl-71-{
weechat-scripts-20200815/perl/volumeter.pl:72: my $tmp = `cat "$procnetdev" | grep "$device"`;
weechat-scripts-20200815/perl/volumeter.pl-73- $last_out = (($tmp =~ m/(\d+)/g)[9]); # get last_out
##############################################
weechat-scripts-20200815/perl/perlexec.pl-19- my $buffer=$_[1];
weechat-scripts-20200815/perl/perlexec.pl:20: eval($_[2]); # execute
weechat-scripts-20200815/perl/perlexec.pl-21- }else{
##############################################
weechat-scripts-20200815/perl/perlexec.pl-35- weechat::print($buffer, "> ".$_[2]); # print
weechat-scripts-20200815/perl/perlexec.pl:36: eval($_[2]); # execute
weechat-scripts-20200815/perl/perlexec.pl-37- return weechat::WEECHAT_RC_OK;
##############################################
weechat-scripts-20200815/perl/rhythmbus.pl-117- if ($args[0] =~ /^play/) {
weechat-scripts-20200815/perl/rhythmbus.pl:118: my $rhythm_rc = `$state_command"Play"`;
weechat-scripts-20200815/perl/rhythmbus.pl-119- }
weechat-scripts-20200815/perl/rhythmbus.pl-120- elsif ($args[0] =~ /^pause/) {
weechat-scripts-20200815/perl/rhythmbus.pl:121: my $rhythm_rc = `$state_command"PlayPause"`;
weechat-scripts-20200815/perl/rhythmbus.pl-122- }
weechat-scripts-20200815/perl/rhythmbus.pl-123- elsif ($args[0] =~ /^stop/) {
weechat-scripts-20200815/perl/rhythmbus.pl:124: my $rhythm_rc = `$state_command"Stop"`;
weechat-scripts-20200815/perl/rhythmbus.pl-125- }
weechat-scripts-20200815/perl/rhythmbus.pl-126- elsif ($args[0] =~ /^next/) {
weechat-scripts-20200815/perl/rhythmbus.pl:127: my $rhythm_rc = `$state_command"Next"`;
weechat-scripts-20200815/perl/rhythmbus.pl-128- }
weechat-scripts-20200815/perl/rhythmbus.pl-129- elsif ($args[0] =~ /^prev/) {
weechat-scripts-20200815/perl/rhythmbus.pl:130: my $rhythm_rc = `$state_command"Previous"`;
weechat-scripts-20200815/perl/rhythmbus.pl-131- }
##############################################
weechat-scripts-20200815/perl/rhythmbus.pl-183- my $meta_name = shift;
weechat-scripts-20200815/perl/rhythmbus.pl:184: my $meta_data = `$metadata_command $meta_name:`;
weechat-scripts-20200815/perl/rhythmbus.pl-185- $meta_data =~ s/.*:\s|\n//g;
##############################################
weechat-scripts-20200815/perl/curiousignore.pl-198- weechat::command($buffer, "/mute logger disable"); # disable file logging
weechat-scripts-20200815/perl/curiousignore.pl:199: system("echo \'" . $string . "\' >>".$logfilename); # write output to logfile
weechat-scripts-20200815/perl/curiousignore.pl-200- weechat::command($buffer,"/mute logger set " . $log_level); # start file logging again
##############################################
weechat-scripts-20200815/perl/mplex.pl-191- if ( $Socket{mp} eq 'screen' ) {
weechat-scripts-20200815/perl/mplex.pl:192: `screen -S $Socket{session} -X select $w`;
weechat-scripts-20200815/perl/mplex.pl-193- } else {
weechat-scripts-20200815/perl/mplex.pl:194: my $err = `tmux selectw -t $Socket{'session_id'}:$w`;
weechat-scripts-20200815/perl/mplex.pl-195- chomp $err;
##############################################
weechat-scripts-20200815/perl/menu.pl-876- $buf->print(" \t".mangle_man_for_wee($_))
weechat-scripts-20200815/perl/menu.pl:877: for `pod2man \Q$file\E 2>/dev/null | GROFF_NO_SGR=1 nroff -mandoc -rLL=${width}n -rLT=${width}n -Tutf8 2>/dev/null`;
weechat-scripts-20200815/perl/menu.pl-878- $buf->command('/window scroll_top');
##############################################
weechat-scripts-20200815/perl/menu.pl-1592- my %vars = (i => 0+$i, a => ($i < @a ? $a[$i] : ' '));
weechat-scripts-20200815/perl/menu.pl:1593: W->command('', "/mute /set menu.var.$pfx.$raw$i.name @{[wee_eval($name, \%pointer, \%vars)]}");
weechat-scripts-20200815/perl/menu.pl:1594: W->command('', "/mute /set menu.var.$pfx.$raw$i.command @{[wee_eval($command, \%pointer, \%vars)]}");
weechat-scripts-20200815/perl/menu.pl-1595- $hdh = $hdh->_next;
##############################################
weechat-scripts-20200815/perl/coords.pl-858- weechat::print($buf, " \t".mangle_man_for_wee($_))
weechat-scripts-20200815/perl/coords.pl:859: for `pod2man \Q$file\E 2>/dev/null | GROFF_NO_SGR=1 nroff -mandoc -rLL=${width}n -rLT=${width}n -Tutf8 2>/dev/null`;
weechat-scripts-20200815/perl/coords.pl-860- weechat::command($buf, '/window scroll_top');
##############################################
weechat-scripts-20200815/perl/coords.pl-1830- elsif ($external =~ s/%q/\Q$text/ || $external =~ s/%x/\Q$xterm_osc/) {
weechat-scripts-20200815/perl/coords.pl:1831: unless (system($external) >= 0) {
weechat-scripts-20200815/perl/coords.pl-1832- weechat::print('', weechat::prefix('error').'Clipboard: '.$!);
##############################################
weechat-scripts-20200815/perl/coords.pl-2676- 'top_bottom' : 'left_right')} ? 'y' : 'x';
weechat-scripts-20200815/perl/coords.pl:2677: if ($_[2] =~ /^`/) { $dir .= '-' } #`
weechat-scripts-20200815/perl/coords.pl-2678- elsif ($_[2] =~ /^a/) { $dir .= '+' }
##############################################
weechat-scripts-20200815/perl/color_popup.pl-35- s/($cc)/$1■/g if weechat::config_string_to_boolean(weechat::config_get_plugin('reveal'));
weechat-scripts-20200815/perl/color_popup.pl:36: Encode::_utf8_on($_ = weechat::hook_modifier_exec(irc_color_decode => 1, weechat::hook_modifier_exec(irc_color_encode => 1, $_)));
weechat-scripts-20200815/perl/color_popup.pl-37- }
##############################################
weechat-scripts-20200815/perl/sound.pl-72- $command =~ s/(\$\w+)/$1/gee;
weechat-scripts-20200815/perl/sound.pl:73: system($command.$command_suffix);
weechat-scripts-20200815/perl/sound.pl-74- }
##############################################
weechat-scripts-20200815/perl/sound.pl-91- $command =~ s/(\$\w+)/$1/gee;
weechat-scripts-20200815/perl/sound.pl:92: system($command.$command_suffix);
weechat-scripts-20200815/perl/sound.pl-93- }