work.pm (9780544f) work.pm (86e1cf34)
1#**************************************************************
2#
3# Licensed to the Apache Software Foundation (ASF) under one
4# or more contributor license agreements. See the NOTICE file
5# distributed with this work for additional information
6# regarding copyright ownership. The ASF licenses this file
7# to you under the Apache License, Version 2.0 (the
8# "License"); you may not use this file except in compliance

--- 275 unchanged lines hidden (view full) ---

284 print $tmpfile_handle "\"$workstamp;$platform;$prjname;$prjdir;nobase;$prjdep\"";
285 print "to tmpfile: \"$workstamp;$platform;$prjname;$prjdir;nobase;$prjdep\"\n";
286 }
287 close $tmpfile_handle;
288 my $returnvalue = system("cmd_bcst -s 18 \@$tmpfile_name");
289 print "cmd_bcst -s 18 \@$tmpfile_name\n";
290 unlink "$tmpfile_name";
291
1#**************************************************************
2#
3# Licensed to the Apache Software Foundation (ASF) under one
4# or more contributor license agreements. See the NOTICE file
5# distributed with this work for additional information
6# regarding copyright ownership. The ASF licenses this file
7# to you under the Apache License, Version 2.0 (the
8# "License"); you may not use this file except in compliance

--- 275 unchanged lines hidden (view full) ---

284 print $tmpfile_handle "\"$workstamp;$platform;$prjname;$prjdir;nobase;$prjdep\"";
285 print "to tmpfile: \"$workstamp;$platform;$prjname;$prjdir;nobase;$prjdep\"\n";
286 }
287 close $tmpfile_handle;
288 my $returnvalue = system("cmd_bcst -s 18 \@$tmpfile_name");
289 print "cmd_bcst -s 18 \@$tmpfile_name\n";
290 unlink "$tmpfile_name";
291
292 if ( $returnvalue ) # an error occured
292 if ( $returnvalue ) # an error occurred
293 {
294 if (!($packager::globals::ignoreerrors)) { packager::exiter::exit_program("ERROR: Packing not successful!", "do_broadcast"); }
295 }
296}
297
298##############################################################
299# Returning the name of file or directory from complete path
300##############################################################

--- 23 unchanged lines hidden --- 		293 {
294 if (!($packager::globals::ignoreerrors)) { packager::exiter::exit_program("ERROR: Packing not successful!", "do_broadcast"); }
295 }
296}
297
298##############################################################
299# Returning the name of file or directory from complete path
300##############################################################

--- 23 unchanged lines hidden ---