#!/usr/bin/perl
use strict;

if (!$ARGV[0]) {
print “USAGE: [perl] “, __FILE__,” \n”;
exit();
}

opendir(DIR, $ARGV[0]);
my @files = readdir(DIR);
closedir(DIR);

if ($ARGV[1] ne ”) {
my $ext = $ARGV[1] ;
$ext = join(‘|’, split /,/, $ARGV[1]);
@files = grep /\.($ext)$/, @files;
} else {
@files = grep /\.jpg$/, @files;
}

open OUT, “>$ARGV[0]/background.xml”;
print OUT q*


2009
08
04
00
00
00


*;

for(my $i=1; $i<=$#files; $i++) {
print OUT qq*

1795.0
$ARGV[0]/$files[$i-1]


5.0
$ARGV[0]/$files[$i-1]
$ARGV[0]/$files[$i]

*;
}

print OUT qq*

1795.0
$ARGV[0]/$files[$#files]


5.0
$ARGV[0]/$files[$#files]
$ARGV[0]/$files[0]

*;
print OUT ‘’;

close OUT;