Gecko [ theprintave.ca ]

Linux webserver 6.8.0-49-generic #49~22.04.1-Ubuntu SMP PREEMPT_DYNAMIC Wed Nov 6 17:42:15 UTC 2 x86_64
Apache/2.4.52 (Ubuntu)
Server IP : 192.168.1.1 & Your IP : 18.217.203.108
Domains : Cant Read [ /etc/named.conf ]
User : www-data

Name	Size	Permission	Date
hanchors	1.17 KB	-rwxr-xr-x	2021-03-04 18:05
hbody	729 B	-rwxr-xr-x	2021-03-04 18:05
hdisable	740 B	-rwxr-xr-x	2021-03-04 18:05
hdump	708 B	-rwxr-xr-x	2021-03-04 18:05
hform	2.44 KB	-rwxr-xr-x	2021-03-04 18:05
hlc	717 B	-rwxr-xr-x	2021-03-04 18:05
hrefsub	3 KB	-rwxr-xr-x	2021-03-04 18:05
hstrip	1.73 KB	-rwxr-xr-x	2021-03-04 18:05
htext	612 B	-rwxr-xr-x	2021-03-04 18:05
htextsub	936 B	-rwxr-xr-x	2021-03-04 18:05
htitle	461 B	-rwxr-xr-x	2021-03-04 18:05

Rename

#!/usr/bin/perl

# This script cleans up an HTML document

use strict;
use warnings;
use HTML::Parser ();

# configure these values
my @ignore_attr = qw(bgcolor background color face style link alink vlink text
    onblur onchange onclick ondblclick onfocus onkeydown onkeyup onload
    onmousedown onmousemove onmouseout onmouseover onmouseup
    onreset onselect onunload
);
my @ignore_tags     = qw(font big small b i);
my @ignore_elements = qw(script style);

# make it easier to look up attributes
my %ignore_attr = map { $_ => 1 } @ignore_attr;

sub tag {
    my ($pos, $text) = @_;
    if (@$pos >= 4) {

# kill some attributes
        my ($k_offset, $k_len, $v_offset, $v_len) = @{$pos}[-4 .. -1];
        my $next_attr = $v_offset ? $v_offset + $v_len : $k_offset + $k_len;
        my $edited;
        while (@$pos >= 4) {
            ($k_offset, $k_len, $v_offset, $v_len) = splice @$pos, -4;
            if ($ignore_attr{lc substr($text, $k_offset, $k_len)}) {
                substr($text, $k_offset, $next_attr - $k_offset) = "";
                $edited++;
            }
            $next_attr = $k_offset;
        }

# if we killed all attributed, kill any extra whitespace too
        $text =~ s/^(<\w+)\s+>$/$1>/ if $edited;
    }
    print $text;
}

sub decl {
    my $type = shift;
    print shift if $type eq "doctype";
}

sub text {
    print shift;
}

HTML::Parser->new(
    api_version   => 3,
    start_h       => [\&tag, "tokenpos, text"],
    process_h     => ["", ""],
    comment_h     => ["", ""],
    declaration_h => [\&decl, "tagname, text"],
    default_h     => [\&text, "text"],

ignore_tags     => \@ignore_tags,
    ignore_elements => \@ignore_elements,
)->parse_file(shift)
    || die "Can't open file: $!\n";