1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
<?php
/* $Id: versioninfo.php,v 1.2 2002/12/13 18:37:28 dkreuer Exp $ */
/*
ThWboard - PHP/MySQL Bulletin Board System
==============================================
(c) 2000, 2001 by
Paul Baecher <paul@thewall.de>
Felix Gonschorek <funner@thewall.de>
download the latest version:
http://www.thwboard.de
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.
==============================================
*/
include "common.inc.php";
tb_header();
print '<b>Generic information</b><br>';
print '
ThWboard-version: <font color="darkblue">'.$config['version'].'</font><br>
PHP-version: <font color="darkblue">'.phpversion().'</font><br>
MySQL-version: <font color="darkblue">'.mysql_get_server_info().'</font><br>';
$ver = @file('/proc/version');
if( $ver )
{
print 'OS-version: <font color="darkblue">'.$ver[0].'</font><br>';
}
print '<br>';
$a_dir = array('../', '../inc/', './');
$a_dev = array(
'dkreuer' => 'Daniel Kreuer',
'deandy' => 'Andy Karpow',
'slier' => 'Sascha Liehr',
'superhausi' => 'Stephan Hauser',
'pbaecher' => 'Paul Baecher',
'thetinysteini' => 'Sebastian Steinlechner'
);
print '<b>ThWboard file versions</b><br>';
print '<table width="100%" border="0" cellspacing="0" cellpadding="3">';
print ' <tr>
<td><i>Filename</i></td>
<td><i>Version</i></td>
<td><i>Modified</i></td>
<td><i>Last Author</i></td>
</tr>
';
while( list(, $dir) = each($a_dir) )
{
$dp = opendir($dir);
$a_file = array();
while( $file = readdir($dp) )
{
if( substr($file, -4) == '.php' )
$a_file[] = $file;
}
closedir($dp);
sort($a_file);
print ' <tr>
<td colspan="4"><br><font color="darkblue">Directory '.$dir.'</font></td>
</tr>
';
$i = 0;
while( list(, $file) = each($a_file) )
{
$fp = fopen($dir.$file, 'r');
$data = fread($fp, 128);
fclose($fp);
//^.[$()|*+?{\
if( ereg('/\* \$'.'Id'.': ([^[:space:]]*) ([^[:space:]]*) ([^[:space:]]*) ([^[:space:]]*) ([^[:space:]]*) ([^[:space:]]*) \$ \*/', $data, $regs) )
{
print ' <tr bgcolor="'.( $i % 2 == 0 ? '#E5E5E5' : '#F2F2F2').'">
<td><font size="1">'.$file.'</font></td>
<td><font size="1">'.$regs[2].'</font></td>
<td><font size="1">'.$regs[3].' '.$regs[4].'</font></td>
<td><font size="1">'.$a_dev[$regs[5]].'</font></td>
</tr>';
$i++;
}
}
}
print '</table>';
tb_footer();
|