[LON-CAPA-cvs] cvs: doc /loncapafiles updatequery.piml
raeburn
lon-capa-cvs@mail.lon-capa.org
Mon, 28 Jun 2004 16:40:19 -0000
raeburn Mon Jun 28 12:40:19 2004 EDT
Modified files:
/doc/loncapafiles updatequery.piml
Log:
Specify support e-mail address (e.g., gateway to ticketing application).
Index: doc/loncapafiles/updatequery.piml
diff -u doc/loncapafiles/updatequery.piml:1.31 doc/loncapafiles/updatequery.piml:1.32
--- doc/loncapafiles/updatequery.piml:1.31 Tue Jun 1 11:55:00 2004
+++ doc/loncapafiles/updatequery.piml Mon Jun 28 12:40:18 2004
@@ -1,6 +1,6 @@
<!-- updatequery.piml -->
-<!-- $Id: updatequery.piml,v 1.31 2004/06/01 15:55:00 albertel Exp $ -->
+<!-- $Id: updatequery.piml,v 1.32 2004/06/28 16:40:18 raeburn Exp $ -->
<!--
@@ -134,7 +134,7 @@
WELCOME TO LON-CAPA!
If you have questions, please visit http://install.lon-capa.org
-or contact sharrison\@mail.lon-capa.org.
+or contact helpdesk\@lon-capa.org.
===============================================================================
The following 4 values are needed to configure LON-CAPA:
@@ -142,6 +142,13 @@
* LON-CAPA Domain Name
* LON-CAPA Machine ID Name, and
* System Administration E-mail Address.
+===============================================================================
+
+In addition, a Support E-mail Address can also be included. If
+an address is included then one of the options in the LON-CAPA
+help menu will be a link to a form that a user will complete to
+request LON-CAPA help.
+
END
open(OUT,'>/tmp/loncapa_updatequery.out');
@@ -328,7 +335,7 @@
}
}
-# get e-mail address
+# get admin e-mail address
# accept if valid, if not valid, tell user and repeat
$flag=0;
my $lonAdmEMail;
@@ -338,7 +345,7 @@
**** System Administrator's E-mail ****
E-mail address of the person who will manage this machine
[should be in the form somebody\@somewhere]
-ENTER E-MAIL ADDRESS:
+ENTER ADMIN E-MAIL ADDRESS:
END
my $choice=<>;
@@ -355,6 +362,40 @@
}
}
+
+# get support e-mail address
+# accept if valid, if not valid, tell user and repeat
+$flag=0;
+my $lonSupportEMail;
+while (!$flag) {
+ print(<<END);
+
+**** Support E-mail ****
+E-mail address of the person who will receive
+help requests from LON-CAPA users who access
+the system via this server. If the address is left blank,
+then a help support form will not be displayed
+as part of the help menu.
+[should be in the form somebody\@somewhere]
+ENTER SUPPORT E-MAIL ADDRESS:
+END
+
+ my $choice=<>;
+ chomp($choice);
+ $choice =~ s/\s//g;
+ if ( ($choice=~/\@/) || $choice eq '') ) {
+ open(OUT,'>>/tmp/loncapa_updatequery.out');
+ print(OUT 'lonSupportEMail'."\t".$choice."\n");
+ close(OUT);
+ $lonSupportEMail=$choice;
+ $flag=1;
+ }
+ else {
+ print "Invalid input (this either needs to be blank, or look like an e-mail address!).\n";
+ }
+}
+
+
# update loncapa.conf
my $confdir='/etc/httpd/conf/';
#my $confdir='';
@@ -374,6 +415,7 @@
$perlvar{'lonHostID'}=$lonHostID;
$perlvar{'lonDefDomain'}=$lonDefDomain;
$perlvar{'lonAdmEMail'}=$lonAdmEMail;
+ $perlvar{'lonSupportEMail'}=$lonSupportEMail;
$perlvar{'lonRole'}=$lonRole;
unless ($perlvar{'lonLoadLim'} and $perlvar{'lonLoadLim'}!~/\{\[\[\[\[/) {
$perlvar{'lonLoadLim'}='2.00';
@@ -517,12 +559,13 @@
2) Domain Description: $domainDescription
3) Machine Name: $perlvar{'lonHostID'}
4) System Administrator's E-mail Address: $perlvar{'lonAdmEMail'}
- 5) Role: $perlvar{'lonRole'}
- 6) Cache Expiration Time: $perlvar{'lonExpire'}
- 7) Server Load: $perlvar{'lonLoadLim'}
- 8) User Load: $perlvar{'lonUserLoadLim'}
- 9) Allow only secure connections: $securestatus
-10) Everything is correct up above
+ 5) Support E-mail Address: $perlvar{'lonSupportEmail'}
+ 6) Role: $perlvar{'lonRole'}
+ 7) Cache Expiration Time: $perlvar{'lonExpire'}
+ 8) Server Load: $perlvar{'lonLoadLim'}
+ 9) User Load: $perlvar{'lonUserLoadLim'}
+10) Allow only secure connections: $securestatus
+11) Everything is correct up above
END
my $hbug=-1;
my $dbug=-1;
@@ -549,7 +592,7 @@
}
print(<<END);
-ENTER A CHOICE OF 1-9 TO CHANGE, otherwise ENTER 10:
+ENTER A CHOICE OF 1-10 TO CHANGE, otherwise ENTER 11:
END
my $choice=<>;
chomp($choice);
@@ -598,7 +641,16 @@
}
elsif ($choice==5) {
print(<<END);
-5) Role: $perlvar{'lonRole'}
+5) Support E-mail Address: $perlvar{'lonSupportEMail'}
+ENTER NEW VALUE:
+END
+ my $choice2=<>;
+ chomp($choice2);
+ $perlvar{'lonSupportEMail'}=$choice2;
+ }
+ elsif ($choice==6) {
+ print(<<END);
+6) Role: $perlvar{'lonRole'}
ENTER NEW VALUE (this should be either 'access' or 'library'
if in doubt select 'library'):
END
@@ -606,27 +658,27 @@
chomp($choice2);
$perlvar{'lonRole'}=$choice2;
}
- elsif ($choice==6) {
+ elsif ($choice==7) {
print(<<END);
-6) Cache Expiration Time: $perlvar{'lonExpire'}
+7) Cache Expiration Time: $perlvar{'lonExpire'}
ENTER NEW VALUE (in seconds, 86400 is a reasonable value):
END
my $choice2=<>;
chomp($choice2);
$perlvar{'lonExpire'}=$choice2;
}
- elsif ($choice==7) {
+ elsif ($choice==8) {
print(<<END);
-7) Server Load: $perlvar{'lonLoadLim'}
+8) Server Load: $perlvar{'lonLoadLim'}
ENTER NEW VALUE:
END
my $choice2=<>;
chomp($choice2);
$perlvar{'lonLoadLim'}=$choice2;
}
- elsif ($choice==8) {
+ elsif ($choice==9) {
print(<<END);
-8) User Load: $perlvar{'lonUserLoadLim'}
+9) User Load: $perlvar{'lonUserLoadLim'}
Numer of users that can login before machine is 'overloaded'
ENTER NEW VALUE (integer value, 0 means there is no limit):
END
@@ -634,9 +686,9 @@
chomp($choice2);
$perlvar{'lonUserLoadLim'}=$choice2;
}
- elsif ($choice==9) {
+ elsif ($choice==10) {
print(<<END);
-9) Allow only secure connections: $securestatus
+10) Allow only secure connections: $securestatus
The Lon-CAPA communication daemons lonc and lond can be configured to
allow only secure connections by default.
@@ -663,7 +715,7 @@
}
($securestatus,$securenum)=&securesetting(%perlvar);
}
- elsif ($choice==10) {
+ elsif ($choice==11) {
$flag=1;
}
else {