#!/usr/bin/perl

$dbhostname = 'localhost';
$dbname = 'mariamed_emms';
$dbuname = 'mariamed_emms';
$dbpwd = '$4Gabriel4$';

$q = new CGI;
$arid=$q->param('arid');

use Mysql; 

$Data_Base_Name = Mysql->connect($dbhostname, $dbname, $dbuname, $dbpwd); 

$SQL_Statement = $Data_Base_Name->query("select jsmsg from autoresponders where arid=$arid"); 

$Query_Counter_Num = $SQL_Statement->numrows; 

@record = $SQL_Statement->FetchRow;
$str=$record[0];


use CGI qw (:standard);
$CGI_Application = new CGI;

print $CGI_Application->header(-type=>'application/x-javascript');

print<<EOF;

msgstr='$str';
EOF

exit;