#!/d/bin/Perl/bin/perl -w
# -*- Mode: perl; indent-tabs-mode: nil; c-basic-offset: 4  -*-

#############################################################################
## Copyright (C) 2005-2007 Novell, Inc.
## Copyright (C) 2005-2007 Rodney Dawes
##
## Authors: Rodney Dawes <dobey.pwns@gmail.com>
##

use strict;
use XML::Simple;
use Getopt::Long;

my $PROGRAM = "icon-name-mapping";

my $condir;
my $LN_S = ($^O eq 'MSWin32' ? 'cp' : 'ln -s');
my $mapdir = $ENV{INU_DATA_DIR} || "/d/dev/gnome.org/gnome-windows/prefix/tango-icon-theme/icon-naming-utils-0.8.90/share/icon-naming-utils";

############################################################################
my @default_getopt_config = ("permute", "pass_through", "bundling",
			     "no_auto_abbrev", "no_ignore_case");

Getopt::Long::Configure (@default_getopt_config);
GetOptions ("help|h" => \&usage,
	    "context|c=s" => \$condir);


############################################################################

sub tls_load_mapping {
    my $filename = shift;

    my $mapping = XML::Simple::XMLin ($filename,
				      keyattr => [ qw(dir) ],
				      forcearray => [ qw(context icon link) ]);
    return $mapping;
}

sub tls_map_icons {
    my $mapping = shift;
    my $dirname = shift;

    print "Setting up icon mapping for: $dirname\n";
    chomp (my $cwd = `pwd`);
    chdir $dirname;
    foreach my $icon (@{$mapping->{context}->{$dirname}->{icon}}) {
        if (-f "$icon->{name}.png") {
            foreach my $legacy (@{$icon->{link}}) {
                system ("$LN_S $icon->{name}.png $legacy.png")
                    if (! -e "$legacy.png");
            }
        } elsif (-f "$icon->{name}.svg") {
            foreach my $legacy (@{$icon->{link}}) {
                system ("$LN_S $icon->{name}.svg $legacy.svg")
                    if (! -e "$legacy.svg");
            }
        }

        if (-f "$icon->{name}.icon") {
            foreach my $legacy (@{$icon->{link}}) {
                system ("$LN_S $icon->{name}.icon $legacy.icon")
                    if (! -e "$legacy.icon");
            }
        }
    }
    chdir $cwd;
}

sub usage {
    print "Usage: $PROGRAM [OPTIONS] ...

  -c, --context=<dirname>       Set up mapping for Context <dirname>

This utility must be run from the <theme>/<size> directory, with a
context passsed in as the argument.

";

    exit 1;
}

if (not defined $condir) {
    usage ();
} else {
    my $iconmap = tls_load_mapping ("$mapdir/legacy-icon-mapping.xml");
    tls_map_icons ($iconmap, $condir);
}
