[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',
);

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