Changeset 417 in ProjectBuilder for devel/pb/lib/ProjectBuilder/Filter.pm
- Timestamp:
- Apr 27, 2008, 1:18:10 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/lib/ProjectBuilder/Filter.pm
r415 r417 121 121 This function applies all filters to pb build files. 122 122 123 It takes 15 parameters. 123 It takes 15 parameters. To be filtered a variable has to be passed to that function. 124 124 125 125 The first parameter is the file to filter. … … 137 137 The thirteenth parameter is the packager name. 138 138 The fourteenth parameter is the changelog. 139 The fifteenth parameter is the project. 139 140 140 141 =cut … … 157 158 my $pbpackager = shift; 158 159 my $chglog = shift || undef; 160 my $pbproj = shift; 159 161 160 162 pb_log(2,"DEBUG: From $f to $destfile\n"); … … 192 194 This function applies all filters to a file in place. 193 195 194 It takes 8parameters.196 It takes 9 parameters. 195 197 196 198 The first parameter is the pointer on the hash of filters. … … 202 204 The seventh parameter is the current date. 203 205 The eighth parameter is the packager name. 206 The nineth parameter is the project name. 204 207 205 208 =cut … … 217 220 my $pbdate=shift; 218 221 my $pbpackager=shift; 222 my $pbproj=shift; 219 223 220 224 my $cp = "$ENV{'PBTMP'}/".basename($destfile); 221 225 copy($destfile,$cp) || die "Unable to create $cp"; 222 226 223 pb_filter_file($cp,$ptr,$destfile,$pbpkg,$pbver,$pbtag,$pbrev,$pbdate,$pbpackager );227 pb_filter_file($cp,$ptr,$destfile,$pbpkg,$pbver,$pbtag,$pbrev,$pbdate,$pbpackager,$pbproj); 224 228 unlink $cp; 225 229 } … … 229 233 This function applies all filters on a file to generate a new filtered one. 230 234 231 It takes 9 parameters.235 It takes 10 parameters. To be filtered a variable has to be passed to that function. 232 236 233 237 The first parameter is the original file to filter. … … 240 244 The eighth parameter is the current date. 241 245 The nineth parameter is the packager name. 246 The tenth parameter is the project name. 242 247 243 248 =cut … … 257 262 my $pbdate=shift; 258 263 my $pbpackager=shift; 264 my $pbproj=shift; 259 265 260 266 pb_log(2,"DEBUG: From $f to $destfile\n");
Note:
See TracChangeset
for help on using the changeset viewer.