git://git.camperquake.de
/
videosite.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
videosite-irssi: Workaround for broken config_del
[videosite.git]
/
videosite-irssi.pl
diff --git
a/videosite-irssi.pl
b/videosite-irssi.pl
index
ecc7c40
..
4d3f481
100644
(file)
--- a/
videosite-irssi.pl
+++ b/
videosite-irssi.pl
@@
-140,10
+140,10
@@
sub config_get {
my $val;
my $val;
- Irssi::settings_add_str('videosite', $item, "\
0
");
+ Irssi::settings_add_str('videosite', $item, "\
1
");
$val = Irssi::settings_get_str($item);
$val = Irssi::settings_get_str($item);
- return ($val ne "\
0
")?$val:undef;
+ return ($val ne "\
1
")?$val:undef;
}
#
}
#
@@
-153,8
+153,8
@@
sub config_has {
my $path = shift;
my $item = join('.', 'videosite', @{$path});
my $path = shift;
my $item = join('.', 'videosite', @{$path});
- Irssi::settings_add_str('videosite', $item, "\
0
");
- return Irssi::settings_get_str($item) ne "\
0
";
+ Irssi::settings_add_str('videosite', $item, "\
1
");
+ return Irssi::settings_get_str($item) ne "\
1
";
}
#
}
#
@@
-165,18
+165,21
@@
sub config_set {
my $value = shift;
my $item = join('.', 'videosite', @{$path});
my $value = shift;
my $item = join('.', 'videosite', @{$path});
- Irssi::settings_add_str('videosite', $item, "\
0
");
+ Irssi::settings_add_str('videosite', $item, "\
1
");
Irssi::settings_set_str($item, $value);
}
#
# Delete a configuration value. Called by the core.
#
Irssi::settings_set_str($item, $value);
}
#
# Delete a configuration value. Called by the core.
#
+# Now, according to the configuration Irssi::settings_remove() removes a
+# config settings. This does not work in any irssi version available to me.
+# So just set the key to the canary value.
+#
sub config_del {
my $path = shift;
sub config_del {
my $path = shift;
- my $item = join('.', 'videosite', @{$path});
-
Irssi::settings_remove($item
);
+
config_set($path, "\1"
);
}
#
}
#