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  
524 kakl 53 if (count(glob("/tmp/wsvn*"))<2) // Omezeni na pocet soucasne stahovanych souboru
342 kakl 54 {
523 kakl 55 $tmpname1 = tempnam("temp", "wsvn-");
56 $tmpname = $tmpname1;
57 $tmpname .= "dir";
58 if (mkdir($tmpname))
59 {
60 // Get the name of the directory being archived
61 $arcname = substr($path, 0, -1);
62 $arcname = basename($arcname);
63 if (empty($arcname))
64 $arcname = $rep->name;
65  
66 $svnrep->exportDirectory($path, $tmpname.DIRECTORY_SEPARATOR.$arcname, $rev);
67  
68 // ZIP it up
69 chdir($tmpname);
70 exec("zip -r ".quote("$arcname")." .");
71  
72 $size = filesize("$arcname.zip");
73  
74 // Give the file to the browser
75  
76 if ($fp = @fopen("$arcname.zip","rb"))
77 {
78 header("Content-Type: application/zip");
79 header("Content-Length: $size");
80 header("Content-Disposition: attachment; filename=\"".$rep->name."-$arcname.zip\"");
81 // Use a loop to transfer the data 4KB at a time.
82 while(!feof($fp))
83 {
84 echo fread($fp, 4096);
85 ob_flush();
86 }
87 }
88 else
89 {
90 print "Unable to open file $arcname.zip";
91 }
92  
93 fclose($fp);
94  
95 chdir("..");
96  
97 // Delete the directory. Why doesn't PHP have a generic recursive directory
98 // deletion command? It's stupid.
99  
100 // if ($config->serverIsWindows)
101 // {
102 // $cmd = quoteCommand("rmdir /S /Q ".quote($tmpname), false);
103 // }
104 // else
105 // {
106 $cmd = quoteCommand("rm -fr ".quote($tmpname), false);
107 // }
108  
109 @exec($cmd);
110 }
111 unlink($tmpname1); // Pomocny soubor smazeme az po smazani adresare
342 kakl 112 }
523 kakl 113 else
114 {
525 kakl 115 print "We are sorry. Server is overloaded...";
523 kakl 116 }
342 kakl 117 ?>