[urisagit/CMS-Simple.git] / make_slides / make.pl

#!/usr/local/bin/perl

use strict ;
use warnings ;

use Data::Dumper ;

use Template::Simple ;
use CMS::Simple::Parse ;
use File::Slurp ;


my $cont_file = shift || 'slides.cont' ;

my $cont_text = read_file( $cont_file ) ;

my $content = CMS::Simple::Parse::parse_content( $cont_text ) ;

print Dumper $content ;
Commit	Line	Data
9e609156	1	#!/usr/local/bin/perl
	2
	3	use strict ;
	4	use warnings ;
	5
	6	use Data::Dumper ;
	7
	8	use Template::Simple ;
	9	use CMS::Simple::Parse ;
	10	use File::Slurp ;
	11
	12
	13
	14	my $cont_file = shift \|\| 'slides.cont' ;
	15
	16	my $cont_text = read_file( $cont_file ) ;
	17
	18	my $content = CMS::Simple::Parse::parse_content( $cont_text ) ;
	19
	20	print Dumper $content ;