Album

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

  Should you run into this situation (which is likely to occur once
  for every existing album), then move the style sheets to a backup
  location, run album, and re-apply your changes (if any) to the new
  style sheets.

#### END INCOMPATIBLE CHANGE ####

* 'info.dat' may now designate its encoding system, if needed:

  # -*- coding: utf-8 -*-

#### WARNING: INCOMPATIBLE CHANGE ####

* Medium sized images will not be resized if the original (large)
  image is within the specified limits.

  To obtain the old behaviour of enlarging the image, specify an '!'
  after the medium size:

    mediumsize 915!

script/album  view on Meta::CPAN

    warn("parsing: $info_file\n") if $trace;

    my $el;
    my %dirs;

    while ( <$fh> ) {
	chomp;

	# Detection of condig system for info_file.
	# Uses GNU Emacs syntax, e.g.,
	#  # blah        -*- mode: album; coding: utf-8 -*-
	if ( $. == 1
	     &&
	     m/^\s*\#			# start with #
	      .*			# arb
	      -\*-			# -*-
	      (?:.*?;)*			# things, must be ; terminated
	      \s*			# ws
	      coding\s*:\s*([\w\d-]+)	# coding: utf-8
	      \s*			# ws
	      (?:;.*)*			# things, must be ; started
	      -\*-			# -*-
	      /x ) {
	    $encoding = $1;
	    warn("using encoding $encoding for $info_file\n") if $trace;

	    # Remember position, reopen and restart IO.
	    my $pos = tell($fh);
	    close($fh);

script/album  view on Meta::CPAN

		$msg->("copy");
		$msg->("/rotate") if $el->rotation;
		$msg->("/mirror") if $el->mirror;
		$msg->(" ");

		# Use jpegtran to rotate jpg files.
		if ( ($el->file_ext || "") eq "jpg" && $prog_jpegtran ) {
		    my $cmd = "$prog_jpegtran -copy all -rotate " . $el->rotation . " ";
		    $cmd .= $el->mirror eq 'h' ? "-transpose " : "-transverse "
		      if $el->mirror;
		    $cmd .= "-outfile " . squote($i_large) .
		      " " . squote($i_src);
		    my $t = `$cmd 2>&1`;
		    $msg->($t) if $t;
		    utime($time, $time, $i_large);
		}
		# Otherwise, let Image::Magick handle it.
		else {
		    $readimage->($i_src);
		    $image->Rotate( $el->rotation );
		    if ( $el->mirror ) {

script/merge  view on Meta::CPAN

################ The Process ################

my $file = shift;
die("$file; $!\n") unless -s $file;

my %ht;

my @pre;
my @lines;

open( my $fh, '<:utf8', $file ) or die("$file: $!\n");
while ( <$fh> ) {
    chomp;
    next unless /\S/;
    if ( /^!(?!tag)/ && !%ht ) {
	push( @pre, $_ );
	next;
    }

    if ( /^!tag\s+(.*)/ ) {
	$ht{ substr( $_ = scalar(<$fh>), 0, 8 ) } = $1;