/*********************************************
 * vim:sw=8:ts=8:si:et
 * To use the above modeline in vim you must have "set modeline" in your .vimrc
 * Author: Guido Socher
 * Copyright: GPL V2
 *
 * Tuxgraphics AVR webserver/ethernet board
 *
 * http://tuxgraphics.org/electronics/
 * Chip type           : Atmega88/168/328 with ENC28J60
 *
 *
 * MODYFIKACJE: Mirosław Kardaś --- ATmega32
 *
 *********************************************/
#include <avr/io.h>
#include <avr/interrupt.h>
#include <stdlib.h>
#include <string.h>
#include "ip_arp_udp_tcp.h"
#include "enc28j60.h"
#include "util/delay.h"
#include "net.h"

// ustalamy adres MAC
static uint8_t mymac[6] = {0x54,0x55,0x58,0x10,0x00,0x29};
// ustalamy adres IP urządzenia
static uint8_t myip[4] = {192,168,0,110};

// server listen port for www
#define MYWWWPORT 80

#define BUFFER_SIZE 1910
static uint8_t buf[BUFFER_SIZE+1];

uint16_t http200ok(void)
{
        return(fill_tcp_data_p(buf,0,PSTR("HTTP/1.0 200 OK\r\nContent-Type: text/html\r\nPragma: no-cache\r\n\r\n")));
}

// prepare the webpage by writing the data to the tcp send buffer
uint16_t print_webpage(uint8_t *buf)
{
        uint16_t plen;
        plen=http200ok();
        plen=fill_tcp_data_p(buf,plen,PSTR("<pre>"));
        plen=fill_tcp_data_p(buf,plen,PSTR("<meta charset='Windows-1250' />"));

        plen=fill_tcp_data_p(buf,plen,PSTR("<center><script src='http://www.gmodules.com/ig/ifr?url=http://www.google.com/ig/modules/translatemypage.xml&up_source_language=pl&w=160&h=60&title=&border=&output=js' width=50></script></center>"));

        plen=fill_tcp_data_p(buf,plen,PSTR("<center><font color='black' size='5'><b>Microserwer www został ''postawiony'' na układach ATmega32A oraz ENC28J60.</b></center>"));
        plen=fill_tcp_data_p(buf,plen,PSTR("<center><img src=http://www.jaglarz.com/ENCe_pence.jpg></center>"));
        plen=fill_tcp_data_p(buf,plen,PSTR("<br><center><b>Strona była już odwiedzana 7147 razy.</b></font></center>"));

        plen=fill_tcp_data_p(buf,plen,PSTR("<center><font color='black' size='5'><b>Projekt został wykonany na podstawie książki Mirosława Kardasia.</b></font>"));
        plen=fill_tcp_data_p(buf,plen,PSTR("<a href='http://www.atnel.pl/mikrokontrolery-avr-jezyk-c.html' target=_blank>"));
        plen=fill_tcp_data_p(buf,plen,PSTR("<img src='http://www.atnel.pl/Upload/image/ksiazka1_plus_DVD_MINI.png'  hspace='0' align='center' border='0'></a></center>"));
        plen=fill_tcp_data_p(buf,plen,PSTR("<center><font color='black' size='4'>Opis budowy został przedstawiony </font><a href=http://www.jaglarz.com/forum/>tutaj.</a></center><hr>"));


        plen=fill_tcp_data_p(buf,plen,PSTR("<br><center><a href='http://www.jaglarz.com/ja/elektronika/eagle/biblioteki.php' target='_blank' fullscreen='yes'>"));
        plen=fill_tcp_data_p(buf,plen,PSTR("<img src='http://www.jaglarz.com/ja/elektronika/eagle/biblioeagle.jpg' border='0'></a></center>"));

        plen=fill_tcp_data_p(buf,plen,PSTR("<br><center><a href='http://www.jaglarz.com/ja/elektronika/sklepy.htm' target='_blank' fullscreen='yes'>"));
        plen=fill_tcp_data_p(buf,plen,PSTR("<img src='http://www.jaglarz.com/ja/elektronika/sklepy.jpg' border='0'></a></center>"));

        //plen=fill_tcp_data_p(buf,plen,PSTR("<pre>"));
        //plen=fill_tcp_data_p(buf,plen,PSTR("<meta charset='Windows-1250' />"));
        //plen=fill_tcp_data_p(buf,plen,PSTR("<center><img src=https://dl.dropbox.com/u/64842703/Dropbox.png></center>"));
        //plen=fill_tcp_data_p(buf,plen,PSTR("<center><font color='black' size='5'><b>Microserwer www został ''postawiony'' na układach ATmega32A oraz ENC28J60.</b></font></center>"));
        //plen=fill_tcp_data_p(buf,plen,PSTR("<br style=clear:left;><center><img src=https://fbcdn-sphotos-f-a.akamaihd.net/hphotos-ak-snc7/395146_3936194044952_393153430_n.jpg></center>"));
        //plen=fill_tcp_data_p(buf,plen,PSTR("<center><font color='black' size='5'><b>Projekt został wykonany na podstawie książki Mirosława Kardasia.</b></font>"));
        //plen=fill_tcp_data_p(buf,plen,PSTR("<a href='http://www.atnel.pl/mikrokontrolery-avr-jezyk-c.html' target=_blank>"));
        //plen=fill_tcp_data_p(buf,plen,PSTR("<img src='http://www.atnel.pl/Upload/image/ksiazka1_plus_DVD_MINI.png'  hspace='0' align='center' border='0'></a></center>"));
        //plen=fill_tcp_data_p(buf,plen,PSTR("<center><font color='black' size='4'>Opis budowy został przedstawiony </font><a href=http://www.jaglarz.com/forum/>tutaj.</a></center><hr>"));
        //plen=fill_tcp_data_p(buf,plen,PSTR("<br><center><a href='http://www.jaglarz.com/ja/elektronika/eagle/biblioteki.php' target='_blank' fullscreen='yes'>"));
        //plen=fill_tcp_data_p(buf,plen,PSTR("<img src='http://www.jaglarz.com/ja/elektronika/eagle/biblioeagle.jpg' border='0'></a></center>"));
		//plen=fill_tcp_data_p(buf,plen,PSTR("<br><center><a href='http://www.jaglarz.com/ja/elektronika/sklepy.htm' target='_blank' fullscreen='yes'>"));
        //plen=fill_tcp_data_p(buf,plen,PSTR("<img src='http://www.jaglarz.com/ja/elektronika/sklepy.jpg' border='0'></a></center>"));



        plen=fill_tcp_data_p(buf,plen,PSTR("</pre>\n"));
        return(plen);
}




int main(void){
        uint16_t dat_p;

        // set the clock speed to 8MHz
        // set the clock prescaler. First write CLKPCE to enable setting of clock the
        // next four instructions.
//        CLKPR=(1<<CLKPCE);
//        CLKPR=0; // 8 MHZ
//        _delay_loop_1(0); // 60us

        //initialize the hardware driver for the enc28j60
        enc28j60Init(mymac);
//        enc28j60clkout(2); // change clkout from 6.25MHz to 12.5MHz
//        _delay_loop_1(0); // 60us
        enc28j60PhyWrite(PHLCON,0x476);

        //init the ethernet/ip layer:
        init_ip_arp_udp_tcp(mymac,myip,MYWWWPORT);

        sei();

        while(1){
                // read packet, handle ping and wait for a tcp packet:
                dat_p=packetloop_icmp_tcp(buf,enc28j60PacketReceive(BUFFER_SIZE, buf));

                /* dat_p will be unequal to zero if there is a valid
                 * http get */
                if(dat_p==0){
                        // no http request
                        continue;
                }
                // tcp port 80 begin
                if (strncmp("GET ",(char *)&(buf[dat_p]),4)!=0){
                        // head, post and other methods:
                        dat_p=http200ok();
                        dat_p=fill_tcp_data_p(buf,dat_p,PSTR("<h1>200 OK</h1>"));
                        goto SENDTCP;
                }
                // just one web page in the "root directory" of the web server
                if (strncmp("/ ",(char *)&(buf[dat_p+4]),2)==0){
						dat_p=print_webpage(buf);
                        goto SENDTCP;
                }else{
                        dat_p=fill_tcp_data_p(buf,0,PSTR("HTTP/1.0 401 Unauthorized\r\nContent-Type: text/html\r\n\r\n<h1>401 Unauthorized</h1>"));
                        goto SENDTCP;
                }
SENDTCP:
                www_server_reply(buf,dat_p); // send web page data
                // tcp port 80 end
        }
        return (0);
}