#
# Copyright (c) 2011 by Nils Görs <weechatter@arcor.de>
#
# unset script option(s) from not installed scripts
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.
#
# 11-08-28: 0.1
#
use strict;

my $PRGNAME     = "unset_unused";
my $VERSION     = "0.1";
my $AUTHOR      = "Nils Görs <weechatter\@arcor.de>";
my $LICENCE     = "GPL3";
my $DESCR       = "unset script option(s) from not installed scripts (YOU ARE USING THIS SCRIPT AT YOUR OWN RISK!)";
my $weechat_version = "";
my @option_list;
my %script_plugins = (
                    "python"    => "python_script",
                    "perl"      => "perl_script",
                    "ruby"      => "ruby_script",
                    "tcl"       => "tcl_script",
                    "lua"       => "lua_script",
);

my $flag = 0;
my $option_struct;
my %option_struct;
my $str;

sub get_scripts{
    foreach my $script (values %script_plugins){
        my $infolist = weechat::infolist_get($script,"","");
        while (weechat::infolist_next($infolist)){
          my $script_name = weechat::infolist_string($infolist, "name");
          $str .= $script_name . "|";
        }
      weechat::infolist_free($infolist);
    }
}

sub get_options{
    my $number = 0;
    my $key;
    chop($str);

    foreach my $plugin (keys %script_plugins){
        my $infolist = weechat::infolist_get("option","","plugins.var.$plugin.*");
        while (weechat::infolist_next($infolist)){
          my $option_name = weechat::infolist_string($infolist, "option_name");
          my $full_name = weechat::infolist_string($infolist, "full_name");
          (undef,$option_name,undef) = split(/\./, $option_name);
            $option_struct->{"full_name"} = $full_name;
            while ( my ($key,$value) = each %$option_struct ){
                if ( index($value, "check_license") == -1) {
                    if( not $value =~ m/($str)/i){
                      weechat::print("",$value) if ( $flag == 0 );
                      if ( $flag == 1 ){
                          weechat::command("","/mute unset $value");
                          if ($weechat_version >= 0x00030600){
                              my $name = substr($value, length("plugins.var."), length($value));
                            weechat::command("","/mute unset plugins.desc.$name");
                          }
                      }
                    }
                }
            }
        }
      weechat::infolist_free($infolist);
    }
}

# delete double entries
sub del_double{
  my %all = ();
  @all{@_} = 1;
  return (keys %all);
}

sub my_command_cb{
  my ($getargs) = ($_[2]);
  return weechat::WEECHAT_RC_OK if ($getargs eq "");

  get_scripts();

  if ( $getargs eq "list"){
      $flag = 0;
      weechat::print("","unused script options:");
      get_options();
  }elsif ($getargs eq "unset"){
      $flag = 1;
      get_options();
  }
return weechat::WEECHAT_RC_OK 
}
# -------------------------------[ init ]-------------------------------------
# first function called by a WeeChat-script.
weechat::register($PRGNAME, $AUTHOR, $VERSION,
                  $LICENCE, $DESCR, "", "");

$weechat_version = weechat::info_get("version_number", "");

weechat::hook_command($PRGNAME, $DESCR,
                "list || unset\n",
                "   list         : list all unused script options\n".
                "  unset         : reset config options (without warning!)\n\n".
                "If \"plugins.desc.\" exists, it will be removed, too.\n".
                "save your settings with \"/save plugins\" or restore settings with \"/reload plugins\"\n".
                "\n",
                "list %-||".
                "unset %-",
                "my_command_cb", "");