#!/usr/bin/perl
# $Id: munin-storable2datafile.in 3989 2010-11-09 19:10:33Z janl $

use strict;
use warnings;
use Storable;

use Munin::Master::Utils;

while (my $file = shift) {
	my $config = Storable::retrieve($file);
	munin_writeconfig("stdout", $config, \*STDOUT);
}
