# shlomi-fish-homepage / gen-helpers.pl

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 #!/usr/bin/env perl use strict; use warnings; use HTML::Latemp::GenMakeHelpers; use File::Find::Object::Rule; use IO::All; my $generator = HTML::Latemp::GenMakeHelpers->new( 'hosts' => [ map { +{ 'id' =>$_, 'source_dir' => $_, 'dest_dir' => "\$(ALL_DEST_BASE)/$_-homepage" } } (qw(common t2 vipe)) ], );$generator->process_all(); my $text = io("include.mak")->slurp();$text =~ s!^(T2_DOCS = .*)humour/fortunes/index\.html!$1!m;$text =~ s!^(T2_IMAGES = .*)humour/fortunes/show\.cgi!$1!m;$text =~ s{ *humour/fortunes/\S+\.tar\.gz}{}g; io("include.mak")->print(\$text); system("./bin/gen-docbook-make-helpers.pl"); system("./bin/gen-fortunes.pl"); system("./bin/gen-deps-mak.pl"); 1;