Automatic Picture Upload For Tiltviewer Gallery

If you are using Tiltviewer you probably know that if you want to upload let's say 10 new pictures you have to edit manually the Gallery.xml file and enter each filename and attribute by hand. This is very frustrating.

This small script will do this automatically for you: just put the file in the right directory, change this script accordingly and you are good to go !

#!/usr/bin/perl

system ("/bin/cat /dev/null >gal.xml");

open (XML, ">>gal.xml");
my $somedir = './imgs';
opendir DH, $somedir or die "Cannot open $somedir: $!";
my @files = grep { ! -d } readdir DH;
closedir DH;

print XML "<tiltviewergallery>
        <photos>";


        foreach (@files) {
                chomp $_;
                my $file = $_;
                print XML "<photo imageurl=\"imgs/$file\" linkurl=\"http://mydomain/imgs/$file\"
                         showFlipButton=\"true\">
                                     <title>\"$file\"</title>
                                                    <description>\"$file\"</description></photo>";


                }

                       print XML "</photos>
                        </tiltviewergallery>";