Gecko [ www.vortexaion.com ]

Windows NT KAMIDAKI 10.0 build 19045 (Windows 10) AMD64
Apache/2.4.58 (Win64) OpenSSL/3.1.3 PHP/8.3.9
Server IP : 192.168.3.16 & Your IP : 216.73.216.140
Domains : Cant Read [ /etc/named.conf ]
User : SISTEMA

Name	Size	Permission	Date
GroupIcon.pm	1.5 KB	-rw-rw-rw-	2011-05-26 16:14
Icon.pm	1.04 KB	-rw-rw-rw-	2011-05-26 16:14
Manifest.pm	1.89 KB	-rw-rw-rw-	2011-05-26 16:14
Version.pm	8.52 KB	-rw-rw-rw-	2011-05-26 16:14

Rename

package Win32::Exe::Resource::GroupIcon;

use strict;
use base 'Win32::Exe::Resource';
use constant FORMAT => (
    Magic		=> 'a2',
    Type		=> 'v',
    Count		=> 'v',
    'Resource::Icon'    => [ 'a14', '{$Count}', 1 ],
);
use constant DEFAULT_ARGS => (
    Magic   => "\0\0",
    Type    => 1,
    Count   => 0,
);
use constant DELEGATE_SUBS => (
    'IconFile'	=> [ 'dump_iconfile', 'write_iconfile' ],
);

sub icons {
    my $self = shift;
    $self->members(@_);
}

sub set_icons {
    my ($self, $icons) = @_;

$self->SetCount(scalar @$icons);
    $self->set_members('Resource::Icon' => $icons);

my $rsrc = $self->first_parent('Resources') or return;
	
	# get the existing resource icon ids
	
	my %existids = ();
	for my $groupicon ($rsrc->objects('GroupIcon')) {	
		for my $icon ( $groupicon->icons ) {
			my $id = $icon->Id;
			$existids{$id} = 1;
		}
    }

my $nextid = 0;
    foreach my $idx (0 .. $#{$icons}) {
		$nextid ++;
		while(exists($existids{$nextid})) { $nextid ++; }
		my $icon = $self->icons->[$idx];
		$icon->SetId($nextid);
		$rsrc->insert($self->icon_name($icon->Id), $icons->[$idx]);
    }
}

sub substr {
    my ($self, $id) = @_;
    my $section = $self->first_parent('Resources');
    return $section->res_data($self->icon_name($id));
}

sub icon_name {
    my ($self, $id) = @_;
    my @icon_name = split("/", $self->PathName, -1);
    $icon_name[1] = "#RT_ICON";
    $icon_name[2] = "#$id";
    return join("/", @icon_name);
}