#!/usr/bin/perl # WARNING # # This is a perl-based HTML template file. If you edit this file, make sure that you # edit everything within the print statements. use '\' in front of ALL quotes and @ symbols. # example ' my name is \"someone\" over there ' # # print "
Find clubs | Search:
"; print "
"; ### count members online $mc = 1; $totalmembers =0; $artcvaq = "$basenetworkdir/database/"; opendir(aqaDIR,$artcvaq); @aqatmp = grep(!/^\.\.?$/, readdir(aqaDIR)); foreach (@aqatmp) { push(@aqafiles,$_); } close(aqaDIR); foreach(sort(@aqafiles)) { $online = ""; $aakeyq = $_; #substr($_,0,-4); if ($aakeyq =~ ".dat") { $totalmembers++; $uu = $aakeyq; $c1 = (".dat");$rpl = "";for ($c1){$uu =~ s/$_/$rpl/gi;} $theuser = $uu; &checkon; if ($online == 1) { if ($mc ==1) { $online1 = $uu; } if ($mc ==2) { $online2 = $uu; } if ($mc ==3) { $online3 = $uu; } if ($mc ==4) { $online4 = $uu; } $mc++; } } } $mo = $mc; $mo =$mo -1; ###### print "
search members:$totalmembers total / $mo members online
City:
Looking for a:
more search options
"; print "
first 4 members from random states
1. $online1 2. $online2
3. $online3 4. $online4
>> More
"; print "
Keep in touch with friends from all over the globe, simply add them to your buddy list!
Build a club
Have you built a club today? Whether your interests fall into computers, arts, science, politics or sports, you can start your own group in seconds!
"; open(sfFILE6cr,"$basedir/tempfiles/bottom2.html"); @sfLINES6cr = ; close(sfFILE6cr); foreach $ttexttd (@sfLINES6cr) { print "$ttexttd"; } print " ";