⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 frind.pl

📁 这个社区是虚拟社区使用的程序
💻 PL
字号:
🔍 
#!/usr/bin/perl
if ($ENV{'SCRIPT_FILENAME'}){
    $home_dir=substr($ENV{'SCRIPT_FILENAME'},0,rindex($ENV{'SCRIPT_FILENAME'},"/"));
}else{
    $home_dir=substr($ENV{'PATH_TRANSLATED'},0,rindex($ENV{'PATH_TRANSLATED'},"\\"));
    $home_dir=~ s/\\/\//g;
}
    $fullurl= "http://$ENV{'SERVER_NAME'}$ENV{'SCRIPT_NAME'}";
    $cgiurl=substr($fullurl,0,rindex($fullurl,"/"));

############ 无需修改,除非您是高手 #############################
print "Content-type: text/html;charset=gb2312\n";
print "Pragma:no-cache\n\n";
$|=1;
&read_in;
require "$home_dir/$id/config.cfg";
require "$home_dir/$id/color.cfg";
require "$home_dir/$id/level.cfg";
require "$home_dir/$id/allow.cfg";
########################
   &searchuser("userdb");
   @dir = sort @dir;
   $total=@dir;
print "<html><head><title>$tt</title>\n";
print "<LINK REL=stylesheet HREF=\"$homeurl/styles.css\" TYPE=\"text/css\"></head>\n";
print "<body bgcolor=$saysback text=$saysword  link=$link_color alink=$alink_color vlink=$vlink_color><div align=\"center\"><center>\n";
print "<table border=0 width=100% height=100% cellspacing=0 cellpadding=0><tr><td><span style=\"font-size: 9pt\">\n";
print "<center>在这里你可以看到所有注册聊友($total人)的资料<br>(当然要本人愿意公开透露的)<br>\n";
if ($findwho ne ""){

open(paSS,"$homedir/userdb/$findwho") ||  &error("ERROR: DON'T OPEN","无法打开文件$findwho","2");
    @pass = <paSS>;
close(paSS);
  ($chkuserlevel,$chkuserpassword,$chkwelcom,$chkuserid,$chkuseremail,$chkurl,$chkgeyan,$chkpotourl,$chkuserip,$chkmdfip,$chktime,$chknow_sec,$chklasttime,$chkjingyan) = split(/__/, $pass[0]);

print "<table cellspacing=0 cellpadding=9 border=1><tr><td><span style=\"font-size: 9pt\">\n";
print "昵称：<span style=\"color:#FF0000; background-color: #FFFFFF\">$findwho<br></span>\n";  
if($chkuseremail) {
print "邮箱：<a href=mailto:$chkuseremail><span style=\"color:#FF0000; background-color: #FFFFFF\">$chkuseremail<br></span></a>\n"; 
}else{
print "邮箱：<span style=\"color:#FF0000; background-color: #FFFFFF\">免打扰!<br></span>\n"; 
}
if ($chkurl) { 
print "主页：<a href=$chkurl target=\"_blank\"><span style=\"color:#FF0000; background-color: #FFFFFF\">$chkurl<br></span></a>\n";  
}else{
print "主页：<span style=\"color:#FF0000; background-color: #FFFFFF\">免打扰!<br></span>\n"; 
}
if ($chkgeyan) {
print "格言：<span style=\"color:#FF0000; background-color: #FFFFFF\">$chkgeyan<br></span>\n";  
}else{
print "格言：<span style=\"color:#FF0000; background-color: #FFFFFF\">沉默是金,他不愿多说...<br></span>\n"; 
}
#if (($chkpotourl) && (-e "$chkpotourl")){
if ($chkpotourl) {
print "芳容：<br><img src=\"$chkpotourl\" HEIGHT=\"200\" WIDTH=\"150\" alt=\"不对照片的真实性负责哟!\" lowsrc=\"$poto\"><br>\n";  
}else{
print "芳容：<br><img src=\"$poto\" HEIGHT=\"200\" WIDTH=\"150\" alt=\"只是没有提供,不会长的这样的吧? ^_^\"><br>\n";  
}
print "</td></tr></table>\n";
}

print "<form method=post action=$cgiurl/frind.pl?id=$id target=\"\"><span style=\"font-size: 9pt\">\n";
print "聊友姓名:<input type=text name=\"chkname\" value=\"$chkname\" MAXLENGTH=\"10\"  style=\"font-size: 9pt; font-family: 宋体\" size=10>\n";
print "<select name=\"findwho\"  style=\"font-size: 9pt; font-family: 宋体\"> \n";
if ($chkname eq "all") {
  foreach $pass_line (@dir) {
   print "<option value=\"$pass_line\" ";
   print ">$pass_line\n";
 }   
}elsif ($chkname eq ""){
print "<option value=\"\">在左边输入\"all\"查找所有注册对象</option>\n";
}else{
open(paSS,"$homedir/userdb/$chkname") ||  &error("ERROR: DON'T OPEN","无法打开文件$chkname","2");
    @pass = <paSS>;
close(paSS);
  ($chkuserlevel,$chkuserpassword,$chkwelcom,$chkuserid) = split(/__/, $pass[0]);
   if ($chkuserid=~/$chkname/i) {
print "<option value=$chkuserid>$chkuserid</option>\n";
   }
}

print "</select>\n";
print "<input type=submit value=\"探访\" style=\"font-size: 9pt; font-family: 宋体\">\n";
print "<input type=reset value=\"清除\" style=\"font-size: 9pt; font-family: 宋体\"></form>\n";
print "<table border=0 cellspacing=0 cellpadding=0 width=100%>\n";
print "<tr><td width=100%></td></tr><tr><td bgcolor=\"AQUA\"</td></tr><tr>\n";
print "<td width=100%><p align=right>\n";
print "</td></tr></table></body></center></div></html>\n";  

############## 初始化输入数据  ################

sub read_in {

@querys = split(/&/, $ENV{'QUERY_STRING'});
foreach $query (@querys) {
   ($name, $value) = split(/=/, $query);
   $FORM{$name} = $value;    
}
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
   ($name, $value) = split(/=/, $pair);
   $value=~ tr/+/ /;
   $value=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
   $name=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;   
   $value=~ s/<!--(.|\n)*-->//g;
if (($allow_html != 1) && ($name ne "cmd")) {
   $value=~ s/<([^>]|\n)*>//g;
   $value=~ s/<//g;
   }
   else {
      unless ($name eq 'says') {
             $value=~ s/<([^>]|\n)*>//g;
             $value=~ s/<//g;
      }
   }
   $FORM{$name}= $value;
}
if ($FORM{'chkname'}) {
   $chkname  = $FORM{'chkname'};
   $chkname  =~ s/\n//g;
   $chkname  =~ s/‖//g;
   $chkname  = substr($chkname,0,10);
}
if ($FORM{'findwho'}) {
   $findwho  = $FORM{'findwho'};
   $findwho  =~ s/\n//g;
   $findwho  =~ s/‖//g;
   $findwho  = substr($findwho,0,60);
}
if ($FORM{'id'}) {
   $id  = $FORM{'id'};
   $id  =~ s/\n//g;
}

}
#############  错误提示  #######################################################
sub error {

  ($error, $message,$refresh) = @_;
  if ($refresh == 1) {$where = "$cgiurl";}
else  { $where = "javascript:history.go(-1)"; }
    $tt = $error; 
print "<html><head><title>$tt</title>\n";
print "</head>\n";
print "<body  bgcolor=$saysback text=$saysword ><div align=\"center\"><center>\n";
print "<table border=0 width=100% height=100% cellspacing=0 cellpadding=0><tr><td><span style=\"font-size: 9pt\">\n";
print "$message</b><bR><bR><br>[<A HREF=\"$where\" onMouseOver=\"window.status='按此，返回前一页面!'; return true\" onMouseOut=\"window.status=''; return true\">请重新尝试</A>]";
print "<table border=0 cellspacing=0 cellpadding=0 width=100%>\n";
print "<tr><td width=100%></td></tr><tr><td bgcolor=\"AQUA\"</td></tr><tr>\n";
print "<td width=100%><p align=right>\n";
print "</td></tr></table></body></center></div></html>\n";  
    exit;
}
################遍历档案##########################
sub searchuser{

opendir(STAT,"$homedir/$_[0]") || &error("无法打开目录>>$_[0] by check_user_time");
if ($agree_flock==1) {	flock(STAT, 1)  || &error("无法执行文件加锁操作!");  }
   @dir =  grep(!/^\./, readdir(STAT));
if ($agree_flock==1) {	flock(STAT, 8)  || &error("无法执行文件加锁操作!");  }     
closedir(STAT);
return@dir;
}

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -