Hi. It should be as simple as editing /admin/Plugins/Spider.pm;
my ($tag, %attr) = @_;
if ($tag eq 'a') { #or $tag eq 'img'
foreach my $key (keys %attr) {
if ($key eq 'href' or $key eq 'src') {
my $link_url = URI->new($attr{$key});
my $full_url = $link_url->abs($base_url);
if ($full_url !~ /\.cgi/i) {
push(@urls,$full_url);
} else {
push(@unused_urls,$full_url);
}
}
}
}
}
...to
my ($tag, %attr) = @_;
if ($tag eq 'a') { #or $tag eq 'img'
foreach my $key (keys %attr) {
if ($key eq 'href' or $key eq 'src') {
my $link_url = URI->new($attr{$key});
my $full_url = $link_url->abs($base_url);
push(@urls,$full_url);
}
}
}
}
}
Cheers
Andy (mod)
andy@ultranerds.co.uk
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package | GLinks ULTRA Package PRO
Links SQL Plugins | Website Design and SEO | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
Code:
sub extract_links { my ($tag, %attr) = @_;
if ($tag eq 'a') { #or $tag eq 'img'
foreach my $key (keys %attr) {
if ($key eq 'href' or $key eq 'src') {
my $link_url = URI->new($attr{$key});
my $full_url = $link_url->abs($base_url);
if ($full_url !~ /\.cgi/i) {
push(@urls,$full_url);
} else {
push(@unused_urls,$full_url);
}
}
}
}
}
...to
Code:
sub extract_links { my ($tag, %attr) = @_;
if ($tag eq 'a') { #or $tag eq 'img'
foreach my $key (keys %attr) {
if ($key eq 'href' or $key eq 'src') {
my $link_url = URI->new($attr{$key});
my $full_url = $link_url->abs($base_url);
push(@urls,$full_url);
}
}
}
}
}
Cheers
Andy (mod)
andy@ultranerds.co.uk
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package | GLinks ULTRA Package PRO
Links SQL Plugins | Website Design and SEO | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
