#!/usr/bin/perl
## !THISFEATURE:Member groups


##
## Find a Club
##

open(pbsfFILE6cr,"$basedir/tempfiles/modules/profilecolors.dat");
	@pbsfLINES6cr = <pbsfFILE6cr>;
	close(pbsfFILE6cr);
foreach $pbup (@pbsfLINES6cr)
{$pbrpp = $pbup;}
($tablebg1, $tablebg2, $tablebar1, $tablebar2, $tablebar3) = split(/\|/, $pbrpp);




print "

<table border=0 cellpadding=0 cellspacing=1><tr></td><td valign=top width=550>




<table border=0><tr></td><td>
<img src=$imagedir/smaa.gif>
</td><td>
<font face=verdana size=1><b>Welcome to clubs!</b><br>
Join member clubs or create your own!
</tr></td></table>



<table border=0><tr></td><td valign=top>



<table border=0 cellpadding=0 cellspacing=0><tr></td><Td>
<table border=0 cellpadding=0 cellspacing=3><tr></td><td valign=top>
<img src=$imagedir/playbutton.gif> 

</td><td valign=top>

<font face=verdana size=2><b><a href=signup.cgi?&step=2&action=Create+my+netclub+now&a=y>Create a club</a>

</td><td width=7>

</td><td valign=top>

<img src=$imagedir/playbutton.gif> 

</td><td valign=top>


<font face=verdana size=2><b>Find a club:</b>
</tr></td></table>


</td><form action=login.cgi#searchresults><td valign=top>
<input type=hidden name=prc value=any>
<input type=hidden name=command value=search>
<input type=hidden name=username value=$FORM{'username'}>
<input type=hidden name=password value=$FORM{'password'}>
<input name=keys size=16> 

</td><td valign=top><input type=image src=$imagedir/search1.gif border=0></a>
</tr></td></table>




</center>




<font face=Verdana size=2>


<br>


</center>";






print "

</tr></td></table>

<table border=0 width=100% cellspacing=1><tr></td><td valign=top width=100% bgcolor=$tablebar1>

<table border=0 cellpadding=0 width=100% cellspacing=0><tr></td><td width=100%>
<font face=arial size=2><b>Categories</b><tr></td><td valign=top height=2>
<tr></tD></table>

<tr></td><td>

</center>

";





print "
</center>
<table width=100% border=0><tr></td><td width=50%>
";
&showc;

sub showc {

$gpss = -1;
#$rtcvaq = "$groupsearch/catdat/";
#opendir(qaDIR,$rtcvaq);
# @qatmp = grep(!/^\.\.?$/, readdir(qaDIR));
 #foreach (@qatmp) { 
 # push(@qafiles,$_);
# }
# close(qaDIR);
#foreach(sort(@qafiles)) {
#$akeyq = $_;   #substr($_,0,-4);


open(qsfFILE6cr,"$basedir/groups/cats.list");
	@qsfLINES6cr = <qsfFILE6cr>;
	close(qsfFILE6cr);
foreach $akeyq (@qsfLINES6cr)
{



#if ($ha eq "") {
#if ($gpss > $rgp - 1) {
#$ha = "y";
#print "</tr></td></table>
#<table border=0 align=left><tr></td><td width=80><font color=white>-</td></tr></table><table border=0  cellpadding=3><tr></td><td valign=top></center>";

#}
#}

open(sfFILE6cr,"$basedir/data/$akeyq.count") || &pcc;
	@sfLINES6cr = <sfFILE6cr>;
	close(sfFILE6cr);
foreach $textt (@sfLINES6cr)
{
$ca = $textt;
}
sub pcc { $ca = "0"; }









if ($akeyq =~ ">") { 
if ($gpss != -1) { print "$tr</td><td valign=top>"; }

$gpss++;
if ($gpss ==1) { $tr = "<tr>"; }
if ($gpss ==2) { $tr = ""; $gpss = 0;}

}

$akeyqq = $akeyq;
if ($akeyqq =~ ">") { 
$tc = "$akeyqq";
}


$c1 = (">");$rpl = "";for ($c1){$tc =~ s/$_/$rpl/gi;}
$c1 = ("\n");$rpl = "";for ($c1){$tc =~ s/$_/$rpl/gi;}

$c1 = (">");$rpl = "";for ($c1){$akeyqq =~ s/$_/$rpl/gi;}

$c1 = ("\n");$rpl = "";for ($c1){$akeyq =~ s/$_/$rpl/gi;}
$tccc = "$akeyq";
$c1 = (">");$rpl = "<br><b>";for ($c1){$akeyq =~ s/$_/$rpl/gi;}
$c1 = (">");$rpl = "";for ($c1){$tccc =~ s/$_/$rpl/gi;}


if ($tc ne $tccc) {
$tct = "$tc > ";
}

print "<font color=$fontcolor>
<FONT SIZE=2 FACE=Verdana COLOR=black>

<A href=\"login.cgi?&command=search&cat=$tct$akeyqq#searchresults\">$akeyq</a></b>";
$findresult = "$tct$akeyqq";

$category = "";
$result = 0;
$fmatch = 0;
$fda = "$groupsearch/data/";
opendir(fdaDIR,$fda);
 @fdatmp = grep(!/^\.\.?$/, readdir(fdaDIR));
 foreach (@fdatmp) { 
  push(@fdafiles,$_);
 }
 close(fdaDIR);
foreach(sort(@fdafiles)) {
$fdkey = $_;   #substr($_,0,-4);
if ($fdkey ne "gg") { 
if ($fdkey ne "messagerules.dat") { 
if ($already ne "$groupsearch/data/$fdkey/$fdkey.dat") { 

$ftex = "";

open(fsfFILE6cr,"$groupsearch/data/$fdkey/$fdkey.dat");
	@fsfLINES6cr = <fsfFILE6cr>;
	close(fsfFILE6cr);
foreach $ftext (@fsfLINES6cr)
{$ftex .= $ftext;
}
($owner, $groupname, $thebackground, $thefontcolor, $groupinfo, $welcomemsg, $calendar, $messages, $chat, $photo, $private, $pass, $category) = split(/\|/, $ftex);

$fmm = 0;
$fcac = "0";
$fpap= "0";

#print "<font size=1><P>$groupsearch/data/$fdkey/$fdkey.dat<br>-$findresult-$category-<P>";

if ($findresult =~ $category) {
$result++;
}else {


$c1 = ("\n");$rpl = "";for ($c1){$fr =~ s/$_/$rpl/gi;}
$c1 = ("\n");$rpl = "";for ($c1){$category =~ s/$_/$rpl/gi;}
$c1 = ("\n");$rpl = "";for ($c1){$findresult =~ s/$_/$rpl/gi;}
($fr, $fc) = split(/\>/, $category);

if ($fr =~ $findresult) { 
$result++;
}

}

}




}
$already = "$groupsearch/data/$fdkey/$fdkey.dat";

}}


print "<font face=VERDANA> <font size=1><i>$result</i><font size=2>
<br>";
$result = 0;

$akeyq = "";
$tct = "";

}





print "</tr></td></table></tr></td></table></tr></td></table>
</tr></td></table>
";






&csse;





print "</td><td width=20></td><td width=200 valign=top>
<center>


<table border=0 cellpadding=1 cellspacing=0><tr></td><td bgcolor=$tablebar3 width=131>
<table border=0><tr></td><td>
<font color=black face=verdana size=1><b>PREVIOUS SEARCHES</b>
</tr></td></table>

<table border=0 cellpadding=0 cellspacing=0><tr></td><td bgcolor=$tablebg1 width=131>
<table cellspacing=0 cellpadding=1 border=0>";

$count = 0;
$bgb = "white";

$co =0;
open(FILE6,"$basenetworkdir/data/search.ps");
	@LINES6 = <FILE6>;
	close(FILE6);
foreach $LINE6 (@LINES6)
	{ $co++; }
$kl = 0;
&qwq;
sub qwq { 

foreach $lda (@LINES6[$co])
	{ 
$c1 = (" ");$rpl = "+";for ($c1){$Ida =~ s/$_/$rpl/gi;}
$c1 = ("\n");$rpl = "";for ($c1){$Ida =~ s/$_/$rpl/gi;}





if ($lda ne "") {
$kl++;

$idn = $lda;
$idn=substr $lda,0,20; 
	
$lda = lc($lda);
$idn = lc($idn);

$count++;



if ($count < 11) {


if ($idn =~ "<")  { } else {

print "<tr></td><td width=131 bgcolor=$bgb><FONT SIZE=1 FACE=Verdana COLOR=black>$count. <a href=\"login.cgi?&command=search&again=1&keys=$lda#searchresults\">$idn</a> ..";


if ($bgb eq "white") {$bgb = "#EFEFEF";}else { $bgb = "white"; }

}


}

}
$co = $co - 1;
if ($kl < 14) {
if ($co > -1) {
&qwq;

} 
}

}

}
}




print "</tr></td></table>
</tr></td></table>
</tr></td></table>

";



print "
<P>
<table cellpadding=0 cellspacing=0 border=0><tr></td><td bgcolor=$tablebar3>";
print "<table border=0><tr></td><td bgcolor=$tablebar3 width=130>
<font face=verdana size=2>featured group<tr></td><td bgcolor=$tablebg1 height=100><center>";

$flines = 0;




#in case there are any blank lines in the featured file clear them out
open(dfcsfFILE6cr,"$basedir/database/featuredclubs.dat");
	@dfcsfLINES6cr = <dfcsfFILE6cr>;
	close(dfcsfFILE6cr);
foreach $dft (@dfcsfLINES6cr)
{  
($dfwhat, $dfname, $dfcomments) = split(/\|/, $dft);
if ($dfname ne "") {  $newdft .= "$dft"; } 
}
open(newdft, ">$basedir/database/featuredclubs.dat");
print newdft "$newdft";
close(newdft);


#now generate the random counter 
open(fcsfFILE6cr,"$basedir/database/featuredclubs.dat");
	@fcsfLINES6cr = <fcsfFILE6cr>;
	close(fcsfFILE6cr);
foreach $ft (@fcsfLINES6cr)
{  
$flines++; 
}

#if ($flines > 0) { $flines = $flines - 2; }


$lower=0; $upper=$flines; 
$random = int(rand( $upper-$lower  ) ) + $lower; 
open(fcsfFILE6cr,"$basedir/database/featuredclubs.dat");
	@fcsfLINES6cr = <fcsfFILE6cr>;
	close(fcsfFILE6cr);
foreach $feat (@fcsfLINES6cr[$random])
{$ffeat = $feat; }
$c1 = ("\n");$rpl = "";for ($c1){$ffeat =~ s/$_/$rpl/gi;}
($fwhat, $fname, $fcomments) = split(/\|/, $ffeat);


if ($ffeat eq "") { print "<font face=verdana size=1><i>none yet</i>"; }







if ($fwhat eq "group") { 

$ex = ".gif";
open(ciFILE6cr,"$imagedir1/groups/data/$fname/image/logo.gif") || &nfl;
sub nfl { 
$ex = ".jpg";
open(eciFILE6cr,"$imagedir1/groups/data/$fname/image/logo.jpg") || &nfll; 
 }
close(ciFILE6cr);
close(eciFILE6cr);
sub nfll { $nfl = 1; }



if ($nfl == 1) { print "<a href=login.cgi?&group=$fname&nologin=1><img src=$imagedir/fgroupnophoto.gif border=0><Br> $fname!</a>"; }
if ($nfl != 1) { print "<a href=login.cgi?&group=$fname&nologin=1><img width=130 src=http://$mainservers/$imagedir/groups/data/$fname/image/logo$ex border=0><br>$fname!</a>"; }



}



print "</tr></td></table>";
print "</tr></td></table>";




print "
<P>

<table border=0 cellpadding=1 cellspacing=0><tr></td><td bgcolor=$tablebar1 width=131>
<table border=0><tr></td><td>
<font color=white face=verdana size=1><b>WHAT IS A CLUB?</b>
</tr></td></table>

<table border=0 cellpadding=0 cellspacing=0><tr></td><td bgcolor=$tablebg1 width=131>
<table cellspacing=0 cellpadding=3 border=0><tr></td><td>


<font face=verdana size=1>
A virtual group where members with similar interests can communicate through a mailing list, chat, share files, pictures, music, post events and more.

</tr></td></table>
</tr></td></table>
</tr></td></table>


";








print "
<P>




</tr></td></table>
";































sub csse {








if ($FORM{'command'} eq "search") {
if ($FORM{'keys'} ne "") {
if ($FORM{'again'} ne "1") {

open(fsc, ">>$basenetworkdir/data/search.ps");
print fsc "$FORM{'keys'}\n";
close(fsc);

}
}

if ($FORM{'main'} ne "yes") {
#print "<table border=0 cellpadding=0 cellspacing=0><tr></td><td valign=top width=450 #bgcolor=white>";
}
}
else{
if ($FORM{'main'} ne "yes") {
print "
<table border=0><tr></td><td valign=top>
<font color=$fontcolor>";
}
}


if ($FORM{'command'} eq "search") {
$cty = "";
if ($FORM{'cat'} ne ""){
$cty = $FORM{'cat'};
}else {
$cty = $FORM{'keys'};
}

if ($FORM{'find'} eq "chat") {

print "<font color=white>
<font size=4>Find a chat: <b>$FORM{'keys'}</b><tr></td><td>
<P>

<center>";


print "
<table border=0 cellpadding=2 cellspacing=2><tr></td><td bgcolor=#DCEOE2 width=151><font size=2 face=Arial>
chat room
</td><td bgcolor=#DCEOE2 width=350><font size=2 face=arial><font color=black>description</td><td bgcolor=#DCEOE2 width=50><center><font size=1>chatters</tr></td></table>

";

}else {

if ($FORM{'main'} ne "yes") {



print "
<a name=searchresults>
<table border=0 cellpadding=0 cellspacing=0><tr></td><td width=500>
<font face=arial size=2><b>Search results for:</b> $cty<tr></td><td valign=top bgcolor=black height=2>
<tr></tD></table>


";
}
}

if ($FORM{'main'} ne "yes") {

&finditc;

sub finditc {

$match = 0;
$da = "$groupsearch/data/";
opendir(daDIR,$da);
 @datmp = grep(!/^\.\.?$/, readdir(daDIR));
 foreach (@datmp) { 
  push(@dafiles,$_);
 }
 close(daDIR);
foreach(sort(@dafiles)) {
$dkey = $_;   #substr($_,0,-4);
$tex = "";
open(sfFILE6cr,"$groupsearch/data/$dkey/$dkey.dat");
	@sfLINES6cr = <sfFILE6cr>;
	close(sfFILE6cr);
foreach $text (@sfLINES6cr)
{$tex .= $text;
}
($owner, $groupname, $thebackground, $thefontcolor, $groupinfo, $welcomemsg, $calendar, $messages, $chat, $photo, $private, $pass, $category) = split(/\|/, $tex);




$mm = 0;














$cac = "0";
$pap= "0";

$ksy = $FORM{'keys'};
$ksy = lc($ksy);
$groupinfoo = $welcomemsg;
$groupinfoo = lc($groupinfoo);


if ($FORM{'keys'} ne "") {
if ($groupinfoo =~ $ksy) {
$result++;
if ($hide != 1) { 
&showit;
}
}
else {
if ($groupname =~ $ksy) {
$result++;
if ($hide != 1) { 
&showit;
}
}
}

}

if ($FORM{'cat'} ne "") {
if ($category =~ $FORM{'cat'}) {
&showit;
}
}

if ($hiddencat ne "") {
if ($category =~ $hiddencat) {
$result++;
}
}



}

}


sub showit {
$match++;

$pp = "";
if ($private eq "privateclubyes") { $pp = "y"; }


if ($FORM{'find'} eq "chat") {

print "<center><table border=0 cellpadding=2 cellspacing=2><tr></td><td bgcolor=#efefef width=141 valign=top>";


$groupname1 = $groupname;
$c1 = ("_");$rpl = " ";for ($c1){$groupname1 =~ s/$_/$rpl/gi;}

print "<table border=0 bgcolor=white width=141><tr></td><td>";

if ($pp eq "y"){
print "
<img src=$imagedir/smalllock.gif>
";
}

print "
<b><font face=Verdana>
<a href=\"javascript:openWin('vchat/scripts/mlogin.cgi?command13=start&username=$FORM{'username'}&pass=$FORM{'password'}&chatsys=$mainchatsys&room=$groupname&logo=','chatchat',620,365,'toolbar=no,status=no,scrollbars=no,')\">$groupname1</a>
";
print "</tr></td></table>";

print "
</b></td><td bgcolor=#efefef width=350><font color=black>$welcomemsg</td><td bgcolor=#efefef width=50><center><font size=2>";




$cca = 0;
$directory = "$basedir/vchat/scripts/systems/netclubs/$dkey/users";


if ($FORM{'cosdsmmand'} eq "logoff") {

}
else {

# start the top of the userlist
$pap = 0;
$cca = 0;
$key1c = "";
opendir(dDIR1c,$directory);
 @atmp1c = grep(!/^\.\.?$/, readdir(dDIR1c));
 foreach (@atmp1c) { 
  push(@afiles1c,$_);
 }
 close(dDIR1c);

foreach(sort(@afiles1c)) {
$key1c = $_;   #substr($_,0,-4);
$LINE6c = "";
if ($key1c ne $lst) {

$idlesecc = 10;
open(FILE6c,"$directory/$key1c");
	@LINES6c = <FILE6c>;
	close(FILE6c);
foreach $LINE6c (@LINES6c)
	{
if ($LINE6c eq "") {
unlink("$directory/$key1c");
}
else {

if ($min > 58) {
$min = "02";
}
if ($LINE6c < 2)
{
$LINE6c = "03";
}


$auser = $min - $LINE6c;

if ($min < $LINE6c + 2)
{

$pap++;

$cac = $pap;
print "";
}
else {

unlink("$directory/$key1c");
unlink("$basedir/vchat/scripts/globals/$key1c.room");
unlink("$basekdir//vchat/scripts/usersps/$key1c.ip");
unlink("$basekdir//vchat/scripts/usersps/$key1c.ip");
unlink("$basedir//vchat/scripts/globalim/$key1c.private");
unlink("$basedir//vchat/scripts/usersps/$key1c.incomming");


}


}
}
}


}






print "$cac

";
}
$lst = $key1c;

print "</tr></td></table>";



$cca = 0;

}else {

$groupname1 = $groupname;


if ($groupname1 ne "") {
$c1 = ("_");$rpl = " ";for ($c1){$groupname1 =~ s/$_/$rpl/gi;}




## LIST CLUBS IN SEARCH RESULTS


open(qsfFILE6cr,"$basedir/groups/data/$groupname/members.count");
	@qsfLINES6cr = <qsfFILE6cr>;
	close(sfFILE6cr);
foreach $qtext (@qsfLINES6cr)
{
$mmmm = $qtext;
}
if ($mmmm eq "") {$mmmm = 0;}



print "
<table border=0><tr></td><td width=450>
";

if ($pp eq "y"){
print "
<img src=$imagedir/smalllock.gif> 
";
}


$theuser = $owner;
&checkon;
if ($online == 1) {
$on = "<font size=1 face=verdana color=red>*online*";
}else {
$on = "";
}

print "
<font size=4 face=verdana>
<b><a href=login.cgi?&group=$groupname>$groupname1</a></b>
<br>
<font size=2>$welcomemsg
<br>
<font size=1><b>category:</b> $category
<br>
<b>Owner:</b> <a href=login.cgi?&command=getprofile&who=$owner>$owner</a> $on </font>
<br>";


print "<b>Members:</b> $mmmm
<tr></td><td bgcolor=#EFEFEF height=1>

</tr></td></table>
";

















}


}
}


}



if ($FORM{'main'} ne "yes") {
if ($match == 0){
print "<P><center>

<Table border=0><tr></td><td width=350>
<font face=Verdana size=3>
<b>Sorry,</b><br><font size=2>
We could not find any matches related to that key word or category.
</tr></td></table>
";
}
}



#### club search screen

if ($FORM{'find'} eq "chat") {
print "<br>";
require "tempfiles/chatlogin.temp";
}

if ($FORM{'find'} ne "chat") {
if ($restdead != 1) {


# find a club mod ?


}
}

######









if ($FORM{'cat'} eq "") {
if ($FORM{'keys'} eq "") {
if ($FORM{'main'} ne "yes") {
print "<br><font color=$fontcolor> You did not enter any key words!";
}
}}




if ($FORM{'find'} eq "chat") {

print "";


}

}









}