source: trunk/tools/database/www/cvs.phtml@ 10367

Last change on this file since 10367 was 6657, checked in by bird, 24 years ago

Made main includes moveable.

File size: 3.0 KB
Line 
1<?php
2
3$sMainDir = "../";
4
5require "cvs.php3";
6require $sMainDir."stilovi.php3";
7
8/*
9 * Parse argument(s)
10 */
11if (isset($sFile))
12{
13 if (isset($sRevision))
14 {
15 $sOperation = "viewfile";
16 if ($sRevision == "HEAD")
17 $sRevision = "";
18 $sTitle = substr($sFile, 0, -2)."\nrev.: ". ($sRevision == "" ? "HEAD" : $sRevision);
19 }
20 else
21 {
22 $sOperation = "viewfileinfo";
23 $sTitle = substr($sFile, 0, -2);
24 }
25}
26else if (isset($sDir))
27{
28 $sOperation = "viewdir";
29 $sTitle = ($sDir == "." || $sDir =="") ? "./" : $sDir."/";
30 $iSortColumn = (!isset($iSortColumn) || $iSortColumn == "") ?
31 0 : $iSortColumn = @(int)$iSortColumn;
32}
33else
34{ /* default action: */
35 $sOperation = "viewdir";
36 $sDir = ".";
37 $sTitle = "root";
38 $iSortColumn = 0;
39}
40
41
42/*
43 * Odin32 look.
44 */
45require $sMainDir."01-PreTitle.php3";
46echo "Odin32 CVS: ", str_replace("\n", " ", $sTitle);
47require $sMainDir."02-PostTitle.php3";
48
49require $sMainDir."03-MainTableBeg.php3";
50require $sMainDir."04-ColumnOne.php3";
51
52require $sMainDir."05-ColumnTwoHeader.php3";
53echo "Odin32 CVS: ", str_replace("\n", "<br>", $sTitle);
54require $sMainDir."06-ColumnTwoHeader2.php3";
55
56
57/*
58 *
59 */
60flush();
61
62/*
63 * Do the requested operation...
64 */
65switch ($sOperation)
66{
67
68 case "viewfileinfo":
69 {
70 $obj = new CVSFile($sFile, 0);
71 if ($obj && $obj->fOk)
72 {
73 if (!$obj->PrintAllInfo())
74 {
75 echo "<p><i>PrintRevision failed.</i>";
76 echo "<br><i>".$obj->sError."<br>";
77 }
78 }
79 else
80 { //error - complain
81 echo "<p><i>An error occured while creating file object for $sFile.</i>";
82 if ($obj)
83 echo "<br><i>".$obj->sError."<br>";
84 }
85 break;
86 }
87
88 case "viewfile":
89 {
90 $obj = new CVSFile($sFile, 0);
91 if ($obj && $obj->fOk)
92 {
93 if (!$obj->PrintRevision($sRevision))
94 {
95 echo "<p><i>PrintRevision failed.</i>";
96 echo "<br><i>".$obj->sError."<br>";
97 }
98 }
99 else
100 { //error - complain
101 echo "<p><i>An error occured while creating file object for $sFile.</i>";
102 if ($obj)
103 echo "<br><i>".$obj->sError."<br>";
104 }
105 break;
106 }
107
108
109 case "viewdir":
110 {
111 ListDirectory($sDir, $iSortColumn);
112 break;
113 }
114
115 default:
116 echo "IPE";
117}
118
119
120/*
121 * Finish off the column
122 */
123require $sMainDir."07-ColumnTwoFooter.php3";
124
125if (1)
126{
127 require $sMainDir."08-News.php3";
128 /*
129 require $sMainDir."09-ContentsTitle.php3";
130
131 TocBeg();
132 TocEnd();
133
134 */
135 require $sMainDir."10-EndOfContent.php3";
136 require $sMainDir."11-NetlabsContact.php3";
137
138 $Kada=date ("j M Y", filemtime(__file__));
139 require $sMainDir."12-OdinBanner.php3";
140}
141else
142{
143 echo "</td>\n</tr></table>\n";
144 echo "</td>\n</tr></table>\n";
145}
146require $sMainDir."13-Closing.php3";
147
148
149?>
Note: See TracBrowser for help on using the repository browser.