+ }
+
+ for ($QuoteCache->keys ())
+ {
+ my $key = $_;
+ my ($nick, $num) = split (m/:/, $key);
+ my $main = get_main_nick ($nick);
+
+ my ($epoch, $text) = $QuoteCache->get ($key);
+ die unless (defined ($text));
+
+ if (!defined ($QuoteData->{$main}))
+ {
+ die;
+ }
+ elsif (scalar (@{$QuoteData->{$main}}) < $QuoteCacheSize)