new comments

use strict;

use warnings;

use Carp qw/croak/;

# use YAML qw(LoadFile) # only needed for converting yaml to perl syntax TODO cleanup

use Data::Dumper qw(Dumper);

use Cwd qw(cwd);

use File::Path;

use File::Copy;

# use File::Chmod qw(chmod);

# NOTE to generate

#my $printers = LoadFile("printers.yml");

#print Dumper $printers;

#my $models = LoadFile("models.yml");

#print Dumper $models;

## DATA ##

########

# DATA #

########

my $printers = {

    'copy4b' => {

    }

};

## END OF DATA ##

###############

# END OF DATA #

###############

sub get_description {

    my ($printer_name) = @_;