function Render()
{
// Don't render anything but warnings if there are any warnings or if there is a postback
if ($this->PostBackAction == "") {
if ($this->Context->WarningCollector->Count() > 0) {
$this->Context->Writer->Write($this->Get_Warnings());
} else {
$this->Context->Writer->Add("<div class=\"Account\">");
if ($this->Context->Session->User->Setting("HtmlOn", 1) && $this->User->DisplayIcon != "") {
$this->Context->Writer->Add("<h1 class=\"AccountWithIcon\"><span class=\"AccountIcon\" style=\"background-image:url('" . $this->User->DisplayIcon . "')\"></span>");
} else {
$this->Context->Writer->Add("<h1>");
}
$this->Context->Writer->Add($this->User->FullName . "</h1>\r\n\t\t\t\t\t<small>" . $this->User->Role . "</small>\r\n\t\t\t\t\t<div class=\"AccountBody\">");
if ($this->User->RoleDescription != "") {
$this->Context->Writer->Add("<blockquote>" . $this->User->RoleDescription . "</blockquote>");
}
if ($this->User->Picture != "" && $this->User->CanPostHTML && $this->Context->Session->User->Setting("HtmlOn", 1)) {
$this->Context->Writer->Add("<div class=\"Picture\">" . GetImage($this->User->Picture, "", "", "Picture", "") . "</div>");
}
$this->Context->Writer->Add("<div class=\"AccountData\">\n<dl>\r\n\t\t\t\t\t\t\t<dt>" . $this->Context->GetDefinition("Account") . "</dt>\r\n\t\t\t\t\t\t\t<dd>" . ($this->User->ShowName || $this->Context->Session->User->AdminUsers ? $this->User->Name : "n/a") . "</dd>\r\n\t\t\t\t\t\t\t<dt>" . $this->Context->GetDefinition("Email") . "</dt>\r\n\t\t\t\t\t\t\t<dd>" . ($this->Context->Session->UserID > 0 && ($this->User->UtilizeEmail || $this->Context->Session->User->AdminUsers) ? GetEmail($this->User->Email) : "n/a") . "</dd>\r\n\t\t\t\t\t\t\t<dt>" . $this->Context->GetDefinition("AccountCreated") . "</dt>");
$this->Context->Writer->Add("<dd>" . TimeDiff($this->User->DateFirstVisit, mktime()) . "</dd>\n");
$this->Context->Writer->Add("<dt>" . $this->Context->GetDefinition("MemberOfGroups") . "</dt>\n<dd>" . implode("</br>", $this->User->UserGroups) . "</dd>");
$this->Context->Writer->Add("<dt>" . $this->Context->GetDefinition("LastActive") . "</dt>\r\n\t\t\t\t\t\t\t<dd>" . TimeDiff($this->User->DateLastActive, mktime()) . "</dd>\r\n\t\t\t\t\t\t\t<dt>" . $this->Context->GetDefinition("VisitCount") . "</dt>\r\n\t\t\t\t\t\t\t<dd>" . $this->User->CountVisit . "</dd>\r\n\t\t\t\t\t\t\t<dt>" . $this->Context->GetDefinition("DiscussionsStarted") . "</dt>\r\n\t\t\t\t\t\t\t<dd>" . $this->User->CountDiscussions . "</dd>\r\n\t\t\t\t\t\t\t<dt>" . $this->Context->GetDefinition("CommentsAdded") . "</dt>\r\n\t\t\t\t\t\t\t<dd>" . $this->User->CountComments . "</dd>" . $this->Context->ObjectFactory->RenderControlStrings("Account", "RenderUserProperties"));
if ($this->Context->Session->User->AdminUsers) {
$this->Context->Writer->Add("\r\n\t\t\t\t\t\t\t\t<dt>" . $this->Context->GetDefinition("LastKnownIp") . "</dt>\r\n\t\t\t\t\t\t\t\t<dd>" . $this->User->RemoteIp . "</dd>\r\n\t\t\t\t\t\t\t\t");
}
if (count($this->User->Attributes) > 0) {
for ($i = 0; $i < count($this->User->Attributes); $i++) {
$this->Context->Writer->Add("\r\n\t\t\t\t\t\t\t\t\t\t<dt>" . $this->User->Attributes[$i]["Label"] . "</dt>\r\n\t\t\t\t\t\t\t\t\t\t<dd>" . FormatHyperlink($this->User->Attributes[$i]["Value"]) . "</dd>\r\n\t\t\t\t\t\t\t\t\t");
}
}
$this->Context->Writer->Add("</dl>\r\n\t\t\t\t\t</div></div>\r\n\t\t\t\t</div>");
$this->Context->Writer->Write();
}
}
}
$params = array(":mejora" => $_POST["CompromisoMejora" . $iLoop], ":usumodif" => $user, ":id" => $_POST["CompromisoMejoraId" . $iLoop]);
DBExecSql($conn, $sql, $params);
} else {
$sql = "INSERT INTO rrhh.hcm_compromisomejora (cm_id_formularioevaluacion, cm_mejora, cm_usualta, cm_fechaalta)\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t VALUES (:idformularioevaluacion, SUBSTR(:mejora, 1, 2000), UPPER(:usualta), SYSDATE)";
$params = array(":idformularioevaluacion" => $_POST["FormularioId"], ":mejora" => $_POST["CompromisoMejora" . $iLoop], ":usualta" => $user);
DBExecSql($conn, $sql, $params);
}
$iLoop++;
}
if ($_POST["CerrarEvaluacion"] == "true") {
$sql = "UPDATE rrhh.hue_usuarioevaluacion\n\t\t\t\t\t\tSET ue_evaluador_ok = 1\n\t\t\t\t WHERE ue_evaluado = UPPER(:evaluado)\n\t\t\t\t\t\tAND ue_anoevaluacion = :ano";
$params = array(":evaluado" => $_POST["Evaluado"], ":ano" => $_POST["Ano"]);
DBExecSql($conn, $sql, $params);
$sql = "SELECT ue_evaluador destinatarios\n \t\t\t\t FROM rrhh.hue_usuarioevaluacion\n \t\t\t\t\tWHERE ue_evaluado = " . addQuotes($_POST["Evaluado"]) . "\n \t\t\t\t\t\tAND ue_anoevaluacion = " . $_POST["Ano"];
$body = "<html><body>Su evaluación de desempeño ya está disponible, por favor <a href='http://" . $_SERVER["HTTP_HOST"] . "/modules/encuestas/evaluacion_desempeno/'>ingrese haciendo click aquí</a> para notificarse.<br><br>Si el link no funciona pegue esta dirección en su navegador: http://" . $_SERVER["HTTP_HOST"] . "/modules/encuestas/evaluacion_desempeno</body></html>";
SendEmail($body, "Aviso Intranet", "Evaluación efectuada", GetEmail(explode(";", $_POST["Evaluado"])), array(), array(), "H");
}
}
if ($user == $_POST["Supervisor"]) {
// Si el que guarda es el supervisor..
$sql = "UPDATE rrhh.hfe_formularioevaluacion2008\n\t\t\t\t\tSET fe_fechasupervisor = SYSDATE,\n\t\t\t\t\t\t\tfe_comentariosupervisor = SUBSTR(:comentariossupervisor, 1, 2000),\n\t\t\t\t\t\t\tfe_usumodif = UPPER(:usumodif),\n\t\t\t\t\t\t\tfe_fechamodif = SYSDATE\n\t\t\t WHERE fe_id = :id";
$params = array(":comentariossupervisor" => $_POST["ComentariosSupervisor"], ":usumodif" => $user, ":id" => $_POST["FormularioId"]);
DBExecSql($conn, $sql, $params);
}
} catch (Exception $e) {
echo "<script>alert(unescape('" . rawurlencode($e->getMessage()) . "'));</script>";
exit;
}
?>
<script>
function closeWindow() {
function WriteEmail($Email, $LinkText = '')
{
echo GetEmail($Email, $LinkText);
}
if ($this->User->RoleDescription != '') {
echo '<li class="Tagline">' . $this->User->RoleDescription . '</li>';
}
if ($this->User->Picture != "" && $this->User->Permission('PERMISSION_HTML_ALLOWED')) {
echo "<li class=\"Picture\" style=\"background-image: url('" . $this->User->Picture . "');\"> </li>";
}
$this->CallDelegate('PostPictureRender');
if ($this->Context->Configuration['USE_REAL_NAMES'] && ($this->User->ShowName || $this->Context->Session->User->Permission('PERMISSION_EDIT_USERS'))) {
echo '<li>
<h3>' . $this->Context->GetDefinition('RealName') . '</h3>
<p class="fn">' . ReturnNonEmpty($this->User->FullName) . '</p>
</li>';
}
echo '<li>
<h3>' . $this->Context->GetDefinition('Email') . '</h3>
<p class="email">' . ($this->Context->Session->UserID > 0 && $this->User->UtilizeEmail ? GetEmail($this->User->Email) : $this->Context->GetDefinition('NA')) . '</p>
</li>
<li>
<h3>' . $this->Context->GetDefinition('AccountCreated') . '</h3>
<p>' . TimeDiff($this->Context, $this->User->DateFirstVisit, mktime()) . '</p>
</li>
<li>
<h3>' . $this->Context->GetDefinition('LastActive') . '</h3>
<p>' . TimeDiff($this->Context, $this->User->DateLastActive, mktime()) . '</p>
</li>
<li>
<h3>' . $this->Context->GetDefinition('VisitCount') . '</h3>
<p>' . $this->User->CountVisit . '</p>
</li>
<li>
<h3>' . $this->Context->GetDefinition('DiscussionsStarted') . '</h3>
$penerimalevel = $Editpenerima->level;
}
if ($penerimalevel == "DIT" or $penerimalevel == "DITJEN" or $penerimalevel == "WAMEN") {
$oEditpenerimaadmintu = mysql_query("SELECT * FROM xuser_pegawai WHERE IdDeputi = '" . $penerimaIdDeputi . "' AND username like 'admin%'") or die(mysql_error());
if (mysql_num_rows($oEditpenerimaadmintu) == 0) {
$bError = true;
$sMessage = "Invalid Member ID Request...!!";
} else {
$Editpenerimaadmintu = mysql_fetch_object($oEditpenerimaadmintu);
$admintuusername = $Editpenerimaadmintu->username;
}
mysql_query("INSERT INTO berita ( `Perihal` , `Isi` , `Pengirim` , `WaktuKirim` , `Penerima` ,`WaktuBaca` ,`NoSurat` ,`StatusBerita` \t\t\t ) VALUES ( '{$Perihal}', '{$Instruksixx}', '{$IdPengirim}', now(), '{$admintuusername}', '', '{$NoSurat}', '3' )") or die(mysql_error());
}
$Disposisi = "Disposisi terakhir oleh " . $IdPengirim . " ke " . $IdPenerima . " pada " . date(" d F Y H:i:s");
if (GetEmail($IdPenerima) != "") {
$to = GetEmail($IdPenerima);
$subject = 'Disposisi Surat baru ditambahkan pada SITP tentang ' . $Perihal;
$message = 'Disposisi Surat tentang ' . $Perihal . ' dengan No. Surat : ' . $NoSurat . ' baru ditambahkan di SITP silahkan cek di alamat http://118.98.234.39/sitpdik/';
$headers = 'From: admin_SITP@batan.go.id' . "\r\n" . 'Reply-To: layanan_si@batan.go.id' . "\r\n" . 'X-Mailer: PHP/' . phpversion();
//mail($to, $subject, $message, $headers);
//mysql_query("insert into kirim_email (`to`, `subject`, `message`, `headers`) values ($to, $subject, $message, $headers)");
mysql_query("insert into kirim_email (`to`,`subject`,`message`,`headers`) values ('{$to}', '{$subject}', '{$message}', '{$headers}')") or die(mysql_error());
}
}
if ($BeritaFlag == "1") {
mysql_query("UPDATE berita SET \r\n\t\t\t\t\t\t\tStatusDisposisi \t= '1',\r\n\t\t\t\t\t\t\tStatusBerita \t= '1'\r\n\t\t\t\t\t\t\tWHERE NoSurat = '" . $NoSurat . "' and Penerima = '" . $IdUser . "'") or die(mysql_error());
} else {
mysql_query("UPDATE suratmasuk SET \r\n\t\t\t\t\t\t\tStatusDisposisi \t= '1', \r\n\t\t\t\t\t\t\tDisposisi \t= '" . $Disposisi . "'\r\n\t\t\t\t\t\t\tWHERE NoSurat = '" . $NoSurat . "' and DicatatOleh = '" . $KdSatker . "'") or die(mysql_error());
}
echo "<meta http-equiv=\"refresh\" content=\"0;URL=index.php?p=" . enkripsi($tanyadisposisi . "&q=" . $id[$i] . "&Id=" . $IdBerita . "&NoSurat=" . $NoSurat . "&Perihal=" . $Perihal . "&BeritaFlag=" . $BeritaFlag . "&StatusDisposisi=" . $StatusDisposisi) . "\">";
exit;
function DisplayAdminMassprepareenque($rBroadCast, $TGroupList, $TCountries, $TData, $count = 0, $countnonews = 0, $query = "")
{
global $title;
$title = "Admin Mass Mails";
require_once "header.php";
Menu1("", ww('MainPage'));
// Displays the top menu
Menu2("admin/adminmassmails.php", ww('MainPage'));
// Displays the second menu
$MenuAction = " <li><a href=\"adminmassmails.php\">Admin Massmails</a></li>\n";
$MenuAction .= " <li><a href=\"adminmassmails.php?action=createbroadcast\">Create new broadcast</a></li>\n";
if (HasRight("MassMail", "Send")) {
// if has right to trig
$MenuAction .= " <li><a href=\"adminmassmails.php?action=ShowPendingTrigs\">Trigger mass mails</a></li>\n";
}
DisplayHeaderShortUserContent("Admin Mails - Broadcast Messages", "");
ShowLeftColumn($MenuAction, VolMenu());
$Name = $rBroadCast->Name;
$IdGroup = GetParam("IdGroup", 0);
$CountryIsoCode = GetParam("CountryIsoCode", 0);
echo " <div id=\"col3\"> \n";
echo " <div id=\"col3_content\" class=\"clearfix\"> \n";
echo " <div class=\"info clearfix\">\n";
echo "<h2>For broadcast <b>", $Name, "</b></h2>";
if ($count > 0) {
echo "<p class=\"note\"> {$count} enqueued messages !<br /><i>{$countnonews} will not receive the mail because of their preference</i></p>";
}
$BroadCast_Title_ = getBroadCastElement("BroadCast_Title_" . $Name, 0);
$BroadCast_Body_ = getBroadCastElement("BroadCast_Body_" . $Name, 0);
$rr = LoadRow("select * from words where code='BroadCast_Title_" . $Name . "' and IdLanguage=0");
if (isset($rr->Description)) {
$Description = $rr->Description;
} else {
$Description = "";
}
echo "<h3>", nl2br($BroadCast_Title_), "</h3>";
echo "<p>", nl2br($BroadCast_Body_), "</p>";
echo "<br /><form method=\"post\" action=\"adminmassmails.php\" name=\"adminmassmails\" class=\"yform full\">\n";
echo "<input type=\"hidden\" Name=\"IdBroadCast\" value=" . GetParam("IdBroadCast", 0) . ">\n";
echo "<h3> Filtering the scope of the mass mail</h3>";
echo "<div class=\"type-text\">";
echo "<label for=\"Usernames\">Restrict to some members (ex : lupochen;kiwiflave;jeanyves)</label>";
echo "<input type=\"text\" id=\"Usernames\" name=\"Usernames\" value=\"" . GetStrParam("Usernames", ""), "\" />\n";
echo "</div>";
echo "<div class=\"type-select\">";
echo "<label for=\"CountryIsoCode\">Choose a country</label>";
echo "<select id=\"CountryIsoCode\" name=\"CountryIsoCode\">";
echo "<option value=\"0\">All countries</option>";
for ($ii = 0; $ii < count($TCountries); $ii++) {
echo "<option value=\"", $TCountries[$ii]->isoCode . '"';
if (strcmp($TCountries[$ii]->isoCode, $CountryIsoCode) === 0) {
echo " selected";
}
echo ">", $TCountries[$ii]->Name;
echo "</option>";
}
echo "</select>\n";
echo "</div>";
echo "<div class=\"type-select\">";
echo "<label for=\"IdGroup\">Choose a group</label>";
echo "<select id=\"IdGroup\" name=\"IdGroup\">";
echo "<option value=\"0\">All groups</option>";
for ($ii = 0; $ii < count($TGroupList); $ii++) {
echo "<option value=", $TGroupList[$ii]->id;
if ($TGroupList[$ii]->id == $IdGroup) {
echo " selected";
}
echo ">", $TGroupList[$ii]->Name, ":", $TGroupList[$ii]->Name;
echo "</option>";
}
echo "</select>\n";
echo "</div>";
echo "<div class=\"type-text\">";
echo "<label for =\"MemberStatus\">Member with status</label>";
echo "<input type=\"text\" id=\"MemberStatus\" name=\"MemberStatus\" value=\"" . GetStrParam("MemberStatus", "Active") . "\" />\n";
echo "</div>";
echo '<div class="type-text">';
echo '<label for="Limit">Maximum number of members (i.e. 100)</label>';
echo '<input type="text" id="limit" name="limit" value="' . GetStrParam("limit", "") . '" />';
echo '</div>';
if (GetStrParam("random_order", "") == "on") {
$random_order_checked = ' checked="checked"';
} else {
$random_order_checked = '';
}
echo '<div class="type-check">';
echo '<p>';
echo '<input type="checkbox"' . $random_order_checked . ' id="random_order" name="random_order" /> ';
echo '<label for="random_order">Select random members</label>';
echo '<br>Note: If this option is checked the recipients list below is only an example and does not reflect the list of members the mail will actually be sent to. Members will be randomly selected again when pressing "enqueue".';
echo '</p>';
echo '</div>';
if (HasRight('MassMail', "test")) {
if (GetStrParam("hide_recipients", "") == "on") {
$checked = ' checked="checked"';
} else {
$checked = '';
}
echo '<div class="type-check">';
echo '<p>';
echo '<input type="checkbox"' . $checked . ' id="hide_recipients" name="hide_recipients" /> ';
echo '<label for="hide_recipients">Hide recipients list</label>';
echo '</p>';
echo '</div>';
echo '<p>';
echo '<input type="submit" name="action" value="test" />';
echo ' (Shows number of matching members and list of recipients)';
echo '</p>';
}
// if it was a test action display the result build from previous filtering
if (GetStrParam("action") == "test") {
$max = count($TData);
echo "<h3>This newsletter will be sent to {$max} members</h3>\n";
if (GetStrParam("hide_recipients", "") != "on") {
echo "<table>\n";
echo "<tr align=left><th>Username</th><th>country</th>";
if (IsAdmin()) {
echo "<th>email</th>";
}
echo "<th>Status</th><th>Will try in</th></tr>";
for ($ii = 0; $ii < $max; $ii++) {
$m = $TData[$ii];
echo "<tr class=\"highlight\">";
echo "<td>", $m->Username, "</td>";
echo "<td>", getcountrynamebycode($m->isoCode), "</td>";
if (IsAdmin()) {
echo "<td>", GetEmail($m->id), "</td>";
}
echo "<td>", $m->Status, "</td>";
$iLang = GetDefaultLanguage($m->id);
$PrefLanguageName = LanguageName($iLang);
echo "<td>", $PrefLanguageName, "</td>";
echo "</tr>\n";
echo "<tr>";
echo "<td colspan=5 class=\"blank\">";
echo getBroadCastElement("BroadCast_Title_" . $Name, $iLang, $m->Username), "<br />";
echo getBroadCastElement("BroadCast_Body_" . $Name, $iLang, $m->Username), "<br />";
echo "</td>";
echo "</tr>";
}
echo "</table>\n";
}
}
if (HasRight('MassMail', "enqueue")) {
echo "<div class=\"note\">";
echo "<div class=\"type-check\">";
echo "<input type=\"checkbox\" id=\"enqueuetick\" name=\"enqueuetick\" />";
echo "<label for=\"enqueuetick\">Tick this if you really want to enqueue the messages to send and click on enqueue</label>";
echo "</div>";
echo "<div class=\"type-button\">";
echo "<input type=\"submit\" name=\"action\" value=\"enqueue\" />\n";
echo "</div>";
echo "</div>";
}
echo "</form>\n";
echo "<div> <!-- info -->\n";
require_once "footer.php";
}
echo "<h1>Vanilla Installation Wizard (Step 1 of 3)</h1>";
if ($WarningCollector->Count() > 0) {
echo "<div class=\"Warnings\">\r\n <strong>Oops. We came across some problems while checking your permissions...</strong>\r\n " . $WarningCollector->GetMessages() . "\r\n </div>\r\n <p>Let's try this again...</p>";
}
echo "<p>Before we can do much of anything, we need to make sure that you've got your directory & file permissions set up properly.</p>\r\n <p>Vanilla is going to need read AND write access to the following files:</p>\r\n <ul>\r\n <li>" . $WorkingDirectory . "appg/settings.php</li>\r\n <li>" . $WorkingDirectory . "appg/extensions.php</li>\r\n <li>" . $WorkingDirectory . "appg/language.php</li>\r\n <li>" . $WorkingDirectory . "database.sql</li>\r\n </ul>\r\n <p>Vanilla is also going to need read access to the following folder:</p>\r\n <ul>\r\n <li>" . $WorkingDirectory . "languages/</li>\r\n </ul>\r\n <p>And finally, the filebrowser and thumbnailer will need read AND write access to the following folder:</p>\r\n <ul>\r\n <li>" . $WorkingDirectory . "images/</li>\r\n </ul>\r\n <p>If you are running a *nix server and you have command line access, you can achieve these permissions by navigating to the Vanilla folder. Once you are sitting in the same folder as the installer.php file, run the following commands:</p>\r\n <blockquote>\r\n <code>\r\n chmod 666 appg/settings.php\r\n <br />chmod 666 appg/language.php\r\n <br />chmod 666 appg/extensions.php\r\n <br />chmod 666 database.sql\r\n <br />chmod 757 images/\r\n </code>\r\n </blockquote>\r\n <p>Once you've got your permissions set up properly...</p>\r\n <div class=\"Button\"><a href=\"installer.php?PostBackAction=Permissions\">Click here to check your permissions and proceed to the next step</a></div>";
} elseif ($CurrentStep == 2) {
echo "<h1>Vanilla Installation Wizard (Step 2 of 3)</h1>";
if ($WarningCollector->Count() > 0) {
echo "<div class=\"Warnings\">\r\n <strong>Oops. We came across some problems while setting up Vanilla...</strong>\r\n " . $WarningCollector->GetMessages() . "\r\n </div>\r\n <p>Let's try this again...</p>";
}
echo "<p>Below you can provide the connection parameters for the mysql server where you want to install Vanilla. If you haven't done it yet, now would be a good time to create the database where you want Vanilla installed.</p>\r\n <form name=\"frmDatabase\" method=\"post\" action=\"installer.php\">\r\n <input type=\"hidden\" name=\"PostBackAction\" value=\"Database\" />\r\n <div class=\"Form\">\r\n <dl>\r\n <dt>MySQL Server</dt>\r\n <dd><input type=\"text\" name=\"DBHost\" value=\"" . FormatStringForDisplay($DBHost, 1) . "\" /></dd>\r\n <dt>MySQL Database Name</dt>\r\n <dd><input type=\"text\" name=\"DBName\" value=\"" . FormatStringForDisplay($DBName, 1) . "\" /></dd>\r\n <dt>MySQL User</dt>\r\n <dd><input type=\"text\" name=\"DBUser\" value=\"" . FormatStringForDisplay($DBUser, 1) . "\" /></dd>\r\n <dt>MySQL Password</dt>\r\n <dd><input type=\"password\" name=\"DBPass\" value=\"" . FormatStringForDisplay($DBPass, 1) . "\" /></dd>\r\n </dl>\r\n </div>\r\n </form>\r\n <div class=\"Button\"><a href=\"javascript:document.frmDatabase.submit();\">Click here to create Vanilla's database tables and proceed to the next step</a></div>";
} elseif ($CurrentStep == 3) {
if ($PostBackAction != "User") {
$CookieDomain = ForceString(@$_SERVER['HTTP_HOST'], "");
}
echo "<h1>Vanilla Installation Wizard (Step 3 of 3)</h1>";
if ($WarningCollector->Count() > 0) {
echo "<div class=\"Warnings\">\r\n <strong>Oops. We came across some problems while setting up Vanilla...</strong>\r\n " . $WarningCollector->GetMessages() . "\r\n </div>";
}
echo "<p>Now let's set up your administrative account for Vanilla.</p>\r\n <form name=\"frmUser\" method=\"post\" action=\"installer.php\">\r\n <input type=\"hidden\" name=\"PostBackAction\" value=\"User\" />\r\n <input type=\"hidden\" name=\"DBHost\" value=\"" . FormatStringForDisplay($DBHost) . "\" />\r\n <input type=\"hidden\" name=\"DBName\" value=\"" . FormatStringForDisplay($DBName) . "\" />\r\n <input type=\"hidden\" name=\"DBUser\" value=\"" . FormatStringForDisplay($DBUser) . "\" />\r\n <input type=\"hidden\" name=\"DBPass\" value=\"" . FormatStringForDisplay($DBPass) . "\" />\r\n <div class=\"Form\">\r\n <dl>\r\n <dt>Username</dt>\r\n <dd><input type=\"text\" name=\"Username\" value=\"" . FormatStringForDisplay($Username, 1) . "\" /></dd>\r\n <dt>Password</dt>\r\n <dd><input type=\"password\" name=\"Password\" value=\"" . FormatStringForDisplay($Password, 1) . "\" /></dd>\r\n <dt>Confirm Password</dt>\r\n <dd><input type=\"password\" name=\"ConfirmPassword\" value=\"" . FormatStringForDisplay($ConfirmPassword, 1) . "\" /></dd>\r\n </dl>\r\n </div>\r\n <p>Up next we've got to set up the support contact information for your forum. This is what people will see when support emails go out from the system for things like password retrieval and role changes.</p>\r\n <div class=\"Form\">\r\n <dl>\r\n <dt>Support Contact Name</dt>\r\n <dd><input type=\"text\" name=\"SupportName\" value=\"" . FormatStringForDisplay($SupportName, 1) . "\" /></dd>\r\n <dt>Support Email Address</dt>\r\n <dd><input type=\"text\" name=\"SupportEmail\" value=\"" . FormatStringForDisplay($SupportEmail, 1) . "\" /></dd>\r\n </dl>\r\n </div>\r\n <p>What do you want to call your forum?</p>\r\n <div class=\"Form\">\r\n <dl>\r\n <dt>Forum Name</dt>\r\n <dd><input type=\"text\" name=\"ApplicationTitle\" value=\"" . FormatStringForDisplay($ApplicationTitle, 1) . "\" /></dd>\r\n </dl>\r\n </div>\r\n <p>When members use the \"remember me\" feature of the sign in form, we assign a cookie to their browser. That cookie is normally associated with your domain name, but you may want to associate it with something else like the sub-folder in which Vanilla resides (if Vanilla is in a sub-folder). Specify your cookie domain here.</p>\r\n <div class=\"Form\">\r\n <dl>\r\n <dt>Cookie Domain</dt>\r\n <dd><input type=\"text\" name=\"CookieDomain\" value=\"" . FormatStringForDisplay($CookieDomain, 1) . "\" /></dd>\r\n </dl>\r\n </div>\r\n <p>Finally, select the language you want Vanilla to use. If you don't see your language here, you should " . GetEmail("*****@*****.**", "contact us") . " about setting up a Vanilla dictionary for your language!</p>\r\n <div class=\"Form\">\r\n <dl>\r\n <dt>Language</dt>\r\n <dd>" . $LanguageSelect->Get() . "</dd>\r\n </dl>\r\n </div>\r\n </form>\r\n <div class=\"Button\"><a href=\"javascript:document.frmUser.submit();\">Click here to complete the setup process!</a></div>";
} else {
echo "<h1>Vanilla Installation Wizard (Complete)</h1>\r\n <p><strong>That's it!</strong></p>\r\n <p>Vanilla is set up and ready to go, so what do you do next?</p>\r\n <p>Before you start inviting your friends in for discussions, there are a lot of other things you might want to set up. For example, in the settings tab, you can:</p>\r\n <ul>\r\n <li>\r\n Turn some of the extensions on, like...\r\n <ul>\r\n <li>The category quick-jump that allows members to jump between categories from their control panel</li>\r\n <li>The clipboard that allows members to quickly paste snippets of information into their comments</li>\r\n <li>The Html Formatter that allows members to use a limited set of html when adding their comments to discussions</li>\r\n <li>And lots more!</li>\r\n </ul>\r\n </li>\r\n <li>\r\n Fine-tune application settings like...\r\n <ul>\r\n <li>Change the number of discussions or comments per page</li>\r\n <li>Allow the public to browse your forum without an account</li>\r\n <li>Disable discussion categories and run your forum as one giant discussion container</li>\r\n <li>Allow your members to change their usernames at will</li>\r\n <li>Much, much more!</li>\r\n </ul>\r\n </li>\r\n <li>Create new roles with various different permissions</li>\r\n <li>Create new categories, and even limit which roles get to access them</li>\r\n <li>Allow new users to be automatically granted access when they apply for membership</li>\r\n </ul>\r\n <p>And that's not all. There's also the latest version of the Lussumo Filebrowser and Thumbnailer sitting in your images folder.</p>\r\n <div class=\"Button\"><a href=\"signin.php\">Go sign in and have some fun!</a></div>";
}
?>
</div>
</div>
<div class="Foot">
<a href="http://lussumo.com">Lussumo</a> <a href="http://getvanilla.com">Vanilla</a> & <a href="http://thefilebrowser.com">Filebrowser</a> Copyright © 2001 - 2005
</div>
</body>
</html>
if (!$result) {
echo mysql_error();
exit;
}
}
print "<CENTER><BIG><H1 dir={$langdir}>{$l10nstr['37']}</H1></BIG></CENTER>\n";
print "<META HTTP-EQUIV=\"Refresh\" CONTENT=\"2; URL={$mainfile}?forum={$table}\">\n";
print "<P dir=RTL>\n";
print "{$l10nstr['38']}";
/* in 2 seconds you will be returned to forum */
/*
| Send mail notification
*/
$user = $_GET['msg'];
if ($user) {
$to = GetEmail($user);
$forum_title = GetForumTitle($table);
$subject .= $forum_title;
$num = mysql_insert_id();
mail($to, $subject, "You have a replay for your message in forum: {$forum_title}\r\n" . "To see the message go to: {$mainfile}?forum={$table}&show={$num}", "From: {$adminmail}\r\n" . "Reply-To: {$replymail}\r\n" . "X-Mailer: PHP/" . phpversion());
}
mysql_close($link);
print "{$pgbottom}\n";
exit;
}
if ($action == 'update') {
$date = date("Y-m-d");
$title = $_POST['title'];
$contents = $_POST['contents'];
$url1 = $_POST['url1'];
$urldesc1 = $_POST['urldesc1'];
<?php
require_once '/WWW/email.php';
//TITLE=OPL3 MIDI player for Linux and Windows
$title = 'ADLMIDI: OPL3 MIDI player for Linux and Windows';
$progname = 'adlmidi';
$git = 'git://bisqwit.iki.fi/adlmidi.git';
$text = array('purpose:1. Purpose' => "\n\n<div style=\"float:right;width:542px;text-align:justify;margin-left:30px\">\n<img src=\"http://bisqwit.iki.fi/jutut/kuvat/programming_examples/midiplay.gif\"\nalt=\"adlmidi screenshot\"\ntitle=\"adlmidi playing Tifa theme from FF7\">\n<br>\n<span style=\"font-size:90%\"\n>This screenshot shows ADLMidi running on Linux, seen through\na <a href=\"http://en.wikipedia.org/wiki/Secure_Shell\">SSH</a>\nsession that runs in <a href=\"http://www.cygwin.com/\">Cygwin</a>\n<a href=\"http://en.wikipedia.org/wiki/Xterm\">XTerm</a> on Windows 7.<br></span>\n<small style=\"color:#444\">The lovely dithering pattern is generated by\n<a href=\"http://bisqwit.iki.fi/source/animmerger.html\">animmerger</a>,\nanother one of my pet projects…(The image above has only 16 colors)</small></div>\n\nAdlMIDI is a commandline program that plays MIDI files\nusing software OPL3 emulation (FM synthesis).\n\n", 'features:1. Key features' => "\n\n<ul>\n <li>OPL3 emulation with four-operator mode support</li>\n <li>FM patches from a number of known PC games, copied from\n files typical to\n AIL = Miles Sound System / DMX / HMI = Human Machine Interfaces\n / Creative IBK.</li>\n <li>Stereo sound</li>\n <li>Reverb filter based on code from <a href=\"http://sox.sourceforge.net/\">SoX</a>,\n based on code from <a href=\"http://freeverb3.sourceforge.net/\">Freeverb</a>.\n A copy of either project is not needed.</li>\n <li>Number of simulated soundcards can be specified as 1-100 (maximum channels 1800!)</li>\n <li>xterm-256color support</li>\n <li>WIN32 console support (also tested with <a href=\"http://www.japheth.de/HX.html\">HXRT / MS-DOS</a>)</li>\n <li>Pan (binary panning, i.e. left/right side on/off)</li>\n <li>Pitch-bender with adjustable range</li>\n <li>Vibrato that responds to RPN/NRPN parameters</li>\n <li>Sustain enable/disable</li>\n <li>MIDI and RMI file support</li>\n <li>loopStart / loopEnd tag support (Final Fantasy VII)</li>\n <li>Use automatic arpeggio with chords to relieve channel pressure</li>\n <li>Support for multiple concurrent MIDI synthesizers (per-track device/port select FF 09 message), can be used to overcome 16 channel limit</li>\n</ul>\n\n<hr>\nThis project is <b>developed in C++</b>, but a <i>GW-BASIC version</i> is also provided\n(<a href=\"http://bisqwit.iki.fi/jutut/kuvat/programming_examples/midiplay.html\"\n>MIDIPLAY.BAS</a>).\nThis player was\n<a href=\"http://www.youtube.com/watch?v=ZwcFV3KrnQA\"\n>first implemented in GW-BASIC for a Youtube demonstration video</a>!\nWith alterations that take 15 seconds to implement,\nit can be run in QBasic and QuickBASIC too.\nNote: The GW-BASIC version does not contain all of the same features that the C++ version does.\n\n", 'usage: 1. Usage' => "\n\n<pre>ADLMIDI: MIDI player for Linux and Windows with OPL3 emulation\n(C) -- http://iki.fi/bisqwit/source/adlmidi.html\nUsage: adlmidi <midifilename> [ <options> ] [ <banknumber> [ <numcards> [ <numfourops>] ] ]\n adlmidi <midifilename> -1 To enter instrument tester\n -p Enables adlib percussion instrument mode\n -t Enables tremolo amplification mode\n -v Enables vibrato amplification mode\n -s Enables scaling of modulator volumes\n -nl Quit without looping\n -w Write WAV file rather than playing\n Banks: 0 = AIL (Star Control 3, Albion, Empire 2, Sensible Soccer, Settlers 2, many others)\n 1 = Bisqwit (selection of 4op and 2op)\n 2 = HMI (Descent, Asterix)\n 3 = HMI (Descent:: Int)\n 4 = HMI (Descent:: Ham)\n 5 = HMI (Descent:: Rick)\n 6 = HMI (Descent 2)\n 7 = HMI (Normality)\n 8 = HMI (Shattered Steel)\n 9 = HMI (Theme Park)\n 10 = HMI (3d Table Sports, Battle Arena Toshinden)\n 11 = HMI (Aces of the Deep)\n 12 = HMI (Earthsiege)\n 13 = HMI (Anvil of Dawn)\n 14 = DMX (Doom :: partially pseudo 4op)\n 15 = DMX (Hexen, Heretic :: partially pseudo 4op)\n 16 = DMX (MUS Play :: partially pseudo 4op)\n 17 = AIL (Discworld, Grandest Fleet, Pocahontas, Slob Zone 3d, Ultima 4, Zorro)\n 18 = AIL (Warcraft 2)\n 19 = AIL (Syndicate)\n 20 = AIL (Guilty, Orion Conspiracy, Terra Nova Strike Force Centauri :: 4op)\n 21 = AIL (Magic Carpet 2)\n 22 = AIL (Nemesis)\n 23 = AIL (Jagged Alliance)\n 24 = AIL (When Two Worlds War :: 4op, MISSING INSTRUMENTS)\n 25 = AIL (Bards Tale Construction :: MISSING INSTRUMENTS)\n 26 = AIL (Return to Zork)\n 27 = AIL (Theme Hospital)\n 28 = AIL (National Hockey League PA)\n 29 = AIL (Inherit The Earth)\n 30 = AIL (Inherit The Earth, file two)\n 31 = AIL (Little Big Adventure :: 4op)\n 32 = AIL (Wreckin Crew)\n 33 = AIL (Death Gate)\n 34 = AIL (FIFA International Soccer)\n 35 = AIL (Starship Invasion)\n 36 = AIL (Super Street Fighter 2 :: 4op)\n 37 = AIL (Lords of the Realm :: MISSING INSTRUMENTS)\n 38 = AIL (SimFarm, SimHealth :: 4op)\n 39 = AIL (SimFarm, Settlers, Serf City)\n 40 = AIL (Caesar 2 :: partially 4op, MISSING INSTRUMENTS)\n 41 = AIL (Syndicate Wars)\n 42 = AIL (Bubble Bobble Feat. Rainbow Islands, Z)\n 43 = AIL (Warcraft)\n 44 = AIL (Terra Nova Strike Force Centuri :: partially 4op)\n 45 = AIL (System Shock :: partially 4op)\n 46 = AIL (Advanced Civilization)\n 47 = AIL (Battle Chess 4000 :: partially 4op, melodic only)\n 48 = AIL (Ultimate Soccer Manager :: partially 4op)\n 49 = AIL (Air Bucks, Blue And The Gray, America Invades, Terminator 2029)\n 50 = AIL (Ultima Underworld 2)\n 51 = AIL (Kasparov's Gambit)\n 52 = AIL (High Seas Trader :: MISSING INSTRUMENTS)\n 53 = AIL (Master of Magic, Master of Orion 2 :: 4op, std percussion)\n 54 = AIL (Master of Magic, Master of Orion 2 :: 4op, orchestral percussion)\n 55 = SB (Action Soccer)\n 56 = SB (3d Cyberpuck :: melodic only)\n 57 = SB (Simon the Sorcerer :: melodic only)\n 58 = OP3 (The Fat Man 2op set)\n 59 = OP3 (The Fat Man 4op set)\n 60 = OP3 (JungleVision 2op set :: melodic only)\n 61 = OP3 (Wallace 2op set, Nitemare 3D :: melodic only)\n 62 = TMB (Duke Nukem 3D)\n 63 = TMB (Shadow Warrior)\n 64 = DMX (Raptor)\n Use banks 2-5 to play Descent \"q\" soundtracks.\n Look up the relevant bank number from descent.sng.\n\n The fourth parameter can be used to specify the number\n of four-op channels to use. Each four-op channel eats\n the room of two regular channels. Use as many as required.\n The Doom & Hexen sets require one or two, while\n Miles four-op set requires the maximum of numcards*6.</pre>\n\n", 'copying:1. Copying and contributing' => "\n\nADLMIDI is distributed under the terms of the\n<a href=\"http://www.gnu.org/licenses/gpl-3.0.html\">General Public License</a>\nversion 3 (GPL3).\n <br/>\nThe OPL3 emulator within is from DOSBox is licensed under GPL2+.\n <br/>\nThe FM soundfonts (patches) used in the program are\nimported from various PC games without permission\nfrom their respective authors. The question of copyright, when\nit comes to sets of 11 numeric bytes, is somewhat vague, especially\nconsidering that most of those sets are simply descendants of the\npatch sets originally published by AdLib Inc. for everyone's free use.\n <p/>\nPatches (as in source code modifications)\nand other related material can be submitted\nto the primary author\n" . GetEmail('by e-mail at:', 'Joel Yliluoma', 'bisqwi' . '*****@*****.**') . "\n <p/>\nThe author also wishes to hear if you use adlmidi, and for what you\nuse it and what you think of it.\n\n");
include '/WWW/progdesc.php';
