From 167451c83ed861c4d45b80a4b20926487be56932 Mon Sep 17 00:00:00 2001 From: Ralf Ertzinger Date: Sun, 23 Jun 2013 21:14:56 +0200 Subject: [PATCH] libvideosite: refine cache command --- libvideosite.pm | 21 +++++++++++++++++---- 1 file changed, 17 insertions(+), 4 deletions(-) diff --git a/libvideosite.pm b/libvideosite.pm index 3554201..3f05160 100644 --- a/libvideosite.pm +++ b/libvideosite.pm @@ -931,14 +931,27 @@ sub _cmd_nodebug { } # -# Display the content of the config cache +# Display or clear the content of the config cache # sub _cmd_cache { my $event = shift; + my $subcmd = shift; + + $subcmd = 'list' unless defined($subcmd); + $subcmd = lc($subcmd); - _io("Content of config cache:"); - foreach (sort(keys(%config_cache))) { - _io("%s => %s", $_, Dumper($config_cache{$_})); + if ($subcmd eq 'list') { + _io("Content of config cache:"); + foreach (sort(keys(%config_cache))) { + if (exists($config_cache{$_}->{value})) { + _io("%s => %s", $_, $config_cache{$_}->{value}); + } else { + _io("%s present", $_); + } + } + } elsif ($subcmd eq 'clear') { + _debug("Clearing config cache"); + %config_cache = (); } } -- 1.8.3.1