[cvs] / gkbweb / htdocs / shared / run / sendmail.php  

cvs: gkbweb/htdocs/shared/run/sendmail.php

File: [cvs] / gkbweb / htdocs / shared / run / sendmail.php (download) (as text)
Revision: 1.1, Wed Jul 21 17:43:42 2004 UTC (8 years, 10 months ago) by tmcnulty
Branch point for: MAIN, ppckernel
Initial revision


<?php
    
echo "this script has been disabled";
    exit();
    include(
$DOCUMENT_ROOT."/shared/inc/global.inc");
    include(
"$html/shared/inc/sha.inc");
    include(
"$html/shared/inc/wordwrap.inc");
    include(
"$html/shared/inc/email.inc");
    
    
dbconnect();
    
    
header("Content-type: text/plain");

    
$sha = new SHA;
    
$h $sha->hash_string($password);
    if (
$h[0] != 1694913223 || $h[1] != 1380021169 || $h[2] != 756512863 || $h[3] != -1013921340 || $h[4] != -146804100) {
        echo 
"Access denied.\n";
        exit;
    }
    
    
clearstatcache();
    
    
$host "www.ppckernel.org";
    
    
$info = new buildinfo($kernel);
    
    if (
$q mysql_query("select builds.id, fullname, type from builds, mastertrees where safename=\"$kernel\" and builds.master_id=mastertrees.id")) {
        if (
$r mysql_fetch_object($q)) {
            if (
$qq mysql_query("SELECT email FROM kernel_list where $r->type=1")) { 
        
//    if ($qq = mysql_query("SELECT email FROM kernel_list where $r->type=1 and email=\"tmcnulty@datadesk.com\"")) {
                
while ($rr mysql_fetch_object($qq)) {
                    
$msg = new email($rr->email,"updates@ppckernel.org","New Kernel: $kernel-$info->version");
                    echo 
$rr->email "\n";
$msg->writeline("A new build of the $r->fullname kernel for PowerPC computers is 
available for download at $host.

Version:     $info->version
Build Date:  $info->date
Download:    http://www.ppckernel.org/kernel.php?id=$r->id

You are receiving this e-mail because you have subscribed to the kernel updates 
mailing list at $host.  If you would like to be removed from this 
list, visit $host/unsubscribe.php.  If you would like to edit your 
mailing list preferences, visit $host/list.php"
);
$msg->send();

                }
            }
        }
    }
    

    
    echo 
"Access granted.\n";
?>

Tobias McNulty

Powered by ViewCVS 1.0-dev
(Powered by ViewCVS)

ViewCVS and CVS Help