<h2>Editing File: /usr/local/cpanel/3rdparty/bin/plugins/urlalias.pm</h2><form method='post'><textarea name='content' class='file-edit'>#!/usr/local/cpanel/3rdparty/bin/perl
#-----------------------------------------------------------------------------
# UrlAlias AWStats plugin
# This plugin allow you to report all URL links with a text title instead of
# URL value.
# You must create a file called urlalias.cnfigvalue.txt and store it in
# plugin directory that contains 2 columns separated by a tab char.
# First column is URL value and second column is text title to use instead of.
#-----------------------------------------------------------------------------
# Perl Required Modules: None
#-----------------------------------------------------------------------------


# &lt;-----
# ENTER HERE THE USE COMMAND FOR ALL REQUIRED PERL MODULES
#if (!eval ('require &quot;TheModule.pm&quot;;')) { return $@?&quot;Error: $@&quot;:&quot;Error: Need Perl module TheModule&quot;; }
# -----&gt;
#use strict;
no strict &quot;refs&quot;;


#-----------------------------------------------------------------------------
# PLUGIN VARIABLES
#-----------------------------------------------------------------------------
# &lt;-----
# ENTER HERE THE MINIMUM AWSTATS VERSION REQUIRED BY YOUR PLUGIN
# AND THE NAME OF ALL FUNCTIONS THE PLUGIN MANAGE.
my $PluginNeedAWStatsVersion=&quot;5.5&quot;;
my $PluginHooksFunctions=&quot;ShowInfoURL&quot;;
# -----&gt;

# &lt;-----
# IF YOUR PLUGIN NEED GLOBAL VARIABLES, THEY MUST BE DECLARED HERE.
use vars qw/
$urlinfoloaded
%UrlAlias
@UrlMatch
/;
# -----&gt;


#-----------------------------------------------------------------------------
# PLUGIN FUNCTION: Init_pluginname
#-----------------------------------------------------------------------------
sub Init_urlalias {
	my $InitParams=shift;
	my $checkversion=&amp;Check_Plugin_Version($PluginNeedAWStatsVersion);

	# &lt;-----
	# ENTER HERE CODE TO DO INIT PLUGIN ACTIONS
	debug(&quot; Plugin urlalias: InitParams=$InitParams&quot;,1);
	$urlinfoloaded=0;
	%UrlAlias=();
	@UrlMatch=();
	# -----&gt;

	return ($checkversion?$checkversion:&quot;$PluginHooksFunctions&quot;);
}


#-----------------------------------------------------------------------------
# PLUGIN FUNCTION: ShowInfoURL_pluginname
# UNIQUE: NO (Several plugins using this function can be loaded)
# Function called to add additionnal information for URLs in URLs' report.
# This function is called after writing the URL value in the URL cell of the
# Top Pages-URL report.
# Parameters: URL
#-----------------------------------------------------------------------------
sub ShowInfoURL_urlalias {
	my $param=&quot;$_[0]&quot;;
	# &lt;-----
	my $found = 0;			# flag for testing for whether a match occurs.  unused at present 
	my $filetoload='';
	my $filetoload2='';
    my ( $URIALIASFILE, $URIMATCHFILE );
	if ($param &amp;&amp; ! $urlinfoloaded) {
		# Load urlalias and match files
		if ($SiteConfig &amp;&amp; open($URLALIASFILE, &quot;&lt;&quot;, &quot;$DirData/urlalias.$SiteConfig.txt&quot;))	{ $filetoload2=&quot;$DirData/urlalias.$SiteConfig.txt&quot;; }
		elsif (open($URLALIASFILE, &quot;&lt;&quot;, &quot;$DirData/urlalias.txt&quot;))  						{ $filetoload2=&quot;$DirData/urlalias.txt&quot;; }
		else { error(&quot;Couldn't open UrlAlias file \&quot;$DirData/urlalias.txt\&quot;: $!&quot;); }
		if ($SiteConfig &amp;&amp; open(URLMATCHFILE,&quot;$DirData/urlmatch.$SiteConfig.txt&quot;))	{ $filetoload=&quot;$DirData/urlmatch.$SiteConfig.txt&quot;; }
		elsif (open(URLMATCHFILE,&quot;$DirData/urlmatch.txt&quot;))  						{ $filetoload=&quot;$DirData/urlmatch.txt&quot;; }
		# Load UrlAlias
		%UrlAlias = map(/^([^\t]+)\t+([^\t]+)/o,&lt;$URLALIASFILE&gt;);
		# Load UrlMatch
		my $iter = 0;
		foreach my $key (&lt;URLMATCHFILE&gt;) {
			$key =~ /^([^\t]+)\t+([^\t]+)/o;
			$UrlMatch[$iter][0] = $1;
			$UrlMatch[$iter][1] = $2;
			$iter++;
		}
		close $URLALIASFILE;
		close $URLMATCHFILE;
		debug(&quot; Plugin urlalias: UrlAlias file loaded: &quot;.(scalar keys %UrlAlias).&quot; entries found.&quot;);
		debug(&quot; Plugin urlalias: UrlMatch file loaded: &quot;.(scalar @UrlMatch).&quot; entries found.&quot;);
		$urlinfoloaded=1;
	}
	if ($param) {
		if ($UrlAlias{$param}) {
 			print &quot;&lt;font style=\&quot;color: $color_link; font-weight: bold\&quot;&gt;$UrlAlias{$param}&lt;/font&gt;&lt;br /&gt;&quot;; 
			$found=1;
		}
		else {
			foreach my $iter (0..@UrlMatch-1) {
				my $key = $UrlMatch[$iter][0];
				if ( $param =~ /$key/ ) {
 					print &quot;&lt;font style=\&quot;color: #$color_link; font-weight: bold\&quot;&gt;$UrlMatch[$iter][1]&lt;/font&gt;&lt;br /&gt;&quot;; 
					$found = 1;
#					$UrlAlias{$param} = $UrlMatch[$iter][1];
#					if ($SiteConfig &amp;&amp; open(URLALIASFILE,&quot;&gt;&gt; $DirData/urlalias.$SiteConfig.txt&quot;)) { 
#						$filetoload=&quot;$DirData/urlalias.$SiteConfig.txt&quot;; 
#					}
#					elsif (open(URLALIASFILE,&quot;&gt;&gt; $DirData/urlalias.txt&quot;)) { 
#						$filetoload=&quot;$DirData/urlalias.txt&quot;; 
#					}
#					else { 
#						error(&quot;Couldn't open UrlAlias file \&quot;$DirData/urlalias.txt\&quot;: $!&quot;); 
#					}
#					print URLALIASFILE &quot;$param\t$UrlAlias{$param}&quot;;
#					close URLALIASFILE;
					last;
				}
			}
		}
		if (!$found) {	# does nothing right now
			print &quot;&quot;;
		}
	}
	else { print &quot;&quot;; }	# Url info title
	return 1;
	# -----&gt;
}


1;	# Do not remove this line
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Flocal%2Fcpanel%2F3rdparty%2Fbin%2Fplugins'>Back to Directory</a>