This may not be perfect as I didn’t work on it all that long. Hopefully it helps someone.
#!/usr/bin/perl -w
#Author: Lance Vermilion
#Purpose: Convert Coppermine directory/pictures into
# a xml document just like picasa makes.
####################################################
#
# Define some variables
#
my $ablumname="Test";
my $localpath='/var/www/vhosts/gheek.net/httpdocs';
my $webpath='/cpg/albums/uploads/WinchesterMansion';
my @filesnormal;
my @files;
#
# We need to get a list of all the normal_[abc].jpg files
#
opendir(DIR, $localpath . $webpath);
@filesnormal = grep(/normal_.*\.jpg$/i,readdir(DIR));
closedir(DIR);
#
# Need to figure out how many pictures there are.
#
my $maxcount = scalar(@filesnormal);
foreach $file (@filesnormal) {
$file =~ s/normal_//g;
print "$file\n";
push(@files, $file);
}
print "
-
$ablumname
$maxcount
-
\n";
$maxcount--;
for ( $count=0; $count<=$maxcount; $count++ )
{
print ' - ' . "\n";
print " true\n" if $count eq 1;
print " false\n" if $count eq 1;
print " true\n" if $count gt 1;
print " false\n" if $count gt 1;
print " true\n" if $maxcount eq $count;
print " false\n" if $maxcount gt $count;
print " true\n" if $maxcount gt $count;
print " false\n" if $maxcount eq $count;
print " \n" if $count eq 1;
print " \n" if $count gt 1;
print " normal_$files[0]\n";
print " $files[0]\n";
print " normal_$files[$count+1]\n" if $maxcount gt $count;
print " \n" if $maxcount eq $count;
print " thumb_$files[$count+1]\n" if $maxcount gt $count;;
print " \n" if $maxcount eq $count;
print " \n" if $count eq 1;
print " \n" if $count gt 1;
print " normal_$files[$maxcount-1]\n";
print " thumb_$files[$maxcount-1]\n";
print " 400\n";
print " 300\n";
print " thumb_$files[$count]\n";
print " 100\n";
print " 75\n";
print " normal_$files[$count]\n";
print " " . ($count + 1) . "\n";
print " $webpath/normal_$files[$count]\n";
print " itemNameOnly UNDEFINED (9)\n";
print " normal_$files[$count]\n";
print " itemSize UNDEFINED (9)\n";
print ' ' . "\n";
}
print ' ' . "\n";
print '
';
Gheek.net 