Buscador

Secciones

Noticias Blogs Cursos Artículos Foros Código fuente Direcciones Formación Tienda Cursos y masters

Registro

¡Colabora!

Envía código fuente Envía una noticia Añade una dirección Publica un curso Publica un artículo

Ganamos

Servicios

Registro Buscador

Inicio > Código fuente > Internet > PHP > SMB Web Client

Código fuente

SMB Web Client

Autor: Victor M. Varela

Script PHP que permite acceder a redes Windows a traves del navegador.

<?php
/**
* SmbWebClient: web frontend to smbclient (www.samba.org)
*
* by Victor M. Varela <vmvarela@nivel0.net>
*
* {$Id: smbwebclient.php,v 1.10 2004/02/07 21:17:49 vmvarela Exp $}
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
* GNU General Public License for more details.
*
* ---
* You can download the latest version at:
*  http://www.nivel0.net/SmbWebClient
*
* You can edit your translation at:
*  http://www.nivel0.net/SmbWebClientTranslation
*
* Please send suggestions, bugs etc to: vmvarela@nivel0.net
*
* Thanks to:
*  French language: Sam Przysca/Christopher Zaragoza/Maria Iglesias
*
* Quick install:
*
* 1) To get SMB Web Client to work, make sure that you
*    have Apache and PHP 4.1.x installed.
*
* 2) Download from http://www.nivel0.net/SmbWebClient
*
* 3) Untar compressed file
*  $ tar xzf smbwebclient-XX.XX.tgz
*  $ cp smbwebclient.php /var/www
*
* 4) Change your settings (editing smbwebclient.php) (see below)
*
* 5) go to http://your-server-url/smbwebclient.php and
*    enter a valid Windows user and password
*/

// CONFIGURATION

define (\'cfgSambaRoot\',       \'\');   // DOMAIN/SERVER/SHARE/path
define (\'cfgCachePath\',       \'\');   // path to cache files (\'\' = disabled)
define (\'cfgDefaultLanguage\', \'en\'); // en, es, fr
define (\'cfgLogFile\',         \'\');   // path to log file (\'\' = disabled)

// ----> end of configuration, you don\'t need to edit after this line !!! <----

class SmbWebClient {

// VARIABLES
  
var $strings = array (
  \'en\' => array (\'Windows Network\',\'Name\',\'Size\',\'Comments\',\'Modified\',\'Attributes\',\'m/d/Y h:i\',\'Print\',\'Delete Selected\',\'New File\',\'Cancel Selected\',\'User\',\'Password\',\'login\'),
  \'es\' => array (\'Red Windows\',\'Nombre\',\'Tamaño\',\'Comentarios\',\'Modificado\',\'Atributos\',\'d/m/Y h:i\',\'Imprimir\',\'Borrar Marcados\',\'Nuevo Archivo\',\'Cancelar Marcados\',\'Usuario\',\'Contraseña\',\'identificarse\'),
  \'fr\' => array (\'Reseau Windows\', \'Nom\', \'Volume\', \'Commentaires\', \'Modifier\', \'Attributs\', \'m/d/Y h:i\', \'Imprimer\', \'L\'effacement a choisi\', \'Nouveau Fichier\', \'L\'annulation a choisi\', \'Utilisateur\', \'Mot de Passe\', \'connexion\')
);

var $mime_types = array (
  \'%\'=>\'application/x-trash\',\'ai\'=>\'application/postscript\',\'aif\'=>\'audio/x-aiff\',
  \'aifc\'=>\'audio/x-aiff\',\'aiff\'=>\'audio/x-aiff\',\'asc\'=>\'text/plain\',\'asf\'=>\'video/x-ms-asf\',
  \'asx\'=>\'video/x-ms-asf\',\'au\'=>\'audio/basic\',\'avi\'=>\'video/x-msvideo\',
  \'bak\'=>\'application/x-trash\',\'bat\'=>\'application/x-msdos-program\',
  \'bin\'=>\'application/octet-stream\',\'bmp\'=>\'image/x-ms-bmp\',\'com\'=>\'application/x-msdos-program\',
  \'cpio\'=>\'application/x-cpio\',\'css\'=>\'text/css\',\'csv\'=>\'text/comma-separated-values\',
  \'deb\'=>\'application/x-debian-package\',\'diff\'=>\'text/plain\',\'dl\'=>\'video/dl\',
  \'dll\'=>\'application/x-msdos-program\',\'doc\'=>\'application/msword\',\'dot\'=>\'application/msword\',
  \'dvi\'=>\'application/x-dvi\',\'eps\'=>\'application/postscript\',\'exe\'=>\'application/x-msdos-program\',
  \'fli\'=>\'video/fli\',\'gif\'=>\'image/gif\',\'gl\'=>\'video/gl\',\'gsm\'=>\'audio/x-gsm\',
  \'gtar\'=>\'application/x-gtar\',\'htm\'=>\'text/html\',\'html\'=>\'text/html\',\'ief\'=>\'image/ief\',
  \'jpe\'=>\'image/jpeg\',\'jpeg\'=>\'image/jpeg\',\'jpg\'=>\'image/jpeg\',\'js\'=>\'application/x-javascript\',
  \'kar\'=>\'audio/midi\',\'lha\'=>\'application/x-lha\',\'m3u\'=>\'audio/x-mpegurl\',
  \'mdb\'=>\'application/msaccess\',\'mid\'=>\'audio/midi\',\'midi\'=>\'audio/midi\',\'mng\'=>\'video/x-mng\',
  \'mov\'=>\'video/quicktime\',\'mp2\'=>\'audio/mpeg\',\'mp3\'=>\'audio/mpeg\',\'mpe\'=>\'video/mpeg\',
  \'mpeg\'=>\'video/mpeg\',\'mpg\'=>\'video/mpeg\',\'mpga\'=>\'audio/mpeg\',\'msi\'=>\'application/x-msi\',
  \'ogg\'=>\'application/x-ogg\',\'old\'=>\'application/x-trash\',\'pbm\'=>\'image/x-portable-bitmap\',
  \'pcx\'=>\'image/pcx\',\'pdf\'=>\'application/pdf\',\'pgm\'=>\'image/x-portable-graymap\',
  \'pgp\'=>\'application/pgp-signature\',\'pls\'=>\'audio/x-scpls\',\'png\'=>\'image/png\',
  \'pnm\'=>\'image/x-portable-anymap\',\'pot\'=>\'application/vnd.ms-powerpoint\',
  \'ppm\'=>\'image/x-portable-pixmap\',\'pps\'=>\'application/vnd.ms-powerpoint\',
  \'ppt\'=>\'application/vnd.ms-powerpoint\',\'ps\'=>\'application/postscript\',\'qt\'=>\'video/quicktime\',
  \'ra\'=>\'audio/x-realaudio\',\'ram\'=>\'audio/x-pn-realaudio\',\'rgb\'=>\'image/x-rgb\',
  \'rm\'=>\'audio/x-pn-realaudio\',\'rpm\'=>\'audio/x-pn-realaudio-plugin\',\'rtf\'=>\'text/rtf\',
  \'rtx\'=>\'text/richtext\',\'sid\'=>\'audio/prs.sid\',\'sik\'=>\'application/x-trash\',\'snd\'=>\'audio/basic\',
  \'svg\'=>\'image/svg+xml\',\'svgz\'=>\'image/svg+xml\',\'swf\'=>\'application/x-shockwave-flash\',
  \'swfl\'=>\'application/x-shockwave-flash\',\'tar\'=>\'application/x-tar\',\'taz\'=>\'application/x-gtar\',
  \'text\'=>\'text/plain\',\'tgz\'=>\'application/x-gtar\',\'tif\'=>\'image/tiff\',\'tiff\'=>\'image/tiff\',
  \'tsv\'=>\'text/tab-separated-values\',\'txt\'=>\'text/plain\',\'vcf\'=>\'text/x-vcard\',
  \'vcs\'=>\'text/x-vcalendar\',\'wav\'=>\'audio/x-wav\',\'xbm\'=>\'image/x-xbitmap\',\'xhtml\'=>\'text/html\',
  \'xlb\'=>\'application/vnd.ms-excel\',\'xls\'=>\'application/vnd.ms-excel\',\'xml\'=>\'text/xml\',
  \'xpm\'=>\'image/x-xpixmap\',\'xsl\'=>\'text/xml\',\'zip\'=>\'application/zip\',\'~\'=>\'application/x-trash\'
);

var $info = array();

// MAIN FUNCTION

// URL

/**
* Parse current url
*/
function ParseUrl() {
  ereg(\'^\'.$_SERVER[\'SCRIPT_NAME\'].\'(.*)$\', $_SERVER[\'REQUEST_URI\'], $url);
  $a = split (\'?\', ereg_replace(\'^/\',\'\',$url[1]));
  $this->path = urldecode(ereg_replace(\'/$\', \'\', $a[0]));
  foreach (split(\'&\',$a[1]) as $cmd) {
    $a = split(\'=\', $cmd);
    $this->get[urldecode($a[0])] = urldecode($a[1]);
  }
}

/**
* Return current url without any params
*/
function GetUrl() {
  $a = split(\'?\', $_SERVER[\'REQUEST_URI\']);
  return $a[0];
}

/**
* Set type and name of samba object
*/
function GetTarget() {
  if (\'\' == $path = ($this->path == \'\') ? cfgSambaRoot : ereg_replace(\'^/\', \'\', cfgSambaRoot.\'/\'.$this->path)) {
    $this->type = \'Network\';
    $this->name = $this->GetString(0);
  } else {
    $a = split(\'/\',$path);
    $this->info = array(\'workgroup\'=>$a[0],\'server\'=>$a[1],\'share\'=>$a[2]);
    for ($i=3; $i<count($a)-1; $i++) $this->info[\'path\'] .= $a[$i].\'/\';
    $this->info[\'path\'] .= $a[$i];
    switch (count($a)) {
      case 1:  $this->type = \'Workgroup\'; break;
      case 2:  $this->type = \'Server\'; break;
      default: $this->type = \'Share\';
    }
    $this->name = basename($path);
  }
}

// LANGUAGES

/**
* Set current language
*/
function GetLanguage() {
  if (isset($this->get[\'lang\']) AND is_array($this->strings[$this->get[\'lang\']]))
    $_SESSION[\'SmbWebClient_Lang\'] = $this->get[\'lang\'];
  if (! isset($_SESSION[\'SmbWebClient_Lang\'])) {
    foreach (split(\'[,;]\',$_SERVER[\'HTTP_ACCEPT_LANGUAGE\']) as $lang)
      if (is_array($this->strings[$lang])) { $_SESSION[\'SmbWebClient_Lang\'] = $lang; break; }
    if (! isset($_SESSION[\'SmbWebClient_Lang\'])) $_SESSION[\'SmbWebClient_Lang\'] = cfgDefaultLanguage;
  }
  $this->lang = $_SESSION[\'SmbWebClient_Lang\'];
}

/**
* Get a string
*/
function GetString($i) {
  return $this->strings[$this->lang][$i];
}

// SAMBA INTERFACE

/**
* Builds a samba command
*/
function SmbClient ($cmd, $path = \'\') {
  if ($path <> \'\') $path = \"-D \\\"{$path}\\\"\";
  return \"smbclient \\\"//{$this->info[\'server\']}/{$this->info[\'share\']}\\\" {$path} -N -U {$this->auth} -c \\\"{$cmd}\\\"\";
}

/**
* smbclient interface (commands: browse or download)
*/
function Samba ($command, $path=\'\') {
  $this->info[\'error\'] = \'\';
  switch ($command) {
    case \'browse\':
      $this->info[\'shares\'] = $this->info[\'servers\'] = $this->info[\'workgroups\'] = $this->info[\'files\'] = array();
      $server = ($this->info[\'server\'] == \'\') ? \'localhost\' : $this->info[\'server\'];
      if ($this->type <> \'Share\')
        $cmd = \"smbclient -L {$server} -N -U {$this->auth}\";
      else {
        if ($path == \'\') $path = $this->info[\'path\'];
        $cmd = $this->SmbClient(\"dir\", $path);
      }
      break;
    case \'spool\':
      $this->info[\'files\'] = array();
      $this->type = \'Printer\';
      $cmd = $this->SmbClient(\"queue\");
      break;
    case \'get\':
      $cmd = $this->SmbClient(\"dir \\\"\".basename($this->info[\'path\']).\"\\\"\", dirname($this->info[\'path\']));
      break;
    case \'get2\':
      $this->type = \'File\';
      $this->size = $this->info[\'files\'][$this->name][\'size\'];
      $this->time = $this->info[\'files\'][$this->name][\'time\'];
      $this->cachefile = (cfgCachePath == \'\') ? tempnam(\"/tmp\",\"swc\") : cfgCachePath.\'/\'.$this->path;
      if ($this->time <> \'\') {
        if (cfgCachePath == \'\' OR (!file_exists($this->cachefile)) OR filemtime($this->cachefile) < $time) {
          if (cfgCachePathcache <> \'\' AND !is_dir(dirname($this->cachefile))) $this->MakeDirectory(dirname($this->cachefile));
          $path = str_replace(\'/\',\'\',$this->info[\'path\']);
          $cmd = $this->SmbClient(\"get \\\"{$path}\\\" \\\"{$this->cachefile}\\\"\");
        }
      }
      break;
    case \'put\':
      $cmd = $this->SmbClient(\"put \\\"{$_FILES[\'file\'][\'tmp_name\']}\\\" \\\"{$_FILES[\'file\'][\'name\']}\\\"\", $this->info[\'path\']);
      break;
    case \'print\':
      $cmd = $this->SmbClient(\"print \\\"{$_FILES[\'file\'][\'tmp_name\']}\\\"\");
      break;
    case \'cancel\':
      $cmd = $this->SmbClient(\"cancel {$path}\");
      break;
    case \'delete\':
      $directory = $this->info[\'path\'].\'/\'.dirname($path);
      $cmd = $this->SmbClient(\"del \\\"\".basename($path).\"\\\"\", $directory);
      break;
    case \'deltree\':
      $this->Samba(\'browse\',$path);
      $files = $this->info[\'files\'];
      foreach ($files as $filename => $info) $this->Samba(\'delete\', $path.\'/\'.$filename);
      $cmd = $this->SmbClient(\"rmdir \\\"{$path}\\\"\", $this->info[\'path\']);
  }
  $this->Debug(\"n$ $cmdn\",2);
  $ocmd = `{$cmd}`;
  $this->Debug($ocmd, 3);
  $ipv4 = \"([0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3})\";
  foreach (split(\"n\",$ocmd) as $line) {
    $regs = array();
    if (ereg(\"^added interface ip={$ipv4} bcast={$ipv4} nmask={$ipv4}$\",$line,$regs)) {
      $this->info[\'interface\'] = array($regs[1], $regs[2], $regs[3]);
    } else if ($line == \"Anonymous login successful\") {
      $this->info[\'anonymous\'] = true;
    } else if (ereg(\"^Domain=[(.*)] OS=[(.*)] Server=[(.*)]$\",$line,$regs)) {
      $this->info[\'description\'] = array($regs[1], $regs[2], $regs[3]);
    } else if (ereg(\"^tSharename[ ]+Type[ ]+Comment$\",$line,$regs)) {
      $mode = \'shares\';
    } else if (ereg(\"^t---------[ ]+----[ ]+-------$\",$line,$regs)) {
      continue;
    } else if (ereg(\"^tServer   [ ]+Comment$\",$line,$regs)) {
      $mode = \'servers\';
    } else if (ereg(\"^t---------[ ]+-------$\",$line,$regs)) {
      continue;
    } else if (ereg(\"^tWorkgroup[ ]+Master$\",$line,$regs)) {
      $mode = \'workgroups\';
    } else if (ereg(\"^t(.*)[ ]+(Disk|IPC)[ ]+IPC.*$\",$line,$regs)) {
      continue;
    } else if (ereg(\"^tIPC$(.*)[ ]+IPC\",$line,$regs)) {
      continue;
    } else if (ereg(\"^t(.*)[ ]+(Disk|Printer)[ ]+(.*)$\",$line,$regs)) {
      if (trim($regs[1]) <> \'IPC$\') $this->info[\'shares\'][trim($regs[1])] = array (\'type\'=>$regs[2], \'comment\'=>$regs[3]);
    } else if (ereg(\'([0-9]+) blocks of size ([0-9]+). ([0-9]+) blocks available\', $line, $regs)) {
      $this->info[\'size\'] = $regs[1] * $regs[2];
      $this->info[\'available\'] = $regs[3] * $regs[2];
    } else if (ereg(\"Got a positive name query response from $ipv4\",$line,$regs)) {
      $this->info[\'ip\'] = $regs[1];
    } else if (ereg(\"^session setup failed: (.*)$\", $line, $regs)) {
      $this->info[\'error\'] = $regs[1];
    } else if ($line == \'session setup failed: NT_STATUS_LOGON_FAILURE\' or ereg(\'^tree connect failed: ERRSRV - ERRbadpw\', $line)) {
      $this->info[\'error\'] = \'NT_STATUS_LOGON_FAILURE\';
    } else if (ereg(\"^Error returning browse list: (.*)$\", $line, $regs)) {
      $this->info[\'error\'] = $regs[1];
    } else if (ereg(\"^tree connect failed: (.*)$\", $line, $regs)) {
      $this->info[\'error\'] = $regs[1];
    } else if (ereg(\"^Connection to .* failed$\", $line, $regs)) {
      $this->info[\'error\'] = \'CONNECTION_FAILED\';
    } else if (ereg(\'^NT_STATUS_INVALID_PARAMETER\', $line)) {
      $this->info[\'error\'] = \'NT_STATUS_INVALID_PARAMETER\';
    } else if (ereg(\'^NT_STATUS_DIRECTORY_NOT_EMPTY removing\', $line)) {
      $this->info[\'error\'] = \'NT_STATUS_DIRECTORY_NOT_EMPTY\';
    } else if (ereg(\'ERRDOS - ERRbadpath (Directory invalid.)\', $line) or ereg(\'NT_STATUS_NOT_A_DIRECTORY\', $line)) {
      if ($this->type <> \'File\') return $this->Samba(\'get\');
      $this->info[\'error\'] = \'NT_STATUS_NOT_A_DIRECTORY\';
    } else if (ereg(\'^NT_STATUS_NO_SUCH_FILE listing \', $line)) {
      if ($command == \'delete\') return $this->Samba(\'deltree\', $path);
      if ($this->type == \'Share\' AND $this->info[\'path\'] == \'\') return $this->Samba(\'spool\');
      $this->info[\'error\'] = \'NT_STATUS_NO_SUCH_FILE\';
    } else if (ereg(\'^NT_STATUS_ACCESS_DENIED listing \', $line)) {
      if ($this->type == \'Share\' AND $this->info[\'path\'] == \'\') return $this->Samba(\'spool\');
      $this->info[\'error\'] = \'NT_STATUS_ACCESS_DENIED\';
    } else if (ereg(\'^cd (.*): NT_STATUS_OBJECT_PATH_NOT_FOUND$\', $line)) {
      if ($this->type <> \'File\') return $this->Samba(\'get\');
      $this->info[\'error\'] = \'NT_STATUS_OBJECT_PATH_NOT_FOUND\';
    } else if (ereg(\"^t(.*)$\", $line, $regs)) {
      $this->info[$mode][trim(substr($line,1,21))] = array (
        \'type\'=>($mode == \'servers\') ? \'Server\' : \'Workgroup\',
        \'comment\' => trim(substr($line,22))
      );
    } else if ($command == \'spool\' AND ereg(\"^([0-9]+)[ ]+([0-9]+)[ ]+(.*)$\", $line, $regs)) {
      $this->info[\'files\'][$regs[1].\' \'.$regs[3]] = array(\'type\'=>\'PrintJob\',\'id\'=>$regs[1], \'size\'=>$regs[2]);
    } else if (ereg(\"^[ ]+(.*)[ ]+([0-9]+)[ ]+(Mon|Tue|Wed|Thu|Fri|Sat|Sun)[ ](Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec)[ ]+([0-9]+)[ ]+([0-9]{2}:[0-9]{2}:[0-9]{2})[ ]([0-9]{4})$\", $line, $regs)) {
      if (ereg(\"^(.*)[ ]+([D|A|H|S|R]+)$\", trim($regs[1]), $regs2)) {
        $attr = trim($regs2[2]);
        $name = trim($regs2[1]);
      } else {
        $attr = \'\';
        $name = trim($regs[1]);
      }
      if ($name <> \'.\' AND $name <> \'..\')
      $this->info[\'files\'][$name] = array (
        \'attr\' => $attr,
        \'size\' => $regs[2],
        \'time\' => $this->ParseTime($regs[4],$regs[5],$regs[7],$regs[6]),
        \'type\' => (strpos($attr,\'D\') === false) ? \'File\' : \'Directory\'
      );
    }
  }
  if ($command == \'get\') return $this->Samba(\'get2\');
  return $this->info[\'error\'] == \'\';
}

// MIME

/**
* Gets the mime type of a file (default: application/octet-stream)
*/
function GetMimeType($filename) {
  $pi = pathinfo(strtolower($filename));
  $mime_type = $this->mime_types[$pi[\'extension\']];
  return ($mime_type == \'\') ? \'application/octet-stream\' : $mime_type; 
}

/**
* Dumps a file with MIME headers
*/
function GetMimeFile($file=\'\', $name=\'\') {
  if ($name == \'\') $name = basename($file);
  $mime_type = $this->GetMimeType($name);
  header(\'MIME-Version: 1.0\');
  header(\"Content-Type: $mime_type; name =\\\"$name\\\"\");
  header(\"Content-Disposition: filename=\\\"$name\\\"\");
  if ($file <> \'\' AND is_readable($file)) {
    header(\'Content-Length: \'. filesize($file));
    $fp = fopen($file, \"r\");
    while (! feof($fp)) {
      print fread($fp,1024*32);
      flush();
    }
    fclose($fp);
  }
}

/**
* Inline file
*/
function InlineFile($file) {
  $this->GetMimeFile (\'\', basename($file));
  print ($file <> \'style.css\') ? base64_decode($this->binary_files[$file]) : $this->binary_files[$file];
}

// LIST VIEW

/**
* Form action
*/
function ListViewAction () {
  if ($_POST[\'do\'] == $this->GetString(9))      $this->Samba(\'put\');
  else if ($_POST[\'do\'] == $this->GetString(7)) $this->Samba(\'print\');
  else if ($_POST[\'do\'] == $this->GetString(8))
    if (is_array($_POST[\'selected\']))
      foreach ($_POST[\'selected\'] as $filename) $this->Samba(\'delete\', $filename);
  else if ($_POST[\'do\'] == $this->GetString(10))
    if (is_array($_POST[\'selected\']))
      foreach ($_POST[\'selected\'] as $id) $this->Samba(\'cancel\', $id);
  if (! $_SESSION[\'SmbWebClient_Debug\']) {
    header(\"Location: \".$this->GetUrl());
    exit;
  }
}

/**
* Makes an index to show files
*/
function SortItems ($items) {
  // storing order
  if (! isset($_SESSION[\'order\'])) {
    $_SESSION[\'order\'] = \'NA\';
  } elseif ($_GET[\'O\']) {
    if ($_GET[\'O\'] <> $_SESSION[\'order\'][0]) {
      $_SESSION[\'order\'] = $_GET[\'O\'].\'A\';
    } else {
      if ($_SESSION[\'order\'][1] == \'D\')
        $_SESSION[\'order\'] = $_GET[\'O\'].\'A\';
      else
        $_SESSION[\'order\'] = $_GET[\'O\'].\'D\';
    }
  }
  $index = array();
  foreach ($items as $name => $info) $this->InsertItem ($index, $name, $info);
  return $index;
}

/**
* Insert a file in order
*/
function InsertItem(&$index, $name, $info) {
  if (count($index) == 0) {
    $index[] = array (\'name\' => $name, \'info\' => $info);
  } else {
    $index2 = array();
    $inserted = false;
    for ($i = 0; $i < count($index); $i++) {
      if ((! $inserted) AND $this->GreaterThan($index[$i][\'name\'], $index[$i][\'info\'], $name, $info)) {
        $index2[] = array (\'name\' => $name, \'info\' => $info);
        $inserted = true;
      }
      $index2[] = $index[$i];
    }
    if (! $inserted) $index2[] = array (\'name\' => $name, \'info\' => $info);
    $index = $index2;
  }
}

/**
* Compares two file records
*/
function GreaterThan($name1, $info1, $name2, $info2) {
  switch ($_SESSION[\'order\']) {
    case \'SA\': return ($info1[\'size\'] > $info2[\'size\'] OR ($info1[\'size\'] == $info2[\'size\'] AND strtolower($name1) > strtolower($name2)));
    case \'SD\': return ($info1[\'size\'] < $info2[\'size\'] OR ($info1[\'size\'] == $info2[\'size\'] AND strtolower($name1) < strtolower($name2)));
    case \'MA\': return ($info1[\'time\'] > $info2[\'time\'] OR $info1 [\'comment\'] > $info2[\'comment\']);
    case \'MD\': return ($info1[\'time\'] < $info2[\'time\'] OR $info1 [\'comment\'] < $info2[\'comment\']);
    case \'AA\': return ($info1[\'attr\'] > $info2[\'attr\']);
    case \'AD\': return ($info1[\'attr\'] < $info2[\'attr\']);
    case \'NA\': return (strtolower($name1) > strtolower($name2));
    case \'ND\': 
    default:   return (strtolower($name1) < strtolower($name2));
  }
}

/**
* Get columns width
*/
function MakeColumns ($items) {
  $max = array (10,10,10,strlen(date($this->GetString(6),time())),strlen($this->GetString(5)));
  foreach ($items as $name => $info) {
    if (strlen($name) > $max[0]) $max[0] = strlen($name);
    if (strlen($this->FormatBytes($info[\'size\'])) > $max[1]) $max[1] = strlen($this->FormatBytes($info[\'size\']));
    if (strlen($info[\'comment\']) > $max[2]) $max[2] = strlen($info[\'comment\']);
  }
  $fmt[0] = \" %-{$max[0]}.{$max[0]}s \";
  $fmt[1] = \" %{$max[1]}.{$max[1]}s \";
  $fmt[2] = \" %-{$max[2]}.{$max[2]}s \";
  $fmt[3] = \" %-{$max[3]}.{$max[3]}s \";
  $fmt[4] = \" %-{$max[4]}.{$max[4]}s \";
  return $fmt;
}

/**
* Print KB
*/
function FormatBytes ($bytes) {
  if ($bytes < 1024) return \"1 KB\";
  elseif ($bytes < 10*1024*1024) return number_format($bytes / 1024,0) . \" KB\";
  elseif ($bytes < 1024*1024*1024) return number_format($bytes / (1024 * 1024),0) . \" MB\";
  else return number_format($bytes / (1024*1024*1024),0) . \" GB\";
}

/**
* Time from smbclient output format
*/
function ParseTime ($m, $d, $y, $hhiiss) {
  $his= split(\':\', $hhiiss);
  $im = 1 + strpos(\"JanFebMarAprMayJunJulAgoSepOctNovDec\", $m) / 3;
  return mktime($his[0], $his[1], $his[2], $im, $d, $y);
}

// MISC.

/**
* Makes a directory recursively
*/
function MakeDirectory ($path, $mode = 0777) {
  if (strlen($path) == 0) return 0;
  if (is_dir($path)) return 1;
  elseif (dirname($path) == $path) return 1;
  return ($this->MakeDirectory(dirname($path), $mode) and mkdir($path, $mode));
}

/**
* Debugging
*/
function Debug ($message, $level = 1) {
  if (isset($this->get[\'debug\'])) {
    $_SESSION[\'SmbWebClient_Debug\'] = $this->get[\'debug\'];
    unset($this->get[\'debug\']);
  }
  if ($level <= $_SESSION[\'SmbWebClient_Debug\']) {
    if (! isset($this->debug_header)) {
      $this->GetMimeFile(\'\', \'debug.txt\');
      $this->debug_header = 1;
    }
    print $message;
  }
}

/**
* Logging
*/
function Log () {
  if (cfgLogFile <> \'\' AND ($f = fopen(cfgLogFile, \'a\'))) {
    fputs ($f, \"{$_SERVER[\'REMOTE_ADDR\']} - {$_SESSION[\'SmbWebClient_Login\']} [\".date(\'d/M/Y:h:i:s O\').\"] \\\"GET /{$this->path} HTTP/1.1\\\" 200 \".intval($this->size).\" \\\"{$_SERVER[\'REQUEST_URI\']}\\\" \\\"{$_SERVER[\'HTTP_USER_AGENT\']}\\\"n\");
    fclose ($f);
  }
}

/**
* User authentification
*/
function UserAuth () {
  if ($_POST[\'login\']) {
    // form action
    $_SESSION[\'SmbWebClient_Login\'] = $_POST[\'login\'];
    $_SESSION[\'SmbWebClient_Password\'] = $_POST[\'password\'];
  } else if (isset($this->get[\'auth\']) OR !isset($_SESSION[\'SmbWebClient_Login\'])) {
    // form
    print $this->Page (\"\", $this->Block(\'authform\',$this->Form(
      $this->GetString(11).\'<br />\'.
      $this->Input(\'login\').\'<br />\'.
      $this->GetString(12).\'<br />\'.
      $this->Input(\'password\', \'\', \'PASSWORD\').\'<br />\'.
      $this->Input(\'submit\', $this->GetString(13), \'SUBMIT\')
      ,\'POST\',$this->GetUrl())));
    exit;
  }
  $this->auth = \"{$_SESSION[\'SmbWebClient_Login\']}%{$_SESSION[\'SmbWebClient_Password\']}\";
}

// HTML WIDGETS

function Page ($title, $content) {
  return
  \"<!DOCTYPE html PUBLIC \\\"-//W3C//DTD XHTML 1.0 Strict//EN\\\" \\\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\\\">n\".
  \"<html xmlns=\\\"http://www.w3.org/1999/xhtml\\\" xml:lang=\\\"{$_SESSION[\'lang\']}\\\" lang=\\\"{$_SESSION[\'lang\']}\\\">n\".
  \"<head>n\".
  \"  <title>{$title}</title>n\".
  \"  <link rel=\\\"stylesheet\\\" type=\\\"text/css\\\" href=\\\"\".$_SERVER[\'SCRIPT_NAME\'].\"/style.css\\\" />n\".
  $this->javascript.
  \"</head>n\".
  \"<body>n{$content}n</body>n</html>\";
}

}

session_start();
set_time_limit(1200);
clearstatcache();

$smb = new SmbWebClient;
$smb->Run();
?>

Utilidades

	Leer comentarios (2)
	Escribir comentario
	Puntuación: No disponible
	Votar
	Recomendar este código
	Estadísticas

Patrocinados

Hospedaje web y servidores dedicados linux por Ferca Network