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
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
|
<?php
/**
* File checking functions
*
* SourceForge: Breaking Down the Barriers to Open Source Development
* Copyright 1999-2001 (c) VA Linux Systems
* http://sourceforge.net
*
* @version $Id: filechecks.php 1423 2003-01-10 14:44:28Z bigdisk $
*/
/**
* filechecks_islegalname() - Make sure a filename is legal
*
* @param string The name of the file to check
*/
function filechecks_islegalname($filename) {
if (strstr($filename,' ') || strstr($filename,'\\')
|| strstr($filename,"'") || strstr($filename,'"')
|| strstr($filename,';') || strstr($filename,'`')
|| strstr($filename,'|') || strstr($filename,'$')
|| strstr($filename,',') || strstr($filename,':')
|| strstr($filename,'@') || strstr($filename,'*')
|| strstr($filename,'%') || strstr($filename,'^')
|| strstr($filename,'&')
|| strstr($filename,'(') || strstr($filename,')')
|| strstr($filename,'>') || strstr($filename,'<')) {
return 0;
}
if (ereg('^\.',$filename)) {
return 0;
}
return 1;
}
/**
* filechecks_targz() - Verify the integrity of a .tar.gz file.
*
* @param string The name of the targz file to check
*/
function filechecks_targz($filename) {
exec("tar -ztvf $GLOBALS[FTPINCOMING_DIR]/" . EscapeShellCmd($filename),$output,$ret);
if ($ret) {
for ($i=0;$i<count($output);$i++) {
$exitout .= "<br />" . $output[$i] . "\n";
}
exit_error("Failed tar/gz integrity check.","Output follows: <p>$exitout</p>");
}
}
/**
* filechecks_gz(0 - Verify the integrity of a .gz file.
*
* @param string The name of the gz file to check.
*/
function filechecks_gz($filename) {
exec("gunzip -t $GLOBALS[FTPINCOMING_DIR]/" . EscapeShellCmd($filename),$output,$ret);
if ($ret) {
for ($i=0;$i<count($output);$i++) {
$exitout .= "<br />" . $output[$i] . "\n";
}
exit_error("Failed gzip integrity check.","Output follows: <p>$exitout</p>");
}
}
/**
* filechecks_getfiletype() - Resolve the filetype of a file.
*
* @param string The name of the file to resolve.
*/
function filechecks_getfiletype($filename) {
$filename = chop($filename);
if (ereg(".diff$",$filename)) {
$filetype = "diff";
}
elseif (ereg(".diff.gz$",$filename)) {
$filetype = "diff/gz";
filechecks_gz($filename);
}
elseif (ereg(".asc$",$filename)) {
$filetype = "asc";
}
elseif (ereg(".bin$",$filename)) {
$filetype = "bin";
}
elseif (ereg(".exe$",$filename)) {
$filetype = "exe";
}
elseif (ereg(".jar$",$filename)) {
$filetype = "jar";
}
elseif (ereg(".lsm$",$filename)) {
$filetype = "lsm";
}
elseif (ereg(".pdb$",$filename)) {
$filetype = "pilot";
}
elseif (ereg(".pl$",$filename)) {
$filetype = "perl";
}
elseif (ereg(".py$",$filename)) {
$filetype = "python";
}
elseif (ereg(".prc$",$filename)) {
$filetype = "pilot";
}
elseif (ereg(".sig$",$filename)) {
$filetype = "sig";
}
elseif (ereg(".tar.bz2$",$filename)) {
$filetype = "tar/bz2";
}
elseif (ereg(".tar.gz$",$filename)) {
$filetype = "tar/gz";
filechecks_targz($filename);
}
elseif (ereg(".tgz$",$filename)) {
$filetype = "tgz";
}
elseif (ereg(".zip$",$filename)) {
$filetype = "zip";
}
elseif (ereg(".shar.gz$",$filename)) {
$filetype = "shar/gz";
}
elseif (ereg(".bz2$",$filename)) {
$filetype = "bz2";
}
elseif (ereg(".gz$",$filename)) {
$filetype = "gz";
filechecks_gz($filename);
}
elseif (ereg(".i386.rpm$",$filename)) {
$filetype = "i386 rpm";
}
elseif (ereg(".alpha.rpm$",$filename)) {
$filetype = "alpha rpm";
}
elseif (ereg(".src.rpm$",$filename)) {
$filetype = "src rpm";
}
elseif (ereg(".rpm$",$filename)) {
$filetype = "rpm";
}
elseif (ereg(".deb$",$filename)) {
$filetype = "deb";
}
elseif (ereg("\.([a-zA-Z]+)$",$filename,$regs)) {
$filetype = $regs[1];
}
if (!$filetype) {
exit_error ("Unknown file type","This file does not have a system-recognized filename type.");
}
if (!$filename) {
exit_error ("File does not exist","You must supply a filename.");
}
if (!file_exists("$GLOBALS[FTPINCOMING_DIR]/$filename")) {
exit_error ("File does not exist","File $filename is not in incoming FTP directory.");
}
return $filetype;
}
?>
|
