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 "drmtest.zip"; |
22 unlink "drmtest.zip"; |
23 ##rmtree "temp"; |
23 rmtree "temp"; |
24 mkpath "temp/drmtest/general/testframework"; |
24 mkpath "temp/drmtest/general/testframework"; |
25 mkpath "temp/drmtest/winscw_udeb"; |
25 mkpath "temp/drmtest/winscw_udeb"; |
26 |
26 |
27 my $epoc=$ENV{'EPOCROOT'} . "epoc32/"; |
27 my $epoc=$ENV{'EPOCROOT'} . "epoc32/"; |
28 copy("drm.xml", "temp/test.xml"); |
28 copy("drm.xml", "temp/test.xml"); |
29 |
29 |
30 copy($epoc . "release/winscw/udeb/drm_caf.dll", "temp/drmtest/winscw_udeb/drm_caf.dll"); |
30 copy($epoc . "release/winscw/udeb/drm_caf.dll", "temp/drmtest/winscw_udeb/drm_caf.dll") or die "failed : $!"; |
31 copy($epoc . "release/winscw/udeb/bcdrmcafcaps.exe", "temp/drmtest/winscw_udeb/bcdrmcafcaps.exe"); |
31 copy($epoc . "release/winscw/udeb/bcdrmcafcaps.exe", "temp/drmtest/winscw_udeb/bcdrmcafcaps.exe") or die "failed : $!"; |
32 copy($epoc . "winscw/c/testframework/testframework_drmcaf.ini", "temp/drmtest/general/testframework/testframework_drmcaf.ini"); |
32 copy($epoc . "winscw/c/testframework/testframework_drmcaf.ini", "temp/drmtest/general/testframework/testframework_drmcaf.ini") or die "failed : $!"; |
33 copy($epoc . "winscw/c/testframework/drm_caf.cfg", "temp/drmtest/general/testframework/drm_caf.cfg"); |
33 copy($epoc . "winscw/c/testframework/drm_caf.cfg", "temp/drmtest/general/testframework/drm_caf.cfg") or die "failed : $!"; |
34 copy($epoc . "winscw/c/content-noenc-trunc.odf", "temp/drmtest/general/content-noenc-trunc.odf"); |
34 copy($epoc . "winscw/c/content-noenc-trunc.odf", "temp/drmtest/general/content-noenc-trunc.odf") or die "failed : $!"; |
35 copy($epoc . "winscw/c/content.odf", "temp/drmtest/general/content.odf"); |
35 copy($epoc . "winscw/c/content.odf", "temp/drmtest/general/content.odf") or die "failed : $!"; |
36 copy($epoc . "winscw/c/content.txt", "temp/drmtest/general/content.txt"); |
36 copy($epoc . "winscw/c/content.txt", "temp/drmtest/general/content.txt") or die "failed : $!"; |
37 copy($epoc . "winscw/c/content-noenc.odf", "temp/drmtest/general/content-noenc.odf"); |
37 copy($epoc . "winscw/c/content-noenc.odf", "temp/drmtest/general/content-noenc.odf") or die "failed : $!"; |
38 copy($epoc . "winscw/c/content.dcf", "temp/drmtest/general/content.dcf"); |
38 copy($epoc . "winscw/c/content.dcf", "temp/drmtest/general/content.dcf") or die "failed : $!"; |
39 |
39 |
40 system("7z a -tzip drmtest.zip ./temp/*"); |
40 system("7z a -tzip drmtest.zip ./temp/*"); |