Album

 view release on metacpan or  search on metacpan

helper/Makefile.eg  view on Meta::CPAN

# Generic Makefile for albums.

BASE    = $(notdir ${PWD})

TOOLS	 = $(HOME)/src/album/src
DATA	 = $(HOME)/src/album/data

_DCIM    := dcim
_DCF     := 101msdcf
DCIM	 ?= ${_DCIM}/${_DCF}
RAW	 ?= ${DCIM}

OPTS	 ?=
PERL	 ?= perl
ALBUMCMD := $(PERL) -w $(TOOLS)/album.pl $(OPTS) --verbose

helper/Makefile.eg  view on Meta::CPAN

	  cp -p info.dat info.dat~ && cp -p x~ info.dat && rm x~; \
	fi

################ SETUP ################

init ::
	mkdir -p $(DCIM)
	test -f Makefile || echo "include $(TOOLS)/generic.mk" > Makefile
	test -f info.dat || { \
		dir="`basename \`pwd\``"; \
		touch $(DATA)/$$dir.dat; \
		ln -s $(DATA)/$$dir.dat info.dat; \
		echo "!title $$dir" > info.dat; \
	}

clean ::
	rm -f .cache *png index*html large/*html *~
	rm -f shellrun.exe ShellRun.exe autorun.inf
	rm -fr icons css images medium thumbnails .xvpics

realclean :: clean
	rm -f `readlink info.dat` info.dat 

script/album  view on Meta::CPAN

sub squote {
    my ($t) = @_;
    $t =~ s/([\\\"])/\\$1/g;
    $t = '"'.$t.'"' if $t =~ /[^-\w.\/]/;
    $t;
}

################ Button Images ################

sub add_button_images {
    # Extract button images from DATA section.

    my $out = do { local *OUT; *OUT };
    my $name;
    my $doing = 0;
    my $did = 0;

    while ( <DATA> ) {
        if ( $doing ) {         # uudecoding...
            if ( /^Xend/ ) {
                close($out);
                $doing = 0;	# Done
		next;
            }
            # Select lines to process.
            next if /[a-z]/;
	    next unless /^X(.*)/s;
	    $_ = $1;

script/album  view on Meta::CPAN

            $name = d_icons($1);
	    print STDERR ("$1 ") if $verbose > 1;
            open($out, ">", $name);
	    binmode($out);
            $doing = 1;         # Doing
            next;
        }
    }
    print STDERR ("\n") if $verbose > 1;
    if ( $doing ) {
        die("Error in DATA: still processing $name\n");
        unlink($name);
    }
}

################ Style Sheets ################

################ End Style Sheets ################

sub detab {
    my ($line) = @_;