view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

	      VERSION_FROM => 'lib/Acme/PM/Berlin/Meetings.pm',
	      ($eumm_recent_enough ?
	       (META_ADD => { resources => { repository => 'git://github.com/eserte/acme-pm-berlin-meetings.git' },
			    }) : ()),
	      PREREQ_PM => { 'DateTime' => 0,
			     'Exporter' => 5.57,
			   },
	      EXE_FILES => ['script/berlin-pm'],
	     );

sub MY::postamble {
    my $postamble = "";

    if ($is_devel_host) {
	$postamble .= <<'EOF';

.include "../../perl.release.mk"
.include "../../perl.git.mk"

EOF
    }

    if ($^O ne 'MSWin32') { # shell commands in Makefile rules are too hard for dmake
	my $bbbike_dir = sub {
	    for my $candidate ("$ENV{HOME}/src/bbbike") {
		return $candidate if -d $candidate;
	    }
	}->();
	my $berlinpm_github_io_dir = sub {
	    for my $candidate ("$ENV{HOME}/work2/BerlinPM.github.io") {
		return $candidate if -d $candidate;
	    }
	}->();
	$postamble .= <<"EOF";
BBBIKE_DIR=		$bbbike_dir
BERLINPM_GITHUB_IO_DIR= $berlinpm_github_io_dir

EOF
	$postamble .= <<'EOF';
convert-berlin-pm-meetings.org: convert-for-acme-pm-berlin-meetings convert-for-berlin-pm-org

convert-for-acme-pm-berlin-meetings: only-convert-for-acme-pm-berlin-meetings push-convert-for-acme-pm-berlin-meetings

only-convert-for-acme-pm-berlin-meetings:
	${PERL} script/pmmeetings2bbd.pl data/berlin-pm-meetings.org | ${PERL} ${BBBIKE_DIR}/miscsrc/bbd2kml -title "Berlin PM meetings" - > data/berlin-pm.kml~
	mv data/berlin-pm.kml~ data/berlin-pm.kml
	${PERL} script/pmmeetings2bbd.pl data/berlin-pm-meetings.org | ${PERL} ${BBBIKE_DIR}/miscsrc/bbd2geojson -combine - > data/berlin-pm.geojson~
	mv data/berlin-pm.geojson~ data/berlin-pm.geojson

Makefile.PL  view on Meta::CPAN

push-convert-for-berlin-pm-org:
	cd ${BERLINPM_GITHUB_IO_DIR}/javascripts && git diff
	@echo "Does the diff look OK? (CTRL-C if not) "
	@read yn
	cd ${BERLINPM_GITHUB_IO_DIR}/javascripts && git commit -m "update historical map" berlin-pm.geojsonp && git push

EOF
    }

    $postamble;
}

lib/Acme/PM/Berlin/Meetings.pm  view on Meta::CPAN

    use Acme::PM::Berlin::Meetings;
    next_meeting(1)

Or use the bundled script:

    berlin-pm

=head1 NOTES

This module knows about special Berlin.PM traditions like postponing
the December meeting to the first or second week in January.

=head1 AUTHOR

Slaven Rezic

=head1 SEE ALSO

L<Acme::PM::Barcelona::Meeting>, L<Acme::PM::Paris::Meetings>.