#!/usr/bin/perl

use GD;
use Tk;
use MIME::Base64;

open (DATA, ">graphicsdata");

foreach (<images/*>) {
   my $type = (split/\//, $_)[1];
   foreach (<$_/*.gif>) {
      my $name = (split /\./,((split/\//, $_)[2]))[0];
      print "Adding imagedata to datafile: $type/$name ($_).\n";
      open (GIF, $_);
      $data = encode_base64((newFromGif GD::Image(GIF))->gif);
      close GIF;
      print DATA "<" . $type . "/" . $name . ">\n" . $data;
   }
}

close DATA;