#!/usr/bin/perl -w
use File::Basename;
use strict;
die '$RPM_BUILD_ROOT is not set!' unless $ENV{'RPM_BUILD_ROOT'};
`mkdir -p $ENV{'RPM_BUILD_ROOT'}/usr/share/icons/hicolor/16x16/apps`;
`mkdir -p $ENV{'RPM_BUILD_ROOT'}/usr/share/icons/hicolor/32x32/apps`;
`mkdir -p $ENV{'RPM_BUILD_ROOT'}/usr/share/icons/hicolor/48x48/apps`;

my $outfile;

sub convert_to {
    my ($infile, $outfile, $geometry) =@_;
    unless (-e $outfile) {
    	print STDERR "rpmbuild-helper-iconsdir: converted ".&basename($infile)." to $geometry\n";
        system ("convert $infile -resize $geometry $outfile") and die $!;
    }
}

foreach my $pixmapfile (glob $ENV{'RPM_BUILD_ROOT'}.'/usr/share/icons/hicolor/48x48/apps/*.*') {
	my $filename=basename($pixmapfile);
	&convert_to($pixmapfile, $ENV{'RPM_BUILD_ROOT'}.'/usr/share/icons/hicolor/32x32/apps/'.$filename, 32);
	&convert_to($pixmapfile, $ENV{'RPM_BUILD_ROOT'}.'/usr/share/icons/hicolor/16x16/apps/'.$filename, 16);
}
foreach my $pixmapfile (glob $ENV{'RPM_BUILD_ROOT'}.'/usr/share/pixmaps/*.*') {
	my $filename=basename($pixmapfile);
	&convert_to($pixmapfile, $ENV{'RPM_BUILD_ROOT'}.'/usr/share/icons/hicolor/48x48/apps/'.$filename, 48);
	&convert_to($pixmapfile, $ENV{'RPM_BUILD_ROOT'}.'/usr/share/icons/hicolor/32x32/apps/'.$filename, 32);
	&convert_to($pixmapfile, $ENV{'RPM_BUILD_ROOT'}.'/usr/share/icons/hicolor/16x16/apps/'.$filename, 16);
}
