lainwir3d/dolibarr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix: 2.9.0 version and https option

Browse Source
This commit is contained in:
Regis Houssin 2010-10-04 21:07:21 +00:00
parent c1bbb391c8
commit cc169caca3
1 changed files with 21 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
build/perl/virtualmin/dolibarr.pl
View File

@ -2,7 +2,7 @@
# \file dolibarr.pl # \file dolibarr.pl
# \brief Dolibarr script install for Virtualmin Pro # \brief Dolibarr script install for Virtualmin Pro
# \version $Revision$ # \version $Revision$
# \author (c)2009-2010 Regis Houssin <regis@dolibarr.fr> # \author (c)2009 Regis Houssin <regis@dolibarr.fr>
#---------------------------------------------------------------------------- #----------------------------------------------------------------------------
@ -87,10 +87,10 @@ else {
$rv .= &ui_table_row("Install sub-directory under <tt>$hdir</tt>", $rv .= &ui_table_row("Install sub-directory under <tt>$hdir</tt>",
&ui_opt_textbox("dir", "dolibarr", 30, &ui_opt_textbox("dir", "dolibarr", 30,
"At top level")); "At top level"));
$rv .= &ui_table_row("Force https connection?", if ($d->{'ssl'} && $ver >= 2.9) {
&ui_yesno_radio("forcehttps", 0)); $rv .= &ui_table_row("Force https connection?",
#$rv .= &ui_table_row("Install sample content?", &ui_yesno_radio("forcehttps", 0));
# &ui_yesno_radio("sample", 0)); }
} }
return $rv; return $rv;
} }
@ -114,7 +114,7 @@ else {
'newdb' => $newdb, 'newdb' => $newdb,
'dir' => $dir, 'dir' => $dir,
'path' => $in->{'dir_def'} ? "/" : "/$in->{'dir'}", 'path' => $in->{'dir_def'} ? "/" : "/$in->{'dir'}",
'sample' => $in->{'sample'}, }; 'forcehttps' => $in->{'forcehttps'}, };
} }
} }
@ -198,13 +198,13 @@ if ($opts->{'path'} =~ /\w/) {
if (!$upgrade) { if (!$upgrade) {
local $cdef = "$opts->{'dir'}/conf/conf.php.example"; local $cdef = "$opts->{'dir'}/conf/conf.php.example";
&run_as_domain_user($d, "cp ".quotemeta($cdef)." ".quotemeta($cfile)); &run_as_domain_user($d, "cp ".quotemeta($cdef)." ".quotemeta($cfile));
&set_ownership_permissions(undef, undef, 0777, $cfiledir); &set_ownership_permissions(undef, undef, 0777, $cfiledir);
&set_ownership_permissions(undef, undef, 0666, $cfile); &set_ownership_permissions(undef, undef, 0666, $cfile);
&run_as_domain_user($d, "mkdir ".quotemeta($docdir)); &run_as_domain_user($d, "mkdir ".quotemeta($docdir));
&set_ownership_permissions(undef, undef, 0777, $docdir); &set_ownership_permissions(undef, undef, 0777, $docdir);
} }
# Preserve old config file and documents directory
else { else {
# Preserve old config file and documents directory
&copy_source_dest($cfile, $oldcfile); &copy_source_dest($cfile, $oldcfile);
&copy_source_dest($docdir, $olddocdir); &copy_source_dest($docdir, $olddocdir);
} }
@ -255,8 +255,8 @@ else {
[ "db_name", $dbname ], [ "db_name", $dbname ],
[ "db_user", $dbuser ], [ "db_user", $dbuser ],
[ "db_pass", $dbpass ], [ "db_pass", $dbpass ],
[ "main_force_https", $forcehttps ],
[ "action", "set" ], [ "action", "set" ],
[ "main_force_https", $opts->{'forcehttps'} ],
); );
local $err = &call_dolibarr_wizard_page(\@params, "etape1", $d, $opts); local $err = &call_dolibarr_wizard_page(\@params, "etape1", $d, $opts);
return (-1, "Dolibarr wizard failed : $err") if ($err); return (-1, "Dolibarr wizard failed : $err") if ($err);