File tree Expand file tree Collapse file tree 1 file changed +6
-5
lines changed Expand file tree Collapse file tree 1 file changed +6
-5
lines changed Original file line number Diff line number Diff line change 1
1
#
2
- # Copyright (c) 2011-2018 by Nils Görs <[email protected] >
2
+ # Copyright (c) 2011-2019 by Nils Görs <[email protected] >
3
3
#
4
4
# unset script option(s) from not installed scripts
5
5
#
17
17
# along with this program. If not, see <http://www.gnu.org/licenses/>.
18
18
#
19
19
#
20
+ # 22-07-19: 0.5: fixed: scripts currently unloaded wasn't recognised (reported by squigz)
20
21
# 18-04-18: 0.4: add support for php and javascript
21
22
# 14-10-04: 0.3: fixed: problem with unset options (reported by GermainZ)
22
23
# 13-07-27: 0.2: added: support for guile_script
28
29
use strict;
29
30
30
31
my $PRGNAME = " unset_unused" ;
31
- my $VERSION = " 0.4 " ;
32
+ my $VERSION = " 0.5 " ;
32
33
my $AUTHOR = " Nils Görs <weechatter\@ arcor.de>" ;
33
34
my $LICENCE = " GPL3" ;
34
35
my $DESCR = " unset script option(s) from not installed scripts (YOU ARE USING THIS SCRIPT AT YOUR OWN RISK!)" ;
35
36
my $weechat_version = " " ;
36
- my @option_list ;
37
37
my %script_plugins = (
38
38
" python" => " python_script" ,
39
39
" perl" => " perl_script" ,
45
45
" javascript" => " javascript_script" ,
46
46
);
47
47
48
- my $option_struct ;
49
- my %option_struct ;
50
48
my $str ;
51
49
52
50
# get installed scripts
@@ -71,6 +69,8 @@ sub get_options
71
69
my $key ;
72
70
my $number = 0;
73
71
chop ($str );
72
+ my $option_struct ;
73
+ my %option_struct ;
74
74
75
75
foreach my $plugin (keys %script_plugins )
76
76
{
@@ -119,6 +119,7 @@ sub my_command_cb{
119
119
my ($getargs ) = ($_ [2]);
120
120
return weechat::WEECHAT_RC_OK if ($getargs eq " " );
121
121
122
+ $str = " " ; # reset
122
123
get_scripts();
123
124
124
125
if ( $getargs eq " list" )
You can’t perform that action at this time.
0 commit comments