mirror of
https://github.com/ElvishArtisan/rivendell.git
synced 2025-04-16 06:02:36 +02:00
301 lines
7.4 KiB
C
301 lines
7.4 KiB
C
/* rlm_xds.c
|
|
*
|
|
* (C) Copyright 2010 Fred Gleason <fredg@paravelsystems.com>
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License version 2
|
|
* as published by the Free Software Foundation.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public
|
|
* License along with this program; if not, write to the Free Software
|
|
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
*
|
|
* This is a Rivendell Loadable Module. It sends generates enhanced netcue
|
|
* (aka CIC) packets for the Citadel/X-Digital Systems copy-splitting system,
|
|
* using a configuration file pointed to by the plugin argument.
|
|
*
|
|
* To compile this module, just do:
|
|
*
|
|
* gcc -shared -o rlm_xds.rlm rlm_xds.c
|
|
*/
|
|
|
|
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <strings.h>
|
|
#include <limits.h>
|
|
#include <rlm/rlm.h>
|
|
|
|
int rlm_xds_devs;
|
|
char *rlm_xds_isci_prefixes;
|
|
char *rlm_xds_addresses;
|
|
uint16_t *rlm_xds_ports;
|
|
int *rlm_xds_handles;
|
|
char *rlm_xds_tty_buffers;
|
|
int *rlm_xds_masters;
|
|
int *rlm_xds_aux1s;
|
|
int *rlm_xds_aux2s;
|
|
|
|
unsigned rlm_xds_GetChecksum(const char *pack)
|
|
{
|
|
unsigned ret=0;
|
|
int i;
|
|
|
|
for(i=0;i<strlen(pack);i++) {
|
|
ret+=pack[i];
|
|
}
|
|
|
|
return ret;
|
|
}
|
|
|
|
|
|
const char *rlm_xds_FilterCharacters(const char *str)
|
|
{
|
|
static char ret[32];
|
|
int i;
|
|
|
|
strncpy(ret,str,31);
|
|
for(i=0;i<strlen(ret);i++) {
|
|
switch(ret[i]) {
|
|
case ' ':
|
|
case ',':
|
|
case '.':
|
|
ret[i]='_';
|
|
break;
|
|
|
|
case '"':
|
|
ret[i]=39;
|
|
break;
|
|
|
|
case '%':
|
|
case '*':
|
|
case '+':
|
|
case '/':
|
|
case ':':
|
|
case ';':
|
|
case '<':
|
|
case '=':
|
|
case '>':
|
|
case '?':
|
|
case '@':
|
|
case '[':
|
|
case '\\':
|
|
case ']':
|
|
case '^':
|
|
case '{':
|
|
case '|':
|
|
case '}':
|
|
ret[i]='-';
|
|
break;
|
|
}
|
|
}
|
|
return ret;
|
|
}
|
|
|
|
int rlm_xds_GetLogStatus(void *ptr,const char *arg,const char *section,
|
|
const char *logname)
|
|
{
|
|
const char *tag=RLMGetStringValue(ptr,arg,section,logname,"");
|
|
if(strcasecmp(tag,"yes")==0) {
|
|
return 1;
|
|
}
|
|
if(strcasecmp(tag,"on")==0) {
|
|
return 1;
|
|
}
|
|
if(strcasecmp(tag,"true")==0) {
|
|
return 1;
|
|
}
|
|
if(strcasecmp(tag,"no")==0) {
|
|
return 0;
|
|
}
|
|
if(strcasecmp(tag,"off")==0) {
|
|
return 0;
|
|
}
|
|
if(strcasecmp(tag,"false")==0) {
|
|
return 0;
|
|
}
|
|
if(strcasecmp(tag,"onair")==0) {
|
|
return 2;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
|
|
void rlm_xds_RLMStart(void *ptr,const char *arg)
|
|
{
|
|
char address[17];
|
|
char section[256];
|
|
char errtext[256];
|
|
int tty_speed;
|
|
int i=1;
|
|
|
|
rlm_xds_devs=0;
|
|
rlm_xds_addresses=NULL;
|
|
rlm_xds_ports=NULL;
|
|
rlm_xds_handles=NULL;
|
|
rlm_xds_tty_buffers=NULL;
|
|
rlm_xds_masters=NULL;
|
|
rlm_xds_aux1s=NULL;
|
|
rlm_xds_aux2s=NULL;
|
|
|
|
sprintf(section,"Udp%d",i++);
|
|
strncpy(address,RLMGetStringValue(ptr,arg,section,"IpAddress",""),15);
|
|
if(strlen(address)==0) {
|
|
RLMLog(ptr,LOG_WARNING,"rlm_xds: no xds destinations specified");
|
|
return;
|
|
}
|
|
while(strlen(address)>0) {
|
|
rlm_xds_addresses=
|
|
realloc(rlm_xds_addresses,(rlm_xds_devs+1)*(rlm_xds_devs+1)*16);
|
|
strcpy(rlm_xds_addresses+16*rlm_xds_devs,address);
|
|
rlm_xds_isci_prefixes=realloc(rlm_xds_isci_prefixes,(rlm_xds_devs+1)*32);
|
|
strncpy(rlm_xds_isci_prefixes+32*rlm_xds_devs,
|
|
RLMGetStringValue(ptr,arg,section,"IsciPrefix",""),31);
|
|
rlm_xds_ports=realloc(rlm_xds_ports,(rlm_xds_devs+1)*sizeof(uint16_t));
|
|
rlm_xds_ports[rlm_xds_devs]=
|
|
RLMGetIntegerValue(ptr,arg,section,"UdpPort",0);
|
|
rlm_xds_handles=realloc(rlm_xds_handles,(rlm_xds_devs+1)*sizeof(int));
|
|
rlm_xds_handles[rlm_xds_devs]=-1;
|
|
tty_speed=RLMGetIntegerValue(ptr,arg,section,"TtySpeed",9600);
|
|
rlm_xds_handles[rlm_xds_devs]=
|
|
RLMOpenSerial(ptr,RLMGetStringValue(ptr,arg,section,"TtyDevice",""),
|
|
tty_speed,RLM_PARITY_NONE,1);
|
|
rlm_xds_tty_buffers=realloc(rlm_xds_tty_buffers,(rlm_xds_devs+1)*256);
|
|
memset(rlm_xds_tty_buffers+rlm_xds_devs,0,256);
|
|
rlm_xds_masters=realloc(rlm_xds_masters,
|
|
(rlm_xds_devs+1)*sizeof(int));
|
|
rlm_xds_masters[rlm_xds_devs]=
|
|
rlm_xds_GetLogStatus(ptr,arg,section,"MasterLog");
|
|
rlm_xds_aux1s=realloc(rlm_xds_aux1s,
|
|
(rlm_xds_devs+1)*sizeof(int));
|
|
rlm_xds_aux1s[rlm_xds_devs]=
|
|
rlm_xds_GetLogStatus(ptr,arg,section,"Aux1Log");
|
|
rlm_xds_aux2s=realloc(rlm_xds_aux2s,
|
|
(rlm_xds_devs+1)*sizeof(int));
|
|
rlm_xds_aux2s[rlm_xds_devs]=
|
|
rlm_xds_GetLogStatus(ptr,arg,section,"Aux2Log");
|
|
if(rlm_xds_handles[rlm_xds_devs]<0) {
|
|
sprintf(errtext,"rlm_xds: configured destination \"%s:%d\"",address,
|
|
rlm_xds_ports[rlm_xds_devs]);
|
|
}
|
|
else {
|
|
sprintf(errtext,"rlm_xds: configured destination \"%s\"",
|
|
(const char *)RLMGetStringValue(ptr,arg,section,"TtyDevice",""));
|
|
}
|
|
rlm_xds_devs++;
|
|
RLMLog(ptr,LOG_INFO,errtext);
|
|
sprintf(section,"Udp%d",i++);
|
|
strncpy(address,RLMGetStringValue(ptr,arg,section,"IpAddress",""),15);
|
|
}
|
|
}
|
|
|
|
|
|
void rlm_xds_RLMFree(void *ptr)
|
|
{
|
|
int i;
|
|
|
|
for(i=0;i<rlm_xds_devs;i++) {
|
|
if(rlm_xds_handles[i]>=0) {
|
|
RLMCloseSerial(ptr,rlm_xds_handles[i]);
|
|
rlm_xds_handles[i]=-1;
|
|
}
|
|
}
|
|
free(rlm_xds_addresses);
|
|
free(rlm_xds_ports);
|
|
free(rlm_xds_handles);
|
|
free(rlm_xds_tty_buffers);
|
|
free(rlm_xds_isci_prefixes);
|
|
free(rlm_xds_masters);
|
|
free(rlm_xds_aux1s);
|
|
free(rlm_xds_aux2s);
|
|
}
|
|
|
|
|
|
void rlm_xds_RLMPadDataSent(void *ptr,const struct rlm_svc *svc,
|
|
const struct rlm_log *log,
|
|
const struct rlm_pad *now,
|
|
const struct rlm_pad *next)
|
|
{
|
|
int i;
|
|
int flag=0;
|
|
char packet[64];
|
|
char tty_packet[256];
|
|
char msg[1500];
|
|
|
|
if(strlen((now->rlm_ext_eventid))==0) {
|
|
return;
|
|
}
|
|
for(i=0;i<rlm_xds_devs;i++) {
|
|
switch(log->log_mach) {
|
|
case 0:
|
|
flag=rlm_xds_masters[i];
|
|
break;
|
|
|
|
case 1:
|
|
flag=rlm_xds_aux1s[i];
|
|
break;
|
|
|
|
case 2:
|
|
flag=rlm_xds_aux2s[i];
|
|
break;
|
|
}
|
|
if((flag==1)||((flag==2)&&(log->log_onair!=0))) {
|
|
packet[0]=0;
|
|
snprintf(packet,64,"0:%s:%s%s:*",svc->svc_pgmcode,
|
|
rlm_xds_isci_prefixes+i*32,
|
|
rlm_xds_FilterCharacters(now->rlm_ext_eventid));
|
|
if(rlm_xds_handles[i]<0) {
|
|
RLMSendUdp(ptr,rlm_xds_addresses+i*16,rlm_xds_ports[i],
|
|
packet,strlen(packet));
|
|
snprintf(msg,1500,"rlm_xds: sending CIC NetCue: \"%s\" to %s:%d",
|
|
(const char *)packet,rlm_xds_addresses+i*16,rlm_xds_ports[i]);
|
|
}
|
|
else {
|
|
snprintf(tty_packet,256,"NC:%u:%s\r\n",
|
|
rlm_xds_GetChecksum(packet),packet);
|
|
RLMSendSerial(ptr,rlm_xds_handles[i],tty_packet,strlen(tty_packet));
|
|
RLMSendSerial(ptr,rlm_xds_handles[i],tty_packet,strlen(tty_packet));
|
|
snprintf(msg,1500,"rlm_xds: sending CIC NetCue: \"%s\" to tty",
|
|
(const char *)packet);
|
|
}
|
|
RLMLog(ptr,LOG_INFO,msg);
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
void rlm_xds_RLMSerialDataReceived(void *ptr,int handle,
|
|
const char *data,int len)
|
|
{
|
|
int dev;
|
|
int i;
|
|
char *buffer;
|
|
|
|
for(dev=0;dev<rlm_xds_devs;dev++) {
|
|
if(handle==rlm_xds_handles[dev]) {
|
|
buffer=rlm_xds_tty_buffers+256*dev;
|
|
for(i=0;i<len;i++) {
|
|
if(data[i]==13) {
|
|
if(strcmp(buffer,"PINGRECV")==0) {
|
|
RLMSendSerial(ptr,handle,"PONGRECV\r\n",10);
|
|
}
|
|
buffer[0]=0;
|
|
}
|
|
else {
|
|
if(data[i]!=10) {
|
|
buffer[strlen(buffer)+1]=0;
|
|
buffer[strlen(buffer)]=data[i];
|
|
}
|
|
}
|
|
}
|
|
return;
|
|
}
|
|
}
|
|
fprintf(stderr,"rlm_xds: unknown tty handle %d\n",handle);
|
|
}
|