Commit 2f073ff4 authored by Martin Klimes (k11m1)'s avatar Martin Klimes (k11m1)
Browse files

new comments

parent 27b537c2
......@@ -4,22 +4,14 @@ use 5.24.0;
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' => {
......@@ -104,7 +96,9 @@ my $models = {
}
};
## END OF DATA ##
###############
# END OF DATA #
###############
sub get_description {
my ($printer_name) = @_;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment