19 use strict; |
19 use strict; |
20 use File::Copy; |
20 use File::Copy; |
21 use File::Path; |
21 use File::Path; |
22 |
22 |
23 unlink "websrv.zip"; |
23 unlink "websrv.zip"; |
24 ##rmtree "temp"; |
24 rmtree "temp"; |
25 mkpath "temp/bcwebsrv/general/testframework"; |
25 mkpath "temp/bcwebsrv/general/testframework"; |
26 mkpath "temp/bcwebsrv/winscw_udeb"; |
26 mkpath "temp/bcwebsrv/winscw_udeb"; |
27 |
27 |
28 my $epoc=$ENV{'EPOCROOT'} . "epoc32/"; |
28 my $epoc=$ENV{'EPOCROOT'} . "epoc32/"; |
29 copy("websrv.xml", "temp/test.xml"); |
29 copy("websrv.xml", "temp/test.xml"); |
30 |
30 |
31 copy($epoc . "release/winscw/udeb/CSenServiceConnectionBCTest.dll", "temp/bcwebsrv/winscw_udeb/CSenServiceConnectionBCTest.dll"); |
31 copy($epoc . "release/winscw/udeb/CSenServiceConnectionBCTest.dll", "temp/bcwebsrv/winscw_udeb/CSenServiceConnectionBCTest.dll") or die "failed : $!"; |
32 copy($epoc . "winscw/c/testframework/testframework_connection.ini", "temp/bcwebsrv/general/testframework/testframework_connection.ini"); |
32 copy($epoc . "winscw/c/testframework/testframework_connection.ini", "temp/bcwebsrv/general/testframework/testframework_connection.ini") or die "failed : $!"; |
33 copy($epoc . "release/winscw/udeb/HostletConnectionBCTest.dll", "temp/bcwebsrv/winscw_udeb/HostletConnectionBCTest.dll"); |
33 copy($epoc . "release/winscw/udeb/HostletConnectionBCTest.dll", "temp/bcwebsrv/winscw_udeb/HostletConnectionBCTest.dll") or die "failed : $!"; |
34 copy($epoc . "winscw/c/testframework/TestFramework_hostlet.ini", "temp/bcwebsrv/general/testframework/TestFramework_hostlet.ini"); |
34 copy($epoc . "winscw/c/testframework/TestFramework_hostlet.ini", "temp/bcwebsrv/general/testframework/TestFramework_hostlet.ini") or die "failed : $!"; |
35 copy($epoc . "release/winscw/udeb/newsoapclassesbctest.dll", "temp/bcwebsrv/winscw_udeb/newsoapclassesbctest.dll"); |
35 copy($epoc . "release/winscw/udeb/newsoapclassesbctest.dll", "temp/bcwebsrv/winscw_udeb/newsoapclassesbctest.dll") or die "failed : $!"; |
36 copy($epoc . "winscw/c/testframework/testframework_newsoapclasses.ini", "temp/bcwebsrv/general/testframework/testframework_newsoapclasses.ini"); |
36 copy($epoc . "winscw/c/testframework/testframework_newsoapclasses.ini", "temp/bcwebsrv/general/testframework/testframework_newsoapclasses.ini") or die "failed : $!"; |
|
37 copy($epoc . "release/winscw/udeb/SenServDescBCTest.dll", "temp/bcwebsrv/winscw_udeb/SenServDescBCTest.dll") or die "failed : $!"; |
|
38 copy($epoc . "winscw/c/testframework/testframework_senservdesc.ini", "temp/bcwebsrv/general/testframework/testframework_senservdesc.ini") or die "failed : $!"; |
|
39 copy($epoc . "release/winscw/udeb/SenServiceManagerBCTest.dll", "temp/bcwebsrv/winscw_udeb/SenServiceManagerBCTest.dll") or die "failed : $!"; |
|
40 copy($epoc . "winscw/c/testframework/testframework_senservicemanager.ini", "temp/bcwebsrv/general/testframework/testframework_senservicemanager.ini") or die "failed : $!"; |
|
41 copy($epoc . "release/winscw/udeb/SenUtilsBCTest.dll", "temp/bcwebsrv/winscw_udeb/SenUtilsBCTest.dll") or die "failed : $!"; |
|
42 copy($epoc . "winscw/c/testframework/testframework_senutils.ini", "temp/bcwebsrv/general/testframework/testframework_senutils.ini") or die "failed : $!"; |
|
43 copy($epoc . "release/winscw/udeb/SenFragmentBCTest.dll", "temp/bcwebsrv/winscw_udeb/SenFragmentBCTest.dll") or die "failed : $!"; |
|
44 copy($epoc . "winscw/c/testframework/TestFramework_senfragment.ini", "temp/bcwebsrv/general/testframework/TestFramework_senfragment.ini") or die "failed : $!"; |
37 |
45 |
38 system("7z a -tzip websrv.zip ./temp/*"); |
46 system("7z a -tzip websrv.zip ./temp/*"); |