Gruta/Template/BASE.pm

   1 package Gruta::Template::BASE;
   2
   3 use Carp;
   4
   5 sub templates {
   6         my $self         = shift;
   7
   8         my @r = ( );
   9
  10         foreach my $p (split(':', $self->{path})) {
  11                 if (opendir D, $p) {
  12                         while (my $l = readdir D) {
  13                                 next if -d $p . '/' . $l;
  14                                 push @r, $l;
  15                         }
  16
  17                         closedir D;
  18                 }
  19         }
  20
  21         return sort @r;
  22 }
  23
  24
  25 sub _assert {
  26         my $self        = shift;
  27         my $template_id = shift;
  28
  29         if (not $template_id =~ /^[-\w\d-]+$/) {
  30                 croak "Invalid template '$template_id'";
  31         }
  32
  33         return $self;
  34 }
  35
  36
  37 sub template {
  38         my $self        = shift;
  39         my $template_id = shift;
  40
  41         $self->_assert($template_id);
  42
  43         my $content = undef;
  44
  45         foreach my $p (split(':', $self->{path})) {
  46                 if (open F, $p . '/'. $template_id) {
  47                         $content = join('', <F>);
  48                         close F;
  49
  50                         last;
  51                 }
  52         }
  53
  54         return $content;
  55 }
  56
  57
  58 sub save_template {
  59         my $self        = shift;
  60         my $template_id = shift;
  61         my $content     = shift;
  62
  63         $self->_assert($template_id);
  64
  65         # only can be saved on the first directory
  66         my ($p) = (split(':', $self->{path}))[0];
  67
  68         open F, '>' . $p . '/' . $template_id
  69                 or croak "Can't write template '${p}/${template_id}'";
  70
  71         print F $content;
  72         close F;
  73 }
  74
  75
  76 sub create {
  77         my $self        = shift;
  78
  79         # create first directory
  80         my ($p1) = (split(':', $self->{path}))[0];
  81
  82         mkdir $p1, 0755;
  83 }
  84
  85 1;