#!/usr/bin/perl -W
# -*- cperl -*-
use warnings;
use strict;

my (undef, $rev) = split /:/ => `svn info . | grep ^Revision`;
chomp $rev;
$rev =~ s/\s+//g;

die if $rev +0 < 700;

my @fileset = split /\0/ => `find . -name \*.swf -print0`;

open STDOUT, '>', "Items_Assets.$rev.as";
print "/*Tootsville Item_Assets.$rev.as;Copyright Res Interactive, LLC, All Rights Reserved*/var Item_Assets=new Array();";

for my $file (@fileset) {
  $file =~ s/^\.\///g;
  print "Item_Assets['$file']=\"";
  open FILE, '<', $file or die "can't open $file: $!";
  binmode FILE;
  my $indata = '';
  my $offset = 0;
  while (read FILE, $indata, 4*1024, $offset) {
    $indata =~ s/\\/\\\\/g;
    $indata =~ s/\r/\\r/g;
    $indata =~ s/\n/\\n/g;
    $indata =~ s/\'/\\'/g;
    $indata =~ s/\"/\\"/g;
    print $indata;
  } continue {
    $offset += 4*1024;
  }
  close FILE or die "can't close $file: $!";
  print '";';
}

print "\n";

system gzip => -9 => "Items_Assets.$rev.as";