#!/usr/bin/perl -- $mailprg = "/usr/sbin/sendmail -t"; $imagurl = "http://www.chinaexplore.com.cn/cgi-bin/bbs3000/image"; $filepath = "."; $yjhf = "master\@chinaexplore.com.cn"; $yjhf1 = "cma\@167.net.cn"; $yjhf2 = "zlg\@public.gb.com.cn"; #print "Content-type: text/html\n\n"; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday)= localtime(time+(3600*$time_hour)); $mon=$mon+1; if($mon <10){$mon="0".$mon;} if($mday<10){$mday="0".$mday;} if($hour<10){$hour="0".$hour;} if($min<10){$min="0".$min;} if($sec<10){$sec="0".$sec;} $year=$year+1900; $thistime=$year."-".$mon."-".$mday.".".$hour.":".$min.":".$sec; $lasttime=$year."-".$mon."-".$mday; $topdata=$year.$mon; $ftime=$year.$mon.$mday.$hour.$min.$sec; ########## if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } @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; $value =~ s///g; $value =~ s/\t/--/g; $value =~ s/>/>/g; $value =~ s//g; #$value =~ s/\ //g; #$value =~ s/\ //g; $value =~ s/\--//g; $FORM{$name} = $value; } $menu = $FORM{'menu'}; #$yjhf = $FORM{'mail'}; $emailaddress = $FORM{'EmailAddress'}; $firstname = $FORM{'FirstName'}; $lastname = $FORM{'LastName'}; $middlename = $FORM{'MiddleName'}; $youposition = $FORM{'YouPosition'}; $aoGender = $FORM{'aoGender'}; $address1 = $FORM{'Address1'}; $address2 = $FORM{'Address2'}; $city = $FORM{'City'}; $state = $FORM{'State'}; $zipcode = $FORM{'ZipCode'}; $country = $FORM{'Country'}; $phonenumber = $FORM{'PhoneNumber'}; $company= $FORM{'Company'}; if($menu eq "reguser"){®user; exit;} ® exit; ######################## sub reg { print "Content-type: text/html\n\n"; print < Signing up for your chinaexplore.com.cn Affiliate

 

Signing up for your chinaexplore.com.cn Affiliate


Acceptance of Terms

Welcome to chinaexplore.com.cn! You may access or obtain unique services, products, information, and community offerings ("Services") provided by China Mining Association Geological Mineral Resources Exploration Branches Institute. ("China Mining Association Geological Mineral Resources Exploration Branches Institute," "we," or "us") through chinaexplore.com.cn as a service to the Internet community. Your use of these Services is subject to these Site Terms and Conditions ("Agreement").


Chinaexplore.com.cn Privacy Policy

chinaexplore.com.cn recognizes the importance of protecting your privacy. Any registration, personal, or other information you share with us is securely managed and safeguarded.

Please fill out the form below to create your affiliate account

 
Email Address
 
 
First Name
 
 
Last Name
 
 
Middle Names
 
 
Gender
 
 
Your Position
 
 
Address 1
 
 
Address 2
 
 
City
 
 
State/Province
 
 
Zip/Postal Code
 
 
Country
 
 
Phone Number
 
 
Company Name
 
       
       
 
By pressing Submit, you are acknowledging that you have read and agree to the chinaexplore.com.cn Affiliates License Agreement.
   
 

 

EOF exit; } ############################### sub reguser{ if($FORM{'EmailAddress'} eq ""){&errorview("Please give us your Email Adress.");exit; } if(!($FORM{'EmailAddress'}=~ /.*\@.*\..*/)){&errorview("Your Email Address is error.");exit(0);} if($FORM{'FirstName'} eq ""){&errorview("Your first name field is required.");exit; } if($lastname eq ""){&errorview("Your last name field is required.");exit; } if($aoGender eq ""){&errorview("Mr or Mrs or Miss or Ms?");exit; } if($address1 eq ""){&errorview("Address 1 field is required.");exit; } if($city eq ""){&errorview("City field is required.");exit; } if($state eq ""){&errorview("State field is required.");exit; } if($zipcode eq ""){&errorview("Zip Code or Postal Code is required.");exit; } if($country eq ""){&errorview("Country field is required.");exit; } if($phonenumber eq ""){&errorview("Phone Number is required.");exit; } if($company eq ""){&errorview("Your company name is required.");exit; } if($youposition eq ""){&errorview("Your position is required.");exit; } $name=$lastname.".".$firstname.".".$middlename; open (FILE,">>joinAssociate.txt")|| die $!; print FILE ($emailaddress . "|" . $name . "|" .$youposition ."|" .$aoGender ."|" .$address1 ."|" .$address2 ."|" .$city."|" .$state."|" .$zipcode."|" .$country."|" .$phonenumber."|" .$company."\n"); close(FILE); open (OUTMAIL,"| $mailprg") || die "Mail system error"; print OUTMAIL "To: $yjhf\n"; print OUTMAIL "Subject: 国外地矿企业加入分会提醒邮件\n"; print OUTMAIL "  首先, 非常高兴您收到了这封邮件!\n"; print OUTMAIL "这是一封论坛系统自动生成的邮件,请不要回信。\n\n"; print OUTMAIL "  注册姓名是: $name.\n\n"; print OUTMAIL "  电子邮件是: $emailaddress\n\n"; print OUTMAIL "  注册时间是: $lasttime.\n\n"; print OUTMAIL "  工作职务是: $youposition.\n\n"; print OUTMAIL "  性别: $aoGender.\n\n"; print OUTMAIL "  通信地址一是: $address1.\n\n"; print OUTMAIL "  通信地址二是: $address2.\n\n"; print OUTMAIL "  城市名: $city.\n\n"; print OUTMAIL "  州或省份是: $state.\n\n"; print OUTMAIL "  邮政编码是: $zipcode.\n\n"; print OUTMAIL "  国别是: $country.\n\n"; print OUTMAIL "  电话号码: $phonenumber.\n\n"; print OUTMAIL "  企业名称: $company.\n\n\n"; print OUTMAIL "\n\n"; close(OUTMAIL); open (OUTMAIL,"| $mailprg") || die "Mail system error"; print OUTMAIL "To: $yjhf1\n"; print OUTMAIL "Subject: 国外地矿企业加入分会提醒邮件\n"; print OUTMAIL "  首先, 非常高兴您收到了这封邮件!\n"; print OUTMAIL "这是一封论坛系统自动生成的邮件,请不要回信。\n\n"; print OUTMAIL "  注册姓名是: $name.\n\n"; print OUTMAIL "  电子邮件是: $emailaddress\n\n"; print OUTMAIL "  注册时间是: $lasttime.\n\n"; print OUTMAIL "  工作职务是: $youposition.\n\n"; print OUTMAIL "  性别: $aoGender.\n\n"; print OUTMAIL "  通信地址一是: $address1.\n\n"; print OUTMAIL "  通信地址二是: $address2.\n\n"; print OUTMAIL "  城市名: $city.\n\n"; print OUTMAIL "  州或省份是: $state.\n\n"; print OUTMAIL "  邮政编码是: $zipcode.\n\n"; print OUTMAIL "  国别是: $country.\n\n"; print OUTMAIL "  电话号码: $phonenumber.\n\n"; print OUTMAIL "  企业名称: $company.\n\n\n"; print OUTMAIL "\n\n"; close(OUTMAIL); open (OUTMAIL,"| $mailprg") || die "Mail system error"; print OUTMAIL "To: $yjhf2\n"; print OUTMAIL "Subject: 国外地矿企业加入分会提醒邮件\n"; print OUTMAIL "  首先, 非常高兴您收到了这封邮件!\n"; print OUTMAIL "这是一封论坛系统自动生成的邮件,请不要回信。\n\n"; print OUTMAIL "  注册姓名是: $name.\n\n"; print OUTMAIL "  电子邮件是: $emailaddress\n\n"; print OUTMAIL "  注册时间是: $lasttime.\n\n"; print OUTMAIL "  工作职务是: $youposition.\n\n"; print OUTMAIL "  性别: $aoGender.\n\n"; print OUTMAIL "  通信地址一是: $address1.\n\n"; print OUTMAIL "  通信地址二是: $address2.\n\n"; print OUTMAIL "  城市名: $city.\n\n"; print OUTMAIL "  州或省份是: $state.\n\n"; print OUTMAIL "  邮政编码是: $zipcode.\n\n"; print OUTMAIL "  国别是: $country.\n\n"; print OUTMAIL "  电话号码: $phonenumber.\n\n"; print OUTMAIL "  企业名称: $company.\n\n\n"; print OUTMAIL "\n\n"; close(OUTMAIL); print "Content-type: text/html\n\n"; print < Sign up
 
Congratulations, You have sign up successful!

 

 

 

If you have any questions for us , just email us at \cma\@167.net\<\/a\> or you can waiting for paper letter to Association!
EOF exit; } ######################## sub errorview { print "Content-type: text/html\n\n"; print ""; exit; }