&RequireVars("$vars_config{VariablesPath}/vars_wordlets_mods.cgi");

<td bgcolor="$vars_style{AltColumnColor1}"><b><a href="$vars_config{CGIURL}/links.cgi?/action/cat/id/$linearray[0]">$linearray[1]</a>

@datafile = reverse @datafile;

$indexurl = "<a href="$vars_config{CGIURL}/links.cgi">Index</a>";

 $vars_wordlets_links{links_index} 

 $vars_wordlets_links{links_index_intro} 

$DataLine = "$id||$sitetitle||$siteurl||$desc||$pubname||$time||0||$user_number||$cat";

if (($user_profile[8] ne 'Administrator') && ($username ne $linearray[3])) {&StandardHTML2("$vars_wordlets_links{links_edit_error}"); exit;}

 if (($user_profile[8] ne 'Administrator') && ($username ne $linearray[4])) {&StandardHTML2("You must be a moderator or the person who added this link, to edit the record"); exit;}
 

 if (($user_profile[8] ne 'Administrator') && ($user_profile[8] ne 'Moderator') && ($username ne $linearray[4])) {&StandardHTML2("You must be a moderator or the person who added this link, to edit the record"); exit;} 

 		print header(
		-charset => "$masterCharset",
		-type    => "text/html",
		);
		print qq(
		$hf->[0]

		


		$TBT
		<tr bgcolor="$vars_style{TableBorderColor}">
 

 		print header(
		-charset => "$masterCharset",
		-type    => "text/html",
		);
		print qq(
		$hf->[0]

		

		$vars_wordlets_links{links_index_intro}
		

		$TBT
		<tr bgcolor="$vars_style{TableBorderColor}">
 

 && ($username ne $linearray[4]) 

 if (($user_profile[8] ne 'Administrator') && ($user_profile[8] ne 'Moderator') && ($pubname ne $linearray[4])) {&StandardHTML2("You must be a moderator or the person who added this link, to edit the record"); exit;}
 

3||Category One||description for catone||4||1069737583||1

	@datafile = &OpenFileAsArray("$vars_config{NonCGIPath}/links/db$id.cgi");
	@datafile = reverse @datafile;
	foreach $thisline(@datafile){
		chomp($thisline);
		if ($thisline ne '')
			{
				@linearray = split(/||/,$thisline);
				##output it

				$on = qq(<img src="$vars_config{NonCGIURL}/on.gif" border="0" alt="$vars_wordlets_links{links_on}" />);
				$off = qq(<img src="$vars_config{NonCGIURL}/off.gif" border="0" alt="$vars_wordlets_links{links_off}" />);

				if (($linearray[5]+(7*24*60*60))>time) {$off=$on;}

			$free = 0;

	if ($free != 1){
		print qq(
		<tr valign="top">
		<td bgcolor="$vars_style{AltColumnColor2}" align="center">$off</td>
		<td bgcolor="$vars_style{AltColumnColor1}"><b><a href="$base_url/action/info/cat/$catarray[0]/id/$linearray[0]">$linearray[1]</a></b> - $linearray[2]   <font size="$vars_style{FDTextSize}"><b><a href="$base_url/action/get/cat/$catarray[0]/id/$linearray[0]" target="_blank">(Go!)</a></b></font>
<font size="$vars_style{FDTextSize}">$linearray[3]</font></td>
		<td bgcolor="$vars_style{AltColumnColor2}" valign="middle"><a href="$profile_base_url/profile/$linearray[7].html"><b>$linearray[4]</b></a></td>
		<td bgcolor="$vars_style{AltColumnColor1}" valign="middle" align="center">$linearray[6]</td>
		</tr>
		);
	}
}
}

	@datafile = &OpenFileAsArray("$vars_config{NonCGIPath}/links/db$id.cgi");
	@datafile = reverse @datafile;
	my @sorted;
	foreach $thisline(@datafile){
		chomp($thisline);
		if ($thisline ne '') {
			@linearray = split(/||/,$thisline);
			##output it
			push(@sorted, @linearray);
		}
	}


	my @newsorted = sort { $a[1] cmp $b[1] } @sorted;


	foreach my $link(@newsorted){

			$on = qq(<img src="$vars_config{NonCGIURL}/on.gif" border="0" alt="$vars_wordlets_links{links_on}" />);
			$off = qq(<img src="$vars_config{NonCGIURL}/off.gif" border="0" alt="$vars_wordlets_links{links_off}" />);

			if (($link[5]+(7*24*60*60))>time) {$off=$on;}

			$free = 0;

			if ($free != 1){
				print qq(
				<tr valign="top">
				<td bgcolor="$vars_style{AltColumnColor2}" align="center">$off</td>
				<td bgcolor="$vars_style{AltColumnColor1}"><b><a href="$base_url/action/info/cat/$catarray[0]/id/$link[0]">$link[1]</a></b> - $link[2]   <font size="$vars_style{FDTextSize}"><b><a href="$base_url/action/get/cat/$catarray[0]/id/$link[0]" target="_blank">(Go!)</a></b></font>
<font size="$vars_style{FDTextSize}">$link[3]</font></td>
				<td bgcolor="$vars_style{AltColumnColor2}" valign="middle"><a href="$profile_base_url/profile/$link[7].html"><b>$link[4]</b></a></td>
				<td bgcolor="$vars_style{AltColumnColor1}" valign="middle" align="center">$link[6]</td>
				</tr>
				);
			}
		}
	}

	foreach my $link(@newsorted){

	foreach my @link(@newsorted){

 foreach my @link(@newsorted){
 

	@datafile = &OpenFileAsArray("$vars_config{NonCGIPath}/links/db$id.cgi");
	@datafile = reverse @datafile;
	my @sorted;
	foreach $thisline(@datafile){
		chomp($thisline);
		if ($thisline ne '') {
			@linearray = split(/||/,$thisline);
			##output it
			push(@sorted, @linearray);
		}
	}


	my @newsorted = sort { $a[1] cmp $b[1] } @sorted;


	foreach my $link(@newsorted){

		$on = qq(<img src="$vars_config{NonCGIURL}/on.gif" border="0" alt="$vars_wordlets_links{links_on}" />);
		$off = qq(<img src="$vars_config{NonCGIURL}/off.gif" border="0" alt="$vars_wordlets_links{links_off}" />);

		if (($link->[5]+(7*24*60*60))>time) {$off=$on;}
		$free = 0;

		if ($free != 1){
			print qq(
			<tr valign="top">
			<td bgcolor="$vars_style{AltColumnColor2}" align="center">$off</td>
			<td bgcolor="$vars_style{AltColumnColor1}"><b><a href="$base_url/action/info/cat/$catarray[0]/id/$link->[0]">$link->[1]</a></b> - $link->[2]   <font size="$vars_style{FDTextSize}"><b><a href="$base_url/action/get/cat/$catarray[0]/id/$link->[0]" target="_blank">(Go!)</a></b></font>
<font size="$vars_style{FDTextSize}">$link->[3]</font></td>
			<td bgcolor="$vars_style{AltColumnColor2}" valign="middle"><a href="$profile_base_url/profile/$link->[7].html"><b>$link->[4]</b></a></td>
			<td bgcolor="$vars_style{AltColumnColor1}" valign="middle" align="center">$link->[6]</td>
			</tr>
			);
		}
	}

	@datafile = &OpenFileAsArray("$vars_config{NonCGIPath}/links/db$id.cgi");
	@datafile = reverse @datafile;

	@datafile = &OpenFileAsArray("$vars_config{NonCGIPath}/links/db$id.cgi");

	my @temp = sort { &rotorooter($a, 1) cmp &rotorooter($b, 1) } @datafile;
	@datafile = @temp;
#	@datafile = reverse @datafile;

$hf->[1]
);
} #end ShowTopTen

sub rotorooter {
	my($line, $sorder) = @_;
	my @temp = split(/||/, $line);
	return $temp[$sorder];	
}

	##should we push this old line?
	if (!(($tendata[0] == $ourarray[0]) && ($tendata[6] == $ourarray[6]))){
		push(@updated,$line);
	}
  

	##should we push this old line?
	if (!(($tendata[0] == $ourarray[0]) && ($tendata[9] == $ourarray[9]))){
		push(@updated,$line);
	}
  

			print redirect("$linearray[2]");

			if($linearray[2] !~ m/^(http|ftp|https):///) {
				$linearray[2] = "http://" . $linearray[2];
			}

if ($siteurl !~ /^http/) { $siteurl = ('http://' . $siteurl); }

#admin-only posting of links
@user_profile = &OpenProfile(&GetUserNumber($username));
if ($user_profile[8] ne 'Administrator') {&StandardHTML2("You must be an admin to add links"); exit;}

$DataLine = "$id||$sitetitle||$siteurl||$desc||$pubname||$time||0||$user_number||$cat";

1||ZTT||www.ztt.com||ZTT||Just Administrator||1123048008||0||00000001||2
2||Frankie goes to Hollywood||www.fgth.net||Frankie goes to Hollywood, the 80's||Just Administrator||1123048040||1||00000001||1
3||Seal||http://www.seal.com||Official page of seal||twslex||1069708032||0||00000001||1
4||Nasher||http://www.nasher.co.uk||Official site of Nasher||twslex||1069880213||0||00000001||1
5||Andrew Poppy||http://www.andrewpoppy.com||Andrew Poppy||jd||1069890083||0||00000001||1
6||Anne Pigalle||http://www.annepigalle.com/||official page of Anne (items for sale and some facts) [small but ...]||ha||1069916053||1||00000001||1
7||808state||http://www.808state.com/||official homepage (music downloads, up-to-date infos, etc.    ->  great resouce)||ha||1069954698||0||00000001||1
8||Shane MacGowan||http://www.shanemacgowan.com/||official hompage (very good resource)||ha||1069955058||0||00000001||1
9||Holly Johnson||http://www.hollyjohnson.com||official homepage||ha||1069956779||0||00000001||1
10||the Warriors Return||http://www.fgth.net/||official site of Frankie Goes To Hollywood  (illustrious, famous -> contrieved and maintained by IRV)||ha||1069959544||1||00000001||1
11||Trevor Horn||http://www.trevorhorn.com||Official site, not much there yet||jd||1069979155||0||00000001||1
12||Anne Dudley||http://www.annedudley.co.uk||Official site, news, biography, discography||jd||1069979265||0||00000001||1
13||THERE (there)||http://www.theremusic.com/||onetwo and other Brücken / Humpheys projects||jd||1070538247||1||00000001||1
14||Thomas Leer||http://www.thomasleer.co.uk||his official website||ian peel||1095208610||0||00000001||1
15||Lisa Stansfield Info site||http://www.lisastansfield.info||Lisa's OFFICAL "info" site||bevnathan||1100637039||0||00000001||1
16||Service Audio Visual||http://www.serviceav.com/||Paul Morley and James Banbury||jd||1106345075||0||00000001||1
17||MC Tunes||http://www.nickylockett.com||Official Nicky Lockett home pages||ha||1113941783||0||00000001||1
18||Propaganda||http://www.p-fan.de/||Propaganda fan page    (Karl Hirschberger's famous place of knowledge  ->  best one)||ha||1123049110||0||00000001||3
19||Seal "FutureLoveParadise"||http://futureloveparadise.co.uk/||nicely made fan page   (maintained by Gareth Edwards)||ha||1123049110||0||00000001||3
20||Hoodlum Priest||http://www.atdot.demon.co.uk/hoodlum/contents.html||not much to say ... not updated since years ... but the only one with information, I suppose||ha||1123049110||0||00000001||3
21||ZTT (FISONIC)||http://www.soundslogic.com/fisonic/_legacy/||Jörg Fitzner's fanpages  (very good resource of ZTT, TCH, Diversions of Songs, Catalogue Numbers etc. etc.)||ha||1123049110||0||00000001||3
22||FGTH Discography||http://www.fgthq.de||Completest Discography Source of FGTH Related Material||Pleasurehome||1123049110||0||00000001||3
23||The Art of Noise||http://www.theartofnoise.be||My own site. Thanks to repertoire to mention it on the into battle release.||guido||1123049110||0||00000001||3
24||tch - The Trevor Charles Horn Worship Hall||http://www.trevor-horn.de/||unofficial Trevor Horn Site||jd||1123049110||0||00000001||3
25||FGTH Online||http://www.fgthonline.org.uk||Frankie Goes To Hollywood Online||davidl2||1123049110||1||00000001||3
26||A Ghost In The Machine||http://www.aghostinthemachine.co.uk||Frankie galleries inc promtional ads, press articles and calendar plus my own home spun ZTT covers.||paul adams||1123049110||0||00000001||3
27||ZTT - Two Decades||http://ztt-info.de||ZTT's artists - in full BLUE  --> draft(y) version - but in continious update --> now v.0.2(5) --> latest update:  6 July  2005||ha||1123049110||0||00000001||3
28||Lisa Stansfield "UK's No.1 Soul Diva"||http://lisastansfield.moonfruit.com/||This is an A-Z look at the UK's No.1 undisputed soul diva "Lisa Stansfield". Her brand new album "The Moment" includes the smash hit singles "Treat Me Like A Woman" & "If I Hadn't Got You". Expect to have Lisa around for a very long time to come!||bevnathan||1123049110||0||00000001||3
29||Lisa Stansfield "All Woman"||http://lisa-stansfield.com/||Lisa's OFFICIAL fan site||bevnathan||1123049110||0||00000001||3
30||Buggles - 24 Carat Plastic||http://thebuggles.4t.com||Buggles Bio / Gallery / Articles / Lyrics||jd||1123049110||0||00000001||3
31||Zang Tuum Tumb and all that||http://www.zttaat.com/||For all your Zang Tuum Tumb needs||bob.com||1123049110||0||00000001||3
32||Pleasuredome||http://www.pleasuredome.co.uk||Holly's record label ||davidl2||1069882385||60||00000001||2
33||therethere Records||http://www.theremusic.com||onetwo and other Brücken / Humpheys projects||jd||1081534900||63||00000001||2
34||Karvavena Records||http://www.karvavena.com||record label that released "The Abduction of the Art of Noise" and has releases in plan from Thomas Leer, JJ Jeczalik and others...||ian peel||1095208566||30||00000001||2
35||Repertoire Records||http://www.thirstymoon.de/Unternehmen/press%20information/wieallesanfing/repertoire%20records.htm||German re-issuer of various ZTT releases||jd||1108303277||9||00000001||2
36||test||test.com||test||TwsLex||1123104659||0||00000002||0

0||General||General||1||1123104659||1
1||Artists Websites||Artists Websites||16||1123048357||2
2||Record Labels||Record Labels||5||1123048008||3
3||Members related||Members Homepages and Fanpages||14||1123049339||4

	if ($username eq '') {
		&StandardHTML(qq!$vars_wordlets_err{not_logged_in}

 <a href="$ULTIMATEBB{"ubb=login"}">$vars_wordlets{login_now}</a>!);
	}

	&RequireUserLogin(1);
	@profile = &verify_id_num($username, $password, $user_number);
	unless ($profile[8] eq 'Administrator') { &StandardHTML2("$vars_wordlets_err{no_access}"); exit;}

if (@ubber) {
	@checkTheProfile = &verify_id_num_2($username, $password, $user_number);
	unless ($checkTheProfile[4] =~ /Write/) {
		print header(
			-charset => "$masterCharset",
			-type    => "text/html",
		);
		&StandardHTML($vars_wordlets_err{user_not_approved});  

if (@ubber) {
	@checkTheProfile = &verify_id_num_2($username, $password, $user_number);
	unless ($checkTheProfile[4] =~ /2/) {
		print header(
			-charset => "$masterCharset",
			-type    => "text/html",
		);
		&StandardHTML($vars_wordlets_err{user_not_approved});