aboutsummaryrefslogtreecommitdiff
blob: 4c17f8d9a4e73c38ad87b7fb5c2d3ade5c979cd1 (plain)
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
--- install_util/GBrowseInstall.pm.ori	2010-11-27 12:01:58.000000000 +0100
+++ 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});
 
--- install_util/GBrowseInstall.pm.ori	2011-02-14 13:39:46.000000000 +0100
+++ 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;
--- install_util/GBrowseInstall.pm.ori	2011-02-14 13:50:41.000000000 +0100
+++ 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";