Subversion Repositories sysadmin_scripts

#! /usr/bin/env perl

# Takes archiveIMAP.yaml and dumps to stdout as a perl definition
# to use this as archiveIMAP.cfg, you must change $VAR1 on the first line
# to $config 

use warnings;
use strict;

use YAML::Tiny; # apt-get libyaml-tiny-perl under debian
use Data::Dumper;

my $config;
#my $temp = join( '', <> );
#eval $temp;

my $yaml = YAML::Tiny->read( 'archiveIMAP.yaml' );
$Data::Dumper::Indent = 2;
$Data::Dumper::Sortkeys = 1; # sorts hash keys, so consistent output
print Dumper( $yaml->[0] );

1;