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;