1466 lines
40 KiB
C
1466 lines
40 KiB
C
/******************************************************************************
|
|
* $Id$
|
|
*
|
|
* Copyright (c) 2006-2007 Transmission authors and contributors
|
|
*
|
|
* Permission is hereby granted, free of charge, to any person obtaining a
|
|
* copy of this software and associated documentation files (the "Software"),
|
|
* to deal in the Software without restriction, including without limitation
|
|
* the rights to use, copy, modify, merge, publish, distribute, sublicense,
|
|
* and/or sell copies of the Software, and to permit persons to whom the
|
|
* Software is furnished to do so, subject to the following conditions:
|
|
*
|
|
* The above copyright notice and this permission notice shall be included in
|
|
* all copies or substantial portions of the Software.
|
|
*
|
|
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
|
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
|
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
|
|
* FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
|
|
* DEALINGS IN THE SOFTWARE.
|
|
*****************************************************************************/
|
|
|
|
#include <assert.h>
|
|
#include <errno.h>
|
|
#include <limits.h>
|
|
#include <stdarg.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <time.h>
|
|
|
|
#ifdef __BEOS__
|
|
#include <netdb.h>
|
|
#endif
|
|
|
|
#include <sys/types.h>
|
|
|
|
#include "transmission.h"
|
|
#include "http.h"
|
|
#include "net.h"
|
|
#include "trcompat.h"
|
|
#include "upnp.h"
|
|
#include "utils.h"
|
|
#include "xml.h"
|
|
|
|
/* uncomment this to log requests and responses to ~/transmission-upnp.log */
|
|
/* #define VERBOSE_LOG */
|
|
|
|
#ifdef VERBOSE_LOG
|
|
#include "platform.h"
|
|
#endif
|
|
|
|
#define SSDP_ADDR "239.255.255.250"
|
|
#define SSDP_PORT 1900
|
|
#define SSDP_TYPE "upnp:rootdevice"
|
|
#define SSDP_SUBTYPE "ssdp:alive"
|
|
#define SSDP_FIRST_DELAY 3750 /* 3 3/4 seconds */
|
|
#define SSDP_MAX_DELAY 1800000 /* 30 minutes */
|
|
#define SERVICE_TYPE_IP "urn:schemas-upnp-org:service:WANIPConnection:1"
|
|
#define SERVICE_TYPE_PPP "urn:schemas-upnp-org:service:WANPPPConnection:1"
|
|
#define SOAP_ENVELOPE "http://schemas.xmlsoap.org/soap/envelope/"
|
|
#define LOOP_DETECT_THRESHOLD 10 /* error on 10 add/get/del state changes */
|
|
#define MAPPING_CHECK_INTERVAL 900000 /* 15 minutes */
|
|
#define HTTP_REQUEST_INTERVAL 500 /* half a second */
|
|
#define SOAP_METHOD_NOT_ALLOWED 405
|
|
#define IGD_GENERIC_ERROR 500
|
|
#define IGD_GENERIC_FAILED 501
|
|
#define IGD_NO_MAPPING_EXISTS 714
|
|
#define IGD_ADD_CONFLICT 718
|
|
#define IGD_NO_DYNAMIC_MAPPING 725
|
|
|
|
struct upnp_act
|
|
{
|
|
char * name;
|
|
int len;
|
|
struct { char * name; char * var; char dir; } * args;
|
|
};
|
|
|
|
struct upnp_dev
|
|
{
|
|
char * id;
|
|
char * host;
|
|
char * root;
|
|
int port;
|
|
int ppp;
|
|
char * soap;
|
|
char * scpd;
|
|
int mappedport;
|
|
char * myaddr;
|
|
#define UPNPDEV_STATE_ROOT 1
|
|
#define UPNPDEV_STATE_SCPD 2
|
|
#define UPNPDEV_STATE_READY 3
|
|
#define UPNPDEV_STATE_ADD 4
|
|
#define UPNPDEV_STATE_GET 5
|
|
#define UPNPDEV_STATE_DEL 6
|
|
#define UPNPDEV_STATE_MAPPED 7
|
|
#define UPNPDEV_STATE_ERROR 8
|
|
uint8_t state;
|
|
uint8_t looping;
|
|
uint64_t lastrequest;
|
|
uint64_t lastcheck;
|
|
unsigned int soapretry : 1;
|
|
tr_http_t * http;
|
|
struct upnp_act getcmd;
|
|
struct upnp_act addcmd;
|
|
struct upnp_act delcmd;
|
|
struct upnp_dev * next;
|
|
};
|
|
|
|
struct tr_upnp_s
|
|
{
|
|
int port;
|
|
int infd;
|
|
int outfd;
|
|
uint64_t lastdiscover;
|
|
uint64_t lastdelay;
|
|
unsigned int active : 1;
|
|
unsigned int discovering : 1;
|
|
struct upnp_dev * devices;
|
|
};
|
|
|
|
static int
|
|
sendSSDP( int fd );
|
|
static int
|
|
mcastStart( void );
|
|
static void
|
|
killSock( int * sock );
|
|
static void
|
|
killHttp( tr_http_t ** http );
|
|
static int
|
|
watchSSDP( struct upnp_dev ** devices, int fd );
|
|
static tr_tristate_t
|
|
recvSSDP( int fd, char * buf, int * len );
|
|
static int
|
|
parseSSDP( char * buf, int len, tr_http_header_t * headers );
|
|
static void
|
|
deviceAdd( struct upnp_dev ** first, const char * id, int idLen,
|
|
const char * url, int urlLen );
|
|
static void
|
|
deviceRemove( struct upnp_dev ** prevptr );
|
|
static int
|
|
deviceStop( struct upnp_dev * dev );
|
|
static int
|
|
devicePulse( struct upnp_dev * dev, int port );
|
|
static int
|
|
devicePulseHttp( struct upnp_dev * dev,
|
|
const char ** body, int * len );
|
|
static tr_http_t *
|
|
devicePulseGetHttp( struct upnp_dev * dev );
|
|
static int
|
|
parseRoot( const char * root, const char *buf, int len,
|
|
char ** soap, char ** scpd, int * ppp );
|
|
static void
|
|
addUrlbase( const char * base, char ** path );
|
|
static int
|
|
parseScpd( const char *buf, int len, struct upnp_act * getcmd,
|
|
struct upnp_act * addcmd, struct upnp_act * delcmd );
|
|
static int
|
|
parseScpdArgs( const char * buf, const char * end,
|
|
struct upnp_act * action, char dir );
|
|
static int
|
|
parseMapping( struct upnp_dev * dev, const char * buf, int len );
|
|
static char *
|
|
joinstrs( const char *, const char *, const char * );
|
|
static tr_http_t *
|
|
soapRequest( int retry, const char * host, int port, const char * path,
|
|
const char * type, struct upnp_act * action, ... );
|
|
static void
|
|
actionSetup( struct upnp_act * action, const char * name, int prealloc );
|
|
static void
|
|
actionFree( struct upnp_act * action );
|
|
static int
|
|
actionAdd( struct upnp_act * action, char * name, char * var,
|
|
char dir );
|
|
#define actionLookupVar( act, nam, len, dir ) \
|
|
( actionLookup( (act), (nam), (len), (dir), 0 ) )
|
|
#define actionLookupName( act, var, len, dir ) \
|
|
( actionLookup( (act), (var), (len), (dir), 1 ) )
|
|
static const char *
|
|
actionLookup( struct upnp_act * action, const char * key, int len,
|
|
char dir, int getname );
|
|
|
|
#ifdef VERBOSE_LOG
|
|
static FILE * vlog = NULL;
|
|
#endif
|
|
|
|
tr_upnp_t *
|
|
tr_upnpInit( void )
|
|
{
|
|
tr_upnp_t * upnp;
|
|
|
|
upnp = calloc( 1, sizeof( *upnp ) );
|
|
if( NULL == upnp )
|
|
{
|
|
return NULL;
|
|
}
|
|
|
|
upnp->infd = -1;
|
|
upnp->outfd = -1;
|
|
|
|
#ifdef VERBOSE_LOG
|
|
if( NULL == vlog )
|
|
{
|
|
char path[MAX_PATH_LENGTH];
|
|
time_t stupid_api;
|
|
snprintf( path, sizeof path, "%s/transmission-upnp.log",
|
|
tr_getHomeDirectory());
|
|
vlog = fopen( path, "a" );
|
|
stupid_api = time( NULL );
|
|
fprintf( vlog, "opened log at %s\n\n", ctime( &stupid_api ) );
|
|
}
|
|
#endif
|
|
|
|
return upnp;
|
|
}
|
|
|
|
void
|
|
tr_upnpStart( tr_upnp_t * upnp )
|
|
{
|
|
if( !upnp->active )
|
|
{
|
|
tr_inf( "starting upnp" );
|
|
upnp->active = 1;
|
|
upnp->discovering = 1;
|
|
upnp->infd = mcastStart();
|
|
upnp->lastdiscover = 0;
|
|
upnp->lastdelay = SSDP_FIRST_DELAY / 2;
|
|
}
|
|
}
|
|
|
|
void
|
|
tr_upnpStop( tr_upnp_t * upnp )
|
|
{
|
|
if( upnp->active )
|
|
{
|
|
tr_inf( "stopping upnp" );
|
|
upnp->active = 0;
|
|
killSock( &upnp->infd );
|
|
killSock( &upnp->outfd );
|
|
}
|
|
}
|
|
|
|
int
|
|
tr_upnpStatus( tr_upnp_t * upnp )
|
|
{
|
|
struct upnp_dev * ii;
|
|
int ret;
|
|
|
|
if( !upnp->active )
|
|
{
|
|
ret = ( NULL == upnp->devices ?
|
|
TR_NAT_TRAVERSAL_DISABLED : TR_NAT_TRAVERSAL_UNMAPPING );
|
|
}
|
|
else if( NULL == upnp->devices )
|
|
{
|
|
ret = TR_NAT_TRAVERSAL_NOTFOUND;
|
|
}
|
|
else
|
|
{
|
|
ret = TR_NAT_TRAVERSAL_MAPPING;
|
|
for( ii = upnp->devices; NULL != ii; ii = ii->next )
|
|
{
|
|
if( UPNPDEV_STATE_ERROR == ii->state )
|
|
{
|
|
ret = TR_NAT_TRAVERSAL_ERROR;
|
|
}
|
|
else if( 0 < ii->mappedport )
|
|
{
|
|
ret = TR_NAT_TRAVERSAL_MAPPED;
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
return ret;
|
|
}
|
|
|
|
void
|
|
tr_upnpForwardPort( tr_upnp_t * upnp, int port )
|
|
{
|
|
tr_dbg( "upnp port changed from %i to %i", upnp->port, port );
|
|
upnp->port = port;
|
|
}
|
|
|
|
void
|
|
tr_upnpRemoveForwarding( tr_upnp_t * upnp )
|
|
{
|
|
tr_dbg( "upnp port unset" );
|
|
upnp->port = 0;
|
|
}
|
|
|
|
void
|
|
tr_upnpClose( tr_upnp_t * upnp )
|
|
{
|
|
tr_upnpStop( upnp );
|
|
|
|
while( NULL != upnp->devices )
|
|
{
|
|
deviceRemove( &upnp->devices );
|
|
}
|
|
|
|
free( upnp );
|
|
|
|
#ifdef VERBOSE_LOG
|
|
if( NULL != vlog )
|
|
{
|
|
fflush( vlog );
|
|
}
|
|
#endif
|
|
|
|
}
|
|
|
|
void
|
|
tr_upnpPulse( tr_upnp_t * upnp )
|
|
{
|
|
struct upnp_dev ** ii;
|
|
|
|
if( upnp->active )
|
|
{
|
|
/* pulse on all known devices */
|
|
upnp->discovering = 1;
|
|
for( ii = &upnp->devices; NULL != *ii; ii = &(*ii)->next )
|
|
{
|
|
if( devicePulse( *ii, upnp->port ) )
|
|
{
|
|
upnp->discovering = 0;
|
|
}
|
|
}
|
|
|
|
/* send an SSDP discover message */
|
|
if( upnp->discovering &&
|
|
upnp->lastdelay + upnp->lastdiscover < tr_date() )
|
|
{
|
|
upnp->outfd = sendSSDP( upnp->outfd );
|
|
upnp->lastdiscover = tr_date();
|
|
upnp->lastdelay = MIN( upnp->lastdelay * 2, SSDP_MAX_DELAY );
|
|
}
|
|
|
|
/* try to receive SSDP messages */
|
|
watchSSDP( &upnp->devices, upnp->infd );
|
|
if( watchSSDP( &upnp->devices, upnp->outfd ) )
|
|
{
|
|
killSock( &upnp->outfd );
|
|
}
|
|
}
|
|
else
|
|
{
|
|
/* delete all mappings then delete devices */
|
|
ii = &upnp->devices;
|
|
while( NULL != *ii )
|
|
{
|
|
if( deviceStop( *ii ) )
|
|
{
|
|
deviceRemove( ii );
|
|
}
|
|
else
|
|
{
|
|
devicePulse( *ii, 0 );
|
|
ii = &(*ii)->next;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
static int
|
|
sendSSDP( int fd )
|
|
{
|
|
char buf[102];
|
|
int len;
|
|
struct sockaddr_in sin;
|
|
|
|
if( 0 > fd )
|
|
{
|
|
fd = tr_netBindUDP( 0 );
|
|
if( 0 > fd )
|
|
{
|
|
return -1;
|
|
}
|
|
}
|
|
|
|
tr_dbg( "sending upnp ssdp discover message" );
|
|
|
|
len = snprintf( buf, sizeof( buf ),
|
|
"M-SEARCH * HTTP/1.1\r\n"
|
|
"Host: %s:%i\r\n"
|
|
"Man: \"ssdp:discover\"\r\n"
|
|
"ST: %s\r\n"
|
|
"MX: 3\r\n"
|
|
"\r\n",
|
|
SSDP_ADDR, SSDP_PORT, SSDP_TYPE );
|
|
|
|
/* if this assertion ever fails then just increase the size of buf */
|
|
assert( (int) sizeof( buf ) > len );
|
|
|
|
memset( &sin, 0, sizeof( sin ) );
|
|
sin.sin_family = AF_INET;
|
|
sin.sin_addr.s_addr = inet_addr( SSDP_ADDR );
|
|
sin.sin_port = htons( SSDP_PORT );
|
|
|
|
#ifdef VERBOSE_LOG
|
|
fprintf( vlog, "send ssdp message, %i bytes:\n", len );
|
|
fwrite( buf, 1, len, vlog );
|
|
fputs( "\n\n", vlog );
|
|
#endif
|
|
|
|
if( 0 > sendto( fd, buf, len, 0,
|
|
(struct sockaddr*) &sin, sizeof( sin ) ) )
|
|
{
|
|
if( EAGAIN != sockerrno )
|
|
{
|
|
tr_err( "Could not send SSDP discover message (%s)",
|
|
strerror( sockerrno ) );
|
|
}
|
|
killSock( &fd );
|
|
return -1;
|
|
}
|
|
|
|
return fd;
|
|
}
|
|
|
|
static int
|
|
mcastStart()
|
|
{
|
|
int fd;
|
|
struct in_addr addr;
|
|
|
|
addr.s_addr = inet_addr( SSDP_ADDR );
|
|
fd = tr_netMcastOpen( SSDP_PORT, &addr );
|
|
if( 0 > fd )
|
|
{
|
|
return -1;
|
|
}
|
|
|
|
return fd;
|
|
}
|
|
|
|
static void
|
|
killSock( int * sock )
|
|
{
|
|
if( 0 <= *sock )
|
|
{
|
|
tr_netClose( *sock );
|
|
*sock = -1;
|
|
}
|
|
}
|
|
|
|
static void
|
|
killHttp( tr_http_t ** http )
|
|
{
|
|
tr_httpClose( *http );
|
|
*http = NULL;
|
|
}
|
|
|
|
static int
|
|
watchSSDP( struct upnp_dev ** devices, int fd )
|
|
{
|
|
/* XXX what if we get a huge SSDP packet? */
|
|
char buf[512];
|
|
int len;
|
|
tr_http_header_t hdr[] = {
|
|
/* first one must be type and second must be subtype */
|
|
{ NULL, NULL, 0 },
|
|
{ "NTS", NULL, 0 },
|
|
/* XXX should probably look at this
|
|
{ "Cache-control", NULL, 0 }, */
|
|
{ "Location", NULL, 0 },
|
|
{ "USN", NULL, 0 },
|
|
{ NULL, NULL, 0 }
|
|
};
|
|
enum { OFF_TYPE = 0, OFF_SUBTYPE, OFF_LOC, OFF_ID };
|
|
int ret;
|
|
|
|
if( 0 > fd )
|
|
{
|
|
return 0;
|
|
}
|
|
|
|
ret = 0;
|
|
for(;;)
|
|
{
|
|
len = sizeof( buf );
|
|
switch( recvSSDP( fd, buf, &len ) )
|
|
{
|
|
case TR_NET_WAIT:
|
|
return ret;
|
|
case TR_NET_ERROR:
|
|
return 1;
|
|
case TR_NET_OK:
|
|
ret = 1;
|
|
if( parseSSDP( buf, len, hdr ) &&
|
|
NULL != hdr[OFF_LOC].data &&
|
|
NULL != hdr[OFF_ID].data )
|
|
{
|
|
deviceAdd( devices, hdr[OFF_ID].data, hdr[OFF_ID].len,
|
|
hdr[OFF_LOC].data, hdr[OFF_LOC].len );
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
static tr_tristate_t
|
|
recvSSDP( int fd, char * buf, int * len )
|
|
{
|
|
if( 0 > fd )
|
|
{
|
|
return TR_NET_ERROR;
|
|
}
|
|
|
|
*len = tr_netRecv( fd, ( uint8_t * ) buf, *len );
|
|
if( TR_NET_BLOCK & *len )
|
|
{
|
|
return TR_NET_WAIT;
|
|
}
|
|
else if( TR_NET_CLOSE & *len )
|
|
{
|
|
tr_err( "Could not receive SSDP message (%s)", strerror( sockerrno ) );
|
|
return TR_NET_ERROR;
|
|
}
|
|
else
|
|
{
|
|
#ifdef VERBOSE_LOG
|
|
fprintf( vlog, "receive ssdp message, %i bytes:\n", *len );
|
|
fwrite( buf, 1, *len, vlog );
|
|
fputs( "\n\n", vlog );
|
|
#endif
|
|
return TR_NET_OK;
|
|
}
|
|
}
|
|
|
|
static int
|
|
parseSSDP( char * buf, int len, tr_http_header_t * hdr )
|
|
{
|
|
char *method, *uri, *body;
|
|
int code;
|
|
|
|
body = NULL;
|
|
/* check for an HTTP NOTIFY request */
|
|
if( 0 <= tr_httpRequestType( buf, len, &method, &uri ) )
|
|
{
|
|
if( 0 == tr_strcasecmp( method, "NOTIFY" ) && 0 == strcmp( uri, "*" ) )
|
|
{
|
|
hdr[0].name = "NT";
|
|
body = tr_httpParse( buf, len, hdr );
|
|
if( NULL == hdr[1].name ||
|
|
0 != tr_strncasecmp( SSDP_SUBTYPE, hdr[1].data, hdr[1].len ) )
|
|
{
|
|
body = NULL;
|
|
}
|
|
else
|
|
{
|
|
tr_dbg( "found upnp ssdp notify request" );
|
|
}
|
|
}
|
|
free( method );
|
|
free( uri );
|
|
}
|
|
else
|
|
{
|
|
/* check for a response to our HTTP M-SEARCH request */
|
|
code = tr_httpResponseCode( buf, len );
|
|
if( TR_HTTP_STATUS_OK( code ) )
|
|
{
|
|
hdr[0].name = "ST";
|
|
body = tr_httpParse( buf, len, hdr );
|
|
if( NULL != body )
|
|
{
|
|
tr_dbg( "found upnp ssdp m-search response" );
|
|
}
|
|
}
|
|
}
|
|
|
|
/* did we find enough information to be useful? */
|
|
if( NULL != body )
|
|
{
|
|
/* the first header is the type */
|
|
if( NULL != hdr[0].data &&
|
|
0 == tr_strncasecmp( SSDP_TYPE, hdr[0].data, hdr[0].len ) )
|
|
{
|
|
return 1;
|
|
}
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
static void
|
|
deviceAdd( struct upnp_dev ** first, const char * id, int idLen,
|
|
const char * url, int urlLen )
|
|
{
|
|
struct upnp_dev * ii;
|
|
|
|
for( ii = *first; NULL != ii; ii = ii->next )
|
|
{
|
|
if( 0 == tr_strncasecmp( ii->id, id, idLen ) )
|
|
{
|
|
/* this device may have gone away and came back, recheck it */
|
|
ii->lastcheck = 0;
|
|
return;
|
|
}
|
|
}
|
|
|
|
ii = malloc( sizeof( *ii ) );
|
|
if( NULL == ii )
|
|
{
|
|
return;
|
|
}
|
|
memset( ii, 0, sizeof( *ii ) );
|
|
if( tr_httpParseUrl( url, urlLen, &ii->host, &ii->port, &ii->root ) )
|
|
{
|
|
tr_err( "Invalid HTTP URL from UPnP" );
|
|
free( ii );
|
|
return;
|
|
}
|
|
ii->id = tr_strndup( id, idLen );
|
|
ii->state = UPNPDEV_STATE_ROOT;
|
|
actionSetup( &ii->getcmd, "GetSpecificPortMappingEntry", 8 );
|
|
actionSetup( &ii->addcmd, "AddPortMapping", 8 );
|
|
actionSetup( &ii->delcmd, "DeletePortMapping", 3 );
|
|
ii->next = *first;
|
|
*first = ii;
|
|
|
|
tr_inf( "new upnp device %s, port %i, path %s",
|
|
ii->host, ii->port, ii->root );
|
|
}
|
|
|
|
static void
|
|
deviceRemove( struct upnp_dev ** prevptr )
|
|
{
|
|
struct upnp_dev * dead;
|
|
|
|
dead = *prevptr;
|
|
*prevptr = dead->next;
|
|
|
|
tr_inf( "forgetting upnp device %s", dead->host );
|
|
|
|
free( dead->id );
|
|
free( dead->host );
|
|
free( dead->root );
|
|
free( dead->soap );
|
|
free( dead->scpd );
|
|
free( dead->myaddr );
|
|
if( NULL != dead->http )
|
|
{
|
|
killHttp( &dead->http );
|
|
}
|
|
actionFree( &dead->getcmd );
|
|
actionFree( &dead->addcmd );
|
|
actionFree( &dead->delcmd );
|
|
free( dead );
|
|
}
|
|
|
|
static int
|
|
deviceStop( struct upnp_dev * dev )
|
|
{
|
|
switch( dev->state )
|
|
{
|
|
case UPNPDEV_STATE_READY:
|
|
case UPNPDEV_STATE_ERROR:
|
|
return 1;
|
|
case UPNPDEV_STATE_MAPPED:
|
|
tr_dbg( "upnp device %s: stopping upnp, state mapped -> delete",
|
|
dev->host );
|
|
dev->state = UPNPDEV_STATE_DEL;
|
|
return 0;
|
|
default:
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
static int
|
|
devicePulse( struct upnp_dev * dev, int port )
|
|
{
|
|
const char * body;
|
|
int len, code;
|
|
uint8_t laststate;
|
|
|
|
switch( dev->state )
|
|
{
|
|
case UPNPDEV_STATE_READY:
|
|
if( 0 < port )
|
|
{
|
|
tr_dbg( "upnp device %s: want mapping, state ready -> get",
|
|
dev->host );
|
|
dev->mappedport = port;
|
|
dev->state = UPNPDEV_STATE_GET;
|
|
break;
|
|
}
|
|
return 1;
|
|
case UPNPDEV_STATE_MAPPED:
|
|
if( port != dev->mappedport )
|
|
{
|
|
tr_dbg( "upnp device %s: change mapping, "
|
|
"state mapped -> delete", dev->host );
|
|
dev->state = UPNPDEV_STATE_DEL;
|
|
break;
|
|
}
|
|
if( tr_date() > dev->lastcheck + MAPPING_CHECK_INTERVAL )
|
|
{
|
|
tr_dbg( "upnp device %s: check mapping, "
|
|
"state mapped -> get", dev->host );
|
|
dev->state = UPNPDEV_STATE_GET;
|
|
}
|
|
return 1;
|
|
case UPNPDEV_STATE_ERROR:
|
|
return 0;
|
|
}
|
|
|
|
/* gcc can be pretty annoying about it's warnings sometimes */
|
|
len = 0;
|
|
body = NULL;
|
|
|
|
code = devicePulseHttp( dev, &body, &len );
|
|
if( 0 > code )
|
|
{
|
|
return 1;
|
|
}
|
|
|
|
if( LOOP_DETECT_THRESHOLD <= dev->looping )
|
|
{
|
|
tr_dbg( "upnp device %s: loop detected, state %hhu -> error",
|
|
dev->host, dev->state );
|
|
dev->state = UPNPDEV_STATE_ERROR;
|
|
dev->looping = 0;
|
|
killHttp( &dev->http );
|
|
return 1;
|
|
}
|
|
|
|
laststate = dev->state;
|
|
dev->state = UPNPDEV_STATE_ERROR;
|
|
switch( laststate )
|
|
{
|
|
case UPNPDEV_STATE_ROOT:
|
|
if( !TR_HTTP_STATUS_OK( code ) )
|
|
{
|
|
tr_dbg( "upnp device %s: fetch root failed with http code %i",
|
|
dev->host, code );
|
|
}
|
|
else if( parseRoot( dev->root, body, len,
|
|
&dev->soap, &dev->scpd, &dev->ppp ) )
|
|
{
|
|
tr_dbg( "upnp device %s: parse root failed", dev->host );
|
|
}
|
|
else
|
|
{
|
|
tr_dbg( "upnp device %s: found scpd \"%s\" and soap \"%s\"",
|
|
dev->root, dev->scpd, dev->soap );
|
|
tr_dbg( "upnp device %s: parsed root, state root -> scpd",
|
|
dev->host );
|
|
dev->state = UPNPDEV_STATE_SCPD;
|
|
}
|
|
break;
|
|
|
|
case UPNPDEV_STATE_SCPD:
|
|
if( !TR_HTTP_STATUS_OK( code ) )
|
|
{
|
|
tr_dbg( "upnp device %s: fetch scpd failed with http code %i",
|
|
dev->host, code );
|
|
}
|
|
else if( parseScpd( body, len, &dev->getcmd,
|
|
&dev->addcmd, &dev->delcmd ) )
|
|
{
|
|
tr_dbg( "upnp device %s: parse scpd failed", dev->host );
|
|
}
|
|
else
|
|
{
|
|
tr_dbg( "upnp device %s: parsed scpd, state scpd -> ready",
|
|
dev->host );
|
|
dev->state = UPNPDEV_STATE_READY;
|
|
dev->looping = 0;
|
|
}
|
|
break;
|
|
|
|
case UPNPDEV_STATE_ADD:
|
|
dev->looping++;
|
|
if( IGD_ADD_CONFLICT == code )
|
|
{
|
|
tr_dbg( "upnp device %s: add conflict, state add -> delete",
|
|
dev->host );
|
|
dev->state = UPNPDEV_STATE_DEL;
|
|
}
|
|
else if( TR_HTTP_STATUS_OK( code ) ||
|
|
IGD_GENERIC_ERROR == code || IGD_GENERIC_FAILED == code )
|
|
{
|
|
tr_dbg( "upnp device %s: add attempt, state add -> get",
|
|
dev->host );
|
|
dev->state = UPNPDEV_STATE_GET;
|
|
}
|
|
else
|
|
{
|
|
tr_dbg( "upnp device %s: add failed with http code %i",
|
|
dev->host, code );
|
|
}
|
|
break;
|
|
|
|
case UPNPDEV_STATE_GET:
|
|
dev->looping++;
|
|
if( TR_HTTP_STATUS_OK( code ) )
|
|
{
|
|
switch( parseMapping( dev, body, len ) )
|
|
{
|
|
case -1:
|
|
break;
|
|
case 0:
|
|
tr_dbg( "upnp device %s: invalid mapping, "
|
|
"state get -> delete", dev->host );
|
|
dev->state = UPNPDEV_STATE_DEL;
|
|
break;
|
|
case 1:
|
|
tr_dbg( "upnp device %s: good mapping, "
|
|
"state get -> mapped", dev->host );
|
|
dev->state = UPNPDEV_STATE_MAPPED;
|
|
dev->looping = 0;
|
|
dev->lastcheck = tr_date();
|
|
tr_inf( "upnp successful for port %i",
|
|
dev->mappedport );
|
|
break;
|
|
default:
|
|
assert( 0 );
|
|
break;
|
|
}
|
|
}
|
|
else if( IGD_NO_MAPPING_EXISTS == code ||
|
|
IGD_GENERIC_ERROR == code || IGD_GENERIC_FAILED == code )
|
|
{
|
|
tr_dbg( "upnp device %s: no mapping, state get -> add",
|
|
dev->host );
|
|
dev->state = UPNPDEV_STATE_ADD;
|
|
}
|
|
else
|
|
{
|
|
tr_dbg( "upnp device %s: get failed with http code %i",
|
|
dev->host, code );
|
|
}
|
|
break;
|
|
|
|
case UPNPDEV_STATE_DEL:
|
|
dev->looping++;
|
|
if( TR_HTTP_STATUS_OK( code ) || IGD_NO_MAPPING_EXISTS == code ||
|
|
IGD_GENERIC_ERROR == code || IGD_GENERIC_FAILED == code )
|
|
{
|
|
tr_dbg( "upnp device %s: deleted, state delete -> ready",
|
|
dev->host );
|
|
dev->state = UPNPDEV_STATE_READY;
|
|
dev->looping = 0;
|
|
}
|
|
else
|
|
{
|
|
tr_dbg( "upnp device %s: del failed with http code %i",
|
|
dev->host, code );
|
|
}
|
|
break;
|
|
|
|
default:
|
|
assert( 0 );
|
|
break;
|
|
}
|
|
|
|
dev->lastrequest = tr_date();
|
|
killHttp( &dev->http );
|
|
|
|
if( UPNPDEV_STATE_ERROR == dev->state )
|
|
{
|
|
tr_dbg( "upnp device %s: error, state %hhu -> error",
|
|
dev->host, laststate );
|
|
return 0;
|
|
}
|
|
|
|
return 1;
|
|
}
|
|
|
|
static tr_http_t *
|
|
makeHttp( int method, const char * host, int port, const char * path )
|
|
{
|
|
if( tr_httpIsUrl( path, -1 ) )
|
|
{
|
|
return tr_httpClientUrl( method, "%s", path );
|
|
}
|
|
else
|
|
{
|
|
return tr_httpClient( method, host, port, "%s", path );
|
|
}
|
|
}
|
|
|
|
static tr_http_t *
|
|
devicePulseGetHttp( struct upnp_dev * dev )
|
|
{
|
|
tr_http_t * ret;
|
|
char numstr[6];
|
|
const char * type;
|
|
#ifdef VERBOSE_LOG
|
|
const char * body;
|
|
int len;
|
|
#endif
|
|
|
|
ret = NULL;
|
|
switch( dev->state )
|
|
{
|
|
case UPNPDEV_STATE_ROOT:
|
|
if( !dev->soapretry )
|
|
{
|
|
ret = makeHttp( TR_HTTP_GET, dev->host, dev->port, dev->root );
|
|
}
|
|
break;
|
|
case UPNPDEV_STATE_SCPD:
|
|
if( !dev->soapretry )
|
|
{
|
|
ret = makeHttp( TR_HTTP_GET, dev->host, dev->port, dev->scpd );
|
|
}
|
|
break;
|
|
case UPNPDEV_STATE_ADD:
|
|
if( NULL == dev->myaddr )
|
|
{
|
|
ret = NULL;
|
|
break;
|
|
}
|
|
snprintf( numstr, sizeof( numstr ), "%i", dev->mappedport );
|
|
type = ( dev->ppp ? SERVICE_TYPE_PPP : SERVICE_TYPE_IP );
|
|
ret = soapRequest( dev->soapretry, dev->host, dev->port, dev->soap,
|
|
type, &dev->addcmd,
|
|
"PortMappingEnabled", "1",
|
|
"PortMappingLeaseDuration", "0",
|
|
"RemoteHost", "",
|
|
"ExternalPort", numstr,
|
|
"InternalPort", numstr,
|
|
"PortMappingProtocol", "TCP",
|
|
"InternalClient", dev->myaddr,
|
|
"PortMappingDescription", "Added by " TR_NAME,
|
|
NULL );
|
|
break;
|
|
case UPNPDEV_STATE_GET:
|
|
snprintf( numstr, sizeof( numstr ), "%i", dev->mappedport );
|
|
type = ( dev->ppp ? SERVICE_TYPE_PPP : SERVICE_TYPE_IP );
|
|
ret = soapRequest( dev->soapretry, dev->host, dev->port, dev->soap,
|
|
type, &dev->getcmd,
|
|
"RemoteHost", "",
|
|
"ExternalPort", numstr,
|
|
"PortMappingProtocol", "TCP",
|
|
NULL );
|
|
break;
|
|
case UPNPDEV_STATE_DEL:
|
|
snprintf( numstr, sizeof( numstr ), "%i", dev->mappedport );
|
|
type = ( dev->ppp ? SERVICE_TYPE_PPP : SERVICE_TYPE_IP );
|
|
ret = soapRequest( dev->soapretry, dev->host, dev->port, dev->soap,
|
|
type, &dev->delcmd,
|
|
"RemoteHost", "",
|
|
"ExternalPort", numstr,
|
|
"PortMappingProtocol", "TCP",
|
|
NULL );
|
|
break;
|
|
default:
|
|
assert( 0 );
|
|
break;
|
|
}
|
|
|
|
#ifdef VERBOSE_LOG
|
|
if( NULL != ret )
|
|
{
|
|
tr_httpGetHeaders( ret, &body, &len );
|
|
fprintf( vlog, "send http message, %i bytes (headers):\n", len );
|
|
fwrite( body, 1, len, vlog );
|
|
tr_httpGetBody( ret, &body, &len );
|
|
fprintf( vlog, "\n\nsend http message, %i bytes (body):\n", len );
|
|
fwrite( body, 1, len, vlog );
|
|
fputs( "\n\n", vlog );
|
|
}
|
|
#endif
|
|
|
|
return ret;
|
|
}
|
|
|
|
static int
|
|
devicePulseHttp( struct upnp_dev * dev,
|
|
const char ** body, int * len )
|
|
{
|
|
const char * headers;
|
|
int hlen, code;
|
|
|
|
if( NULL == dev->http )
|
|
{
|
|
if( tr_date() < dev->lastrequest + HTTP_REQUEST_INTERVAL )
|
|
{
|
|
return -1;
|
|
}
|
|
dev->lastrequest = tr_date();
|
|
dev->http = devicePulseGetHttp( dev );
|
|
if( NULL == dev->http )
|
|
{
|
|
tr_dbg( "upnp device %s: http init failed, state %hhu -> error",
|
|
dev->host, dev->state );
|
|
dev->state = UPNPDEV_STATE_ERROR;
|
|
dev->soapretry = 0;
|
|
return -1;
|
|
}
|
|
}
|
|
|
|
if( NULL == dev->myaddr )
|
|
{
|
|
dev->myaddr = tr_httpWhatsMyAddress( dev->http );
|
|
}
|
|
|
|
switch( tr_httpPulse( dev->http, &headers, &hlen ) )
|
|
{
|
|
case TR_NET_OK:
|
|
#ifdef VERBOSE_LOG
|
|
fprintf( vlog, "receive http message, %i bytes:\n", hlen );
|
|
fwrite( headers, 1, hlen, vlog );
|
|
fputs( "\n\n", vlog );
|
|
#endif
|
|
code = tr_httpResponseCode( headers, hlen );
|
|
if( SOAP_METHOD_NOT_ALLOWED == code && !dev->soapretry )
|
|
{
|
|
dev->soapretry = 1;
|
|
killHttp( &dev->http );
|
|
break;
|
|
}
|
|
dev->soapretry = 0;
|
|
*body = tr_httpParse( headers, hlen, NULL );
|
|
*len = ( NULL == *body ? 0 : hlen - ( *body - headers ) );
|
|
return code;
|
|
case TR_NET_ERROR:
|
|
killHttp( &dev->http );
|
|
if( dev->soapretry )
|
|
{
|
|
tr_dbg( "upnp device %s: http pulse failed, state %hhu -> error",
|
|
dev->host, dev->state );
|
|
dev->state = UPNPDEV_STATE_ERROR;
|
|
dev->soapretry = 0;
|
|
}
|
|
else
|
|
{
|
|
dev->soapretry = 1;
|
|
}
|
|
break;
|
|
case TR_NET_WAIT:
|
|
break;
|
|
}
|
|
|
|
return -1;
|
|
}
|
|
|
|
static int
|
|
parseRoot( const char * root, const char *buf, int len,
|
|
char ** soap, char ** scpd, int * ppp )
|
|
{
|
|
const char * end, * ii, * jj, * kk, * urlbase;
|
|
char * basedup;
|
|
|
|
*soap = NULL;
|
|
*scpd = NULL;
|
|
end = buf + len;
|
|
|
|
buf = tr_xmlFindTagContents( buf, end, "root" );
|
|
urlbase = tr_xmlFindTag( buf, end, "urlBase" );
|
|
urlbase = tr_xmlTagContents( urlbase, end );
|
|
buf = tr_xmlFindTagContents( buf, end, "device" );
|
|
if( tr_xmlFindTagVerifyContents( buf, end, "deviceType",
|
|
"urn:schemas-upnp-org:device:InternetGatewayDevice:1", 1 ) )
|
|
{
|
|
return 1;
|
|
}
|
|
buf = tr_xmlFindTag( buf, end, "deviceList" );
|
|
ii = tr_xmlTagContents( buf, end );
|
|
for( ; NULL != ii; ii = tr_xmlSkipTag( ii, end ) )
|
|
{
|
|
ii = tr_xmlFindTag( ii, end, "device" );
|
|
buf = tr_xmlTagContents( ii, end );
|
|
if( tr_xmlFindTagVerifyContents( buf, end, "deviceType",
|
|
"urn:schemas-upnp-org:device:WANDevice:1", 1 ) )
|
|
{
|
|
continue;
|
|
}
|
|
buf = tr_xmlFindTag( buf, end, "deviceList" );
|
|
jj = tr_xmlTagContents( buf, end );
|
|
for( ; NULL != jj; jj = tr_xmlSkipTag( jj, end ) )
|
|
{
|
|
jj = tr_xmlFindTag( jj, end, "device" );
|
|
buf = tr_xmlTagContents( jj, end );
|
|
if( tr_xmlFindTagVerifyContents( buf, end, "deviceType",
|
|
"urn:schemas-upnp-org:device:WANConnectionDevice:1", 1 ) )
|
|
{
|
|
continue;
|
|
}
|
|
buf = tr_xmlFindTag( buf, end, "serviceList" );
|
|
kk = tr_xmlTagContents( buf, end );
|
|
for( ; NULL != kk; kk = tr_xmlSkipTag( kk, end ) )
|
|
{
|
|
kk = tr_xmlFindTag( kk, end, "service" );
|
|
buf = tr_xmlTagContents( kk, end );
|
|
if( !tr_xmlFindTagVerifyContents( buf, end, "serviceType",
|
|
SERVICE_TYPE_IP, 1 ) )
|
|
{
|
|
*soap = tr_xmlDupTagContents( buf, end, "controlURL");
|
|
*scpd = tr_xmlDupTagContents( buf, end, "SCPDURL");
|
|
*ppp = 0;
|
|
break;
|
|
}
|
|
/* XXX we should save all services of both types and
|
|
try adding mappings for each in turn */
|
|
else if( !tr_xmlFindTagVerifyContents( buf, end, "serviceType",
|
|
SERVICE_TYPE_PPP, 1 ) )
|
|
{
|
|
*soap = tr_xmlDupTagContents( buf, end, "controlURL");
|
|
*scpd = tr_xmlDupTagContents( buf, end, "SCPDURL");
|
|
*ppp = 1;
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
if( NULL == urlbase )
|
|
{
|
|
basedup = strrchr( root, '/' );
|
|
assert( NULL != basedup );
|
|
basedup = tr_strndup( root, basedup - root + 1 );
|
|
}
|
|
else
|
|
{
|
|
basedup = tr_xmlDupContents( urlbase, end );
|
|
}
|
|
addUrlbase( basedup, soap );
|
|
addUrlbase( basedup, scpd );
|
|
free( basedup );
|
|
|
|
if( NULL != *soap && NULL != *scpd )
|
|
{
|
|
return 0;
|
|
}
|
|
|
|
return 1;
|
|
}
|
|
|
|
static void
|
|
addUrlbase( const char * base, char ** path )
|
|
{
|
|
const char * middle;
|
|
int len;
|
|
char * joined;
|
|
|
|
if( NULL == base || NULL == *path ||
|
|
'/' == **path || tr_httpIsUrl( *path, -1 ) )
|
|
{
|
|
return;
|
|
}
|
|
|
|
len = strlen( base );
|
|
middle = ( 0 >= len || '/' != base[len-1] ? "/" : "" );
|
|
joined = joinstrs( base, middle, *path );
|
|
free( *path );
|
|
*path = joined;
|
|
}
|
|
|
|
static int
|
|
parseScpd( const char * buf, int len, struct upnp_act * getcmd,
|
|
struct upnp_act * addcmd, struct upnp_act * delcmd )
|
|
{
|
|
const char * end, * next, * sub, * name;
|
|
|
|
end = buf + len;
|
|
next = buf;
|
|
|
|
next = tr_xmlFindTagContents( next, end, "scpd" );
|
|
next = tr_xmlFindTagContents( next, end, "actionList" );
|
|
|
|
while( NULL != next )
|
|
{
|
|
next = tr_xmlFindTag( next, end, "action" );
|
|
sub = tr_xmlTagContents( next, end );
|
|
name = tr_xmlFindTagContents( sub, end, "name" );
|
|
sub = tr_xmlFindTagContents( sub, end, "argumentList" );
|
|
if( !tr_xmlVerifyContents( name, end, getcmd->name, 1 ) )
|
|
{
|
|
if( parseScpdArgs( sub, end, getcmd, 'i' ) ||
|
|
parseScpdArgs( sub, end, getcmd, 'o' ) )
|
|
{
|
|
return 1;
|
|
}
|
|
}
|
|
else if( !tr_xmlVerifyContents( name, end, addcmd->name, 1 ) )
|
|
{
|
|
if( parseScpdArgs( sub, end, addcmd, 'i' ) )
|
|
{
|
|
return 1;
|
|
}
|
|
}
|
|
else if( !tr_xmlVerifyContents( name, end, delcmd->name, 1 ) )
|
|
{
|
|
if( parseScpdArgs( sub, end, delcmd, 'i' ) )
|
|
{
|
|
return 1;
|
|
}
|
|
}
|
|
next = tr_xmlSkipTag( next, end );
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
static int
|
|
parseScpdArgs( const char * buf, const char * end,
|
|
struct upnp_act * action, char dir )
|
|
{
|
|
const char * sub, * which;
|
|
char * name, * var;
|
|
|
|
assert( 'i' == dir || 'o' == dir );
|
|
which = ( 'i' == dir ? "in" : "out" );
|
|
|
|
while( NULL != buf )
|
|
{
|
|
sub = tr_xmlFindTagContents( buf, end, "argument" );
|
|
if( !tr_xmlFindTagVerifyContents( sub, end, "direction", which, 1 ) )
|
|
{
|
|
name = tr_xmlDupTagContents( sub, end, "name" );
|
|
var = tr_xmlDupTagContents( sub, end, "relatedStateVariable" );
|
|
if( NULL == name || NULL == var )
|
|
{
|
|
free( name );
|
|
free( var );
|
|
}
|
|
else if( actionAdd( action, name, var, dir ) )
|
|
{
|
|
return 1;
|
|
}
|
|
}
|
|
buf = tr_xmlSkipTag( buf, end );
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
static int
|
|
parseMapping( struct upnp_dev * dev, const char * buf, int len )
|
|
{
|
|
const char * end, * down, * next, * var;
|
|
int varlen, pret, cret, eret;
|
|
char * val;
|
|
|
|
assert( 0 < dev->mappedport );
|
|
|
|
if( NULL == dev->myaddr )
|
|
{
|
|
return -1;
|
|
}
|
|
|
|
pret = -1;
|
|
cret = -1;
|
|
eret = -1;
|
|
|
|
end = buf + len;
|
|
down = buf;
|
|
down = tr_xmlFindTagContents( down, end, "Envelope" );
|
|
down = tr_xmlFindTagContents( down, end, "Body" );
|
|
down = tr_xmlFindTagContents( down, end,
|
|
"GetSpecificPortMappingEntryResponse" );
|
|
|
|
next = down;
|
|
while( NULL != next )
|
|
{
|
|
var = tr_xmlTagName( next, end, &varlen );
|
|
var = actionLookupVar( &dev->getcmd, var, varlen, 'o' );
|
|
if( NULL != var )
|
|
{
|
|
val = tr_xmlDupContents( tr_xmlTagContents( next, end ), end );
|
|
if( 0 == tr_strcasecmp( "InternalPort", var ) )
|
|
{
|
|
pret = ( strtol( val, NULL, 10 ) == dev->mappedport ? 1 : 0 );
|
|
}
|
|
else if( 0 == tr_strcasecmp( "InternalClient", var ) )
|
|
{
|
|
cret = ( 0 == strcmp( dev->myaddr, val ) ? 1 : 0 );
|
|
}
|
|
else if( 0 == tr_strcasecmp( "PortMappingEnabled", var ) )
|
|
{
|
|
eret = ( 0 == strcmp( "1", val ) ? 1 : 0 );
|
|
}
|
|
free( val );
|
|
}
|
|
next = tr_xmlSkipTag( next, end );
|
|
}
|
|
|
|
return MIN( MIN( pret, cret), eret );
|
|
}
|
|
|
|
static char *
|
|
joinstrs( const char * first, const char * delim, const char * second )
|
|
{
|
|
char * ret;
|
|
int len1, len2, len3;
|
|
|
|
len1 = strlen( first );
|
|
len2 = strlen( delim );
|
|
len3 = strlen( second );
|
|
ret = malloc( len1 + len2 + len3 + 1 );
|
|
if( NULL == ret )
|
|
{
|
|
return NULL;
|
|
}
|
|
|
|
memcpy( ret, first, len1 );
|
|
memcpy( ret + len1, delim, len2 );
|
|
memcpy( ret + len1 + len2, second, len3 );
|
|
ret[len1 + len2 + len3] = '\0';
|
|
|
|
return ret;
|
|
}
|
|
|
|
static tr_http_t *
|
|
soapRequest( int retry, const char * host, int port, const char * path,
|
|
const char * type, struct upnp_act * action, ... )
|
|
{
|
|
tr_http_t * http;
|
|
va_list ap;
|
|
const char * name, * value;
|
|
int method;
|
|
char * actstr;
|
|
|
|
method = ( retry ? TR_HTTP_M_POST : TR_HTTP_POST );
|
|
http = makeHttp( method, host, port, path );
|
|
if( NULL != http )
|
|
{
|
|
tr_httpAddHeader( http, "Content-type",
|
|
"text/xml; encoding=\"utf-8\"" );
|
|
actstr = NULL;
|
|
asprintf( &actstr, "\"%s#%s\"", type, action->name );
|
|
tr_httpAddHeader( http, "SOAPAction", actstr );
|
|
free( actstr );
|
|
if( retry )
|
|
{
|
|
tr_httpAddHeader( http, "Man", "\"" SOAP_ENVELOPE "\"" );
|
|
}
|
|
tr_httpAddBody( http,
|
|
"<?xml version=\"1.0\" encoding=\"utf-8\" ?>"
|
|
"<s:Envelope"
|
|
" xmlns:s=\"" SOAP_ENVELOPE "\""
|
|
" s:encodingStyle=\"http://schemas.xmlsoap.org/soap/encoding/\">"
|
|
" <s:Body>"
|
|
" <u:%s xmlns:u=\"%s\">", action->name, type );
|
|
|
|
va_start( ap, action );
|
|
do
|
|
{
|
|
name = va_arg( ap, const char * );
|
|
value = NULL;
|
|
name = actionLookupName( action, name, -1, 'i' );
|
|
if( NULL != name )
|
|
{
|
|
value = va_arg( ap, const char * );
|
|
if( NULL != value )
|
|
{
|
|
tr_httpAddBody( http,
|
|
" <%s>%s</%s>", name, value, name );
|
|
}
|
|
else
|
|
{
|
|
tr_httpAddBody( http,
|
|
" <%s></%s>", name, name );
|
|
}
|
|
}
|
|
}
|
|
while( NULL != name && NULL != value );
|
|
va_end( ap );
|
|
|
|
tr_httpAddBody( http,
|
|
" </u:%s>"
|
|
" </s:Body>"
|
|
"</s:Envelope>", action->name );
|
|
}
|
|
|
|
return http;
|
|
}
|
|
|
|
static void
|
|
actionSetup( struct upnp_act * action, const char * name, int prealloc )
|
|
{
|
|
action->name = strdup( name );
|
|
assert( NULL == action->args );
|
|
action->args = malloc( sizeof( *action->args ) * prealloc );
|
|
memset( action->args, 0, sizeof( *action->args ) * prealloc );
|
|
action->len = prealloc;
|
|
}
|
|
|
|
static void
|
|
actionFree( struct upnp_act * act )
|
|
{
|
|
free( act->name );
|
|
while( 0 < act->len )
|
|
{
|
|
act->len--;
|
|
free( act->args[act->len].name );
|
|
free( act->args[act->len].var );
|
|
}
|
|
free( act->args );
|
|
}
|
|
|
|
static int
|
|
actionAdd( struct upnp_act * act, char * name, char * var, char dir )
|
|
{
|
|
int ii;
|
|
void * newbuf;
|
|
|
|
assert( 'i' == dir || 'o' == dir );
|
|
|
|
ii = 0;
|
|
while( ii < act->len && NULL != act->args[ii].name )
|
|
{
|
|
ii++;
|
|
}
|
|
|
|
if( ii == act->len )
|
|
{
|
|
newbuf = realloc( act->args, sizeof( *act->args ) * ( act->len + 1 ) );
|
|
if( NULL == newbuf )
|
|
{
|
|
return 1;
|
|
}
|
|
act->args = newbuf;
|
|
act->len++;
|
|
}
|
|
|
|
act->args[ii].name = name;
|
|
act->args[ii].var = var;
|
|
act->args[ii].dir = dir;
|
|
|
|
return 0;
|
|
}
|
|
|
|
static const char *
|
|
actionLookup( struct upnp_act * act, const char * key, int len,
|
|
char dir, int getname )
|
|
{
|
|
int ii;
|
|
|
|
assert( 'i' == dir || 'o' == dir );
|
|
|
|
if( NULL == key || 0 == len )
|
|
{
|
|
return NULL;
|
|
}
|
|
if( 0 > len )
|
|
{
|
|
len = strlen( key );
|
|
}
|
|
|
|
for( ii = 0; ii < act->len; ii++ )
|
|
{
|
|
if( NULL != act->args[ii].name && dir == act->args[ii].dir )
|
|
{
|
|
if( !getname &&
|
|
0 == tr_strncasecmp( act->args[ii].name, key, len ) )
|
|
{
|
|
return act->args[ii].var;
|
|
}
|
|
else if( getname &&
|
|
0 == tr_strncasecmp( act->args[ii].var, key, len ) )
|
|
{
|
|
return act->args[ii].name;
|
|
}
|
|
}
|
|
}
|
|
|
|
return NULL;
|
|
}
|