Shell Programming and Scripting

<!-- This animation will start at time shown above. -->
  <static>
    <duration>600.0</duration>
    <file>Path1</file>
  </static>
  <transition>
    <duration>5.0</duration>
    <from>Path1</from>
    <to>Path2</to>
  </transition>

~/.gconf/desktop/gnome/background/%gconf

my ($transdur,$statdur) = ('15.0','20.0');

#!/usr/bin/perl
# mySlideShow
# Author: Eric de Hont
# Mail: edehont@xs4all.nl
# Date: wo mrt 23 01:43:16 CET 2011
##################################################

use strict;
use warnings;
use List::Util qw(shuffle);
use Cwd;

my $dir = getcwd . '/';

my $head = '<background>
  <starttime>
    <year>2009</year>
    <month>08</month>
    <day>04</day>
    <hour>00</hour>
    <minute>00</minute>
    <second>00</second>
  </starttime>
<!-- This animation will start at midnight. -->
';

my $foot = '</background>';

#my ($transdur,$statdur) = ('5.0','1795.0');
my ($transdur,$statdur) = ('15.0','20.0');

my @pictures;

opendir(DIR, '.') or die "can't open current directory: $!";
while (defined(my $picture = readdir(DIR))) {
  next if $picture =~ /^\.\.?$/; #skip . and ..
  next unless $picture =~ /^.+\.(jpg|png|gif)$/i;
  push @pictures, $dir.$picture;
}
closedir(DIR);

@pictures = shuffle(@pictures); # Randomize the pictures

# Start
my @XML = $head;

die "No pictures found." unless @pictures > 0;

# First picture

push @XML, "  <static>
    <duration>$statdur</duration>
    <file>$pictures[0]</file>
  </static>\n";

# The bulk
for (my $cur = 1; $cur < @pictures; $cur++) {
  push @XML, "  <transition>
    <duration>$transdur</duration>
    <from>$pictures[$cur - 1]</from>
    <to>$pictures[$cur]</to>
  </transition>
  <static>
    <duration>$statdur</duration>
    <file>$pictures[$cur]</file>
  </static>\n";
}

# The last picture

push @XML, "  <transition>
    <duration>$transdur</duration>
    <from>$pictures[-1]</from>
    <to>$pictures[0]</to>
  </transition>\n";

# Finish the XML

push @XML, $foot;

# write XML

open(XML, '> background-1.xml') or die "Couldn't open background-1.xml for writing: $!\n";
print XML @XML;
close(XML);