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
|
diff -durr GBrowse-2.39-orig/install_util/GBrowseInstall.pm GBrowse-2.39/install_util/GBrowseInstall.pm
--- GBrowse-2.39-orig/install_util/GBrowseInstall.pm 2011-07-19 20:14:52.434608020 +0000
+++ GBrowse-2.39/install_util/GBrowseInstall.pm 2011-07-19 21:02:13.685107753 +0000
@@ -454,33 +454,33 @@
$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;
+# chown $uid,-1,$htdocs;
{
local $> = $uid;
- symlink($images,$htdocs_i); # so symlinkifowner match works!
+# symlink($images,$htdocs_i); # so symlinkifowner match works!
}
- chown $>,-1,$self->install_path->{htdocs};
+# chown $>,-1,$self->install_path->{htdocs};
my $persistent = $self->install_path->{'persistent'};
my $sessions = File::Spec->catfile($persistent,'sessions');
my $userdata = File::Spec->catfile($persistent,'userdata');
- mkpath([$sessions,$userdata],0711);
+# mkpath([$sessions,$userdata],0711);
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;
+ # chmod 0755,File::Spec->catfile($self->install_path->{'etc'},'init.d','gbrowse-slave');
+ # $self->fix_selinux;
my $base = basename($self->install_path->{htdocs});
@@ -489,14 +489,14 @@
my $metadb_script = File::Spec->catfile("bin", "gbrowse_metadb_config.pl");
my $perl = $self->perl;
my @inc = map{"-I$_"} split ':',$self->added_to_INC;
- system $perl,@inc,$metadb_script;
- system 'sudo','chown','-R',"$uid.$gid",$sessions,$userdata;
+# system $perl,@inc,$metadb_script;
+# system 'sudo','chown','-R',"$uid.$gid",$sessions,$userdata;
- 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";
Only in GBrowse-2.39/install_util: GBrowseInstall.pm~
|
GitWeb
