Added perl to the list of geshi types
[phorkie.git] / www / list.php
1 <?php
2 /**
3  * Fork a repository
4  */
5 namespace phorkie;
6 require_once 'www-header.php';
7 $rs = new Repositories();
8
9 $page = 0;
10 if (isset($_GET['page'])) {
11     if (!is_numeric($_GET['page'])) {
12         throw new Exception_Input('List page is not numeric');
13     }
14     $page = (int)$_GET['page'] - 1;
15 }
16
17 $perPage = 10;
18 list($repos, $repoCount) = $rs->getList($page, $perPage);
19
20 $pager = new Html_Pager(
21     $repoCount, $perPage, $page + 1, '/list/%d'
22 );
23
24 render(
25     'list',
26     array(
27         'repos' => $repos,
28         'pager' => $pager,
29     )
30 );
31 ?>