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

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


Сообщения - systemroot

Страницы: [1] 2 3 4
1
Базы данных / PHP & MS SQL 2000
« : 27 Марта 2006, 14:37:54 »
да можно смотри в документации

2
PHP / Вопрос по классам.
« : 27 Марта 2006, 09:37:39 »
задачка усложнилась в фаилике содержаться несколько массивов как наиболее оптимальным путем сделать их доступными глобально?

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

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

5
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
;

6
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 : предполагаеться наличие обьекта....
ничего не понимаю....

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

8
JavaScript & JScript / многомерные масивы.
« : 22 Марта 2005, 12:32:33 »
Цитировать
commander:
http://msdn.microsoft.com/library/d...typedarrays.asp


У меня на работе выход через проксик а админ запретил домен microsoft если не сложно кинь текст на мыло olegp@company.utk.ru
спасибо.

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

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

10
Базы данных / mysql to postegsql
« : 22 Марта 2005, 00:21:57 »
Есть одно маленькое но в базе порядка 60 таблиц в каждой  более 10 столбцов и создавать их ручаим мне н очень то хочеться..
я понимаю что можно написать скрипт который все это сделает но не хотелось бы изобретать велосипед наверняка должна быть утилита или уже отлажеый скрипт преноса......

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

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

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

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

14
Perl / перл и работа с бд заморочки
« : 11 Февраля 2005, 12:14:13 »
не помогло все равно row возвращает 0.
неужели нет друго способа проверить кол-во возвращенных записей.

15
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 {};}
}
а она что бы я не вводил говорит что договор есть в чем ошибся понять не могу прочитал кучу документации вроде должно работать а нет.

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