Модераторы: ginnie, korob2001
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите пожалуйста со скриптом, perl скрипт мониторинга 
:(
    Опции темы
Quicksand
Дата 22.6.2006, 12:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 22.6.2006

Репутация: нет
Всего: нет



Здравствуйте.
Есть мониторинг mrtg который выдает рисунки, загрузки канала, статистики загрузки свопа и мема а так же цпу, но вот одна проблема, надо к этому делу прикрутить mysql, нашел скрипт на офф сайте, поставил, не пашет, дает ошибку при конекте к mysqladmin так как нужен пароль, пароль естественно есть, но как сделать так что бы он его вбивал и получал статистику... привожу пример скрипта.
use strict;
use Socket;
my($datafile, $host, $port, @mysqladminpaths, $oldquest, $oldthread,
   $quest, $thread, $day,$hour,$min,$sec, $newquest, $newthread, $uptime);
# Adjust this to your own database/mysql server.  Uses local mysqladmin status
# if set to 'localhost'
$host   = shift || "localhost";
$port   = shift || 7257;
$datafile       = "/tmp/mysqlstatus.old";
@mysqladminpaths = ( "/usr/bin/mysqladmin", "/usr/bin/mysqladmin" );

# get the old stats from the $datafile ...
($oldquest, $oldthread) = getOldStats($datafile);

# get the new stats from $host - $port
($newquest, $newthread, $uptime) = getStats($host, $port);

# transfering time string to a nice time stamp ...
if ($uptime > 0) {
  $day = int($uptime / 86400);
  $hour = int(($uptime - ($day * 86400)) / 3600);
  $min = int(($uptime - ($day*86400) - ($hour*3600))/60);
  $sec = int($uptime - ($day*86400)-($hour*3600)-($min*60));
как видно в строчке номер 10 запрос есть, а как сделать что бы был пароль? (@mysqladminpaths = ( "/usr/bin/mysqladmin", "/usr/bin/mysqladmin" );) точнее что бы вбивался пароль, помогите пожалуйста 
PM MAIL   Вверх
korob2001
Дата 22.6.2006, 20:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 6
Всего: 61



Покажи тот участок кода, где ты подключаешься к базе данных.
Цитата(Quicksand @  22.6.2006,  09:53 Найти цитируемый пост)
(@mysqladminpaths = ( "/usr/bin/mysqladmin", "/usr/bin/mysqladmin" );) 

Это не запрос, это просто инициализируется массив. 


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl: Системное программирование"
korob2001
sharq
  • В этом разделе обсуждаются вопросы относящиеся только к системному программированию на Perl
  • Если ваш вопрос не относится к системному или CGI программированию, задавайте его в общем разделе
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Системное программирование | Следующая тема »


 




[ Время генерации скрипта: 0.0398 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.