[sdlgit/SDL-Site.git] / cgi-bin / sdl.cgi

#!/usr/bin/perl

use FindBin;
use lib $FindBin::RealBin.'/../code';
use Web::Simple 'SDL_Perl::WebSite';

sub SDL_Perl::WebSite::Page::html { ${+shift} }

package SDL_Perl::WebSite;

use HTML::Zoom;

default_config(
  pages_dir => $FindBin::RealBin.'/../pages',
  layout_file => $FindBin::RealBin.'/../layout.html',
);

sub page {
  my ($self, $page) = @_;
  my $file = $self->config->{pages_dir}.'/'.$page.'.html-inc';
  return () unless -e $file;
  return bless(
    \do { local (@ARGV, $/) = $file; <> },
    'SDL_Perl::WebSite::Page'
  )
}

dispatch [
  sub (GET + /) { redispatch_to '/index.html' },
  sub (GET + /**/) {
    redispatch_to join('/','',$_[1],'index.html');
  },
  sub (.html) {
    filter_response { $self->render_html($_[1]) }
  },
  sub (GET + /**) {
    $self->page($_[1])
  },
];

{ my $DATA; sub _read_data { $DATA ||= do { local $/; <DATA>; } } }

sub layout_zoom {
  my $self = shift;
  $self->{layout_zoom} ||= do {
    HTML::Zoom->from_string($self->_layout_html)
  };
}

sub _layout_html {
  my $self = shift;
  my $file = $self->config->{layout_file};
  if (-f $file) {
    return do { local(@ARGV, $/) = ($file); <> }
  } else {
    return $self->_read_data
  }
}

sub render_html {
  my ($self, $data) = @_;
  return $data if ref($data) eq 'ARRAY';
  my ($zoom) = map {
    if ($data->isa('SDL_Perl::WebSite::Page')) {
      $_->with_selectors(
        '#main' => {
          -replace_content_raw => $data->html
        }
      );
    } else {
      die "WTF is ${data} supposed to be? A mallard?";
    }
  } ($self->layout_zoom);
  $self->zoom_to_response($zoom);
}

sub zoom_to_response {
  my ($self, $zoom) = @_;
  open my $fh, '>', \my $out_str;
  $zoom->render_to($fh);
  return [
    200,
    [ 'Content-type' => 'text/html' ],
    [ $out_str ]
  ];
}


SDL_Perl::WebSite->run_if_script;
__DATA__
<html>
  <body>
    <div id="main"/>
  </body>
</html>
Commit	Line	Data
9d159224	1	#!/usr/bin/perl
	2
	3	use FindBin;
8f8a7adc	4	use lib $FindBin::RealBin.'/../code';
9d159224	5	use Web::Simple 'SDL_Perl::WebSite';
	6
	7	sub SDL_Perl::WebSite::Page::html { ${+shift} }
	8
	9	package SDL_Perl::WebSite;
	10
	11	use HTML::Zoom;
	12
	13	default_config(
9d431a07	14	pages_dir => $FindBin::RealBin.'/../pages',
9d431a07	15	layout_file => $FindBin::RealBin.'/../layout.html',
9d159224	16	);
	17
	18	sub page {
	19	my ($self, $page) = @_;
	20	my $file = $self->config->{pages_dir}.'/'.$page.'.html-inc';
	21	return () unless -e $file;
	22	return bless(
	23	\do { local (@ARGV, $/) = $file; <> },
	24	'SDL_Perl::WebSite::Page'
	25	)
	26	}
	27
	28	dispatch [
	29	sub (GET + /) { redispatch_to '/index.html' },
	30	sub (GET + /**/) {
ffc66404	31	redispatch_to join('/','',$_[1],'index.html');
9d159224	32	},
	33	sub (.html) {
	34	filter_response { $self->render_html($_[1]) }
	35	},
	36	sub (GET + /**) {
	37	$self->page($_[1])
	38	},
	39	];
	40
	41	{ my $DATA; sub _read_data { $DATA \|\|= do { local $/; <DATA>; } } }
	42
	43	sub layout_zoom {
	44	my $self = shift;
	45	$self->{layout_zoom} \|\|= do {
6de3a91e	46	HTML::Zoom->from_string($self->_layout_html)
9d159224	47	};
	48	}
	49
6de3a91e	50	sub _layout_html {
6de3a91e	51	my $self = shift;
9d431a07	52	my $file = $self->config->{layout_file};
6de3a91e	53	if (-f $file) {
	54	return do { local(@ARGV, $/) = ($file); <> }
	55	} else {
	56	return $self->_read_data
	57	}
	58	}
	59
9d159224	60	sub render_html {
	61	my ($self, $data) = @_;
	62	return $data if ref($data) eq 'ARRAY';
	63	my ($zoom) = map {
	64	if ($data->isa('SDL_Perl::WebSite::Page')) {
	65	$_->with_selectors(
	66	'#main' => {
	67	-replace_content_raw => $data->html
	68	}
	69	);
	70	} else {
	71	die "WTF is ${data} supposed to be? A mallard?";
	72	}
	73	} ($self->layout_zoom);
	74	$self->zoom_to_response($zoom);
	75	}
	76
	77	sub zoom_to_response {
	78	my ($self, $zoom) = @_;
	79	open my $fh, '>', \my $out_str;
	80	$zoom->render_to($fh);
	81	return [
	82	200,
	83	[ 'Content-type' => 'text/html' ],
	84	[ $out_str ]
	85	];
	86	}
	87
	88
	89	SDL_Perl::WebSite->run_if_script;
	90	__DATA__
	91	<html>
	92	<body>
	93	<div id="main"/>
	94	</body>
	95	</html>