<?
  // =========================
  //    OPERACJE NA PLIKACH
  // -------------------------
  
  function file_DeleteLine ($filename, $index) {
    $file = file ($filename);

    $fp = fopen ($filename, "w");
    flock($fp, LOCK_EX);
    for( $w = 0; $w < count($file); $w++ )
    {
      if ($index <> $w)
        fwrite ($fp, $file[$w]);
    }
    flock($fp, LOCK_UN);
    fclose($fp);
  }

  function file_UpdateLine ($filename, $index, $line) {
    $file = file ($filename);
    $file[$index] = $line . "\r\n";

    $fp = fopen ($filename, "w");
    flock($fp, LOCK_EX);
    for( $w = 0; $w < count($file); $w++ )
    {
      fwrite ($fp, $file[$w]);
    }
    flock($fp, LOCK_UN);
    fclose($fp);
  }

  function file_GetLine ($filename, $index) {
    $file = fopen ($filename, "r");
    $line = -1;
    while (!feof ($file)) {
      $buffer = fgets($file, 4096);
      $line++;
      if ($line == $index) {
        fclose ($file);
        return $buffer;
      }
    }
    fclose ($file);
  }

  function file_LinesCount ($filename) {
    if (file_exists($filename)) {
      if (filesize($filename) < 500000) {
        $file = file($filename);
        return count($file);
      } else {
        $file = fopen($filename, 'r');
        while (!feof ($file)) {
          fgets($file, 4096);
        $lines++;
        }
        fclose ($file);
        return $lines - 1;
      }
    } else return 0;
  }

  function file_ReplaceLines ($filename, $from, $to) {
    $file = file ($filename);

    $line = $file[$from];
    $file[$from] = $file[$to];
    $file[$to] = $line;

    $fp = fopen ($filename, "w");
    flock($fp, LOCK_EX);
    for( $w = 0; $w < count($file); $w++ )
    {
      fwrite ($fp, $file[$w]);
    }
    flock($fp, LOCK_UN);
    fclose($fp);
  }

  function file_InsertLine ($filename, $line) {
    $fp = fopen ($filename, "a");
    flock($fp, LOCK_EX);
    fputs ($fp, $line . "\r\n");
    flock($fp, LOCK_UN);
    fclose ($fp);
  }

  function file_InsertLineOnTop ($filename, $line) {
    if (file_exists($filename)) {
      $fp = fopen ($filename, "r");
      if (filesize($filename) > 0) {
        $old_file = fread($fp, filesize($filename));
      }
      fclose ($fp);
    }

    $fp = fopen ($filename, "w");
    flock ($fp, LOCK_EX);
    $file = $line . "\r\n" . $old_file;
    $file = str_replace ("\r\n\r\n", "\r\n", $file);
    fputs ($fp, $file);
    flock ($fp, LOCK_UN);
    fclose ($fp);
  }

  function file_MoveLineToTop ($filename, $index) {
    $line = file_GetLine($filename, $index);
    file_DeleteLine($filename, $index);
    file_InsertLineOnTop($filename, $line);
  }

  function file_SaveToFile ($filename, $something) {
    $fp = fopen ($filename, "w");
    flock($fp, LOCK_EX);
    fputs ($fp, $something);
    flock($fp, LOCK_UN);
    fclose ($fp);
  }

  function file_ReadFromFile ($filename) {
    if (filesize($filename) > 0) {
      $fp = fopen ($filename, "r");
      $file = fread($fp, filesize ($filename));
      fclose ($fp);
      return $file;
    }
  }

  function file_CreateFile ($filename) {
    $fp = fopen ($filename, "w");
    fclose ($fp);
  }
?>