18 use strict; |
18 use strict; |
19 use File::Copy; |
19 use File::Copy; |
20 use File::Path; |
20 use File::Path; |
21 |
21 |
22 unlink "messaging.zip"; |
22 unlink "messaging.zip"; |
23 ##rmtree "temp"; |
23 rmtree "temp"; |
|
24 |
24 mkpath "temp/bcmessaging/testframework/general"; |
25 mkpath "temp/bcmessaging/testframework/general"; |
25 mkpath "temp/bcmessaging/resource/general"; |
26 mkpath "temp/bcmessaging/resource/general"; |
26 mkpath "temp/bcmessaging/winscw_udeb"; |
27 mkpath "temp/bcmessaging/winscw_udeb"; |
27 |
28 |
28 my $epoc=$ENV{'EPOCROOT'} . "epoc32/"; |
29 my $epoc=$ENV{'EPOCROOT'} . "epoc32/"; |
29 copy("messaging.xml", "temp/test.xml"); |
30 copy("messaging.xml", "temp/test.xml"); |
30 |
31 |
31 copy($epoc . "release/winscw/udeb/MMSClientMTMBCTester.dll", "temp/bcmessaging/winscw_udeb/MMSClientMTMBCTester.dll"); |
32 copy($epoc . "release/winscw/udeb/MMSClientMTMBCTester.dll", "temp/bcmessaging/winscw_udeb/MMSClientMTMBCTester.dll") or die "failed : $!"; |
32 copy($epoc . "winscw/c/testframework/MMSClientMTMBCTester.ini", "temp/bcmessaging/testframework/general/MMSClientMTMBCTester.ini"); |
33 copy($epoc . "winscw/c/testframework/MMSClientMTMBCTester.ini", "temp/bcmessaging/testframework/general/MMSClientMTMBCTester.ini") or die "failed : $!"; |
33 copy($epoc . "winscw/c/testframework/MMSClientMTMBCTester_TestImage.jpg", "temp/bcmessaging/testframework/general/MMSClientMTMBCTester_TestImage.jpg"); |
34 copy($epoc . "winscw/c/testframework/MMSClientMTMBCTester_TestImage.jpg", "temp/bcmessaging/testframework/general/MMSClientMTMBCTester_TestImage.jpg") or die "failed : $!"; |
34 copy($epoc . "release/winscw/udeb/PluginBioControlAPITest.dll", "temp/bcmessaging/winscw_udeb/PluginBioControlAPITest.dll"); |
35 copy($epoc . "release/winscw/udeb/PluginBioControlAPITest.dll", "temp/bcmessaging/winscw_udeb/PluginBioControlAPITest.dll") or die "failed : $!"; |
35 copy($epoc . "winscw/c/testframework/tcTestUIBioCombiner.cfg", "temp/bcmessaging/testframework/general/tcTestUIBioCombiner.cfg"); |
36 copy($epoc . "winscw/c/testframework/tcTestUIBioCombiner.cfg", "temp/bcmessaging/testframework/general/tcTestUIBioCombiner.cfg") or die "failed : $!"; |
36 copy($epoc . "winscw/c/testframework/ui_PluginBioControlAPITest.cfg", "temp/bcmessaging/testframework/general/ui_PluginBioControlAPITest.cfg"); |
37 copy($epoc . "winscw/c/testframework/ui_PluginBioControlAPITest.cfg", "temp/bcmessaging/testframework/general/ui_PluginBioControlAPITest.cfg") or die "failed : $!"; |
37 copy($epoc . "winscw/c/testframework/test.txt", "temp/bcmessaging/testframework/general/test.txt"); |
38 copy($epoc . "winscw/c/testframework/test.txt", "temp/bcmessaging/testframework/general/test.txt") or die "failed : $!"; |
38 copy($epoc . "winscw/c/testframework/PluginBioControlAPITest.rsc", "temp/bcmessaging/testframework/general/PluginBioControlAPITest.rsc"); |
39 copy($epoc . "winscw/c/testframework/PluginBioControlAPITest.rsc", "temp/bcmessaging/testframework/general/PluginBioControlAPITest.rsc") or die "failed : $!"; |
39 copy($epoc . "data/z/resource/pluginbiocontrolapitest.rsc", "temp/bcmessaging/resource/general/pluginbiocontrolapitest.rsc"); |
40 copy($epoc . "data/z/resource/pluginbiocontrolapitest.rsc", "temp/bcmessaging/resource/general/pluginbiocontrolapitest.rsc") or die "failed : $!"; |
40 copy($epoc . "data/z/resource/pluginbiocontrolapitest.r01", "temp/bcmessaging/resource/general/pluginbiocontrolapitest.r01"); |
41 copy($epoc . "data/z/resource/pluginbiocontrolapitest.r01", "temp/bcmessaging/resource/general/pluginbiocontrolapitest.r01") or die "failed : $!"; |
41 |
42 |
42 system("7z a -tzip messaging.zip ./temp/*"); |
43 system("7z a -tzip messaging.zip ./temp/*"); |