#!/usr/bin/perl package DBI; require DBI; require('config.pl'); &getCookies; # parse form contents &parse_form; # Debugging #open F,">/tmp/index.cgi.$$"; #print F "$ENV{REMOTE_ADDR}\n"; #print F "$ENV{HTTP_REFERER}\n"; #print F "$ENV{HTTP_USER_AGENT}\n"; #foreach (keys %FORM) { # print F "$_=$FORM{$_}\n"; #} #close F; # connect to the database #&refresh301("https://www.coinvertit.com/"); #exit; &connectdb; &text2sql($ENV{HTTP_USER_AGENT}); $useragent_sql = $text2sql; $sql_ips = "insert into accessips set unixtimestamp = UNIX_TIMESTAMP(now()), ip = '$ENV{REMOTE_ADDR}', user_agent = '$useragent_sql'"; $query_ips = &execsql($sql_ips); $query_ips->finish(); $myid=$COOKIE_DATA{$cookieid}; if(($myid==3247)||($myid==10)){ $chatenabled=1; }else{ $chatenabled=0; } if ($ENV{REMOTE_ADDR}) { $IP = $ENV{REMOTE_ADDR}; } else { $IP = 'no IP'; } if ($ENV{HTTP_REFERER}) { $referer = $ENV{HTTP_REFERER}; $referer =~ s/=/-equal-/g; } else { } if ($FORM{'def'}) { $def = $FORM{'def'}; } if ($def eq "profile") { require ($modulespath."/profile.pl"); } elsif ($def eq "searchform") { require ($modulespath."/searchform.pl"); } elsif ($def eq "upload_form") { require ($modulespath."/upload_form.pl"); } elsif ($def eq "login") { &process_login; } elsif ($def eq "remind") { require ($modulespath."/remind.pl"); } elsif ($def eq "send_message") { require ($modulespath."/send_message.pl"); } elsif ($def eq "admin_alert") { require ($modulespath."/admin_alert.pl"); } elsif ($def eq "listmembers") { require ($modulespath."/process_search.pl"); require ($modulespath."/return_results.pl"); } elsif ($def eq 'results') { &calcDirection; require ($modulespath."/return_results.pl"); } elsif ($def eq 'show') { require ($modulespath."/show.pl"); } elsif ($def eq 'localsingles') { require ($modulespath."/localsingles.pl"); } elsif ($def eq 'morelocalsingles') { require ($modulespath."/morelocalsingles.pl"); } elsif ($def eq 'topcities') { require ($modulespath."/topcities.pl"); } elsif ($def eq 'onlinedatingbycity') { require ($modulespath."/onlinedatingbycity.pl"); } elsif ($def eq 'topinterests') { require ($modulespath."/topinterests.pl"); } elsif ($def eq 'topmovies') { require ($modulespath."/topmovies.pl"); } elsif ($def eq 'topmusicbands') { require ($modulespath."/topmusicbands.pl"); } elsif ($def eq 'datingbyprofessions') { require ($modulespath."/datingbyprofessions.pl"); } elsif ($def eq 'toprated') { require ($modulespath."/toprated.pl"); } elsif ($def eq 'showmessage') { require ($modulespath."/showmessage.pl"); } elsif ($def eq 'order') { require ($modulespath."/order.pl"); } elsif ($def eq 'addtofav') { require ($modulespath."/addtofav.pl"); } elsif ($def eq 'rate') { require ($modulespath."/rate.pl"); } elsif ($def eq 'myfavorites') { require ($modulespath."/myfavorites.pl"); } elsif ($def eq 'v') { require ($modulespath."/v.pl"); } elsif ($def eq 'hotpicturerating') { require ($modulespath."/hotpicturerating.pl"); } elsif ($def eq 'myaccount') { require ($modulespath."/myaccount.pl"); } elsif ($def eq 'myinbox') { require ($modulespath."/myinbox.pl"); } elsif ($def eq 'mysent') { require ($modulespath."/mysent.pl"); } elsif ($def eq 'myprofile') { require ($modulespath."/myprofile.pl"); } elsif ($def eq 'showorder') { require ($modulespath."/showorder.pl"); } elsif ($def eq 'invitefriends') { require ($modulespath."/invitefriends.pl"); } elsif ($def eq 'sendfriendinvitations') { require ($modulespath."/sendfriendinvitations.pl"); } elsif ($def eq 'step1') { require ($modulespath."/step1.pl"); } elsif ($def eq 'showorder_dp') { $deleted_profile = 1; require ($modulespath."/showorder.pl"); } elsif ($def eq 'buy_membership') { require ($modulespath."/buy_membership.pl"); } elsif ($def eq 'premiumservices') { require ($modulespath."/premiumservices.pl"); } elsif ($def eq "addbid") { require ($modulespath."/addbid.pl"); } elsif ($def eq "logout") { require ($modulespath."/logout.pl"); } elsif ($def eq "save_add_edit_form") { require ($modulespath."/saveprofile.pl"); } elsif ($def eq "delete_profile") { require ($modulespath."/delete_profile.pl"); } elsif ($def eq "delete_photo") { require ($modulespath."/delete_photo.pl"); } elsif ($def eq "getlovepoints") { require ($modulespath."/getlovepoints.pl"); } elsif ($def eq "mailfriends") { require ($modulespath."/mailfriends.pl"); } elsif ($def eq "profilealertform") { require ($modulespath."/profilealertform.pl"); } elsif ($def eq "saveprofilealert") { require ($modulespath."/saveprofilealert.pl"); } elsif ($def eq "privacy") { require ($modulespath."/privacy.pl"); } elsif ($def eq "tos") { require ($modulespath."/tos.pl"); } elsif ($def eq "moderators") { require ($modulespath."/moderators.pl"); } elsif ($def eq "main") { require ($modulespath."/main.pl"); } elsif ($def eq "contactusform") { require ($modulespath."/contactusform.pl"); } elsif ($def eq "contactus") { require ($modulespath."/contactus.pl"); } elsif ($def eq "moderator_feedback") { require ($modulespath."/moderator_feedback.pl"); } elsif ($def eq "moderator_comments") { require ($modulespath."/moderator_comments.pl"); } elsif ($def eq "deletemessage") { require ($modulespath."/deletemessage.pl"); } elsif ($def eq "loginform") { &loginform; } elsif ($def eq "verifyemail") { require ($modulespath."/verifyemail.pl"); } elsif ($def eq "del") { &del; } else { require ($modulespath."/main.pl"); } &disconnectdb; __END__