E17自动安装脚本

无双

功能:
自动从CVS check out
自动生成deb包
自动安装生成的deb包

如果不是使用debian包的
可以修改这里

1. 
   
2. 
   
3. #if you don't use deb,then you can call these two line
   
4. #system('./autogen.sh --prefix=/usr;make;make uninstall;make install');
   
5. #return ;
   

复制代码

把这三行前面的#去掉 这样就会自动把e17安装到/usr目录下


增加了CVS中check out功能
使一切全部自动化
只需要保存成inse17.pl
然后在这个目录下执行perl inse17.pl就会自动执行
对于debian 需要安装一些相关的程序
如fakeroot
还有下面是编译时必须的
m4
autoconf
automake (1.7 or greater)
libtool
pkg-config
texinfo
gettext
另外编译ecore时需要libxcursor-dev 不然link时会出错 注意了

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. 
    
11. my @compileobjs        =(
    
12.                   ['e17/libs','../..',
    
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.                   ['e17/apps','../..',
    
28.                   'e',
    
29.                   'e_utils',
    
30.                   'entice',
    
31. #'entrance',
    
32.                   'eclair',
    
33.                   'elicit',
    
34. #'erss',
    
35.                   'examine'
    
36. #'iconbar',
    
37. #'e_modules'
    
38.                   ],
    
39.                   ['misc','..',
    
40.                   'engage']
    
41. );
    
42. 
    
43. print   "get CVS source code\n";
    
44. print   "login CVS:,when need you input password,press return directly\n";
    
45. print   'cvs -d:pserver:anonymous@cvs.sourceforge.net:/cvsroot/enlightenment login'."\n";
    
46. system('cvs -d:pserver:anonymous@cvs.sourceforge.net:/cvsroot/enlightenment login');
    
47. print   'chech out E17:'."\n";
    
48. print   'cvs -z3 -d:pserver:anonymous@cvs.sourceforge.net:/cvsroot/enlightenment co e17'."\n";
    
49. system('cvs -z3 -d:pserver:anonymous@cvs.sourceforge.net:/cvsroot/enlightenment co e17');
    
50. print   'chech out Misc:'."\n";
    
51. print   'cvs -z3 -d:pserver:anonymous@cvs.sourceforge.net:/cvsroot/enlightenment co misc'."\n";
    
52. system('cvs -z3 -d:pserver:anonymous@cvs.sourceforge.net:/cvsroot/enlightenment co misc');
    
53. 
    
54. print   "start build debian packages\n\n";
    
55. 
    
56. my $objs;
    
57. foreach $objs (@compileobjs){
    
58.     my        @objarray   = @$objs;
    
59.     my        $dir            = shift(@objarray);
    
60.     my        $back_dir   = shift(@objarray);
    
61.     if( ! -d $dir ){
    
62.         print "dir:$dir not exist,will skip compile it\n";
    
63.         next;
    
64.     }
    
65.     next if( (!$autobuilddir)
    
66.                  && (!choseact("are you want to build dir:$dir\n")) );
    
67. 
    
68.     print   "start parse:<<<<<        $dir  >>>>>: back:$back_dir\n";
    
69.     chdir $dir;
    
70.     system('rm -f *.deb *.dsc *.tar.gz *.changes');
    
71. 
    
72.     my        $subdir;
    
73.     foreach $subdir (@objarray){
    
74.         if( !(-d $subdir) ){
    
75.             print "dir:$subdir not exist,skip compile it\n";
    
76.             next;
    
77.         }
    
78.         print        "\n\nenter directory:".$subdir."\n";
    
79.         chdir($subdir);
    
80.         parsedir($subdir);
    
81.         $logfilehandle->autoflush(1);
    
82.         print "\n";
    
83.         $logfilehandle->autoflush(0);
    
84.         chdir("../");
    
85.         system('rm -f *.dsc *.tar.gz *.changes');
    
86.     }
    
87.     chdir $back_dir;
    
88. }
    
89. close($logfilehandle);
    
90. 
    
91. 
    
92. 
    
93. 
    
94. sub parsedir()
    
95. {
    
96.     my $pkg        = $_[0];
    
97.     return if((!$autobuild) && (!choseact("are you want to build:$pkg\n")) );
    
98.     my $curpwd        = qx(pwd);
    
99.     chomp($curpwd);
    
100.     print "\tcur dir is:\n\t$curpwd\n";
     
101.     print "\trun:   dpkg-buildpackage -us -uc -rfakeroot 2>&1\n";
     
102.     print $logfilehandle "\n\t\tcur dir is:\n\t$curpwd\n";
     
103.     chmod 755,'debian/rules' if(! -x 'debian/rules');
     
104.     chmod 755,'autogen.sh' if(! -x 'autogen.sh');
     
105. 
     
106. #if you don't use deb,then you can call these two line
     
107. #system('./autogen.sh --prefix=/usr;make;make uninstall;make install');
     
108. #return ;
     
109.     system("make distclean >/dev/null 2>&1");
     
110.     system('cp debian/changelog.in debian/changelog >/dev/null 2>&1') if(! -f 'debian/changelog');
     
111. 
     
112.     open(MAKEFI,"dpkg-buildpackage -us -uc -rfakeroot 2>&1|") || die "exec fail\n";
     
113.     print $logfilehandle 'dpkg-buildpackage -us -uc -rfakeroot 2>&1'."\n";
     
114. 
     
115.     my @pkgs;
     
116.     my $line;
     
117.     print   "\n";
     
118.     while($line=<MAKEFI>){
     
119.         print $logfilehandle $line;
     
120.         print $line if($line=~m/\berror\b/i);
     
121.         next if($line!~m/dpkg\-deb:\s+building\s+package\s+\`([^']+)\'\s+in\s+\`([^']+)\'/);
     
122. 
     
123.         print "\tpkg:[$1:\t$2]\n";
     
124.         push(@pkgs,$2);
     
125.     }
     
126.     close(MAKEFI);
     
127. 
     
128.     if($#pkgs < 0){
     
129.         print "error no package found,build message is write to e17install.log file\n";
     
130.         print $logfilehandle "error no package found,please check build message\n";
     
131.     }
     
132.     else{
     
133.         my $pkgfile = join(" ",@pkgs);
     
134.         print  "\n>>>>>>>>>\n\tdpkg -i $pkgfile\n\n";
     
135.         system("dpkg -i $pkgfile");
     
136.     }
     
137.     print "\n";
     
138. }
     
139. 
     
140. sub choseact()
     
141. {
     
142.     print $_[0]."\nplease input yes or no [Y]\n";
     
143.     my $in=<STDIN>;
     
144.     if($in=~m/n/i){
     
145.         print "cancel\n";
     
146.         return 0;
     
147.     }
     
148.     print "\n";
     
149.     return 1;
     
150. }
     
151. 
     
152. 
     

复制代码

无双

E17的新闻在这里
http://get-e.org/Main/News/index.html

增加了全屏模式 还有增加了mount 模块 可以方便的在桌面上选择需要mount的设备(如移动硬盘等 点一下就可以mount 再点一下就会umount 很方便 )

还有其它更新

Georock

wzp@ubuntu:~$ sudo ./inse17.pl
Global symbol "@cvs" requires explicit package name at ./inse17.pl line 44.
Global symbol "@cvs" requires explicit package name at ./inse17.pl line 47.
Global symbol "@cvs" requires explicit package name at ./inse17.pl line 50.
Execution of ./inse17.pl aborted due to compilation errors.

Georock

wzp@ubuntu:~$ perl inse17.pl
Global symbol "@cvs" requires explicit package name at inse17.pl line 44.
Global symbol "@cvs" requires explicit package name at inse17.pl line 47.
Global symbol "@cvs" requires explicit package name at inse17.pl line 50.
Execution of inse17.pl aborted due to compilation errors.
不行啊

henryouly

@cvs前面加一反斜杠("\")

x11

好像FileHandle没有deb包阿

无双

谢谢

因为家里没有上网所以没有在linux上试过

Filehandle是perl包里面有的

你的perl报错吗

无双

改过了 谢谢Georock 指出错误及henryouly提出方法

x11

哦，我搞错了，FileHandle是有的，不过还是跑不了

enter directory:edb
    cur dir is:
    /home/lcm/tmp/e17/libs/edb
    run:   dpkg-buildpackage -us -uc -rfakeroot 2>&1
Can't use an undefined value as a symbol reference at ./inse17.pl line 101.

无双

把这行
my  $logfilehandle  = new FileHandle ">e17install.log";

修改成
my  $logfilehandle  = new FileHandle ">e17install.log" ;
die "open log file fail\n" if undef $logfilehandle;

看

可能是无法产生log文件引起的

或是把所有出现logfilehandle的行都去掉