| Server IP : 208.122.213.31 / Your IP : 216.73.216.185 Web Server : Apache System : Linux msd6191.mjhst.com 4.18.0-553.137.1.el8_10.x86_64 #1 SMP Wed Jun 24 11:40:24 UTC 2026 x86_64 User : WHMCS_MIA_382 ( 1001) PHP Version : 7.4.33 Disable Function : NONE MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /home/httpd/html/bukkake-mpegs.com/cgi-bin/ |
Upload File : |
#!/usr/bin/perl
################################################################################
#
#Rate a site version 1
#GB Resources http://cgi-resource.co.uk
#
#Links in success and error page must be left intact
#
################################################################################
getdata(%fields);
#paths to where you want to put the data files and where your graph images are.
$dpaths = "votedata";
$ipaths = "/cgi-bin/votedata";
if ($fields{'rating'}){
&vote;
}
else {
&display;
}
sub vote {
################################################################################
my ($data, $id, $votes, $nvotes, $rating, $nrating, $ip);
print "Content-type: text/html\n\n";
print "error no rating given, please go back and select a rating" and return unless (($fields{'rating'} > 0) and ($fields{'rating'} < 11));
$id = $fields{'id'};
if (open(VOTE,"$dpaths/ratem$id.txt")) {
chomp ($data = <VOTE>);
close(VOTE);
($votes, $rating, $ip) = split(/\|/,$data);
&vote_error and return if ($ENV{'REMOTE_ADDR'} eq $ip);
$nvotes = $votes + 1;
$nrating = sprintf ("%.2f", ((($rating*$votes) + $fields{'rating'})/$nvotes));
open (VOTE, ">$dpaths/ratem$id.txt") or die("doh, there is the following problem: $! \n");
print VOTE "$nvotes|$nrating|$ENV{'REMOTE_ADDR'}";
close VOTE;
}
else {
open (VOTE, ">$dpaths/ratem$id.txt") or die("doh, there is the following problem: $! \n");
print VOTE "1|$fields{'rating'}|$ENV{'REMOTE_ADDR'}";
close VOTE;
}
&vote_success;
}
sub display {
################################################################################
#display the current results in a graph
my ($data, $id, $votes, $nvotes, $rating, $nrating, $ip);
print "Content-type: text/html\n\n";
$id = $fields{'id'};
print "error" and return if (!$id);
print qq|<form action="$ENV{'SCRIPT_NAME'}" METHOD=POST>
<input type="hidden" name="id" value="$id">
<SELECT name="rating" style="font-size: 8">
<OPTION>---</OPTION>
<OPTION>1</OPTION>
<OPTION>2</OPTION>
<OPTION>3</OPTION>
<OPTION>4</OPTION>
<OPTION>5</OPTION>
<OPTION>6</OPTION>
<OPTION>7</OPTION>
<OPTION>8</OPTION>
<OPTION>9</OPTION>
<OPTION>10</OPTION>
</SELECT>
<input type="submit" value="Vote" style="font-size: 8">
<font FACE="Verdana,Sans-Serif" SIZE="-1">|;
if (open (VOTE,"$dpaths/ratem$id.txt")){
chomp ($data = <VOTE>);
close(VOTE);
($votes, $rating, $ip) = split(/\|/,$data);
$rate = int($rating);
#print out the html
print qq|
Votes:<b>$votes</b> Rating = </font>$rating</form>
|;
}
else {
print qq|
No votes yet!</font></form>|;
}
}
sub vote_success {
################################################################################
#print a success page
print qq|
<html>
<head>
<title>
Vote Success - Bukkake Mpegs
</title>
</head>
<body text="#FFFF00" bgcolor="#000000" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF">
<span class="maintitle">
<b> Vote added:
</b><br><br>
Thanks for Rating this Facial! Be sure to check back daily for all our galleries!
<br>
<br>
Also remember to come back on Mondays for 4 more Facials to vote on!
<br><br><br>
<br><br> <br>
<p><font size="+1">Go Back to our Main Page <a href="http://www.bukkake-mpegs.com/"><font color="Yellow"> HERE</font></font></a></p>
<br><br><br>
Rate a site by <font size="-1"><a href="http://cgi-resource.co.uk">GB Resources</font></a>
</body>
</html>
|;
}
sub vote_error {
################################################################################
#print an error page
print "Content-type: text/html\n\n";
print qq|
<html>
<head>
<title>
Bukkake Mpegs.com - Voting Error
</title>
</head>
<body text="White" bgcolor="#333399">
<b>Vote error:</b><br><br>
You have already voted today! You can only vote once a day per please per facial/girl.
<br><br><br>
<p><font size="+2">Go Back to our Main Page <a href="http://www.bukkake-mpegs.com/"><font color="Yellow">HERE</font></font></a></p>
<br><br><br><br><br>
Rate a site by <font size="-1"><a href="http://cgi-resource.co.uk">GB Resources</font></a>
</body>
</html>
|;
}
sub getdata {
################################################################################
my ($buffer);
if ($ENV{'REQUEST_METHOD'} eq 'GET') {
$buffer = $ENV{'QUERY_STRING'};
}
else {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}
foreach (split(/&/, $buffer)) {
my($key, $value) = split(/=/, $_);
$value =~ tr/+/ /;
$value =~ s/%(..)/pack('c', hex($1))/eg;
$fields{$key} = $value;
}
}