Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Темы - systemroot

Страницы: [1] 2
1
PHP / Вопрос по классам.
« : 26 Марта 2006, 12:19:55 »
В классе есть функция. GetFile()
она проверяет есть ли вналичии фаил и если он есть инклудит его.
в фаиле есть массив $arDirProp.
соответственно после инклуда он становиться доступен внутри функции а мне надо мделать его глобальным подскажите как это можно сделать?

2
Perl / Не отображаеться кирилица
« : 17 Июня 2005, 09:47:12 »
есть скрипт на перле который с формы получает поле типа textarea в котором идет русский текс при выводе полученного скрипта и при записи в базу выдает за место положенных символов
 %C6%D4%C5%D3%D4
как вывести кирилицу?
так же в скрипте есть строчка
print "№ шкафа <input type=text name=case1number value=\\"\\">
";
но за место символа № выводиться символ ?

3
Perl / скрипт не отправляет почту MIME::lite
« : 07 Апреля 2005, 11:52:22 »
есть скрипт который выводит форму предлагает ввести адрес и опиание и по нажатии на кнопку должен отправлять письмо но он повисает на отправке письма....

#!/usr/local/bin/perl
use Mysql;
use Time::Local;

$curtime = time();
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($curtime);
$Day="0".($mday);
$Day=substr($Day, -2, 2);
$Month="0".(1+$mon);
$Month=substr($Month, -2, 2);
$Year=(1900+$year);

$SDate=$Year."-".$Month."-".$Day;

@MonthNames = ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec");
  
  
  $dbh=Mysql->connect("localhost","tpp","tpp","nt[gjllth;rf");
  if (!defined($dbh))
    {
      exit 255;
    }

print "Content-type: text/html\\n\\n";
print <<M1;
 <html>
 <head>
<meta http-equiv="Content-Type" content="text/html; charset=koi8-r">
   <title>IPTel Statistic</title>
</head><body bgcolor="#D3D3D3">
M1
;


$Params{CallID}="";
$Params{Destination}="";
$Params{DestinationID}="";
$Params{EmailID}="";

$Query=$ENV{QUERY_STRING};
  @pairs=split(/&/,$Query);
  foreach $Pair (@pairs)
   {
    if ($Pair =~ /(.+)=(.*)/)
     {
#      $Value = $dbh->quote($2);
      $Key = $1;
      $Value = $2;
      $Params{$Key} = $Value;
     }
   }



print "<TABLE width=\\"100%\\"><TR><TD><H1>$Params{OperatorName}\\t";
print "$Params{Operator}</H1></TD>\\n";
print "<form action=\\"ipoperator.pl\\" method=\\"GET\\">\\n";
print "<input type=\\"hidden\\" name=\\"Operator\\" value=\\"$Params{Operator}\\">\\n";
print "<input type=\\"hidden\\" name=\\"OperatorName\\" value=\\"$Params{OperatorName}\\">\\n";
print "<input type=\\"hidden\\" name=\\"Destination\\" value=\\"Out\\">\\n";
print "<TD align=\\"right\\" valign=\\"middle\\">Отключить <input type=\\"SUBMIT\\" style=\\"width:100px;height:30px;\\" name=\\"B2\\"";
print " value=\\"$Params{Operator}\\"></TD></TR></form></TABLE>\\n";    
    if($Params{EmailID} != "") 
 {
  $querystr = "Select Email From Contacts where Id=\\"$Params{EmailID}\\"";
  my $sth=$dbh->query($querystr) or die $Mysql::db_errstr;
  if (!defined($sth))
             {   exit 1; }
  %Email = $sth->fetchhash;
  require MIME::Lite;
  $msg = MIME::Lite->new(
  From =>\'tpp@company.utk.ru\',
  To =>$Email{Email},
  Subject =>\'Тех поддержка\',
  Type => \'multipart/related\');
  $msg->attach(
  Type =>\'text/plain; charset=KOI8-R\',
  Data =>\'Тип проблемы: \'.$Params{Problem}.\'\\n Описание проблемы:\'. $Params{Description}.\' \\n
Дата:\'. $SDate
  );
  $msg->send(\'smtp\', \'212.220.44.254\', Timeout=>60);
 
 } 
  
      if($Params{Email} ne "" ) 
    {
  require MIME::Lite;
  $msg = MIME::Lite->new(
  From =>\'tpp@company.utk.ru\',
  To =>$Params{Email},
  Subject =>\'Тех поддержка\',
  Type => \'multipart/related\');
  $msg->attach(
  Type =>\'text/plain; charset=KOI8-R\',
  Data =>\'Тип проблемы: \'.$Params{Problem}.\'\\n Описание проблемы:\'. $Params{Description}.\' \\n
Дата:\'. $SDate
  );
  $msg->send(\'smtp\', \'212.220.44.254\', Timeout=>60);
            }
  
  print "<form name=\\"callprop\\" action=\\"test.pl\\" method=\\"GET\\">\\n";
      print "<table>\\n";
      print "<tr>\\n";

      print "<td>\\n";
      print "<input type=\\"hidden\\" name=\\"Operator\\" value=\\"$Params{Operator}\\">\\n";
      print "<input type=\\"hidden\\" name=\\"OperatorName\\" value=\\"$Params{OperatorName}\\">\\n";
      print "<input type=\\"hidden\\" name=\\"CallID\\" value=\\"$Params{CallID}\\">\\n";
      print "Номер назначения из списка:<select name=\\"DestinationID\\">";
      $querystr="Select * from Contacts where type=\\"Phone\\" OR type=\\"all\\" ";
      my $sth=$dbh->query($querystr) or die $Mysql::db_errstr;
      if (!defined($sth))
        {   exit 255; }
      while (%arr = $sth->fetchhash)
        {
  if ($Params{DestinationID}==$arr{Id}) {
            print "<option selected value=\'$arr{Id}\'>$arr{Phone} $arr{DataText}</option>";
  }else {
    print "<option value=\'$arr{Id}\'>$arr{Phone} $arr{DataText}</option>";
  }
        }

      print "</select>
\\n";
      print "Номер назначения:<input type=\\"text\\" name=\\"Destination\\" value=\\"$Params{Destination}\\">
\\n";
      print "<input type=\\"SUBMIT\\" name=\\"B1\\" value=\\"Send\\"></p>
\\n";
      print "</td>\\n";
      print "<td>\\n";
      print "E-Mail из списка: <select name=\\"EmailID\\">";
      $querystr="Select * from Contacts where type=\\"email\\" OR type=\\"all\\"";
      my $sth=$dbh->query($querystr) or die $Mysql::db_errstr;
           while (%arr = $sth->fetchhash)
        {
  if ($Params{DestinationID}==$arr{Id}) {
    print "<option selected value=\'$arr{Id}\'>$arr{Email} $arr{DataText}</option>";
 
  }else {
    print "<option value=\'$arr{Id}\'>$arr{Email} $arr{DataText}</option>";
  }
}
      print "</select>
\\n";  
      print "E-Mail: <input tupe=\\"text\\" name=\\"Email\\" value=\\"\\">
";
      print "Категория звонка : <select name=category onchange=\\"update(this.selectedIndex)\\">";
 
          $querystr="Select * from Categories";
          my $sth=$dbh->query($querystr) or die $Mysql::db_errstr;
          if (!defined($sth))
           {   exit 255; }

          while (%arr = $sth->fetchhash)
           {
             print "<option value=\'$arr{id}\'>$arr{Category}</option>";
           }
  print "</select>
";
  print "Тип проблемы : 
 <select  name=\\"problem\\">\\n";
  print "</select>
";
      print "Описание проблемы:
<textarea cols=40 rows=15 name=\\"Description\\"></textarea>";
      print "</td>\\n";
      print "</tr>\\n";
      print "</table>\\n";
      print "</form>\\n";
  print <<M1;
  <script type="text/javascript">
<!--
M1
;
$querystr="select * from Categories";
 my $sth=$dbh->query($querystr) or die $Mysql::db_errstr;
         if (!defined($sth))
           {   exit 1; }
print "var cities=new Array()\\n"; 
$i=0;
while (%Categories = $sth->fetchhash) {
  $Categor[$i]=$Categories{id};
$i++;
}    
for ($j=0; $j<$i;$j++) {
$querystr="select * from Cause where CategoryID=\\"$Categor[$j]\\"";

  my $sth=$dbh->query($querystr) or die $Mysql::db_errstr;
          if (!defined($sth))
          {   exit 1; }
    print "cities[$j]=";   
%prob=$sth->fetchhash;
print "[\\"$Categor[$j]|$prob{CauseID}|$prob{CauseText}\\"";   
while (%prob=$sth->fetchhash) {  
 print ",\\"$Categor[$j]|$prob{CauseID}|$prob{CauseText}\\"";
    }
print "] \\n";  
}
print <<M2;
var countrieslist=document.callprop.category
var citieslist=document.callprop.problem

function update(selectedcitygroup){
citieslist.options.length=0

for (i=0; i<cities[selectedcitygroup].length; i++)
citieslist.options[citieslist.options.length]=new Option(cities[selectedcitygroup][i].split("|")[2], cities[selectedcitygroup][i].split("|")[1])

} 

//-->
</script>
M2
;

4
JavaScript & JScript / Скрипт выдает ошибку.....
« : 05 Апреля 2005, 13:47:51 »
есть страничка

 <html>
 <head>
<meta http-equiv="Content-Type" content="text/html; charset=koi8-r">
   <title>IPTel Statistic</title>
<script type="text/javascript">
<!--
var problem=new Array();problem[0]=["1|1|уРТБЧЛБ фЕМЕЖПО ВАТП ТЕНПОФБ ЙМЙ ДТХЗЙИ УМХЦВ ЛПНРБОЙЙ","1|2|уРТБЧЛБ бДТЕУ ЛПНРБОЙЙ","1|3|уРТБЧЛБ тЕЦЙН ТБВПФЩ"] 
problem[1]=["2|4|дПЗПЧПТОЩЕ рЕТЕОПУ ФЕМЕЖПОБ","2|5|дПЗПЧПТОЩЕ чПЪНПЦОПУФШ ХУФБОПЧЛЙ","2|6|дПЗЧППТОЩЕ уНЕОБ ФЕМЕЖПОБ","2|7|дПЗПЧПТОЩЕ мШЗПФЩ","2|8|дПЗПЧПТОЩЕ фБТЙЖЩ","2|9|дПЗПЧПТОЩЕ дПРПМОЙФЕМШОЩЕ ХУМХЗЙ","2|10|дПЗПЧПТОЩЕ чЩДЕМЕООБС МЙОЙС","2|11|дПЗПЧПТОЩЕ йОФЕТОЕФ-ФЕМЕЖПО","2|12|дПЗПЧПТОЩЕ тБДЙПДПУФХР","2|13|дПЗПЧПТОЩЕ чЙТФХБМШОЩК ОПНЕТ","2|14|дПЗПЧПТОЩЕ IP-ФЕМЕЖПОЙС"] 
problem[2]=["3|15|тБУЮЕФЩ чПРТПУЩ РП ОБЮЙУМЕОЙСН"] 
problem[3]=["4|16|IP рТПВМЕНБ У ЛБТФПЮЛПК","4|17|IP фБТЙЖЩ РП ЛБТФПЮЛБН","4|18|IP лБЛ ЪЧПОЙФШ РП ЛБТФПЮЛБН","4|19|IP рХОЛФЩ РТПДБЦ ЛБТФПЮЕЛ","4|20|IP уФБФЙУФЙЛБ","4|21|IP лБЮЕУФЧП ХУМХЗЙ ip-ФЕМЕЖПОЙЙ"] 
problem[4]=["5|22|уМХЦЕВОЩК ТБЪЗПЧПТ"] 
problem[5]=["6|24|фЕИРПДДЕТЦЛБ йОФЕТОЕФ- dial-up"] 
problem[6]=["7|25|чПРТПУ РП ОЕУЛПМШЛЙН ФЕНБН"] 
problem[7]=["8|23|дТХЗБС ЛБФЕЗПТЙС"] 
function causelist(id){
document.callprop.problem.options.lenght=0
 for( i=0; i<problem[id].length ; i++) {
 
alert(problem[id][i].split(|)[1])
document.callprop.problem.options[document.callprop.Problem.options.length]=new option(problem[id][i].split(|)[1],problem[id][i].split(|)[2],false,false)
}
}                              
//-->
</script>
</head><body bgcolor="#D3D3D3">
<TABLE width="100%"><TR><TD><H1>
</H1></TD>
<form action="ipoperator.pl" method="GET">
<input type="hidden" name="Operator" value="">
<input type="hidden" name="OperatorName" value="">
<input type="hidden" name="Destination" value="Out">
<TD align="right" valign="middle">пФЛМАЮЙФШ <input type="SUBMIT" style="width:100px;height:30px;" name="B2" value=""></TD></TR></form></TABLE>
<form id=\'callprop\' action="ipoperator.pl" method="GET" name="callprop">
<table>
<tr>
<td>
<input type="hidden" name="Operator" value="">
<input type="hidden" name="OperatorName" value="">
<input type="hidden" name="CallID" value="">
оПНЕТ ОБЪОБЮЕОЙС ЙЪ УРЙУЛБ:<select name="DestinationID">
<option value=\'\'> </option>
</select>

оПНЕТ ОБЪОБЮЕОЙС:<input type="text" name="Destination" value="">

<input type="SUBMIT" name="B1" value="Send"></p>

</td>
<td>
E-Mail ЙЪ УРЙУЛБ: <select name="EmailID"><option selected value=\'\'> </option>
</select>

E-Mail: <input tupe="text" name="Email" value="">

лБФЕЗПТЙС ЪЧПОЛБ : 
<select name=category onChange="causeList(this.selectedIndex)">
<option value=\'1\'>уРТБЧПЮОЩЕ ЧПРТПУЩ</option>
<option value=\'2\'>дПЗПЧПТОЩЕ ЧЪБЙНППФОПЫЕОЙС</option>
<option value=\'3\'>тБУЮЕФОБС ЗТХРРБ</option>
<option value=\'4\'>чПРТПУЩ ip-ФЕМЖПОЙС, ЧЩДЕМЕООБС МЙОЙС</option>
<option value=\'5\'>уМХЦЕВОЩК ТБЪЗПЧПТ</option>
<option value=\'6\'>фЕИРПДДЕТЦЛБ йОФЕТОЕФ</option>
<option value=\'7\'>чПРТПУ РП ОЕУЛПМШЛЙН ФЕНБН</option>
<option value=\'8\'>дТХЗБС ЛБФЕЗПТЙС</option>
</select>
фЙР РТПВМЕНЩ : 
 <select  id=problem name="problem">
</select>
пРЙУБОЙЕ РТПВМЕНЩ:
<textarea cols=40 rows=15 name="Description"></textarea>
</td>
</tr>
</table>
</form>
должен менять содержимое второго селекта но не меняет.... выдает ошибку
Line: 49
Char: 1
Error : предполагаеться наличие обьекта....
ничего не понимаю....

5
JavaScript & JScript / OnCange передать значение выбраного элемента
« : 31 Марта 2005, 11:36:01 »
есть селект и для него написана функция для события onchange как пердать при событии параметр валуе выбраной опции

6
JavaScript & JScript / многомерные масивы.
« : 22 Марта 2005, 11:52:46 »
Jscript изучаю не долго. поэтому просьба сильно не инать у меня 2 книжки по Jscript но не водной ничего нет про много мерные масивы есть масивы а многомерных нет.

Возможно ли JS создавать двумерные масивы типа arr
  • [y] и если да то как получить длину arr
  • [] x элементов для любово y и отдельно для конкретного x arr[][y] y елементов

7
Базы данных / mysql to postegsql
« : 18 Марта 2005, 14:51:12 »
есть у меня сервак и реплика к серваку и база на этих серваках весит уже 10 гигов...
есть необходимость перейти на более мошную субд postegsql но все переносить руками через дамп не очень то охото есть ли какаянибудь утилита под nix которая выполнила всю рутиную работу мне всюночь сидеть не охота днем сервак находиться под большой загрузкой....

8
Perl / перл внутри jscript
« : 17 Марта 2005, 09:41:22 »
есть саит а на нем есть выпадающий список и их 2
в первом категории во втором разделы данных категорий...
интересует можноли сделать так чтоб как только в первом выбрали категорию срабатывала моя функция jscript которая получала бы id выбраного элемента и в нутри этой функции срабатывал бы мой перл запрос к базе получался список подкатегорий и выводился во второй выпадающий список уже функциями jscript?

просьба не пинать сильно так как на jscript я к базе обращаться не умею...
и перезагружать каждый раз страничку с новыми параметрами не получаеться так как она со звонками работает....

9
PHP / получить длину строки
« : 22 Февраля 2005, 13:58:27 »
как получить длину строки переменно массива выбранного из базы данных?

10
Perl / перл и работа с бд заморочки
« : 11 Февраля 2005, 10:54:46 »
Есть у меня функция проверки которая должна проверять есть ли такой договор в базе и если есть то выводить ошибку:
sub check_iptel_dogs_dogname
{
my $doc = shift;
my $fields = shift;
my $cData= $doc->getCData();
my $dbh = $common->dbConnect(30);
my $DogName = $cData->{10004374};
my $sth = $dbh->prepare("SELECT DogName FROM Dogs Where DogName=\\"$DogName\\"");
$sth->execute;
    my $num = $sth -> {NUM_OF_FIELDS};
if($num > 0){ 
return {
message  => "Такой договор уже существует введите другой.",
is_error => 1,
fix_type =>\'replace\',
fields => [10004374],
}
}
else{return {};}
}
а она что бы я не вводил говорит что договор есть в чем ошибся понять не могу прочитал кучу документации вроде должно работать а нет.

11
Perl / Работа с Mysql скрипт валится с ошибко а то и проглатывает.
« : 26 Января 2005, 10:39:38 »
Скрип валиться с ошибкой при выполнений куска кода

my $sth=$dbh->do("select max(DogID) as maxID from Dogs where DogID<$DogID_Hi AND DogID>$DogID_Low");
   my $row =  $sth->fetchrow_hashref();
    my    $MaxDogID=$row->{\'maxID\'}+1;


Ошибка: Can\'t call method "fetchrow_hashref" without a package or object reference

12
PHP / Настройка связи php + mssql
« : 28 Октября 2003, 15:54:43 »
В php.ini прописал extension_dir="C:\\php\\extensions"

Далее раскоментировал модуль php_mssql.dll
 
Но при попытке открыть какуюнибудь страницу валится с ошибкой что мол немогу загрузить модуль php_mssql.dll

Подскажите что я еще и где не прописал?

13
Базы данных / Изменение типа поля в MS SQL и потеря данных?
« : 24 Октября 2003, 13:03:50 »
Дорброе время суток.
У мея была база в mdb я ее перегнал через ODBC в MS SQL и все поля которые были в ней стали n полями т.е Unicode
а из php получить значения полей n типа невозможно встал вопрос о том можно ли без потери данных изменить тип поля с nvarchar на varchar или только через уничтодение данных.
В таблице хранятся данные на русском языке.
Есть  ли какие-нибудь процедуры или функции которые позволяют изменить тип поля?

14
PHP / ODBC и получение числа строк
« : 23 Октября 2003, 17:37:10 »
Подскажите какой драйвер поставить что бы не выдавалась -1 при $rows=odbc_num_rowd($result);
и если можно то подскажите где скачать

15
PHP / Ошибка при запросе к MSSQl
« : 23 Октября 2003, 16:20:02 »
На сервере стот IIS поставил php настроил пишу скрипт
mssql_connect(\'192.168.0.2\',\'test\',\'test\');
mssql_select_db($dbname);
$result=mssql_query("Select * from тест");
а она за место запроса выдает ошибку что
mssql_query(): message: Unicode data in a Unicode-only collation or ntext data cannot be sent to clients using DB-Library (such as ISQL) or ODBC version 3.7 or earlier. (severity 16)
Что это значит ?

Страницы: [1] 2