view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

  As a consequence, newly generated pages will probably not look as
  they should if you have style sheets from a previous version of
  album.

  Album now verifies that existing style sheets start with a line:

    /* ALBUM-CSS-VERSION: 1.0 */

  If this line is missing (as is the case with older style sheets), or
  the version number is not compatible with this version of album, a
  fatal error is given and the program terminates.

  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:

lib/Album/Tutorial.pm  view on Meta::CPAN

indication of the form

  ALBUM-FMT-VERSION: <major>.<minor>   (for formats)
  ALBUM-CSS-VERSION: <major>.<minor>   (for style sheets)

For all style sheet - format pairs, the major numbers must be the
same.

Older versions of 'album' always created external style sheets. As a
consequence, if you upgrade to the newer version, you'll get a fatal
error the first time you run 'album'.

 *************************************************************************
 Existing style sheet ... is not compatible with this version.
 It has probably been created by an older version of this program, or it
 has been modified manually.

 If you did not change any style sheets, just remove the css directory and
 try again.

 If you did modify the style sheets move them away to a backup location,

script/album  view on Meta::CPAN

	    $self = $ii;
	    delete($self->{$_}) foreach grep { /^_/ } keys(%$self);
	}

	# Else, get image info.
	else {
#	    my $ii = Image::Info::image_info($file);
	    my $ii = Image::ExifTool->new->ImageInfo($file);
	    $self->{file_size} = $st[7];
	    $self->{timestamp} = $st[9];
	    unless ( exists($ii->{error}) ) {
		for my $key ( @exif_fields ) {
		    my $val = $ii->{$key};
		    next unless defined $val;
		    if ( $key eq "Orientation" ) {
			($self->{rotation}, $self->{mirror}) =
			  @{$exif_rot->{$val}}
			    if exists $exif_rot->{$val};
		    }
		    else {
			$val = $val->as_float