自动编译安装e17的perl脚本(对于使用deb包的有用)

无双

功能:
自动编译e17包 并且打成deb 然后自动安装deb包

选项
my $autobuilddir = 1;#如果是真的,那编译所有的目录,不然会弹出提示问你要不要编译某个目录
my $autobuild = 1; # 如果是真的自动编译这个目录下所有包,如果=0 每次都会问你要不要编译
my $autoinstall= 1; # 所有安装所有编译出来的包

目录文件写在e17install.log
my @libdirlist=(配置需要编译的库文件目录(e17/libs下的子目录)
my @appdirlist=配置需要编译的可执行文件目录(e17/apps下的子目录)
my @miscdirlist=(配置misc目录下需要编译的子目录


方便debian或是其它使用deb的用户安装和管理E17

e17自己的源码中已经有debian目录 并且可以使用dpkg-buildepackage来创建debian包
这个脚本所做的只是把这一切自动化而已
一个命令就可以放在那里让它自己跑

使用方法:
保存成inse17.pl 然后放在
与
e17 misc同级的目录下
也就是
$ls
inse17.pl
e17/libs/....
e17/apps/e
e17/apps/....
misc/....
然后使用
perl inse17.pl运行

PS:10.20日后的e17的新功能:
增加了efm 另外觉得更稳定了
今天晚上继续更新看看效果

1. 
   
2. #!/usr/bin/perl
   
3. #
   
4. use strict;
   
5. use FileHandle;
   
6. 
   
7. my $logfilehandle = new FileHandle ">e17install.log";
   
8. my $autobuilddir = 1;#if true,then auto build all directory
   
9. my $autobuild = 1; # if true,auto build all packages in a directory
   
10. my $autoinstall= 1; # auto install deb packges
    
11. #chdir("./e17/libs/");
    
12. my @libdirlist=(
    
13. 'edb',
    
14. 'eet',
    
15. 'imlib2',
    
16. 'imlib2_loaders',
    
17. 'evas',
    
18. 'ecore',
    
19. 'edje',
    
20. 'epeg',
    
21. 'epsilon',
    
22. 'embryo',
    
23. 'esmart',
    
24. 'emotion',
    
25. 'ewl',
    
26. 'engrave');
    
27. #'etox',
    
28. chdir("../..") if(parsedirs(@libdirlist,"./e17/libs/"));
    
29. 
    
30. 
    
31. my @appdirlist=(
    
32. 'e',
    
33. 'e_utils',
    
34. 'entice',
    
35. #'entrance',
    
36. 'eclair',
    
37. 'elicit',
    
38. #'erss',
    
39. 'examine',
    
40. #'iconbar',
    
41. #'e_modules'
    
42. );
    
43. chdir("../..") if(parsedirs(@appdirlist,"./e17/apps/"));
    
44. 
    
45. my @miscdirlist=(
    
46. 'engage',
    
47. #'elapse'
    
48. );
    
49. chdir("..") if(parsedirs(@miscdirlist,"./misc/"));
    
50. close($logfilehandle);
    
51. 
    
52. 
    
53. 
    
54. 
    
55. 
    
56. 
    
57. 
    
58. sub parsedirs()
    
59. {
    
60. my @dirlist=@_;
    
61. my $parentdir = pop(@dirlist);
    
62. return 0 if(! -d $parentdir);
    
63. return 0 if( (!$autobuilddir)
    
64. && (!choseact("are you want to build dir:$parentdir\n")) );
    
65. 
    
66. chdir($parentdir);
    
67. system('rm -f *.deb *.dsc *.tar.gz *.changes');
    
68. 
    
69. my $dir;
    
70. foreach $dir (@dirlist) {
    
71. next if( !(-d $dir) );
    
72. chdir($dir);
    
73. parsedir($dir);
    
74. chdir("../");
    
75. system('rm -f *.dsc *.tar.gz *.changes');
    
76. }
    
77. return 1;
    
78. }
    
79. 
    
80. sub parsedir()
    
81. {
    
82. my $pkg = $_[0];
    
83. return if((!$autobuild) && (!choseact("are you want to build:$pkg\n")) );
    
84. my $curpwd = qx(pwd);
    
85. print "\n\n\n\t\tcur dir is:\n\t$curpwd\n";
    
86. print $logfilehandle "\n\n\n\t\tcur dir is:\n\t$curpwd\n";
    
87. chmod 755,'debian/rules' if(! -x 'debian/rules');
    
88. chmod 755,'autogen.sh' if(! -x 'autogen.sh');
    
89. 
    
90. #if you don't use deb,then you can call these two line
    
91. #system('./autogen.sh --prefix=/usr;make;make uninstall;make install');
    
92. #return ;
    
93. system("make distclean >/dev/null 2>&1");
    
94. system('cp debian/changelog.in debian/changelog >/dev/null 2>&1') if(! -f 'debian/changelog');
    
95. 
    
96. open(MAKEFI,"dpkg-buildpackage -us -uc -rfakeroot 2>&1|") || die "exec fail\n";
    
97. print $logfilehandle 'dpkg-buildpackage -us -uc -rfakeroot 2>&1'."\n";
    
98. 
    
99. my @pkgs;
    
100. my @devpkgs;
     
101. my @libpkgs;
     
102. my $line;
     
103. print "\n";
     
104. while($line=){
     
105. print $logfilehandle $line;
     
106. next if($line!~m/dpkg\-deb:\s+building\s+package\s+\`([^']+)\'\s+in\s+\`([^']+)\'/);
     
107. 
     
108. print "\tpkg:[$1:\t$2]\n";
     
109. my $pkg = $2;
     
110. if($pkg=~m/dev/){
     
111. push(@devpkgs,$pkg);
     
112. }
     
113. else{
     
114. if($pkg=~m/\blib/){
     
115. push(@libpkgs,$pkg);
     
116. }
     
117. else{
     
118. push(@pkgs,$pkg);
     
119. }
     
120. }
     
121. }
     
122. close(MAKEFI);
     
123. 
     
124. my @returnpkgs;
     
125. push(@returnpkgs,@libpkgs,@devpkgs,@pkgs);
     
126. if($#returnpkgs < 0){
     
127. print "error no package found,build message is:\n";
     
128. print $logfilehandle "error no package found,build message is:\n";
     
129. print "\n\n";
     
130. }
     
131. else{
     
132. my $pkgfile = join(" ",@returnpkgs);
     
133. print "\n\t>>>>>>>>>\tdpkg -i $pkgfile\n\n";
     
134. system("dpkg -i $pkgfile");
     
135. }
     
136. print "\n";
     
137. }
     
138. 
     
139. sub choseact()
     
140. {
     
141. print $_[0]."\nplease input yes or no [Y]\n";
     
142. my $in=;
     
143. if($in=~m/n/i){
     
144. print "cancel\n";
     
145. return 0;
     
146. }
     
147. print "\n";
     
148. return 1;
     
149. }
     

复制代码

yongjian

that's very cool!! I will give it a try.

x11

再加上自动更新cvs的功能吧，呵呵

无双

可以啊 只是自己家里没有上网所以没加上cvs自动更新

freeflying

建议在用上auto-apt，自动解决依赖就更好了

无双

谢谢 回去看看auto-apt什么用 然后考虑一下

不过这样可能会要求auto-apt包吧

或是使用apt自动把所有依赖的包都列出来 检查哪个没有然后再编译

x11

晕倒，今天有空一试，这个脚本跑不了，少贴了几个字符吧？

while($line=){

my $in=;

建议以附件形式发上来