<?php
// vim: set binary noeol et sw=4 sts=4 :
// Grupo 10
//
// Lucarella, Schein, Arena
//
// Creado: Leandro Lucarella (lun may  2 20:00:07 ART 2005)
//
// $Id$

require_once 'lib/file.php';

/**
 * Actualiza el archivo de créditos al loguearse.
 * Calcula si hay que restar créditos por días sin preguntar.
 *
 * @return Array con los nuevos valores de crétigos.
 */
function file_creditos_login($user)
{
    $row = file_creditos_get($user);
    if (!$row) return false;
    list($fecha, $creditos, $bonus, $dias) = $row;
    $dias = $dias + secs2dias(time() - $fecha);
    return file_creditos_write($user, $creditos - intval($dias / 30), $bonus,
        $dias % 30);
}

/**
 * Actualiza el archivo de créditos al hacer una pregunta.
 * Se resta un crédito por hacer la pregunta y se resetea la cantidad de
 * días sin preguntar.
 *
 * @return Array con los nuevos valores de créditos.
 */
function file_creditos_preguntar($user)
{
    $row = file_creditos_get($user);
    if (!$row) return false;
    list($fecha, $creditos, $bonus, $dias) = $row;
    return file_creditos_write($user, $creditos - 1, $bonus, 0);
}

/**
 * Actualiza el archivo de créditos al evaluar una respuesta.
 * Calcula si hay que agregar créditos por bonus.
 *
 * @return Array con los nuevos valores de créditos.
 */
function file_creditos_evaluar($user, $es_bonus = false, $bonus_cant = 5)
{
    $row = file_creditos_get($user);
    if (!$row) return false;
    list($fecha, $creditos, $bonus, $dias) = $row;
    if ($es_bonus) $bonus++;
    if ($bonus >= $bonus_cant)
    {
        $creditos += intval($bonus / $bonus_cant) * $bonus_cant;
        $bonus %= $bonus_cant;
    }
    return file_creditos_write($user, $creditos, $bonus, $dias);
}

/**
 * Obtiene los datos de la última entrada del archivo de créditos.
 */
function file_creditos_get($user)
{
    if (($f = fopen("data/$user.creditos.csv", 'r')) === false) return false;
    $seek = intval(trim(fgets($f, 11)));
    fseek($f, $seek);
    return fgetcsv($f, 4096);
}

/**
 * Escribe una nueva entrada en el archivo de créditos (actualiza el 'índice').
 */
function file_creditos_write($user, $creditos, $bonus, $dias)
{
    if (($f = fopen("data/$user.creditos.csv", 'a+')) === false) return false;
    $seek = ftell($f);
    $fecha = time();
    fputcsv($f, array($fecha, $creditos, $bonus, $dias));
    fseek($f, 0);
    fwrite($f, sprintf("%010d\n", $seek), 11);
    return true;
}

/**
 * Convierte segundos a días.
 */
function secs2dias($secs)
{
    return intval($secs / 86400);
}

?>