]>
code.delx.au - comingnext/blob - build.pl
467b71a81ee7009bc43a625994891f81a51e1a6f
10 use Archive
:: Zip
qw( :ERROR_CODES ) ;
15 rmtree
( "ComingNextB" );
18 sed
( "comingNext/index.html" , 'var version = \" (.*?) \" ;' , 'var version = \" ' . $version . ' \" ;' );
19 sed
( "comingNext/Info.plist" , '<key>DisplayName<\/key>(\s*?)<string>Coming Next (.*?)<\/string>' , '<key>DisplayName<\/key> $1 <string>Coming Next ' . $version . '<\/string>' );
20 sed
( "comingNext/Info.plist" , '<key>Version<\/key>(\s*?)<string>(.*?)<\/string>' , '<key>Version<\/key> $1 <string>' . $version . '<\/string>' );
22 # add additional widget
23 copyrecursive
( "comingNext" , "comingNextB" );
24 sed
( "comingNextB/index.html" , 'var panelNum = 0;' , 'var panelNum = 1;' );
25 sed
( "comingNextB/Info.plist" , '<key>DisplayName<\/key>(\s*?)<string>Coming Next (.*?)<\/string>' , '<key>DisplayName<\/key> $1 <string>Coming Next B $2 <\/string>' );
26 sed
( "comingNextB/Info.plist" , '<key>Identifier<\/key>(\s*?)<string>(.*?)<\/string>' , '<key>Identifier<\/key> $1 <string> $2b <\/string>' );
29 my $zip = Archive
:: Zip
-> new ();
30 $zip -> addTree ( "ComingNext" , "ComingNext" );
31 $zip -> writeToFileNamed ( "comingNext.wgz" );
33 $zip = Archive
:: Zip
-> new ();
34 $zip -> addTree ( "ComingNextB" , "ComingNextB" );
35 $zip -> writeToFileNamed ( "comingNextB.wgz" );
37 $zip = Archive
:: Zip
-> new ();
38 $zip -> addFile ( "comingNext.wgz" );
39 $zip -> addFile ( "comingNextB.wgz" );
40 $zip -> addFile ( "Readme.txt" );
41 $zip -> addFile ( "License.txt" );
42 $zip -> addFile ( "ComingNext_SkinFetcher_v1.1.sisx" );
43 $zip -> writeToFileNamed ( "comingNext_v $version .zip" );
45 #########################################
50 my ( $source , $target ) = @_ ;
51 $copy_source = $source ;
52 $copy_target = $target ;
53 find
({ wanted
=> \
& copy_files
, follow
=> 1 , no_chdir
=> 1 }, $copy_source );
56 my $targetdir = $File :: Find
:: dir
;
57 $targetdir =~ s/^$copy_source/$copy_target/o ;
58 mkpath
( $targetdir ) if not - e
$targetdir ;
59 my $targetfile = $File :: Find
:: name
;
60 $targetfile =~ s/^$copy_source/$copy_target/o ;
61 copy
( $File :: Find
:: name
, $targetfile );
64 #########################################
67 my ( $filename , $search , $replace ) = @_ ;
68 system ( "perl -p -i.bak -e \" s/$search/$replace/; \" $filename " );
69 unlink < $filename . bak
>;