2011-07-24 18:04:41 +02:00
/*
* Copyright ( c ) 2001 , Adam Dunkels .
* All rights reserved .
*
* Redistribution and use in source and binary forms , with or without
* modification , are permitted provided that the following conditions
* are met :
* 1. Redistributions of source code must retain the above copyright
* notice , this list of conditions and the following disclaimer .
* 2. Redistributions in binary form must reproduce the above copyright
* notice , this list of conditions and the following disclaimer in the
* documentation and / or other materials provided with the distribution .
* 3. The name of the author may not be used to endorse or promote
* products derived from this software without specific prior
* written permission .
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ` ` AS IS ' ' AND ANY EXPRESS
* OR IMPLIED WARRANTIES , INCLUDING , BUT NOT LIMITED TO , THE IMPLIED
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED . IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
* DIRECT , INDIRECT , INCIDENTAL , SPECIAL , EXEMPLARY , OR CONSEQUENTIAL
* DAMAGES ( INCLUDING , BUT NOT LIMITED TO , PROCUREMENT OF SUBSTITUTE
* GOODS OR SERVICES ; LOSS OF USE , DATA , OR PROFITS ; OR BUSINESS
* INTERRUPTION ) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY ,
* WHETHER IN CONTRACT , STRICT LIABILITY , OR TORT ( INCLUDING
* NEGLIGENCE OR OTHERWISE ) ARISING IN ANY WAY OUT OF THE USE OF THIS
* SOFTWARE , EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE .
*
* This file is part of the uIP TCP / IP stack .
*
*
*/
/* Line endings in git repository are LF instead of CR-LF ? */
/*
* This file includes functions that are called by the web server
* scripts . The functions takes no argument , and the return value is
* interpreted as follows . A zero means that the function did not
* complete and should be invoked for the next packet as well . A
* non - zero value indicates that the function has completed and that
* the web server should move along to the next script line .
*
*/
# include <stdio.h>
# include <string.h>
# include "contiki-net.h"
# include "httpd.h"
# include "httpd-cgi.h"
# include "httpd-fs.h"
# include "httpd-fsdata.h"
# include "lib/petsciiconv.h"
# include "sensors.h"
/* RADIOSTATS must also be set in clock.c and the radio driver */
# if RF230BB
# define RADIOSTATS 1
# endif
# if WEBSERVER_CONF_CGI
static struct httpd_cgi_call * calls = NULL ;
/*cgi function names*/
# if WEBSERVER_CONF_HEADER
static const char hdr_name [ ] HTTPD_STRING_ATTR = " header " ;
# endif
# if WEBSERVER_CONF_FILESTATS
static const char file_name [ ] HTTPD_STRING_ATTR = " file-stats " ;
# endif
# if WEBSERVER_CONF_TCPSTATS
static const char tcp_name [ ] HTTPD_STRING_ATTR = " tcp-connections " ;
# endif
# if WEBSERVER_CONF_PROCESSES
static const char proc_name [ ] HTTPD_STRING_ATTR = " processes " ;
# endif
# if WEBSERVER_CONF_SENSORS
static const char sensor_name [ ] HTTPD_STRING_ATTR = " sensors " ;
# endif
# if WEBSERVER_CONF_ADDRESSES
static const char adrs_name [ ] HTTPD_STRING_ATTR = " addresses " ;
# endif
# if WEBSERVER_CONF_NEIGHBORS
static const char nbrs_name [ ] HTTPD_STRING_ATTR = " neighbors " ;
# endif
# if WEBSERVER_CONF_ROUTES
static const char rtes_name [ ] HTTPD_STRING_ATTR = " routes " ;
# endif
# if WEBSERVER_CONF_TICTACTOE
static const char tictac_name [ ] HTTPD_STRING_ATTR = " tictac " ;
# endif
/*Process states for processes cgi*/
# endif
# if WEBSERVER_CONF_PROCESSES || WEBSERVER_CONF_TCPSTATS
static const char closed [ ] HTTPD_STRING_ATTR = " CLOSED " ;
static const char syn_rcvd [ ] HTTPD_STRING_ATTR = " SYN-RCVD " ;
static const char syn_sent [ ] HTTPD_STRING_ATTR = " SYN-SENT " ;
static const char established [ ] HTTPD_STRING_ATTR = " ESTABLISHED " ;
static const char fin_wait_1 [ ] HTTPD_STRING_ATTR = " FIN-WAIT-1 " ;
static const char fin_wait_2 [ ] HTTPD_STRING_ATTR = " FIN-WAIT-2 " ;
static const char closing [ ] HTTPD_STRING_ATTR = " CLOSING " ;
static const char time_wait [ ] HTTPD_STRING_ATTR = " TIME-WAIT " ;
static const char last_ack [ ] HTTPD_STRING_ATTR = " LAST-ACK " ;
static const char none [ ] HTTPD_STRING_ATTR = " NONE " ;
static const char running [ ] HTTPD_STRING_ATTR = " RUNNING " ;
static const char called [ ] HTTPD_STRING_ATTR = " CALLED " ;
static const char * states [ ] = {
closed ,
syn_rcvd ,
syn_sent ,
established ,
fin_wait_1 ,
fin_wait_2 ,
closing ,
time_wait ,
last_ack ,
none ,
running ,
called } ;
# endif
# if WEBSERVER_CONF_SENSORS
static char sensor_temperature [ 14 ] = " Not Available " ;
static char sensor_extvoltage [ 14 ] = " Not Available " ;
static unsigned long last_tempupdate ; //,last_extvoltageupdate;
// extern unsigned long seconds, sleepseconds;
# if RADIOSTATS
extern unsigned long radioontime ;
static unsigned long savedradioontime ;
extern uint8_t RF230_radio_on , rf230_last_rssi ;
extern uint16_t RF230_sendpackets , RF230_receivepackets , RF230_sendfail , RF230_receivefail ;
# endif
# endif
#if 0
void
web_set_temp ( char * s )
{
strcpy ( sensor_temperature , s ) ;
// printf_P(PSTR("got temp"));
last_tempupdate = seconds ;
}
void
web_set_voltage ( char * s )
{
strcpy ( sensor_extvoltage , s ) ;
// printf_P(PSTR("got volts"));
last_extvoltageupdate = seconds ;
}
# endif
# if WEBSERVER_CONF_CGI
/*---------------------------------------------------------------------------*/
static
PT_THREAD ( nullfunction ( struct httpd_state * s , char * ptr ) )
{
PSOCK_BEGIN ( & s - > sout ) ;
PSOCK_END ( & s - > sout ) ;
}
/*---------------------------------------------------------------------------*/
httpd_cgifunction
httpd_cgi ( char * name )
{
struct httpd_cgi_call * f ;
/* Find the matching name in the table, return the function. */
for ( f = calls ; f ! = NULL ; f = f - > next ) {
if ( httpd_strncmp ( name , f - > name , httpd_strlen ( f - > name ) ) = = 0 ) {
return f - > function ;
}
}
return nullfunction ;
}
# if WEBSERVER_CONF_HEADER
/*---------------------------------------------------------------------------*/
static unsigned short
generate_header ( void * arg )
{
unsigned short numprinted = 0 ;
# if WEBSERVER_CONF_HEADER_W3C
static const char httpd_cgi_headerw [ ] HTTPD_STRING_ATTR = " <!DOCTYPE HTML PUBLIC \" -//W3C//DTD HTML 4.01 Transitional//EN \" \" http://www.w3.org/TR/html4/loose.dtd \" > " ;
numprinted + = httpd_snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , httpd_cgi_headerw ) ;
# endif
# if WEBSERVER_CONF_HEADER_ICON
static const char httpd_cgi_header1 [ ] HTTPD_STRING_ATTR = " <html><head><title>Contiki-nano</title><link rel= \" icon \" href= \" favicon.gif \" type= \" image/gif \" ></head><body> " ;
# else
static const char httpd_cgi_header1 [ ] HTTPD_STRING_ATTR = " <html><head><title>Contiki-nano</title></head><body> " ;
# endif
numprinted + = httpd_snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , httpd_cgi_header1 ) ;
# if WEBSERVER_CONF_HEADER_MENU
static const char httpd_cgi_headerm1 [ ] HTTPD_STRING_ATTR = " <pre><a href= \" / \" >Front page</a> " ;
numprinted + = httpd_snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , httpd_cgi_headerm1 ) ;
# if WEBSERVER_CONF_SENSORS
static const char httpd_cgi_headerm2 [ ] HTTPD_STRING_ATTR = " |<a href= \" status.shtml \" >Status</a> " ;
numprinted + = httpd_snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , httpd_cgi_headerm2 ) ;
# endif
# if WEBSERVER_CONF_TCPSTATS
static const char httpd_cgi_headerm3 [ ] HTTPD_STRING_ATTR = " |<a href= \" tcp.shtml \" >Network connections</a> " ;
numprinted + = httpd_snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , httpd_cgi_headerm3 ) ;
# endif
# if WEBSERVER_CONF_PROCESSES
static const char httpd_cgi_headerm4 [ ] HTTPD_STRING_ATTR = " |<a href= \" processes.shtml \" >System processes</a> " ;
numprinted + = httpd_snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , httpd_cgi_headerm4 ) ;
# endif
# if WEBSERVER_CONF_FILESTATS
static const char httpd_cgi_headerm5 [ ] HTTPD_STRING_ATTR = " |<a href= \" files.shtml \" >File statistics</a> " ;
numprinted + = httpd_snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , httpd_cgi_headerm5 ) ;
# endif
# if WEBSERVER_CONF_TICTACTOE
static const char httpd_cgi_headerm6 [ ] HTTPD_STRING_ATTR = " |<a href= \" /ttt/ttt.shtml \" >TicTacToe</a> " ;
numprinted + = httpd_snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , httpd_cgi_headerm6 ) ;
# endif
static const char httpd_cgi_headerme [ ] HTTPD_STRING_ATTR = " </pre> " ;
numprinted + = httpd_snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , httpd_cgi_headerme ) ;
# endif /* WEBSERVER_CONF_MENU */
return numprinted ;
}
/*---------------------------------------------------------------------------*/
static
PT_THREAD ( header ( struct httpd_state * s , char * ptr ) )
{
PSOCK_BEGIN ( & s - > sout ) ;
PSOCK_GENERATOR_SEND ( & s - > sout , generate_header , ( void * ) ptr ) ;
PSOCK_END ( & s - > sout ) ;
}
# endif /* WEBSERVER_CONF_HEADER */
# if WEBSERVER_CONF_FILESTATS
static char * thisfilename ; //todo move to s->ptr
/*---------------------------------------------------------------------------*/
static unsigned short
generate_file_stats ( void * arg )
{
static const char httpd_cgi_filestat1 [ ] HTTPD_STRING_ATTR = " <p align= \" right \" ><br><br><i>This page has been sent %u times</i></body></html> " ;
static const char httpd_cgi_filestat2 [ ] HTTPD_STRING_ATTR = " <tr><td><a href= \" %s \" >%s</a></td><td>%d</td> " ;
static const char httpd_cgi_filestat3 [ ] HTTPD_STRING_ATTR = " %5u " ;
char tmp [ 20 ] ;
struct httpd_fsdata_file_noconst * f , fram ;
u16_t i ;
unsigned short numprinted ;
/* Transfer arg from whichever flash that contains the html file to RAM */
httpd_fs_cpy ( & tmp , ( char * ) arg , 20 ) ;
/* Count for this page, with common page footer */
if ( tmp [ 0 ] = = ' . ' ) {
numprinted = httpd_snprintf ( ( char * ) uip_appdata , uip_mss ( ) , httpd_cgi_filestat1 , httpd_fs_open ( thisfilename , 0 ) ) ;
/* Count for all files */
/* Note buffer will overflow if there are too many files! */
} else if ( tmp [ 0 ] = = ' * ' ) {
i = 0 ; numprinted = 0 ;
for ( f = ( struct httpd_fsdata_file_noconst * ) httpd_fs_get_root ( ) ;
f ! = NULL ;
f = ( struct httpd_fsdata_file_noconst * ) fram . next ) {
/* Get the linked list file entry into RAM from from wherever it is*/
httpd_memcpy ( & fram , f , sizeof ( fram ) ) ;
/* Get the file name from whatever memory it is in */
httpd_fs_cpy ( & tmp , fram . name , sizeof ( tmp ) ) ;
# if WEBSERVER_CONF_FILESTATS==2
numprinted + = httpd_snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , httpd_cgi_filestat2 , tmp , tmp , f - > count ) ;
# else
numprinted + = httpd_snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , httpd_cgi_filestat2 , tmp , tmp , httpd_filecount [ i ] ) ;
# endif
i + + ;
}
/* Count for specified file */
} else {
numprinted = httpd_snprintf ( ( char * ) uip_appdata , uip_mss ( ) , httpd_cgi_filestat3 , httpd_fs_open ( tmp , 0 ) ) ;
}
return numprinted ;
}
/*---------------------------------------------------------------------------*/
static
PT_THREAD ( file_stats ( struct httpd_state * s , char * ptr ) )
{
PSOCK_BEGIN ( & s - > sout ) ;
//printf("s->filename is %c%c%c%c%c%c",s->filename[0],s->filename[1],s->filename[2],s->filename[3],s->filename[4],s->filename[5]);
//printf("s->filename string is %s",s->filename);
thisfilename = & s - > filename [ 0 ] ; //temporary way to pass filename to generate_file_stats
// printf("thisfilename is %s",thisfilename); //minimal net wants this
PSOCK_GENERATOR_SEND ( & s - > sout , generate_file_stats , ( void * ) ptr ) ;
PSOCK_END ( & s - > sout ) ;
}
# endif /* WEBSERVER_CONF_FILESTATS*/
# if WEBSERVER_CONF_TCPSTATS
/*---------------------------------------------------------------------------*/
static unsigned short
make_tcp_stats ( void * arg )
{
static const char httpd_cgi_tcpstat1 [ ] HTTPD_STRING_ATTR = " <tr align= \" center \" ><td>%d</td><td> " ;
static const char httpd_cgi_tcpstat2 [ ] HTTPD_STRING_ATTR = " -%u</td><td>%s</td><td>%u</td><td>%u</td><td>%c %c</td></tr> \r \n " ;
static const char httpd_cgi_tcpstat3 [ ] HTTPD_STRING_ATTR = " [Room for %d more] " ;
struct uip_conn * conn ;
struct httpd_state * s = ( struct httpd_state * ) arg ;
char tstate [ 20 ] ;
uint16_t numprinted ;
if ( s - > u . count = = UIP_CONNS ) {
for ( numprinted = 0 ; numprinted < UIP_CONNS ; numprinted + + ) {
if ( ( uip_conns [ numprinted ] . tcpstateflags & UIP_TS_MASK ) ! = UIP_CLOSED ) s - > u . count - - ;
}
return ( httpd_snprintf ( ( char * ) uip_appdata , uip_mss ( ) , httpd_cgi_tcpstat3 , s - > u . count ) ) ;
}
conn = & uip_conns [ s - > u . count ] ;
numprinted = httpd_snprintf ( ( char * ) uip_appdata , uip_mss ( ) , httpd_cgi_tcpstat1 , uip_htons ( conn - > lport ) ) ;
# if WEBSERVER_CONF_PRINTADDR
numprinted + = httpd_cgi_sprint_ip6 ( conn - > ripaddr , uip_appdata + numprinted ) ;
# endif
httpd_strcpy ( tstate , states [ conn - > tcpstateflags & UIP_TS_MASK ] ) ;
numprinted + = httpd_snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted ,
httpd_cgi_tcpstat2 ,
uip_htons ( conn - > rport ) ,
tstate ,
conn - > nrtx ,
conn - > timer ,
( uip_outstanding ( conn ) ) ? ' * ' : ' ' ,
( uip_stopped ( conn ) ) ? ' ! ' : ' ' ) ;
return numprinted ;
}
/*---------------------------------------------------------------------------*/
static
PT_THREAD ( tcp_stats ( struct httpd_state * s , char * ptr ) )
{
PSOCK_BEGIN ( & s - > sout ) ;
s - > u . count = UIP_CONNS ;
PSOCK_GENERATOR_SEND ( & s - > sout , make_tcp_stats , s ) ;
for ( s - > u . count = 0 ; s - > u . count < UIP_CONNS ; + + s - > u . count ) {
if ( ( uip_conns [ s - > u . count ] . tcpstateflags & UIP_TS_MASK ) ! = UIP_CLOSED ) {
PSOCK_GENERATOR_SEND ( & s - > sout , make_tcp_stats , s ) ;
}
}
PSOCK_END ( & s - > sout ) ;
}
# endif /* WEBSERVER_CONF_TCPSTATS */
# if WEBSERVER_CONF_PROCESSES
/*---------------------------------------------------------------------------*/
static unsigned short
make_processes ( void * p )
{
static const char httpd_cgi_proc [ ] HTTPD_STRING_ATTR = " <tr align= \" center \" ><td>%p</td><td>%s</td><td>%p</td><td>%s</td></tr> \r \n " ;
char name [ 40 ] , tstate [ 20 ] ;
2011-08-03 17:08:40 +02:00
strncpy ( name , PROCESS_NAME_STRING ( ( struct process * ) p ) , 40 ) ;
2011-07-24 18:04:41 +02:00
petsciiconv_toascii ( name , 40 ) ;
httpd_strcpy ( tstate , states [ 9 + ( ( struct process * ) p ) - > state ] ) ;
return httpd_snprintf ( ( char * ) uip_appdata , uip_mss ( ) , httpd_cgi_proc , p , name ,
2011-08-03 17:08:40 +02:00
// *((char **) &(((struct process *)p)->thread)),
* ( char * * ) ( & ( ( ( struct process * ) p ) - > thread ) ) , //minimal net
2011-07-24 18:04:41 +02:00
tstate ) ;
}
/*---------------------------------------------------------------------------*/
static
PT_THREAD ( processes ( struct httpd_state * s , char * ptr ) )
{
PSOCK_BEGIN ( & s - > sout ) ;
for ( s - > u . ptr = PROCESS_LIST ( ) ; s - > u . ptr ! = NULL ; s - > u . ptr = ( ( struct process * ) s - > u . ptr ) - > next ) {
PSOCK_GENERATOR_SEND ( & s - > sout , make_processes , s - > u . ptr ) ;
}
PSOCK_END ( & s - > sout ) ;
}
# endif /* WEBSERVER_CONF_PROCESSES */
# if WEBSERVER_CONF_ADDRESSES || WEBSERVER_CONF_NEIGHBORS || WEBSERVER_CONF_ROUTES
static const char httpd_cgi_addrh [ ] HTTPD_STRING_ATTR = " <code> " ;
static const char httpd_cgi_addrf [ ] HTTPD_STRING_ATTR = " </code>[Room for %u more] " ;
static const char httpd_cgi_addrb [ ] HTTPD_STRING_ATTR = " <br> " ;
static const char httpd_cgi_addrn [ ] HTTPD_STRING_ATTR = " (none)<br> " ;
# endif
# if WEBSERVER_CONF_ADDRESSES
/*---------------------------------------------------------------------------*/
extern uip_ds6_netif_t uip_ds6_if ;
static unsigned short
make_addresses ( void * p )
{
uint8_t i , j = 0 ;
uint16_t numprinted ;
numprinted = httpd_snprintf ( ( char * ) uip_appdata , uip_mss ( ) , httpd_cgi_addrh ) ;
for ( i = 0 ; i < UIP_DS6_ADDR_NB ; i + + ) {
if ( uip_ds6_if . addr_list [ i ] . isused ) {
j + + ;
# if WEBSERVER_CONF_PRINTADDR
numprinted + = httpd_cgi_sprint_ip6 ( uip_ds6_if . addr_list [ i ] . ipaddr , uip_appdata + numprinted ) ;
# endif
numprinted + = httpd_snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , httpd_cgi_addrb ) ;
}
}
//if (j==0) numprinted += httpd_snprintf((char *)uip_appdata+numprinted, uip_mss()-numprinted, httpd_cgi_addrn);
numprinted + = httpd_snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , httpd_cgi_addrf , UIP_DS6_ADDR_NB - j ) ;
return numprinted ;
}
/*---------------------------------------------------------------------------*/
static
PT_THREAD ( addresses ( struct httpd_state * s , char * ptr ) )
{
PSOCK_BEGIN ( & s - > sout ) ;
PSOCK_GENERATOR_SEND ( & s - > sout , make_addresses , s - > u . ptr ) ;
PSOCK_END ( & s - > sout ) ;
}
# endif /* WEBSERVER_CONF_ADDRESSES */
# if WEBSERVER_CONF_NEIGHBORS
extern uip_ds6_nbr_t uip_ds6_nbr_cache [ ] ;
/*---------------------------------------------------------------------------*/
static unsigned short
make_neighbors ( void * p )
{
uint8_t i , j = 0 ;
uint16_t numprinted ;
numprinted = httpd_snprintf ( ( char * ) uip_appdata , uip_mss ( ) , httpd_cgi_addrh ) ;
for ( i = 0 ; i < UIP_DS6_NBR_NB ; i + + ) {
if ( uip_ds6_nbr_cache [ i ] . isused ) {
j + + ;
# if WEBSERVER_CONF_PRINTADDR
numprinted + = httpd_cgi_sprint_ip6 ( uip_ds6_nbr_cache [ i ] . ipaddr , uip_appdata + numprinted ) ;
# endif
numprinted + = httpd_snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , httpd_cgi_addrb ) ;
}
}
//if (j==0) numprinted += httpd_snprintf((char *)uip_appdata+numprinted, uip_mss()-numprinted, httpd_cgi_addrn);
numprinted + = httpd_snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , httpd_cgi_addrf , UIP_DS6_NBR_NB - j ) ;
return numprinted ;
}
/*---------------------------------------------------------------------------*/
static
PT_THREAD ( neighbors ( struct httpd_state * s , char * ptr ) )
{
PSOCK_BEGIN ( & s - > sout ) ;
PSOCK_GENERATOR_SEND ( & s - > sout , make_neighbors , s - > u . ptr ) ;
PSOCK_END ( & s - > sout ) ;
}
# endif
# if WEBSERVER_CONF_ROUTES
extern uip_ds6_route_t uip_ds6_routing_table [ ] ;
/*---------------------------------------------------------------------------*/
static unsigned short
make_routes ( void * p )
{
static const char httpd_cgi_rtes1 [ ] HTTPD_STRING_ATTR = " (%u (via " ;
static const char httpd_cgi_rtes2 [ ] HTTPD_STRING_ATTR = " ) %lus<br> " ;
static const char httpd_cgi_rtes3 [ ] HTTPD_STRING_ATTR = " )<br> " ;
uint8_t i , j = 0 ;
uint16_t numprinted ;
numprinted = httpd_snprintf ( ( char * ) uip_appdata , uip_mss ( ) , httpd_cgi_addrh ) ;
for ( i = 0 ; i < UIP_DS6_ROUTE_NB ; i + + ) {
if ( uip_ds6_routing_table [ i ] . isused ) {
j + + ;
# if WEBSERVER_CONF_PRINTADDR
numprinted + = httpd_cgi_sprint_ip6 ( uip_ds6_routing_table [ i ] . ipaddr , uip_appdata + numprinted ) ;
# endif
numprinted + = httpd_snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , httpd_cgi_rtes1 , uip_ds6_routing_table [ i ] . length ) ;
# if WEBSERVER_CONF_PRINTADDR
numprinted + = httpd_cgi_sprint_ip6 ( uip_ds6_routing_table [ i ] . nexthop , uip_appdata + numprinted ) ;
# endif
if ( uip_ds6_routing_table [ i ] . state . lifetime < 3600 ) {
numprinted + = httpd_snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , httpd_cgi_rtes2 , ( long unsigned int ) uip_ds6_routing_table [ i ] . state . lifetime ) ;
} else {
numprinted + = httpd_snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , httpd_cgi_rtes3 ) ;
}
}
}
if ( j = = 0 ) numprinted + = httpd_snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , httpd_cgi_addrn ) ;
numprinted + = httpd_snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , httpd_cgi_addrf , UIP_DS6_ROUTE_NB - j ) ;
return numprinted ;
}
/*---------------------------------------------------------------------------*/
static
PT_THREAD ( routes ( struct httpd_state * s , char * ptr ) )
{
PSOCK_BEGIN ( & s - > sout ) ;
PSOCK_GENERATOR_SEND ( & s - > sout , make_routes , s - > u . ptr ) ;
PSOCK_END ( & s - > sout ) ;
}
# endif /* WEBSERVER_CONF_ROUTES */
# if WEBSERVER_CONF_SENSORS
/*---------------------------------------------------------------------------*/
static unsigned short
generate_sensor_readings ( void * arg )
{
uint16_t numprinted ;
uint16_t h , m , s ;
unsigned long seconds = clock_seconds ( ) ;
// uint8_t p1;
static const char httpd_cgi_sensor0 [ ] HTTPD_STRING_ATTR = " [Updated %d seconds ago]<br><br> " ;
static const char httpd_cgi_sensor1 [ ] HTTPD_STRING_ATTR = " <em>Temperature:</em> %s<br> " ;
static const char httpd_cgi_sensor2 [ ] HTTPD_STRING_ATTR = " <em>Battery:</em> %s<br> " ;
// static const char httpd_cgi_sensr12[] HTTPD_STRING_ATTR = "<em>Temperature:</em> %s <em>Battery:</em> %s<br>";
static const char httpd_cgi_sensor3 [ ] HTTPD_STRING_ATTR = " <em>Elapsed timer :</em> %02d:%02d:%02d<br> " ;
// static const char httpd_cgi_sensor4[] HTTPD_STRING_ATTR = "<em>Sleeping time :</em> %02d:%02d:%02d (%d%%)<br>";
numprinted = 0 ;
if ( last_tempupdate ) {
numprinted = httpd_snprintf ( ( char * ) uip_appdata , uip_mss ( ) , httpd_cgi_sensor0 , ( unsigned int ) ( seconds - last_tempupdate ) ) ;
}
numprinted + = httpd_snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , httpd_cgi_sensor1 , sensor_temperature ) ;
#if 0
//Measuring AVcc might be useful to check on battery condition but on ext power it's always 3v3
ADMUX = 0x1E ; //Select AREF as reference, measure 1.1 volt bandgap reference.
//ADMUX =0x5E; //Select AVCC as reference, measure 1.1 volt bandgap reference.
ADCSRA = 0x07 ; //Enable ADC, not free running, interrupt disabled, clock divider 128 (62 KHz@ 8 MHz)
ADCSRA | = 1 < < ADSC ; //Start throwaway conversion
while ( ADCSRA & ( 1 < < ADSC ) ) ; //Wait till done
ADCSRA | = 1 < < ADSC ; //Start another conversion
while ( ADCSRA & ( 1 < < ADSC ) ) ; //Wait till done
h = 1131632UL / ADC ; //Get supply voltage
# endif
numprinted + = httpd_snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , httpd_cgi_sensor2 , sensor_extvoltage ) ;
// numprinted+=httpd_snprintf((char *)uip_appdata+numprinted, uip_mss()-numprinted, httpd_cgi_sensr12, sensor_temperature,sensor_extvoltage);
# if RADIOSTATS
/* Remember radioontime for display below - slow connection might make it report longer than cpu ontime! */
savedradioontime = radioontime ;
# endif
h = seconds / 3600 ;
s = seconds - h * 3600 ;
m = s / 60 ;
s = s - m * 60 ;
numprinted + = httpd_snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , httpd_cgi_sensor3 , h , m , s ) ;
#if 0
if ( sleepseconds ) {
p1 = 100UL * sleepseconds / seconds ;
h = sleepseconds / 3600 ;
s = sleepseconds - h * 3600 ;
m = s / 60 ;
s = s - m * 60 ;
numprinted + = httpd_snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , httpd_cgi_sensor4 , h , m , s , p1 ) ;
}
# endif
return numprinted ;
}
# if RADIOSTATS
/*---------------------------------------------------------------------------*/
static unsigned short
generate_radio_stats ( void * arg )
{
uint16_t numprinted ;
uint16_t h , m , s ;
uint8_t p1 , p2 ;
unsigned long seconds = clock_seconds ( ) ;
static const char httpd_cgi_sensor10 [ ] HTTPD_STRING_ATTR = " <em>Radio on time :</em> %02d:%02d:%02d (%d.%02d%%)<br> " ;
static const char httpd_cgi_sensor11 [ ] HTTPD_STRING_ATTR = " <em>Packets:</em> Tx=%5d Rx=%5d TxL=%5d RxL=%5d RSSI=%2ddBm \n " ;
s = ( 10000UL * savedradioontime ) / seconds ;
p1 = s / 100 ;
p2 = s - p1 * 100 ;
h = savedradioontime / 3600 ;
s = savedradioontime - h * 3600 ;
m = s / 60 ;
s = s - m * 60 ;
numprinted = httpd_snprintf ( ( char * ) uip_appdata , uip_mss ( ) , httpd_cgi_sensor10 , \
h , m , s , p1 , p2 ) ;
# if RF230BB
numprinted + = httpd_snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , httpd_cgi_sensor11 , \
RF230_sendpackets , RF230_receivepackets , RF230_sendfail , RF230_receivefail , - 92 + rf230_last_rssi ) ;
# else
p1 = 0 ;
radio_get_rssi_value ( & p1 ) ;
p1 = - 91 * 3 ( p1 - 1 ) ;
numprinted + = httpd_snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , httpd_cgi_sensor11 , \
RF230_sendpackets , RF230_receivepackets , RF230_sendfail , RF230_receivefail , p1 ) ;
# endif
return numprinted ;
}
# endif
/*---------------------------------------------------------------------------*/
static
PT_THREAD ( sensor_readings ( struct httpd_state * s , char * ptr ) )
{
PSOCK_BEGIN ( & s - > sout ) ;
PSOCK_GENERATOR_SEND ( & s - > sout , generate_sensor_readings , s ) ;
# if RADIOSTATS
PSOCK_GENERATOR_SEND ( & s - > sout , generate_radio_stats , s ) ;
# endif
PSOCK_END ( & s - > sout ) ;
}
# endif /* WEBSERVER_CONF_SENSORS */
# if WEBSERVER_CONF_TICTACTOE
/*---------------------------------------------------------------------------*/
static uint8_t whowon ( char x ) {
if ( httpd_query [ 0 ] = = x ) {
if ( ( ( httpd_query [ 1 ] = = x ) & & ( httpd_query [ 2 ] = = x ) )
| | ( ( httpd_query [ 4 ] = = x ) & & ( httpd_query [ 8 ] = = x ) )
| | ( ( httpd_query [ 3 ] = = x ) & & ( httpd_query [ 6 ] = = x ) ) ) {
return 1 ;
}
}
if ( httpd_query [ 1 ] = = x ) {
if ( ( httpd_query [ 4 ] = = x ) & & ( httpd_query [ 7 ] = = x ) ) {
return 1 ;
}
}
if ( httpd_query [ 2 ] = = x ) {
if ( ( ( httpd_query [ 4 ] = = x ) & & ( httpd_query [ 6 ] = = x ) )
| | ( ( httpd_query [ 5 ] = = x ) & & ( httpd_query [ 8 ] = = x ) ) ) {
return 1 ;
}
}
if ( httpd_query [ 3 ] = = x ) {
if ( ( httpd_query [ 4 ] = = x ) & & ( httpd_query [ 5 ] = = x ) ) {
return 1 ;
}
}
if ( httpd_query [ 6 ] = = x ) {
if ( ( httpd_query [ 7 ] = = x ) & & ( httpd_query [ 8 ] = = x ) ) {
return 1 ;
}
}
return 0 ;
}
/*---------------------------------------------------------------------------*/
static unsigned short
make_tictactoe ( void * p )
{
uint8_t i , newgame , iwon , uwon , nx , no ;
char me , you , locater ;
unsigned short numprinted = 0 ;
/* If no query string restart game, else put into proper form */
newgame = 0 ; httpd_query [ 9 ] = 0 ;
if ( ( httpd_query [ 0 ] = = 0 ) | | ( httpd_query [ 0 ] = = ' ' ) ) {
newgame = 1 ;
for ( i = 0 ; i < 9 ; i + + ) httpd_query [ i ] = ' b ' ;
} else for ( i = 0 ; i < 9 ; i + + ) {
if ( ! ( ( httpd_query [ i ] = = ' x ' ) | | ( httpd_query [ i ] = = ' o ' ) ) ) {
httpd_query [ i ] = ' b ' ;
}
}
/* I am x if I move first, or if number of x's is <= number of o's */
for ( nx = 0 , no = 0 , i = 0 ; i < 9 ; i + + ) {
if ( httpd_query [ i ] = = ' x ' ) nx + + ;
else if ( httpd_query [ i ] = = ' o ' ) no + + ;
}
if ( ( no > = nx ) & & ! newgame ) { me = ' x ' ; you = ' o ' ; }
else { me = ' o ' ; you = ' x ' ; } ;
iwon = whowon ( me ) ;
uwon = whowon ( you ) ;
if ( newgame | | iwon | | uwon | | ( nx + no ) > = 9 ) goto showboard ;
/* Make a move */
if ( me = = ' x ' ) nx + + ; else no + + ;
if ( httpd_query [ 4 ] = = ' b ' ) httpd_query [ 4 ] = me ;
else if ( httpd_query [ 0 ] = = ' b ' ) httpd_query [ 0 ] = me ;
else if ( httpd_query [ 2 ] = = ' b ' ) httpd_query [ 2 ] = me ;
else if ( httpd_query [ 6 ] = = ' b ' ) httpd_query [ 6 ] = me ;
else if ( httpd_query [ 8 ] = = ' b ' ) httpd_query [ 8 ] = me ;
else if ( httpd_query [ 1 ] = = ' b ' ) httpd_query [ 1 ] = me ;
else if ( httpd_query [ 3 ] = = ' b ' ) httpd_query [ 3 ] = me ;
else if ( httpd_query [ 5 ] = = ' b ' ) httpd_query [ 5 ] = me ;
else if ( httpd_query [ 7 ] = = ' b ' ) httpd_query [ 7 ] = me ;
/* Did I win? */
iwon = whowon ( me ) ;
showboard :
for ( i = 0 ; i < 9 ; i + + ) {
if ( i = = 4 ) locater = ' c ' ;
else if ( ( i = = 1 ) | | ( i = = 7 ) ) locater = ' v ' ;
else if ( ( i = = 3 ) | | ( i = = 5 ) ) locater = ' h ' ;
else locater = 0 ;
if ( ( httpd_query [ i ] = = ' b ' ) & & ( ! ( iwon | | uwon ) ) ) {
httpd_query [ i ] = you ;
numprinted + = snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , " <a href=ttt.shtml?%s><img src=b " , httpd_query ) ;
httpd_query [ i ] = ' b ' ;
} else {
numprinted + = snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , " <img src=%c " , httpd_query [ i ] ) ;
}
if ( locater ) {
numprinted + = snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , " %c " , locater ) ;
}
numprinted + = snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , " .gif> " ) ;
if ( httpd_query [ i ] = = ' b ' ) {
numprinted + = snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , " </a> " ) ;
}
if ( ( i = = 2 ) | | ( i = = 5 ) ) {
numprinted + = snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , " <br> " ) ;
}
}
if ( ( nx > ( no + 1 ) ) | | ( no > ( nx + 1 ) ) ) {
numprinted + = snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , " <br><h2>You cheated!!!</h2> " ) ;
} else if ( iwon ) {
numprinted + = snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , " <br><h2>I Win!</h2> " ) ;
} else if ( uwon ) {
numprinted + = snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , " <br><h2>You Win!</h2> " ) ;
} else if ( ( nx + no ) = = 9 ) {
numprinted + = snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , " <br><h2>Draw!</h2> " ) ;
}
if ( iwon | | uwon | | ( ( nx + no ) = = 9 ) ) {
numprinted + = snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , " <br><a href=ttt.shtml>Play Again</a> " ) ;
}
/* If new game give option for me to start */
if ( ( nx = = 0 ) & & ( no = = 0 ) ) {
numprinted + = snprintf ( ( char * ) uip_appdata + numprinted , uip_mss ( ) - numprinted , " <br><br><a href=ttt.shtml?bbbbbbbb>Let computer move first</a> " ) ;
}
httpd_query [ 0 ] = 0 ; //zero the query string
return numprinted ;
}
/*---------------------------------------------------------------------------*/
static
PT_THREAD ( tictactoe ( struct httpd_state * s , char * ptr ) )
{
PSOCK_BEGIN ( & s - > sout ) ;
PSOCK_GENERATOR_SEND ( & s - > sout , make_tictactoe , s ) ;
PSOCK_END ( & s - > sout ) ;
}
# endif /* WEBSERVER_CONF_TICTACTOE */
/*---------------------------------------------------------------------------*/
void
httpd_cgi_add ( struct httpd_cgi_call * c )
{
struct httpd_cgi_call * l ;
c - > next = NULL ;
if ( calls = = NULL ) {
calls = c ;
} else {
for ( l = calls ; l - > next ! = NULL ; l = l - > next ) ;
l - > next = c ;
}
}
/*---------------------------------------------------------------------------*/
# if WEBSERVER_CONF_HEADER
HTTPD_CGI_CALL ( hdr , hdr_name , header ) ;
# endif
# if WEBSERVER_CONF_FILESTATS
HTTPD_CGI_CALL ( file , file_name , file_stats ) ;
# endif
# if WEBSERVER_CONF_TCPSTATS
HTTPD_CGI_CALL ( tcp , tcp_name , tcp_stats ) ;
# endif
# if WEBSERVER_CONF_PROCESSES
HTTPD_CGI_CALL ( proc , proc_name , processes ) ;
# endif
# if WEBSERVER_CONF_ADDRESSES
HTTPD_CGI_CALL ( adrs , adrs_name , addresses ) ;
# endif
# if WEBSERVER_CONF_NEIGHBORS
HTTPD_CGI_CALL ( nbrs , nbrs_name , neighbors ) ;
# endif
# if WEBSERVER_CONF_ROUTES
HTTPD_CGI_CALL ( rtes , rtes_name , routes ) ;
# endif
# if WEBSERVER_CONF_SENSORS
HTTPD_CGI_CALL ( sensors , sensor_name , sensor_readings ) ;
# endif
# if WEBSERVER_CONF_TICTACTOE
HTTPD_CGI_CALL ( tictac , tictac_name , tictactoe ) ;
# endif
void
httpd_cgi_init ( void )
{
# if WEBSERVER_CONF_HEADER
httpd_cgi_add ( & hdr ) ;
# endif
# if WEBSERVER_CONF_FILESTATS
httpd_cgi_add ( & file ) ;
# endif
# if WEBSERVER_CONF_TCPSTATS
httpd_cgi_add ( & tcp ) ;
# endif
# if WEBSERVER_CONF_PROCESSES
httpd_cgi_add ( & proc ) ;
# endif
# if WEBSERVER_CONF_ADDRESSES
httpd_cgi_add ( & adrs ) ;
# endif
# if WEBSERVER_CONF_NEIGHBORS
httpd_cgi_add ( & nbrs ) ;
# endif
# if WEBSERVER_CONF_ROUTES
httpd_cgi_add ( & rtes ) ;
# endif
# if WEBSERVER_CONF_SENSORS
httpd_cgi_add ( & sensors ) ;
# endif
# if WEBSERVER_CONF_TICTACTOE
httpd_cgi_add ( & tictac ) ;
# endif
}
# endif /* WEBSERVER_CONF_CGI */
# if WEBSERVER_CONF_PRINTADDR
/*---------------------------------------------------------------------------*/
uint8_t httpd_cgi_sprint_ip6 ( uip_ip6addr_t addr , char * result )
{
unsigned char zerocnt = 0 ;
unsigned char numprinted = 0 ;
char * starting = result ;
unsigned char i = 0 ;
while ( numprinted < 8 )
{
//Address is zero, have we used our ability to
//replace a bunch with : yet?
if ( ( addr . u16 [ i ] = = 0 ) & & ( zerocnt = = 0 ) )
{
//How mant zeros?
zerocnt = 0 ;
while ( addr . u16 [ zerocnt + i ] = = 0 )
zerocnt + + ;
//just one, don't waste our zeros...
if ( zerocnt = = 1 )
{
* result + + = ' 0 ' ;
numprinted + + ;
break ;
}
//Cool - can replace a bunch of zeros
i + = zerocnt ;
numprinted + = zerocnt ;
}
//Normal address, just print it
else
{
result + = sprintf ( result , " %x " , ( unsigned int ) ( uip_ntohs ( addr . u16 [ i ] ) ) ) ;
i + + ;
numprinted + + ;
}
//Don't print : on last one
if ( numprinted ! = 8 )
* result + + = ' : ' ;
}
return ( result - starting ) ;
}
# endif /* WEBSERVER_CONF_PRINTADDR */