+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{editsettings}, { Style => "pageheader" });
+ $kiriwrite_presmodule->addlinebreak();
+ $kiriwrite_presmodule->addlinebreak();
+ $kiriwrite_presmodule->addboldtext($kiriwrite_lang->{setting}->{warning});
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{warningmessage});
+ $kiriwrite_presmodule->addlinebreak();
+ $kiriwrite_presmodule->addlinebreak();
+
+ $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
+ $kiriwrite_presmodule->startbox();
+ $kiriwrite_presmodule->addhiddendata("mode", "settings");
+ $kiriwrite_presmodule->addhiddendata("action", "edit");
+ $kiriwrite_presmodule->addhiddendata("confirm", 1);
+
+ $kiriwrite_presmodule->starttable("", { CellPadding => 5, CellSpacing => 0 });
+
+ $kiriwrite_presmodule->startheader();
+ $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{setting}, { Style => "tablecellheader" });
+ $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{value}, { Style => "tablecellheader" });
+ $kiriwrite_presmodule->endheader();
+
+ $kiriwrite_presmodule->startrow();
+ $kiriwrite_presmodule->addcell("tablecellheader");
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{directories});
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->addcell("tablecellheader");
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->endrow();
+
+ $kiriwrite_presmodule->startrow();
+ $kiriwrite_presmodule->addcell("tablecell1");
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{databasedirectory});
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->addcell("tablecell2");
+ $kiriwrite_presmodule->addinputbox("databasedir", { Size => 32, MaxLength => 64, Value => $directory_settings_database });
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->endrow();
+
+ $kiriwrite_presmodule->startrow();
+ $kiriwrite_presmodule->addcell("tablecell1");
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{outputdirectory});
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->addcell("tablecell2");
+ $kiriwrite_presmodule->addinputbox("outputdir", { Size => 32, MaxLength => 64, Value => $directory_settings_output });
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->endrow();
+
+ $kiriwrite_presmodule->startrow();
+ $kiriwrite_presmodule->addcell("tablecell1");
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{imagesuripath});
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->addcell("tablecell2");
+ $kiriwrite_presmodule->addinputbox("imagesuripath", { Size => 32, MaxLength => 64, Value => $directory_settings_imagesuri });
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->endrow();
+
+ $kiriwrite_presmodule->startrow();
+ $kiriwrite_presmodule->addcell("tablecellheader");
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{date});
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->addcell("tablecellheader");
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->endrow();
+
+ $kiriwrite_presmodule->startrow();
+ $kiriwrite_presmodule->addcell("tablecell1");
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{dateformat});
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->addcell("tablecell2");
+ $kiriwrite_presmodule->addinputbox("datetime", { Size => 32, MaxLength => 64, Value => $datetime_setting });
+ $kiriwrite_presmodule->addlinebreak();
+ $kiriwrite_presmodule->addlinebreak();
+ $kiriwrite_presmodule->startbox("datalist");
+
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{singleday});
+ $kiriwrite_presmodule->addlinebreak();
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{doubleday});
+ $kiriwrite_presmodule->addlinebreak();
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{singlemonth});
+ $kiriwrite_presmodule->addlinebreak();
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{doublemonth});
+ $kiriwrite_presmodule->addlinebreak();
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{singleyear});
+ $kiriwrite_presmodule->addlinebreak();
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{doubleyear});
+ $kiriwrite_presmodule->addlinebreak();
+ $kiriwrite_presmodule->addlinebreak();
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{singlehour});
+ $kiriwrite_presmodule->addlinebreak();
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{doublehour});
+ $kiriwrite_presmodule->addlinebreak();
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{singleminute});
+ $kiriwrite_presmodule->addlinebreak();
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{doubleminute});
+ $kiriwrite_presmodule->addlinebreak();
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{singlesecond});
+ $kiriwrite_presmodule->addlinebreak();
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{doublesecond});
+ $kiriwrite_presmodule->addlinebreak();
+ $kiriwrite_presmodule->addlinebreak();
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{othercharacters});
+ $kiriwrite_presmodule->endbox();
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->endrow();
+
+ $kiriwrite_presmodule->startrow();
+ $kiriwrite_presmodule->addcell("tablecellheader");
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{language});
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->addcell("tablecellheader");
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->endrow();
+
+ $kiriwrite_presmodule->startrow();
+ $kiriwrite_presmodule->addcell("tablecell1");
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{systemlanguage});
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->addcell("tablecell2");
+
+ $kiriwrite_presmodule->addselectbox("language");
+
+ # Process the list of available languages.
+
+ foreach $language (keys %language_list){
+
+ # Check if the language filename matches the filename in the configuration
+ # file.
+
+ if ($language_list{$language}{Filename} eq $language_config){
+
+ $kiriwrite_presmodule->addoption($language_list{$language}{Name}, { Value => $language_list{$language}{Filename} , Selected => 1 });
+
+ } else {
+
+ $kiriwrite_presmodule->addoption($language_list{$language}{Name}, { Value => $language_list{$language}{Filename} });
+
+ }
+
+ }
+
+ $kiriwrite_presmodule->endselectbox();
+
+ $kiriwrite_presmodule->startrow();
+ $kiriwrite_presmodule->addcell("tablecellheader");
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{modules});
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->addcell("tablecellheader");
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->endrow();
+
+ $kiriwrite_presmodule->startrow();
+ $kiriwrite_presmodule->addcell("tablecell1");
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{presentationmodule});
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->addcell("tablecell2");
+
+ $kiriwrite_presmodule->addselectbox("presmodule");
+
+ # Process the list of available presentation modules.
+
+ foreach $presmodule (keys %presmodule_list){
+
+ # Check if the presentation module fileanme matches the filename in the
+ # configuration file.
+
+ if ($presmodule_list{$presmodule}{Filename} eq $presmodule_config){
+
+ $kiriwrite_presmodule->addoption($presmodule_list{$presmodule}{Filename}, { Value => $presmodule_list{$presmodule}{Filename} , Selected => 1 });
+
+ } else {
+
+ $kiriwrite_presmodule->addoption($presmodule_list{$presmodule}{Filename}, { Value => $presmodule_list{$presmodule}{Filename} });
+
+ }
+
+ }
+
+ $kiriwrite_presmodule->endselectbox();
+
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->endrow();
+
+ $kiriwrite_presmodule->startrow();
+ $kiriwrite_presmodule->addcell("tablecell1");
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{databasemodule});
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->addcell("tablecell2");
+
+ # Process the list of available database modules.
+
+ $kiriwrite_presmodule->addselectbox("dbmodule");
+
+ foreach $dbmodule (keys %dbmodule_list){
+
+ # Check if the database module fileanme matches the filename in the
+ # configuration file.
+
+ if ($dbmodule_list{$dbmodule}{Filename} eq $dbmodule_config){
+
+ $kiriwrite_presmodule->addoption($dbmodule_list{$dbmodule}{Filename}, { Value => $dbmodule_list{$dbmodule}{Filename} , Selected => 1 });
+
+ } else {
+
+ $kiriwrite_presmodule->addoption($dbmodule_list{$dbmodule}{Filename}, { Value => $dbmodule_list{$dbmodule}{Filename} });
+
+ }
+
+
+ }
+
+ $kiriwrite_presmodule->endselectbox();
+
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->endrow();
+
+ $kiriwrite_presmodule->startrow();
+ $kiriwrite_presmodule->addcell("tablecell1");
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{databaseserver});
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->addcell("tablecell2");
+ $kiriwrite_presmodule->addinputbox("database_server", { Size => 32, MaxLength => 128, Value => $database_server });
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->endrow();
+
+ $kiriwrite_presmodule->startrow();
+ $kiriwrite_presmodule->addcell("tablecell1");
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{databaseport});
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->addcell("tablecell2");
+ $kiriwrite_presmodule->addinputbox("database_port", { Size => 5, MaxLength => 5, Value => $database_port });
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->endrow();
+
+ $kiriwrite_presmodule->startrow();
+ $kiriwrite_presmodule->addcell("tablecell1");
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{databaseprotocol});
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->addcell("tablecell2");
+
+ # Check if TCP is being used.
+
+ $kiriwrite_presmodule->addselectbox("database_protocol");
+
+ if ($database_protocol eq "tcp"){
+
+ # The TCP protocol is selected so have the TCP option selected.
+
+ $kiriwrite_presmodule->addoption("TCP", { Value => "tcp", Selected => 1});
+
+ } else {
+
+ # The TCP protocol is not selected.
+
+ $kiriwrite_presmodule->addoption("TCP", { Value => "tcp"});
+
+ }
+
+ # Check if UDP is being used.
+
+ if ($database_protocol eq "udp"){
+
+ # The UDP protocol is selected so have the UDP option selected.
+
+ $kiriwrite_presmodule->addoption("UDP", { Value => "udp", Selected => 1});
+
+ } else {
+
+ # The UDP protocol is not selected.
+
+ $kiriwrite_presmodule->addoption("UDP", { Value => "udp"});
+
+ }
+
+ $kiriwrite_presmodule->endselectbox();
+
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->endrow();
+
+ $kiriwrite_presmodule->startrow();
+ $kiriwrite_presmodule->addcell("tablecell1");
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{databasename});
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->addcell("tablecell2");
+ $kiriwrite_presmodule->addinputbox("database_sqldatabase", { Size => 32, MaxLength => 32, Value => $database_sqldatabase });
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->endrow();
+
+ $kiriwrite_presmodule->startrow();
+ $kiriwrite_presmodule->addcell("tablecell1");
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{databaseusername});
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->addcell("tablecell2");
+ $kiriwrite_presmodule->addinputbox("database_username", { Size => 16, MaxLength => 16, Value => $database_username });
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->endrow();
+
+ $kiriwrite_presmodule->startrow();
+ $kiriwrite_presmodule->addcell("tablecell1");
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{databasepassword});
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->addcell("tablecell2");
+ $kiriwrite_presmodule->addinputbox("database_password", { Size => 16, MaxLength => 64, Password => 1 });
+ $kiriwrite_presmodule->addtext(" ");
+ $kiriwrite_presmodule->addcheckbox("database_password_keep", { OptionDescription => "Keep the current password", Checked => 1 });
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->endrow();
+
+ $kiriwrite_presmodule->startrow();
+ $kiriwrite_presmodule->addcell("tablecell1");
+ $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{tableprefix});
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->addcell("tablecell2");
+ $kiriwrite_presmodule->addinputbox("database_tableprefix", { Size => 16, MaxLength => 16, Value => $database_prefix });
+ $kiriwrite_presmodule->endcell();
+ $kiriwrite_presmodule->endrow();
+
+ $kiriwrite_presmodule->endtable();
+
+ $kiriwrite_presmodule->addlinebreak();
+ $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{setting}->{changesettingsbutton});
+ $kiriwrite_presmodule->addtext(" | ");
+ $kiriwrite_presmodule->addreset($kiriwrite_lang->{common}->{restorecurrent});
+ $kiriwrite_presmodule->addtext(" | ");
+ $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=settings", { Text => $kiriwrite_lang->{setting}->{returnsettingslist} });
+ $kiriwrite_presmodule->endbox();
+ $kiriwrite_presmodule->endform();
+
+ return $kiriwrite_presmodule->grab();