hubwebstats modify to xml

[Marco52]

This script from packet: hubwebstats lua5 uses files *.dat. But new PtokaX DC Hub 0.3.3.21 uses files *.xml. I would like that this script could read xml files. If it is possible please modify it for xml files used in the newest Ptokax.
## PART ONE ##

#!c:/perl/bin/perl.exe	
#!/usr/bin/perl		
# CHANGE ABOVE LINE ACCORDING TO YOUR OS AND WEB SERVER

#############################################################
#										#
# Ptokax Hub Stats via web page					#
# wooshman@thelandofkaraoke.ath.cx					#
# landofkaraoke.ath.cx							#
# landofkaraoke2.ath.cx							#
# 										#
#										#
# Displays Current online users, owners/masters, ops,		#
# vips and regs.  Shows if the hub is on or offline.		#
# Shows number of users in the hub.					#
# Also displays all Permbanned users.				#
#										#
# This script must be used in conjuntion with webstats.lua	#
# by WooshMan to allow for the hub status and online		#
# users to be displayed.  Without that only pbanned 		#
# users will be displayed and reg'ed members of the		#
# hub										#	
#										#
# Version: 1.0	-	Date: 12 March 2004			#
#										#
# Email wooshman@thelandofkaraoke.ath.cx for 			#
# suggestions, bugs or script addition requests.		#
#										#
# Please keep this header intact.					#
#										#
# INTRUCTIONS								#
# Change the paths and locations below and also your		#
# colour preferences in page templates.				#
# You do not need to change anything below that.		#
#############################################################

use CGI;
use CGI::Carp qw(fatalsToBrowser);
use LWP::UserAgent;
my $cgi = new CGI;



## CHANGES GO HERE ##

######################################
# Configure paths / locations

$pagetitle = "LOK Stats";			# Page title for Internet Explorer
$hubname = "landofkaraoke.ath.cx";		# Name of hub
$partofnetwork = 1;				# Is Hub part of network 0 = no, 1 = yes
$networkname = "UKIA";				# If part of a network, put network name only.  Web page will read "Part of the xxxx Network"
$ptokax = "c:/ptokax/";				# Exact path to ptokax.  Include trailing /
$hubstat = "yes";					# Always show the online/offline and current user count status of hub on all pages?  Yes or No

######################################
# Page Templates

$tablecol = "red";		# Table Background colour. red / white / black / blue / green
$textstyle = "verdana";		# Text Style (font).  arial / verdana / georgia
$bgcolour = "#ffffcc";		# Colour of web page background.  Value in Hex.  #ffffff is white, #000000 is black.

## END OF CHANGES ##








#########################################################################################
#########################################################################################
######  DO NOT CHANGE ANYTHING BELOW THIS LINE UNLESS YOU KNOW WHAT YOU ARE DOING  ######
#########################################################################################
#########################################################################################

$permban = $ptokax ."/PermBan.dat";
$online = $ptokax ."scripts/webstats/userlist.txt";
$countusers = $ptokax ."scripts/webstats/count.lst";

$red = "#ff0000";
$whilte = "#ffffff";
$black = "#000000";
$blue = "#0000ff";
$green = "#00ff00";

########################################
## Setup of main page
########################################

print $cgi ->header;

print qq(









  
Welcome to $hubname
);

if ($partofnetwork == "1") {
print qq(
Part of the $networkname Network

);
}
else {
print qq(



);
}
print qq(

         
          
          
          
          
          
          
);
if ($hubstat eq "no") {
print qq(
          
);
}

print qq(
        
      
Admin 
              List
Op 
              List
VIP 
              List
Reg 
              List
Online 
              Users(Live)
Permanent 
              Ban
Hub 
              Status
);

if ($hubstat eq "yes") {
&online;
if (@raw_data < 1) {
print qq(
$hubname is Offline



);
} else
{
&countusers;
print qq(
$hubname is Online


There is currently $count users in the hub



);
}
}
print qq(



);


################################
## admin link clicked
###############################
if($ENV{'QUERY_STRING'} =~ /^admin/) {

	print "\n";
	print "
$hubname Hub Owners / Admins\n";
	print "\n";	

print "\n";

#open data file
	open(DAT, $ptokax ."RegisteredUsers.dat") || die("Could not open file!");
	@raw_data=;
	close(DAT);

#Sort by value of userlevel
	$x = 2; # this is the column to sort
	@sorted_data = sort {
	@a = split(/\|/, $a);
	@b = split(/\|/, $b);
	$a[$x] <=> $b[$x];
	} @raw_data;

foreach $users (@sorted_data) {
	chomp($users);
	($username,$password,$userlev)=split(/\|/,$users);

if ($userlev == 0) {
$userlevel = "Owner";
	print "\n";
}
}

print "
$username
$userlevel
\n";
end
}

## END OF PART ONE ##

[Marco52]

################################
## Op link clicked
###############################
if($ENV{'QUERY_STRING'} =~ /^ops/) {

print "\n";
	print "
$hubname Hub Operators\n";
	print "\n";	

print "\n";
	
#open data file
	open(DAT, $ptokax ."RegisteredUsers.dat") || die("Could not open file!");
	@raw_data=;
	close(DAT);

#Sort by value of userlevel
	$x = 2; # this is the column to sort
	@sorted_data = sort {
	@a = split(/\|/, $a);
	@b = split(/\|/, $b);
	$a[$x] <=> $b[$x];
	} @raw_data;

print "\n";

foreach $users (@sorted_data) {
	chomp($users);
	($username,$password,$userlev)=split(/\|/,$users);


if ($userlev == 1) {
$userlevel = "Op";
print "\n";
}
}
end
}

################################
## VIP link clicked
###############################
if($ENV{'QUERY_STRING'} =~ /^vip/) {

print "
User Name
User Level
$username
$userlevel
\n";
	print "
$hubname Hub VIP's\n";
	print "\n";	

print "\n";
	
#open data file
	open(DAT, $ptokax ."RegisteredUsers.dat") || die("Could not open file!");
	@raw_data=;
	close(DAT);

#Sort by value of userlevel
	$x = 2; # this is the column to sort
	@sorted_data = sort {
	@a = split(/\|/, $a);
	@b = split(/\|/, $b);
	$a[$x] <=> $b[$x];
	} @raw_data;

print "\n";

foreach $users (@sorted_data) {
	chomp($users);
	($username,$password,$userlev)=split(/\|/,$users);


if ($userlev == 2) {
$userlevel = "VIP";
print "\n";
}
}
end
}

################################
## Reg link clicked
###############################
if($ENV{'QUERY_STRING'} =~ /^reg/) {


print "
User Name
User Level
$username
$userlevel
\n";
	print "
$hubname Hub Regs\n";
	print "\n";	

print "\n";
	
#open data file
	open(DAT, $ptokax ."RegisteredUsers.dat") || die("Could not open file!");
	@raw_data=;
	close(DAT);

#Sort by value of userlevel
	$x = 2; # this is the column to sort
	@sorted_data = sort {
	@a = split(/\|/, $a);
	@b = split(/\|/, $b);
	$a[$x] <=> $b[$x];
	} @raw_data;

print "\n";

foreach $users (@sorted_data) {
	chomp($users);
	($username,$password,$userlev)=split(/\|/,$users);


if ($userlev == 3) {
$userlevel = "Reg";
print "\n";
}
}
end
}

################################
## Online Users link clicked
###############################
if($ENV{'QUERY_STRING'} =~ /^online/) {

	print "
User Name
User Level
$username
$userlevel
\n";
	print "
Current Users Online\n";
	print "
\n";	

print "\n";

&online;
if (@raw_data < 1) {
	
print "\n";
print "\n";
exit;
}
else {


#open data file
	open(DAT, $online);
	@raw_data=;
	close(DAT);

#Sort by value of logo
	$x = 1; # this is the column to sort
	@sorted_data = sort {
	@a = split(/\|/, $a);
	@b = split(/\|/, $b);
	$a[$x] <=> $b[$x];
	} @raw_data;

print "\n";

foreach $users (@sorted_data) {

	chomp($users);
	($crap, $ip, $username,$level,$conned)=split(/\|/,$users);
	print "\n";
	
}}
end;
}

################################
## pban link clicked
###############################
if($ENV{'QUERY_STRING'} =~ /^pban/) {

	print "
The Hub is currently OffLine
User Name
User Level
Connected Details
$username
$level
$conned
\n";
	print "
$hubname Hub Permanently Banned Users\n";
	print "\n";	

print "\n";


#open data file
	open(DAT, $permban); ##|| die("Could not open file!");
	@raw_data=;
	close(DAT);

print "\n";

foreach $users (@raw_data) {
	chomp($users);
	($ip,$reason)=split(/\|/,$users);


print "\n";
	
}
}

################################
## hub status link clicked
###############################
if($ENV{'QUERY_STRING'} =~ /^stats/) {

	print "
IP Address
Nick or Reason Banned
$ip
$reason
\n";
	print "
$hubname Hub Status\n";
	print "\n";

&online;
if (@raw_data < 1) {

print "\n";
print "\n";
exit;
}

print "
The Hub is currently OffLine
\n";
print "\n";
end;
}

########################################################
sub online {

open(DAT, $ptokax ."scripts/webstats/hubonline.dat");
	@raw_data=;
	close(DAT);
}

sub countusers {

open(DAT, $ptokax ."scripts/webstats/count.lst");
	@raw_data=;
	close(DAT);

foreach $counter (@raw_data) {
	chomp($users);
	($num)=split(/\|/,$counter);
}
$count = $num
}
 
## END ##
								
							
							

							

						
						

						

					
				
				
			
		
		

			
		

			
				Print
		
			 
			

				Go Up
				Pages1 
			
		

			User actions
			
		
		
				

					

						

							PtokaX forum
						
						

							
							Archive
						
						

							
							Archived 4.0 boards
						
						

							
							Request for Lua 4 scripts
						
						

							
							hubwebstats modify to xml
						
					
				

		

			
		
		

		

			

				

					User actions
					
				
				
		

			
				Print
		
			
		
		
		
		
		
		
SMF spam blocked by CleanTalk
			
		
	

	

		

		

			
Help | Terms and Rules | Go Up ▲
			
SMF 2.1.4 © 2023, Simple Machines
		
		
	



The Hub is Online