DaPortal

Browse Download file Permalink

<?php //$Id$

//This file is part of DeforaOS Web DaPortal

//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, version 3 of the License.

//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 should have received a copy of the GNU General Public License

//along with this program. If not, see <http://www.gnu.org/licenses/>.

require_once('./modules/project/scm.php');

//CVSSCMProject

class CVSSCMProject extends SCMProject

{

//public

//CVSSCMProject::attach

public function attach(Engine $engine)

{

global $config;

$this->cvsroot = $config->get('module::project',

'scm::backend::cvs::cvsroot'); //XXX

$this->repository = $config->get('module::project',

'scm::backend::cvs::repository'); //XXX

parent::attach($engine);

}

//actions

//CVSSCMProject::browse

public function browse(ProjectContent $project, Request $request)

{

$cvsroot = $project->get('cvsroot');

$error = _('No CVS repository defined');

if($this->cvsroot === FALSE || strlen($cvsroot) == 0)

return new PageElement('dialog', array(

'type' => 'error', 'text' => $error));

$vbox = new PageElement('vbox');

//browse

$path = $this->cvsroot.'/'.$cvsroot;

if(($file = $request->get('file')) !== FALSE)

$file = $this->helperSanitizePath($file);

else

$file = '';

$error = _('No such file or directory');

if(($st = @lstat($path.'/'.$file)) === FALSE)

return new PageElement('dialog', array(

'type' => 'error', 'text' => $error));

if(($st['mode'] & static::$S_IFDIR) === static::$S_IFDIR)

return $this->_browseDir($request, $vbox, $path, $file);

if(($revision = $request->get('revision')) !== FALSE)

return $this->_browseFileRevision($request, $vbox,

$path, $file, $revision);

return $this->_browseFile($request, $vbox, $path, $file);

}

private function _browseDir($request, $vbox, $path, $file)

{

$error = _('Could not open directory');

$vbox->append('title', array('text' => _('Browse source')));

if(($dir = opendir($path.'/'.$file)) === FALSE)

return new PageElement('dialog', array(

'type' => 'error', 'text' => $error));

//view

$columns = array('icon' => '', 'title' => _('Filename'),

'date' => _('Date'),

'revision' => _('Revision'),

'username' => _('Author'),

'content' => _('Description'));

$view = $vbox->append('treeview', array('columns' => $columns));

$folders = array();

$files = array();

while(($de = readdir($dir)) !== FALSE)

{

if($de == '.' || $de == '..')

continue;

if(($st = lstat($path.'/'.$file.'/'.$de)) === FALSE)

continue;

if(($st['mode'] & static::$S_IFDIR) == static::$S_IFDIR)

$folders[$de] = $st;

else if(substr($de, -2) != ',v')

continue;

else

$files[$de] = $st;

}

ksort($folders);

ksort($files);

if($file != '' && ($dirname = dirname($file)) !== FALSE

&& ($st = lstat($path.'/'.$dirname)) !== FALSE

&& $st['mode'] & static::$S_IFDIR

== static::$S_IFDIR)

{

if($dirname == '.' || $dirname == '/')

$dirname = FALSE;

$row = $view->append('row');

$icon = new PageElement('image', array(

'stock' => 'updir', 'size' => 16));

$row->set('icon', $icon);

//title

$r = new Request($request->getModule(),

$request->getAction(),

$request->getID(), $request->getTitle(),

array('file' => $dirname));

$link = new PageElement('link', array('request' => $r,

'text' => _('Parent directory')));

$row->set('title', $link);

//date

$date = Common::getDateTime($st['mtime']);

$row->set('date', $date);

}

foreach($folders as $de => $st)

{

$row = $view->append('row');

$icon = Mime::getIconByType($this->engine,

'inode/directory', 16);

$icon = new PageElement('image', array(

'source' => $icon));

$row->set('icon', $icon);

//title

$f = ltrim($file.'/'.$de, '/');

$r = new Request($request->getModule(),

$request->getAction(),

$request->getID(), $request->getTitle(),

array('file' => $f));

$link = new PageElement('link', array('request' => $r,

'text' => $de));

$row->set('title', $link);

//date

$date = Common::getDateTime($st['mtime']);

$row->set('date', $date);

}

foreach($files as $de => $st)

{

$row = $view->append('row');

$icon = Mime::getIcon($this->engine, $de, 16);

$icon = new PageElement('image', array(

'source' => $icon));

$row->set('icon', $icon);

//title

$f = ltrim($file.'/'.$de, '/');

$r = new Request($request->getModule(),

$request->getAction(),

$request->getID(), $request->getTitle(),

array('file' => $f));

$link = new PageElement('link', array('request' => $r,

'text' => substr($de, 0, -2)));

$row->set('title', $link);

//date

$date = Common::getDateTime($st['mtime']);

$row->set('date', $date);

//obtain the revisions

$cmd = 'rlog '.escapeshellarg($path.'/'.$file.'/'.$de);

unset($rcs);

exec($cmd, $rcs, $res);

if(($cnt = count($rcs)) == 0)

continue;

for($revs = 0; $revs < $cnt; $revs++)

if($rcs[$revs]

== '----------------------------')

break;

//revision

$revision = substr($rcs[$revs + 1], 9);

$r = new Request($request->getModule(),

$request->getAction(), $request->getID(),

$request->getTitle(), array(

'file' => $file.'/'.$de,

'revision' => $revision));

$link = new PageElement('link', array('request' => $r,

'text' => $revision));

$row->set('revision', $link);

//author

//XXX code duplication

$username = substr($rcs[$revs + 2], 36);

$username = substr($username, 0, strspn($username,

'0123456789abcdefghijklmnopqrstuvwxyz'

.'ABCDEFGHIJKLMNOPQRSTUVWXYZ'));

if(($user = User::lookup($this->engine, $username))

!== FALSE)

{

$r = new Request('project', 'list',

$user->getUserID(), $username);

$username = new PageElement('link', array(

'request' => $r,

'stock' => 'user',

'text' => $username));

}

$row->set('username', $username);

//message

//FIXME implement

}

closedir($dir);

return $vbox;

}

private function _browseFile(Request $request, PageElement $vbox, $path,

$file)

{

$error = _('Could not list revisions');

//obtain the revisions

$cmd = 'rlog '.escapeshellarg($path.'/'.$file);

exec($cmd, $rcs, $res);

if($res != 0 || count($rcs) == 0)

return new PageElement('dialog', array(

'type' => 'error', 'text' => $error));

//view

$vbox->append('title', array('text' => _('Revisions')));

$columns = array('title' => _('Revision'), 'date' => _('Date'),

'username' => _('Author'),

'message' => _('Message'));

$view = $vbox->append('treeview', array('columns' => $columns,

'alternate' => TRUE));

for($i = 0, $cnt = count($rcs); $i < $cnt;)

if($rcs[$i++] == '----------------------------')

break;

for(; $i < $cnt - 2; $i += 3)

{

$row = $view->append('row');

$revision = substr($rcs[$i], 9);

$r = new Request('project', 'browse', $request->getID(),

$request->getTitle(), array('file' => $file,

'revision' => $revision));

$link = new PageElement('link', array('request' => $r,

'text' => $revision));

$row->set('title', $link);

$row->set('date', substr($rcs[$i + 1], 6, 19));

//username

$username = substr($rcs[$i + 1], 36);

$username = substr($username, 0, strspn($username,

'abcdefghijklmnopqrstuvwxyz'

.'ABCDEFGHIJKLMNOPQRSTUVWXYZ'

.'0123456789'));

if(($user = User::lookup($this->engine, $username))

!== FALSE)

{

$r = new Request('project', 'list',

$user->getUserID(), $username);

$username = new PageElement('link', array(

'request' => $r,

'stock' => 'user',

'text' => $username));

}

$row->set('username', $username);

for(; strncmp($rcs[$i + 2], 'branches: ', 10) == 0;

$i++);

//message

$dashes = '----------------------------';

$longdashes =

'=============================================================================';

$message = $rcs[$i + 2];

if($message == $dashes || $message == $longdashes)

$message = '';

else

{

$msg = '';

for($i++; $i < $cnt && $rcs[$i + 2] != $dashes

&& $rcs[$i + 2] != $longdashes; $i++)

$msg = '...';

$message .= $msg;

}

$row->set('message', $message);

}

return $vbox;

}

private function _browseFileRevision(Request $request,

PageElement $vbox, $path, $file, $revision)

{

$error = 'Internal server error';

$cmd = 'co -p -q -r'.escapeshellarg($revision)

.' '.escapeshellarg($path.'/'.$file);

if(($fp = popen($cmd, 'r')) === FALSE)

return new PageElement('dialog', array(

'type' => 'error', 'text' => $error));

$filename = basename($file);

$type = Mime::getType($this->engine, $filename);

if($request->get('download') !== FALSE)

{

$ret = new PipeResponse($fp);

$ret->setFilename($filename);

$ret->setType($type);

return $ret;

}

$label = $vbox->append('label');

//link back

$r = new Request('project', 'browse', $request->getID(),

$request->getTitle(), array('file' => $file));

$label->append('link', array('request' => $r, 'stock' => 'back',

'text' => 'Back to the revision list'));

//link to the download

$label->append('label', array('text' => ' '));

$rdownload = new Request('project', 'browse', $request->getID(),

$request->getTitle(), array('file' => $file,

'revision' => $revision, 'download' => 1));

$label->append('link', array('request' => $rdownload,

'stock' => 'download',

'text' => 'Download file'));

//link to this page

$label->append('label', array('text' => ' '));

$r = new Request('project', 'browse', $request->getID(),

$request->getTitle(), array('file' => $file,

'revision' => $revision));

$label->append('link', array('request' => $r,

'stock' => 'link',

'text' => 'Permalink'));

if(strncmp($type, 'image/', 6) == 0)

//attempt to render the image inline

$vbox->append('image', array('request' => $rdownload,

'text' => $filename));

else

//render as text

while(($line = fgets($fp)) !== FALSE)

{

$line = rtrim($line, "\r\n");

$vbox->append('label', array(

'class' => 'preformatted',

'text' => $line));

}

pclose($fp);

return $vbox;

}

//CVSSCMProject::download

public function download(ProjectContent $project, Request $request)

{

$title = _('Repository');

$repository = 'pserver:'.$this->repository;

$cvsroot = $project->get('cvsroot');

//repository

if($this->repository === FALSE || strlen($cvsroot) == 0)

return FALSE;

$vbox = new PageElement('vbox');

$vbox->append('title', array('text' => $title));

$vbox->append('label', array('text' => _('The source code can be obtained as follows: ')));

$text = '$ cvs -d:'.$repository.' co '.$cvsroot;

$vbox->append('label', array('text' => $text,

'class' => 'preformatted'));

return $vbox;

}

//CVSSCMProject::timeline

public function timeline(ProjectContent $project, Request $request)

{

$cvsroot = $project->get('cvsroot');

$error = _('No CVS repository defined');

//check the cvsroot

$len = strlen($cvsroot);

if($this->cvsroot === FALSE || $len == 0)

return new PageElement('dialog', array(

'type' => 'error', 'text' => $error));

//history

$error = _('Could not open the project history');

$filename = $this->cvsroot.'/CVSROOT/history';

if(($fp = fopen($filename, 'r')) === FALSE)

return new PageElement('dialog', array(

'type' => 'error', 'text' => $error));

//view

$columns = array('icon' => '', 'title' => _('Filename'),

'date' => _('Date'), 'action' => _('Action'),

'revision' => _('Revision'),

'username' => _('Author'));

$vbox = new PageElement('vbox');

$vbox->append('title', array('text' => _('Timeline')));

$view = $vbox->append('treeview', array(

'columns' => $columns));

//rows

while(($line = fgets($fp)) !== FALSE)

{

$fields = explode('|', $line);

if(strlen($fields[4]) == 0)

continue;

if(strncmp($fields[3], $cvsroot, $len) != 0)

continue;

$event = FALSE;

switch($fields[0][0])

{

case 'A':

$event = 'Add';

$icon = 'add';

break;

case 'F':

$event = 'Release';

$icon = FALSE;

break;

case 'M':

$event = 'Modify';

$icon = 'edit';

break;

case 'R':

$event = 'Remove';

$icon = 'remove';

break;

}

if($event === FALSE)

continue;

$row = $view->prepend('row');

//icon

$icon = new PageElement('image', array(

'stock' => $icon, 'size' => 16));

$row->set('icon', $icon);

//title

$title = substr($fields[3], $len ? $len + 1 : $len).'/'

.$fields[5];

$title = ltrim($title, '/');

$title = rtrim($title, "\n");

$r = new Request($request->getModule(), 'browse',

$request->getID(), $request->getTitle(),

array('file' => $title.',v'));

$link = new PageElement('link', array('request' => $r,

'text' => $title));

$row->set('title', $link);

//date

$date = substr($fields[0], 1, 9);

$date = base_convert($date, 16, 10);

$date = Common::getDateTime($date);

$row->set('date', $date);

$row->set('action', $event);

//revision

$revision = $fields[4];

$r = new Request($request->getModule(), 'browse',

$request->getID(), $request->getTitle(), array(

'file' => $title.',v',

'revision' => $revision));

$link = new PageElement('link', array('request' => $r,

'text' => $revision));

$row->set('revision', $link);

//username

$username = $fields[1];

if(($user = User::lookup($this->engine, $username))

!== FALSE)

{

$r = new Request('user', FALSE,

$user->getUserID(),

$user->getUsername());

$username = new PageElement('link', array(

'request' => $r,

'stock' => 'user',

'text' => $username));

}

$row->set('username', $username);

}

//cleanup

fclose($fp);

return $vbox;

}

//protected

//methods

//helpers

//CVSSCMProject::helperSanitizePath

protected function helperSanitizePath($path)

{

$path = '/'.trim($path, '/').'/';

$path = str_replace('/./', '/', $path);

//FIXME really implement '..'

if(strpos($path, '/../') !== FALSE)

return '';

return trim($path, '/');

}

//private

//properties

static private $S_IFDIR = 040000;

private $cvsroot = FALSE;

private $repository = FALSE;

}