UBB.Developers Forums UBB.classic V6 MultiHack Mods [6.3x] Stats Hack 1.4 [Finished]

 
q!Cookie_Number! => q!2452562.2037!

 

######################################
### Suche in vars_wordlets_mods.cgi:
######################################

%vars_wordlets_mods = (

#######################
### ersetze es durch:
#######################

%vars_wordlets_mods = (
statistics_header			=> "<b>Statistics</b>",
statistics_pntf				=> "Statistics",
statistics_total_posts			=> "Total Posts:",
statistics_total_topics			=> "Total Topics:",
statistics_total_forums			=> "Total Forums:",
statistics_total_members		=> "Total Members:",
statistics_average_member_posts 	=> "Average Posts per Member:",
statistics_average_posts		=> "Average Posts per Forum:",
statistics_average_topic		=> "Average Topics per Forum:",
statistics_topics_per_day		=> "Topics per Day:",
statistics_posts_per_day		=> "Posts per Day:",
statistics_days_ago_1			=> "This board was set up",
statistics_days_ago_2			=> "days ago.",
statistics_newest_member		=> "Last member to register is",
statistics_featured_member		=> "Featured member is",
statistics_last_post_by			=> "Last post by",
statistics_in				=> "in",
statistics_at				=> "at",
statistics_on				=> "on",
statistics_monthly_hits			=> "Page Views",
statistics_pageviews			=> "Total Page Views:",

------------------------------------------------------------------------

###############################
### Suche in ultimatebb.cgi:
###############################

use vars qw(

###############################
### füge folgendes in den 
### nachfolgenden String ein :
###############################

%vars_wordlets_mods 

###################
### dann suche :
###################

foreach my $file (qw(

#################################
### ersetze es durch :
### (auf die leerstelle achten)
#################################

foreach my $file (qw(wordlets_mods 

------------------------------------------------------------------------

###############################
### Suche in cp.cgi:
###############################

foreach my $file (qw(

#################################
### ersetze es durch :
### (auf die leerstelle achten)
#################################

foreach my $file (qw(wordlets_mods 

------------------------------------------------------------------------

###############################
### Suche in cp_wordlets.cgi:
###############################

		&LoadTemplate("cp_set_wordlets");
		&CPBottom;


	} elsif ($_[0] eq 'wordlets_err') {

#################################
### ersetze es durch :
#################################

		&LoadTemplate("cp_set_wordlets");
		&CPBottom;


	} elsif ($_[0] eq 'wordlets_mods') {

		%wordlets_fill = %vars_wordlets_mods;

		$Hiddens = qq%<INPUT TYPE="HIDDEN" NAME="ubb" VALUE="set_wordlets">
<INPUT TYPE="HIDDEN" NAME="type" VALUE="$_[0]">
%;
		$CurrentTab = qq%$vars_wordlets_mods{mod_wordlets}%;

		# note: the wordlets are already required... no need to grab them

		&CPHeader;
		&CPFooter;
		&CPTop;
		&LoadTemplate("cp_set_wordlets");
		&CPBottom;


	} elsif ($_[0] eq 'wordlets_err') {

###################
### dann suche :
###################

	if ($in{type} eq 'wordlets') {
		%update_wordlets = %vars_wordlets;

#################################
### ersetze es durch :
#################################

	if ($in{type} eq 'wordlets') {
		%update_wordlets = %vars_wordlets;
	} elsif ($in{type} eq 'wordlets_mods') {
		%update_wordlets = %vars_wordlets_mods;
		
------------------------------------------------------------------------

###############################
### Suche in cp_common.pl:
###############################

          document.writeln("<option value=$vars_config{CGIURL}/cp.cgi?ubb=wordlets_img&r=$ran> - $vars_wordlets_cp{wordlet_frag_image}</option>");

#########################
### ersetze es durch :
#########################

          document.writeln("<option value=$vars_config{CGIURL}/cp.cgi?ubb=wordlets_img&r=$ran> - $vars_wordlets_cp{wordlet_frag_image}</option>");
          document.writeln("<option value=$vars_config{CGIURL}/cp.cgi?ubb=wordlets_mods&r=$ran> - Modifications</option>");
          
------------------------------------------------------------------------


#################################
### suche in  ultimatebb.cgi
#################################

foreach my $file (qw(

#################################
### ersetze es durch :
### (auf die leerstelle achten)
#################################

foreach my $file (qw(statistics  

#################
### dann suche:
#################

use vars qw(

###############################
### füge folgendes in den 
### nachfolgenden String ein :
###############################

%vars_statistics 

#################
### dann suche:
#################

if ($ubb eq 'login') {
	&set_page_elements;
	&LoadTemplate("public_login");
	exit(0);
}

########################
### ersetze es durch :
########################

if ($ubb eq 'login') {
	&set_page_elements;
	&LoadTemplate("public_login");
	exit(0);
}

if ($ubb eq 'statistics') {
	&set_page_elements;
	&RequireCode("$vars_config{CGIPath}/ubb_statistics.cgi");
	&DisplayStatistics;
	exit(0);
}

if ($ubb eq 'statistics_ssi') {
	&RequireCode("$vars_config{CGIPath}/ubb_statistics.cgi");
	&DisplaySSIStatistics;
	exit(0);
}

------------------------------------------------------------------------

#################################
### suche in  ubb_lib.cgi
#################################

	my %types = (

########################
### ersetze es durch :
########################

	my %types = (
	        'statistics' => q^|statistics|^,

#################
### dann suche:
#################

	foreach my $type (qw(

#################################
### ersetze es durch :
### (auf die leerstelle achten)
#################################

	foreach my $type (qw(statistics 
	
------------------------------------------------------------------------

######################################
### suche in  ubb_forum_summary.cgi
######################################

&set_page_elements;

########################
### ersetze es durch :
########################

&set_page_elements;

&RequireCode("$vars_config{CGIPath}/ubb_statistics.cgi");

#################
### dann suche:
#################

$ThisHTML .= &PageBottom;

########################
### ersetze es durch :
########################

	&DisplayStats;
	$ThisHTML .= &PageBottom;

#################
### dann suche:
#################

$ThisHTML .= &Cat_Page_Bottom;

########################
### ersetze es durch :
########################

	$ShColSpan2 = $vars_statistics{'ShColSpan2'};
	$vars_statistics{'ShColSpan2'} = 0;
	&DisplayStats;
	$ThisHTML .= &Cat_Page_Bottom;

------------------------------------------------------------------------

#################################
### suche in  cp.cgi
#################################

}    # end get_archives

########################
### ersetze es durch :
########################

}    # end get_archives

if (($ubb eq 'vars_statistics') && ($status eq 'Administrator')) {
	&RequireVars("$vars_config{VariablesPath}/vars_statistics.cgi");
	&RequireCode("$vars_config{CGIPath}/cp_statistics.cgi");
	&StatisticsSettings;
	exit(0);
}

if (($ubb eq 'set_vars_statistics') && ($status eq 'Administrator')) {
	&RequireCode("$vars_config{CGIPath}/cp_statistics.cgi");
	&SetStatisticsSettings;
	exit(0);
}

------------------------------------------------------------------------

#################################
### suche in  cp_styles.cgi
#################################

	if ($_[0] eq "misc") {

########################
### ersetze es durch :
########################

	if ($_[0] eq "misc") {
		$template_match{statistics}   = $in{statistics};

------------------------------------------------------------------------

#######################################
### suche in  vars_template_match.cgi
#######################################

%template_match = (

########################
### ersetze es durch :
########################

%template_match = (
    q!statistics! => q!1!,

#################
### dann suche:
#################

%template_html = (

########################
### ersetze es durch :
########################

%template_html = (
    q!statistics! => q!!,
    
------------------------------------------------------------------------

#######################################
### suche in  cp_common.pl
#######################################

          document.writeln("<option value=$vars_config{CGIURL}/cp.cgi?ubb=faq&r=$ran> - $vars_wordlets_cp{menu_faq}</option>");

########################
### ersetze es durch :
########################

          document.writeln("<option value=$vars_config{CGIURL}/cp.cgi?ubb=faq&r=$ran> - $vars_wordlets_cp{menu_faq}</option>");
          document.writeln("<option value=$vars_config{CGIURL}/cp.cgi?ubb=vars_statistics&r=$ran> - Statistics Settings</option>");

------------------------------------------------------------------------

#######################################
### suche in  cp_templates_advanced.pl
#######################################

		} elsif ($key eq "registration") {
			$Type = $vars_wordlets_cp{style_template_assoc_reg};

########################
### ersetze es durch :
########################

		} elsif ($key eq "registration") {
			$Type = $vars_wordlets_cp{style_template_assoc_reg};
		} elsif ($key eq "statistics") {
			$Type = "Statistics Page";

------------------------------------------------------------------------

#######################################
### suche in  public_forum_summary.pl
#######################################

sub PageBottom {
	my $Bottom = qq~

########################
### ersetze es durch :
########################

sub PageBottom {
	my $Bottom = qq~
	
<tr bgcolor="$vars_style{CategoryStripColor}">
	<td colspan="$ColSpan">
<a href="$vars_config{CGIURL}/ultimatebb.cgi?ubb=statistics"><font size="$vars_style{TextSize}" face="$vars_style{FontFace}" color="$vars_style{CategoryStripTextColor}">$vars_wordlets_mods{'statistics_header'}</font></a>
	</td>
</tr>
<tr>
	<td bgcolor="$vars_style{AltColumnColor1}" valign="top" align="center"><img src="$vars_config{NonCGIURL}/$vars_statistics{'GraphIcon'}" border="0" alt="" /></td>
	<td colspan="$vars_statistics{ShColSpan1}" valign="top" bgcolor="$vars_style{AltColumnColor2}" width="50%">
<font size="1" face="$vars_style{FontFace}">$DisplayFH</font>
	</td>
</tr>

#################
### dann suche:
#################

sub Cat_Page_Bottom {
	my $Bottom = qq~

$TBB

########################
### ersetze es durch :
########################

sub Cat_Page_Bottom {
	my $Bottom = qq~

$TBB




$TBT
<tr bgcolor="$vars_style{CategoryStripColor}">
	<td colspan="3">
<a href="$vars_config{CGIURL}/ultimatebb.cgi?ubb=statistics"><font size="$vars_style{TextSize}" face="$vars_style{FontFace}" color="$vars_style{CategoryStripTextColor}">$vars_wordlets_mods{'statistics_header'}</font></a>
	</td>
</tr>
<tr>
	<td bgcolor="$vars_style{AltColumnColor1}" valign="top" align="center"><img src="$vars_config{NonCGIURL}/$vars_statistics{'GraphIcon'}" border="0" /></td>
	<td bgcolor="$vars_style{AltColumnColor2}" valign="top" width="50%">
<font size="1" face="$vars_style{FontFace}">$DisplayFH</font>
	</td>
</tr>
$TBB

------------------------------------------------------------------------

#######################################
### suche in  public_common.pl
#######################################

	if ($vars_search{AllowSearch} ne 'FALSE') {
		# Search
		my $this_forum = "";
		if (exists $in{'f'}) {
			$this_forum = ";search_forum=$in{f}";
		} else {
			$this_forum = "";
		}
		push(@items, qq(<a href="$vars_config{CGIURL}/ultimatebb.cgi?ubb=search$this_forum" title="$vars_wordlets{search}">$vars_wordlets{search_link}</a>));
	} # end if

########################
### ersetze es durch :
########################

	if ($vars_search{AllowSearch} ne 'FALSE') {
		# Search
		my $this_forum = "";
		if (exists $in{'f'}) {
			$this_forum = ";search_forum=$in{f}";
		} else {
			$this_forum = "";
		}
		push(@items, qq(<a href="$vars_config{CGIURL}/ultimatebb.cgi?ubb=search$this_forum" title="$vars_wordlets{search}">$vars_wordlets{search_link}</a>));
	} 
	
	if ($vars_statistics{'MBL'}) {
		# Statistics
		push(@items, qq(<a href="$vars_config{CGIURL}/ultimatebb.cgi?ubb=statistics">$vars_wordlets_mods{'statistics_pntf'}</a>));
	}
	
	# end if

------------------------------------------------------------------------

#######################################
### suche in  public_pntf_admin.pl
#######################################

		} else {
			$location .= qq(<a href="$vars_config{CGIURL}/ultimatebb.cgi?ubb=pntf_admin;f=$f">) . (&GetForumRecord($f))[1] . qq(</a>);
		} # end if

########################
### ersetze es durch :
########################

		} else {
			$location .= qq(<a href="$vars_config{CGIURL}/ultimatebb.cgi?ubb=pntf_admin;f=$f">) . (&GetForumRecord($f))[1] . qq(</a>);
		} 
		
		} elsif($gah eq "5.7475") {
		$location = qq(<a href="$vars_config{CGIURL}/ultimatebb.cgi?ubb=statistics">$vars_wordlets_mods{statistics_pntf}</a>);
		
		# end if

------------------------------------------------------------------------

#######################################
### suche in  ubb_lib_pntf.cgi
#######################################

		if($in->{ubb} !~ m/^(

########################
### ersetze es durch :
########################

		if($in->{ubb} !~ m/^(statistics|

#################
### dann suche:
#################

	#9999.1 - LID for front page category 1

########################
### ersetze es durch :
########################

	#9999.1 - LID for front page category 1
	#5.7475 - LID for Statistics

#################
### dann suche:
#################

		return sprintf("%04d%04d.%04d", $in{f}, $in{DaysPrune} &#0124;&#0124; 0, $in{p} &#0124;&#0124; 0);

########################
### ersetze es durch :
########################

			return sprintf("%04d%04d.%04d", $in{f}, $in{DaysPrune} &#0124;&#0124; 0, $in{p} &#0124;&#0124; 0);
		
	} elsif ($in{ubb} eq "statistics") {

		#$self->warn("Viewing Statistics");
		return 5.7475;

------------------------------------------------------------------------

#########################################
### suche in  public_display_profile.pl
#########################################

					$location = qq($vars_wordlets_pntf{pntf_forum}: <a href="$ULTIMATEBB?ubb=forum;f=$f">) . (&GetForumRecord($f))[1] . qq(</a>);

########################
### ersetze es durch :
########################

					$location = qq($vars_wordlets_pntf{pntf_forum}: <a href="$ULTIMATEBB?ubb=forum;f=$f">) . (&GetForumRecord($f))[1] . qq(</a>);
				} elsif($gah eq "5.7475") {
					$location = qq(<a href="$vars_config{CGIURL}/ultimatebb.cgi?ubb=statistics">$vars_wordlets_mods{statistics_pntf}</a>);

------------------------------------------------------------------------







###############################################################################
# if you have wol list hack, open public_pntf_summary.pl (template) and find: #
###############################################################################

					$location = qq($vars_wordlets_pntf{pntf_forum}: <a href="$ULTIMATEBB?ubb=forum;f=$f">) . (&GetForumRecord($f))[1] . qq(</a>);

##############
# add below: #
##############

				} elsif($gah eq "5.7475" && !$in{f}) {
					$location = qq(<a href="$vars_config{CGIURL}/ultimatebb.cgi?ubb=statistics">$vars_wordlets_mods{statistics_pntf}</a>);

#####################
# clear your cache! #
#####################

------------------------------------  FAQ  -----------------------------------
Q: I can't find the stats on forum home, where are they?
A: You forgot to clear your cache. Clear it and reload the page!

Q: Can you insert birthdays?
A: This feature of comparing birthdays (showing the oldest and the youngest
   member) is not planned, just because that would require a search through
   all member files and this is - especially on huge UBB's - a too extensive
   process.

Q: I just would like to know what is exactly the "featured member"?
A: The featured member is randomly choosen. Some users like it to read their
   name on forum home, it's maybe a special honor for them.

Q: I installed it but there is no text in it. I just got numbers in it.
A: You installed the wordlets wrong. Please read mods_wordlet_install.txt and
   go through it again.

Q: There are no values displayed. How can I make them visible?
A: Probably your ubb_statistics.cgi isn't installed properly, install it again
   like described above. You may hacked ultimatebb.cgi wrong, make sure that
   all is correct hacked.

Q: I can't find the cp_common.pl or cp_vars_statistics.pl in my cgi-bin or
   anywhere on my Server!
A: These files are templates they are placed in /noncgi/Templates/

Q: How can I display the stats via SSI?
A: Make sure your server supports SSI, create a file with a .shtml or .ssi
   extension, then put the following code in there and modifiy the path
   <!--#include virtual="/ubbcgi/ultimatebb.cgi?ubb=statistics_ssi" -->
   
Q: My tables on forum home are screwed up. What can I do to get rid of this?
A: In the Controlpanel you have Col Span Right and Left. Play arround with
   the values then it should fits. Remember to clear your cache after every
   try!

Q: Where can I change the Style Template Associations?
A: Go into controlpanel: Primary Settings -> Style Templates -> Edit Style
   Template Associations there you are!
 

[/code]I must mention that when I installed the hack, I didn´t find the following line in 
cp_common.pl:  
Code
</pre></div></div>so the line that I had to add below that, I added it below:<br><br> [code]
Please somebody help, thanks a lot.
Forums:  http://www.rompela.com/cgi-rompela/ubbcgi/ultimatebb.cgi 
Ver: 6.3.0