форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Архивированная нить - только для чтения!  Пред. тема | След. тема
Форумы OpenNET: Виртуальная конференция (Public)
Изначальное сообщение		[Проследить за развитием треда]

"Com порт"
Сообщение от als on 04-Июн-02, 12:30  (MSK)
Уважаемый ALL! Не подскажешь ли как снять информацию с com1 и копировать ее в файл? Есть АТС Panasonic, прекрасно кидает данные по RS232, через гипертерминал под Win проверил, все работает. Надо эту информацию получать на com1 (в смысле кабель проложил), и складывать ее в файл. Чем снять ее с com порта представить немогу, потому как опыта в этом нюнь. Вроде есть мысль запустить терминал на com1 (cuaa0) и глядишь пойдет. Только не понял как осуществить :(
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "RE: Com порт"
Сообщение от vitex on 04-Июн-02, 12:48  (MSK)
Кривовато и примитивно, но работает :) #!/usr/bin/perl while ($a=1) { open (PBX,"/dev/cuaa0"); while (<PBX>) { $d=$_; # print $d; open (DATE,"date +%Y-%m-%d|"); while (<DATE>) {   chomp;   $dat=$_;   }; close(DATE); open (CILDATA,">>/usr/billing/".$dat.".cil"); print CILDATA $d; close (CILDATA);   }; close (PBX); }
	Рекомендовать в FAQ | Cообщить модератору | Наверх

	2. "RE: Com порт"
	Сообщение от als on 04-Июн-02, 13:01  (MSK)
	Огромное спасибо за скрипт, щас буду пробывать. Правда еще вопрос, а как установить параметры cuaa0?
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	3. "RE: Com порт"
	Сообщение от vitex on 04-Июн-02, 13:18  (MSK)
	>Огромное спасибо за скрипт, щас буду пробывать. >Правда еще вопрос, а как установить параметры cuaa0? /etc/rc.serial По умолчанию порт работает на 9600-8-N-1, что и требуется для большинства АТС.
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	4. "RE: Com порт"
	Сообщение от als on 04-Июн-02, 14:57  (MSK)
	Что-то не работает :( Стоит FreeBSd 4.5, кабель в порядке. Подключал к com2 (cuaa1 вроде), в скрипте исправил. Под Win работает. Запускается, висит процессом, в директории ничего не происходит :( Что может быть или как проверить? Может не совпадает настройка порта (под Win пробывал 9600-8-N-1, под FreeBSd не понял какие, но умолчания вроде никогда не менял.
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	5. "RE: Com порт"
	Сообщение от als on 04-Июн-02, 15:00  (MSK)
	>Кривовато и примитивно, но работает :) > >#!/usr/bin/perl >while ($a=1) >{ >open (PBX,"/dev/cuaa0"); print "a"; >while (<PBX>) >{ > $d=$_; print "b"; print $d; > open (DATE,"date +%Y-%m-%d|"); > while (<DATE>) > { >  chomp; >  $dat=$_; >  }; > close(DATE); > open (CILDATA,">>/usr/billing/".$dat.".cil"); > print CILDATA $d; > close (CILDATA); >  }; >close (PBX); >} Забыл совсем, попробывал добавить print, что бы взглянуть где все ходит :) (см. выше) В результе, появляется буква а, и все. К сожалению в perl не силен.
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	6. "RE: Com порт"
	Сообщение от vitex on 04-Июн-02, 15:14  (MSK)
	>Забыл совсем, попробывал добавить print, что бы взглянуть где все ходит :) > >(см. выше) >В результе, появляется буква а, и все. >К сожалению в perl не силен. В rc.serial должно быть default() {         # Reset everything changed by the other functions to initial defaults.         ci=$1; shift    # call in device identifier         co=$1; shift    # call out device identifier         for i in $*         do                 comcontrol /dev/tty${ci}${i} dtrwait 300 drainwait 0                 stty < /dev/ttyi${ci}${i} -clocal crtscts hupcl 9600 reprint ^R                 stty < /dev/ttyl${ci}${i} -clocal -crtscts -hupcl 0                 stty < /dev/cuai${co}${i} -clocal crtscts hupcl 9600 reprint ^R                 stty < /dev/cual${co}${i} -clocal -crtscts -hupcl 0         done } добавь в конце default 0 проверить правильность настройки порта можно cu -l cuaa0 на терминал должна посыпаться  ожидаемая дата Может станция хочет не 9600? PS У меня на Ericsson'e все работает
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	7. "RE: Com порт"
	Сообщение от als on 04-Июн-02, 15:21  (MSK)
	Странно как-то, жму cu -1 /dev/cuaa1 (у меня все на com2 идет) а он (cu) отвечает, System not found. Это что, com2 нету?
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	8. "RE: Com порт"
	Сообщение от lavr on 04-Июн-02, 15:22  (MSK)
	>>Кривовато и примитивно, но работает :) >> >>#!/usr/bin/perl >>while ($a=1) >>{ >>open (PBX,"/dev/cuaa0"); >print "a"; >>while (<PBX>) >>{ >> $d=$_; >print "b"; >print $d; >> open (DATE,"date +%Y-%m-%d|"); >> while (<DATE>) >> { >>  chomp; >>  $dat=$_; >>  }; >> close(DATE); >> open (CILDATA,">>/usr/billing/".$dat.".cil"); >> print CILDATA $d; >> close (CILDATA); >>  }; >>close (PBX); >>} > >Забыл совсем, попробывал добавить print, что бы взглянуть где все ходит :) > >(см. выше) >В результе, появляется буква а, и все. >К сожалению в perl не силен. stty < /dev/cuaaНОМЕР 9600 clocal -parenb -parodd cs8 -cstopb -icanon cat /dev/cuaaНОМЕР > /var/log/ats.log устроит?
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	9. "RE: Com порт"
	Сообщение от als on 04-Июн-02, 15:35  (MSK)
	>stty < /dev/cuaaНОМЕР 9600 clocal -parenb -parodd cs8 -cstopb -icanon >cat /dev/cuaaНОМЕР > /var/log/ats.log > >устроит? Блеск, все работает, в смысле пошла информация в файл. только страность какая-то, некоторые буквы пропадают. может это из-за параметров в stty быть?
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	10. "RE: Com порт"
	Сообщение от als on 04-Июн-02, 15:59  (MSK)
	Ура, разобрался. Всем большое спасибо :)))
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	11. "RE: Com порт"
	Сообщение от 0leg on 04-Июн-02, 16:17  (MSK)
	*некоторые буквы пропадают* а буквы то нашлись?
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	12. "RE: Com порт"
	Сообщение от als on 04-Июн-02, 16:37  (MSK)
	Ага :))
		Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.