Rev Author Line No. Line
342 kakl 1 <?php
2 # vim:et:ts=3:sts=3:sw=3:fdm=marker:
3  
4 // WebSVN - Subversion repository viewing via the web using PHP
5 // Copyright © 2004-2006 Tim Armes, Matt Sicker
6 //
7 // This program is free software; you can redistribute it and/or modify
8 // it under the terms of the GNU General Public License as published by
9 // the Free Software Foundation; either version 2 of the License, or
10 // (at your option) any later version.
11 //
12 // This program is distributed in the hope that it will be useful,
13 // but WITHOUT ANY WARRANTY; without even the implied warranty of
14 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 // GNU General Public License for more details.
16 //
17 // You should have received a copy of the GNU General Public License
18 // along with this program; if not, write to the Free Software
19 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
20 //
21 // --
22 //
23 // dl.php
24 //
25 // Create gz/tar files of the requested item
26  
27 require_once("include/setup.inc");
28 require_once("include/svnlook.inc");
29 require_once("include/utils.inc");
30  
31 // Make sure that this operation is allowed
32  
33 if (!$rep->isDownloadAllowed($path))
34 exit;
35  
36 $svnrep = new SVNRepository($rep);
37  
38 if ($path{0} != "/")
39 $ppath = "/".$path;
40 else
41 $ppath = $path;
42  
43 // If there's no revision info, go to the lastest revision for this path
44 $history = $svnrep->getLog($path, "", "", true);
45 $youngest = $history->entries[0]->rev;
46  
47 if (empty($rev))
48 $rev = $youngest;
49  
50 // Create a temporary directory. Here we have an unavoidable but highly
51 // unlikely to occure race condition
52  
518 kakl 53 $tmpname1 = tempnam("temp", "wsvn-");
519 kakl 54 $tmpname = $tmpname1;
520 kakl 55 $tmpname .= "dir";
518 kakl 56 unlink($tmpname1);
517 kakl 57 if (mkdir($tmpname))
342 kakl 58 {
59 // Get the name of the directory being archived
60 $arcname = substr($path, 0, -1);
61 $arcname = basename($arcname);
62 if (empty($arcname))
63 $arcname = $rep->name;
64  
65 $svnrep->exportDirectory($path, $tmpname.DIRECTORY_SEPARATOR.$arcname, $rev);
66  
67 // ZIP it up
68 chdir($tmpname);
69 exec("zip -r ".quote("$arcname")." .");
70  
71 $size = filesize("$arcname.zip");
72  
73 // Give the file to the browser
74  
75 if ($fp = @fopen("$arcname.zip","rb"))
76 {
508 kakl 77 header("Content-Type: application/zip");
342 kakl 78 header("Content-Length: $size");
79 header("Content-Disposition: attachment; filename=\"".$rep->name."-$arcname.zip\"");
80 // Use a loop to transfer the data 4KB at a time.
81 while(!feof($fp))
82 {
83 echo fread($fp, 4096);
84 ob_flush();
85 }
86 }
87 else
88 {
89 print "Unable to open file $arcname.zip";
90 }
91  
92 fclose($fp);
93  
94 chdir("..");
95  
96 // Delete the directory. Why doesn't PHP have a generic recursive directory
97 // deletion command? It's stupid.
98  
99 // if ($config->serverIsWindows)
100 // {
101 // $cmd = quoteCommand("rmdir /S /Q ".quote($tmpname), false);
102 // }
103 // else
104 // {
105 $cmd = quoteCommand("rm -fr ".quote($tmpname), false);
106 // }
107  
108 @exec($cmd);
109 }
110 ?>