1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
--- GBrowse-2.26/install_util/GBrowseInstall.pm.ori 2010-11-27 12:01:58.000000000 +0100
+++ GBrowse-2.26/install_util/GBrowseInstall.pm 2010-11-27 12:02:15.000000000 +0100
@@ -436,8 +436,8 @@
$self->ownership_warning($databases,$user);
}
- chmod 0755,File::Spec->catfile($self->install_path->{'etc'},'init.d','gbrowse-slave');
- $self->fix_selinux;
+ # chmod 0755,File::Spec->catfile($self->install_path->{'etc'},'init.d','gbrowse-slave');
+ # $self->fix_selinux;
my $base = basename($self->install_path->{htdocs});
--- GBrowse-2.26/install_util/GBrowseInstall.pm.ori 2011-02-14 13:39:46.000000000 +0100
+++ GBrowse-2.26/install_util/GBrowseInstall.pm 2011-02-14 13:41:50.000000000 +0100
@@ -438,25 +438,25 @@
$gid =~ /^(\d+)$/;
$gid = $1;
- unless (chown $uid,$gid,$tmp) {
- $self->ownership_warning($tmp,$user);
- }
+# unless (chown $uid,$gid,$tmp) {
+# $self->ownership_warning($tmp,$user);
+# }
my $htdocs_i = File::Spec->catfile($self->install_path->{htdocs},'i');
my $images = File::Spec->catfile($tmp,'images');
my $htdocs = $self->install_path->{htdocs};
- chown $uid,-1,$htdocs;
- {
- local $> = $uid;
- symlink($images,$htdocs_i); # so symlinkifowner match works!
- }
- chown $>,-1,$self->install_path->{htdocs};
+# chown $uid,-1,$htdocs;
+# {
+# local $> = $uid;
+# symlink($images,$htdocs_i); # so symlinkifowner match works!
+# }
+# chown $>,-1,$self->install_path->{htdocs};
my $databases = $self->install_path->{'databases'};
- unless (chown $uid,$gid,glob(File::Spec->catfile($databases,'').'*')) {
- $self->ownership_warning($databases,$user);
- }
+# unless (chown $uid,$gid,glob(File::Spec->catfile($databases,'').'*')) {
+# $self->ownership_warning($databases,$user);
+# }
# chmod 0755,File::Spec->catfile($self->install_path->{'etc'},'init.d','gbrowse-slave');
# $self->fix_selinux;
--- GBrowse-2.26/install_util/GBrowseInstall.pm.ori 2011-02-14 13:50:41.000000000 +0100
+++ GBrowse-2.26/install_util/GBrowseInstall.pm 2011-02-14 13:51:46.000000000 +0100
@@ -470,11 +470,11 @@
my @inc = map{"-I$_"} split ':',$self->added_to_INC;
system $perl,@inc,$metadb_script;
- if (Module::Build->y_n(
- "It is recommended that you restart Apache. Shall I try this for you?",'y'
- )) {
- system "sudo /etc/init.d/apache2 restart";
- }
+# if (Module::Build->y_n(
+# "It is recommended that you restart Apache. Shall I try this for you?",'y'
+# )) {
+# system "sudo /etc/init.d/apache2 restart";
+# }
print STDERR "\n***INSTALLATION COMPLETE***\n";
print STDERR "Load http://localhost/$base for demo and documentation.\n";
|
GitWeb
