<?PHP  // $Id$

define('USER_SMALL_CLASS', 20);   // Below this is considered small
define('USER_LARGE_CLASS', 200);  // Above this is considered large

/// FUNCTIONS ///////////////////////////////////////////////////////////

function ImageCopyBicubic ($dst_img, $src_img, $dst_x, $dst_y, $src_x, $src_y, $dst_w, $dst_h, $src_w, $src_h) {

    global $CFG;

    if (function_exists("ImageCopyResampled") and $CFG->gdversion >= 2) { 
       return ImageCopyResampled($dst_img, $src_img, $dst_x, $dst_y, $src_x, $src_y,
                                 $dst_w, $dst_h, $src_w, $src_h);
    }

    $totalcolors = imagecolorstotal($src_img);
    for ($i=0; $i<$totalcolors; $i++) { 
        if ($colors = ImageColorsForIndex($src_img, $i)) {
            ImageColorAllocate($dst_img, $colors['red'], $colors['green'], $colors['blue']);
        }
    }

    $scaleX = ($src_w - 1) / $dst_w; 
    $scaleY = ($src_h - 1) / $dst_h; 

    $scaleX2 = $scaleX / 2.0; 
    $scaleY2 = $scaleY / 2.0; 

    for ($j = 0; $j < $dst_h; $j++) { 
        $sY = $j * $scaleY; 

        for ($i = 0; $i < $dst_w; $i++) { 
            $sX = $i * $scaleX; 

            $c1 = ImageColorsForIndex($src_img,ImageColorAt($src_img,(int)$sX,(int)$sY+$scaleY2)); 
            $c2 = ImageColorsForIndex($src_img,ImageColorAt($src_img,(int)$sX,(int)$sY)); 
            $c3 = ImageColorsForIndex($src_img,ImageColorAt($src_img,(int)$sX+$scaleX2,(int)$sY+$scaleY2)); 
            $c4 = ImageColorsForIndex($src_img,ImageColorAt($src_img,(int)$sX+$scaleX2,(int)$sY)); 

            $red = (int) (($c1['red'] + $c2['red'] + $c3['red'] + $c4['red']) / 4); 
            $green = (int) (($c1['green'] + $c2['green'] + $c3['green'] + $c4['green']) / 4); 
            $blue = (int) (($c1['blue'] + $c2['blue'] + $c3['blue'] + $c4['blue']) / 4); 

            $color = ImageColorClosest ($dst_img, $red, $green, $blue); 
            ImageSetPixel ($dst_img, $i + $dst_x, $j + $dst_y, $color); 
        } 
    } 
}


function save_user_image($userid, $filename) {
// Given a filename to a known image, this function scales and crops
// it and saves it in the right place to be a user image.

    global $CFG;

    if (empty($CFG->gdversion)) {
        return false;
    }

    umask(0000);

    if (!file_exists("$CFG->dataroot/users")) {
        if (! mkdir("$CFG->dataroot/users", $CFG->directorypermissions)) {
            return false;
        }
    }

    if (!file_exists("$CFG->dataroot/users/$userid")) {
        if (! mkdir("$CFG->dataroot/users/$userid", $CFG->directorypermissions)) {
            return false;
        }
    }
    
    $originalfile = "$CFG->dataroot/users/$userid/original";

    if (!move_uploaded_file($filename, $originalfile)) {
        return false;
    }

    chmod($originalfile, 0666);

    $imageinfo = GetImageSize($originalfile);
    
    if (empty($imageinfo)) {
        unlink($originalfile);
        return false;
    }
    
    $image->width  = $imageinfo[0];
    $image->height = $imageinfo[1];
    $image->type   = $imageinfo[2];

    switch ($image->type) {
        case 1: 
            if (function_exists("ImageCreateFromGIF")) {
                $im = ImageCreateFromGIF($originalfile); 
            } else {
                notice("GIF not supported on this server");
                unlink($originalfile);
                return false;
            }
            break;
        case 2: 
            if (function_exists("ImageCreateFromJPEG")) {
                $im = ImageCreateFromJPEG($originalfile); 
            } else {
                notice("JPEG not supported on this server");
                unlink($originalfile);
                return false;
            }
            break;
        case 3:
            if (function_exists("ImageCreateFromPNG")) {
                $im = ImageCreateFromPNG($originalfile); 
            } else {
                notice("PNG not supported on this server");
                unlink($originalfile);
                return false;
            }
            break;
        default: 
            unlink($originalfile);
            return false;
    }

    unlink($originalfile);

    if (function_exists("ImageCreateTrueColor") and $CFG->gdversion >= 2) {
        $im1 = ImageCreateTrueColor(100,100);
        $im2 = ImageCreateTrueColor(35,35);
    } else {
        $im1 = ImageCreate(100,100);
        $im2 = ImageCreate(35,35);
    }
    
    $cx = $image->width / 2;
    $cy = $image->height / 2;

    if ($image->width < $image->height) {
        $half = floor($image->width / 2.0);
    } else {
        $half = floor($image->height / 2.0);
    }

    ImageCopyBicubic($im1, $im, 0, 0, $cx-$half, $cy-$half, 100, 100, $half*2, $half*2);
    ImageCopyBicubic($im2, $im, 0, 0, $cx-$half, $cy-$half, 35, 35, $half*2, $half*2);

    // Draw borders over the top.
    $black1 = ImageColorAllocate ($im1, 0, 0, 0);
    $black2 = ImageColorAllocate ($im2, 0, 0, 0);
    ImageLine ($im1, 0, 0, 0, 99, $black1);
    ImageLine ($im1, 0, 99, 99, 99, $black1);
    ImageLine ($im1, 99, 99, 99, 0, $black1);
    ImageLine ($im1, 99, 0, 0, 0, $black1);
    ImageLine ($im2, 0, 0, 0, 34, $black2);
    ImageLine ($im2, 0, 34, 34, 34, $black2);
    ImageLine ($im2, 34, 34, 34, 0, $black2);
    ImageLine ($im2, 34, 0, 0, 0, $black2);

    if (ImageJpeg($im1, "$CFG->dataroot/users/$userid/f1.jpg", 90) and 
        ImageJpeg($im2, "$CFG->dataroot/users/$userid/f2.jpg", 95) ) {
        chmod("$CFG->dataroot/users/$userid/f1.jpg", 0666);
        chmod("$CFG->dataroot/users/$userid/f2.jpg", 0666);
        return 1;
    } else {
        return 0;
    }
}


function print_user($user, $course, $string, $countries) {
/// Prints a summary of a user in a nice little box

    echo "<table width=\"80%\" align=\"center\" border=\"0\" cellpadding=\"10\" cellspacing=\"0\" class=\"userinfobox\">";
    echo "<tr>";
    echo "<td width=100 bgcolor=#ffffff valign=top class=\"userinfoboxside\">";
    print_user_picture($user->id, $course->id, $user->picture, true);
    echo "</a>";
    echo "</td><td width=100% bgcolor=#ffffff valign=top class=\"userinfoboxsummary\">";
    echo "<font size=-1>";
    echo "<font size=3><b>$user->firstname $user->lastname</b></font>";
    echo "<p>";
    if (!empty($user->role) and ($user->role <> $course->teacher)) {
        echo "$string->role: $user->role<br />";
    }
    if ($user->maildisplay == 1 or ($user->maildisplay == 2 and $course->category) or isteacher($course->id)) {
        echo "$string->email: <a href=\"mailto:$user->email\">$user->email</a><br />";
    }
    if ($user->city or $user->country) {
        echo "$string->location: $user->city, ".$countries["$user->country"]."<br />";
    }
    if ($user->lastaccess) {
        echo "$string->lastaccess: ".userdate($user->lastaccess);
        echo "&nbsp (".format_time(time() - $user->lastaccess, $string).")";
    } else {
        echo "$string->lastaccess: $string->never";
    }
    echo "</td><td valign=bottom bgcolor=#ffffff nowrap class=\"userinfoboxlinkcontent\">";

    echo "<font size=1>";
    if (isteacher($course->id)) {
        $timemidnight = usergetmidnight(time());
        echo "<a href=\"../course/user.php?id=$course->id&user=$user->id\">$string->activity</a><br>";
        if (isstudent($course->id, $user->id)) {
            echo "<a href=\"../course/unenrol.php?id=$course->id&user=$user->id\">$string->unenrol</a><br />";
            echo "<a href=\"../course/loginas.php?id=$course->id&user=$user->id\">$string->loginas</a><br />";
        }
    } 
    echo "<a href=\"view.php?id=$user->id&course=$course->id\">$string->fullprofile...</a>";
    echo "</font>";

    echo "</td></tr></table>";
}

?>