/[svn.andrew.net.au]/changelogs.debian.net/redirector.php
ViewVC logotype

Annotation of /changelogs.debian.net/redirector.php

Parent Directory Parent Directory | Revision Log Revision Log


Revision 4 - (hide annotations)
Wed Jun 28 04:30:16 2006 UTC (16 years, 1 month ago) by apollock
File size: 1002 byte(s)
Initial import of changelogs.debian.net

1 apollock 4 <?php
2    
3     $SOURCES="/srv/andrew.net.au/changelogs/Sources";
4     $URL_STUB="http://packages.debian.org/changelogs/";
5    
6     header("Pragma: no-cache");
7     list(, $package) = explode("/", $HTTP_SERVER_VARS["REQUEST_URI"]);
8     $handle = popen("grep-dctrl -sDirectory -sVersion -P $package -X -n $SOURCES", 'r');
9    
10     $directory = chop(fgets($handle, 1024));
11     $version = chop(fgets($handle, 1024));
12    
13     pclose($handle);
14    
15     $version = ereg_replace("^[[:digit:]]+\:", "", $version);
16    
17     if (!strlen($directory) || !strlen($version)) {
18     header("HTTP/1.1 404 Not Found"); ?>
19     <HTML>
20     <HEAD>
21     <TITLE>Debian source package changelog viewer</TITLE>
22     </HEAD>
23     <BODY>
24     <H1>Debian source package changelog viewer</H1>
25     <H2>Error: No such package</H2>
26     The package name you provided, <B><?php echo $package ?></B>, does not seem to exist in the Sources file.
27     </BODY>
28     </HTML>
29    
30     <?php } else {
31     $URL = $URL_STUB . $directory . "/" .$package . "_" . $version . "/changelog";
32    
33     //echo "Will redirect to $URL\n";
34    
35     header("Location: $URL");
36    
37     //phpinfo();
38     }
39     ?>

  ViewVC Help
Powered by ViewVC 1.1.22