File Coverage

blib/lib/Image/Processor/CD.pm

Criterion	Covered	Total	%
statement	6	32	18.7
branch	0	14	0.0
condition			n/a
subroutine	2	5	40.0
pod	0	3	0.0
total	8	54	14.8

package Image::Processor::CD;

use strict;
use base ( 'Image::Processor::Base' );

# this module handles interaction with the
# KodakCD format CD that you can get with
# your photos.  It is added to allow for
# people that haven't taken advatage of the
# Kodak online service

sub cd_type {
    my ($self,$set) = @_;
    return $self->{'cd_type'} if !$set;
    $self->{'cd_type'} = $set;
}

sub read_info_cd {
    my ($self) = @_;
    # should be something like
    #Disc = KODAK PICTURE CD
    #NumberOfImagesSession2 = 25
    #LabIdentifier = ORK1
    #MachineId = ORL-KCDFS2
    #BatchId = 002137
    #OrderId = 263577
    #Date = 2000:08:28 13:41:45
    #AccessCode =  NONE
    if (!$self->cdrom) { return };
    my $file_to_open;

    if (-e $self->cdrom . "/INFO.CD") {
        $file_to_open = $self->cdrom . "/INFO.CD";
        $self->cd_type('kodak');
    }
    if (-e $self->cdrom . "/order.txt") {
        $file_to_open = $self->cdrom . "/order.txt";
        $self->cd_type('wal-mart');
    }

    open(INFO,$file_to_open) or $self->graceful_exit( "\nI had a problem opening the info file\n" . $! );
    print "Accessing CD information\n";
    while () {
        $_ =~ s/\s+$//;
        my ($k,$v) = split/\s?=\s?/,$_;
        $k = lc($k);
        $self->{$k} = $v;
    }
    if ($self->{'orderid'} eq '') {
        $self->bad_info();
    }
}

sub bad_info {
    my ($self) = @_;
    print "The CD was not valid, please try another drive or CD\n\n";
    if ($self->running_in eq 'console') {
        $self->console_get_drive();
    } else {

    }
}

1;

__END__