/***************************************
  $Header: /home/amb/CVS/wwwoffle/src/info.c,v 1.28 2007-09-29 18:54:08 amb Exp $

  WWWOFFLE - World Wide Web Offline Explorer - Version 2.9d.
  Generate information about the contents of the web pages that are cached in the system.
  ******************/ /******************
  Written by Andrew M. Bishop

  This file Copyright 2002-2007 Andrew M. Bishop
  It may be distributed under the GNU Public License, version 2, or
  any higher version.  See section COPYING of the GNU Public license
  for conditions under which this file may be redistributed.
  ***************************************/


#include "autoconfig.h"

#include <stdlib.h>
#include <string.h>

#include <sys/types.h>
#include <unistd.h>

#if TIME_WITH_SYS_TIME
# include <sys/time.h>
# include <time.h>
#else
# if HAVE_SYS_TIME_H
#  include <sys/time.h>
# else
#  include <time.h>
# endif
#endif

#include "wwwoffle.h"
#include "io.h"
#include "misc.h"
#include "config.h"
#include "document.h"


static void InfoCachedPage(int fd,URL *Url,int which);

static void InfoCached(int fd,int spool,URL *Url);
static void InfoContents(int fd,int spool,URL *Url);
static void output_content(int fd,char *type,URL **url);
static int sort_alpha(URL **a,URL **b);
static void InfoSource(int fd,int spool,URL *Url);

static void InfoRequestPage(int fd,URL *Url);
static void InfoRequestedPage(int fd,URL *Url,Header *request_head,/*@null@*/ Body *request_body);


/*++++++++++++++++++++++++++++++++++++++
  Display some information about the spooled copy of the URL.

  int fd The file descriptor to write the output to.

  URL *Url The URL that was requested for the info.

  Header *request_head The header of the original request.

  Body *request_body The body of the original request.
  ++++++++++++++++++++++++++++++++++++++*/

void InfoPage(int fd,URL *Url,Header *request_head,Body *request_body)
{
 if(!IsLocalHost(Url))
    InfoRequestedPage(fd,Url,request_head,request_body);
 else if(!strcmp(Url->path,"/info/request") && Url->args)
    InfoRequestPage(fd,Url);
 else if(!strcmp(Url->path,"/info/url") && Url->args)
    InfoCachedPage(fd,Url,0);
 else if(!strcmp(Url->path,"/info/content") && Url->args)
    InfoCachedPage(fd,Url,1);
 else if(!strcmp(Url->path,"/info/source") && Url->args)
    InfoCachedPage(fd,Url,2);
 else
    HTMLMessage(fd,404,"WWWOFFLE Illegal Info Page",NULL,"InfoIllegal",
                "url",Url->pathp,
                NULL);
}


/*++++++++++++++++++++++++++++++++++++++
  Display some information about the spooled copy of the URL.

  int fd The file descriptor to write the output to.

  URL *Url The URL that was requested for the info.

  int which Selects which of the types of information that is requested.
  ++++++++++++++++++++++++++++++++++++++*/

static void InfoCachedPage(int fd,URL *Url,int which)
{
 int spool;
 URL *refUrl;
 char *refurl=NULL;

 refurl=URLDecodeFormArgs(Url->args);

 refUrl=SplitURL(refurl);

 spool=OpenWebpageSpoolFile(1,refUrl);

 if(spool!=-1)
    init_io(spool);

 /* Check if the file is compressed in the cache and use uncompression if it is. */

#if USE_ZLIB
 if(spool!=-1)
   {
    Header *spooled_head=NULL;

    ParseReply(spool,&spooled_head);

    lseek(spool,(off_t)0,SEEK_SET);
    reinit_io(spool);

    if(spooled_head)
      {
       if(GetHeader2(spooled_head,"Pragma","wwwoffle-compressed"))
          configure_io_zlib(spool,2,-1);

       FreeHeader(spooled_head);
      }
   }
#endif

 if(which==0)
    InfoCached(fd,spool,refUrl);
 else if(which==1)
    InfoContents(fd,spool,refUrl);
 else if(which==2)
    InfoSource(fd,spool,refUrl);

 if(spool!=-1)
   {
    finish_io(spool);
    close(spool);
   }

 free(refurl);
 FreeURL(refUrl);
}


/*++++++++++++++++++++++++++++++++++++++
  Display the cache information about this page.

  int fd The file descriptor to write to.

  int spool The spooled page file descriptor.

  URL *Url The URL of the spooled page.
  ++++++++++++++++++++++++++++++++++++++*/

static void InfoCached(int fd,int spool,URL *Url)
{
 char *head1=NULL,*head2=NULL;
 Header *spooled_head=NULL;

 if(spool!=-1)
    ParseReply(spool,&spooled_head);

 if(spooled_head)
   {
    if(GetHeader2(spooled_head,"Pragma","wwwoffle-compressed"))
      {
       RemoveFromHeader2(spooled_head,"Pragma","wwwoffle-compressed");
       RemoveFromHeader(spooled_head,"Content-Encoding");
      }

    head1=HeaderString(spooled_head);
    head1[strlen(head1)-4]=0;

    ModifyReply(Url,spooled_head);
    RemoveFromHeader(spooled_head,"Content-Length");

    head2=HeaderString(spooled_head);
    head2[strlen(head2)-4]=0;
   }

 HTMLMessage(fd,200,"WWWOFFLE Info Cached",NULL,"InfoCached",
             "url",Url->name,
             "proto",Url->proto,
             "hostport",Url->hostport,
             "cached",spool==-1?"":"yes",
             "head1",head1,
             "head2",head2,
             NULL);

 if(spooled_head)
   {
    free(head1);
    free(head2);
    FreeHeader(spooled_head);
   }
}


/*++++++++++++++++++++++++++++++++++++++
  Display the information about the page contents.

  int fd The file descriptor to write to.

  int spool The spooled page file descriptor.

  URL *Url The URL of the spooled page.
  ++++++++++++++++++++++++++++++++++++++*/

static void InfoContents(int fd,int spool,URL *Url)
{
 HTMLMessageHead(fd,200,"WWWOFFLE Info Cached",
                 NULL);
 HTMLMessageBody(fd,"InfoContents-Head",
                 "url",Url->name,
                 "cached",spool==-1?"":"yes",
                 NULL);

 if(spool!=-1)
   {
    URL **list,*refresh;

    ParseDocument(spool,Url,1);

    if((refresh=GetReference(RefMetaRefresh)))
      {
       URL *refresh_list[2];

       refresh_list[0]=refresh;
       refresh_list[1]=NULL;

       output_content(fd,"Refresh",refresh_list);
      }

    if((list=GetReferences(RefStyleSheet)))
       output_content(fd,"StyleSheet",list);

    if((list=GetReferences(RefImage)))
       output_content(fd,"Image",list);

    if((list=GetReferences(RefFrame)))
       output_content(fd,"Frame",list);

    if((list=GetReferences(RefIFrame)))
       output_content(fd,"IFrame",list);

    if((list=GetReferences(RefScript)))
       output_content(fd,"Script",list);

    if((list=GetReferences(RefObject)))
       output_content(fd,"Object",list);

    if((list=GetReferences(RefInlineObject)))
       output_content(fd,"Object",list);

    if((list=GetReferences(RefLink)))
       output_content(fd,"Link",list);

    ResetReferences();
   }

 HTMLMessageBody(fd,"InfoContents-Tail",
                 NULL);
}


/*++++++++++++++++++++++++++++++++++++++
  Output the part of the web page for one item of content.

  int fd The file descriptor to write to.

  char *type The type of the content.

  URL **url The list of URLs for the type of content.
  ++++++++++++++++++++++++++++++++++++++*/

static void output_content(int fd,char *type,URL **url)
{
 unsigned i,count;

 for(count=0;url[count];count++)
    ;

 qsort(url,count,sizeof(URL*),(int (*)(const void*,const void*))sort_alpha);

 for(i=0;i<count;i++)
   {
    int dontget,cached,outgoing;
    URL *aliasUrl;

    aliasUrl=GetAliasURL(url[i]);

    if(aliasUrl)
      {
       dontget=ConfigBooleanMatchURL(DontGet,aliasUrl);
       cached=ExistsWebpageSpoolFile(aliasUrl) || IsLocalNetHost(aliasUrl->host);
       outgoing=ExistsOutgoingSpoolFile(aliasUrl);

       FreeURL(aliasUrl);
      }
    else
      {
       dontget=ConfigBooleanMatchURL(DontGet,url[i]);
       cached=ExistsWebpageSpoolFile(url[i]) || IsLocalNetHost(url[i]->host);
       outgoing=ExistsOutgoingSpoolFile(url[i]);
      }

    HTMLMessageBody(fd,"InfoContents-Body",
                    "type",type,
                    "refurl",url[i]->name,
                    "status",dontget?"X":cached?"+":outgoing?"~":"-",
                    NULL);
   }
}


/*++++++++++++++++++++++++++++++++++++++
  Used to sort the files into alphabetical order.

  int sort_alpha Returns the comparison of the pointers to strings.

  URL **a A pointer to the first URL.

  URL **b A pointer to the second URL.
  ++++++++++++++++++++++++++++++++++++++*/

static int sort_alpha(URL **a,URL **b)
{
 return(strcmp((*a)->file,(*b)->file));
}


/*++++++++++++++++++++++++++++++++++++++
  Display the source HTML of the page.

  int fd The file descriptor to write to.

  int spool The spooled page file descriptor.

  URL *Url The URL of the spooled page.
  ++++++++++++++++++++++++++++++++++++++*/

static void InfoSource(int fd,int spool,URL *Url)
{
 int text=0;
 Header *spooled_head=NULL;

 if(spool!=-1)
    ParseReply(spool,&spooled_head);

 if(spooled_head)
   {
    char *type=GetHeader(spooled_head,"Content-Type");

    if(!type)
       text=0;
    else if(!strncmp(type,"text/",(size_t)5))
       text=1;
    else if(!strncmp(type,"application/x-javascript",(size_t)24))
       text=1;
    else if(!strncmp(type,"application/xhtml",(size_t)17))
       text=1;
    else if(!strncmp(type,"application/xml",(size_t)15))
       text=1;

    FreeHeader(spooled_head);
   }

 HTMLMessageHead(fd,200,"WWWOFFLE Info Cached",
                 NULL);
 HTMLMessageBody(fd,"InfoSource-Head",
                 "url",Url->name,
                 "cached",spool==-1?"":"yes",
                 "text",text?"yes":"no",
                 NULL);

 if(text && spool!=-1)
   {
    int n;
    char buffer[IO_BUFFER_SIZE+1];

    while((n=read_data(spool,buffer,IO_BUFFER_SIZE))>0)
      {
       char *html;

       buffer[n]=0;
       html=HTMLString(buffer,0);

       write_string(fd,html);

       free(html);
      }
   }

 HTMLMessageBody(fd,"InfoSource-Tail",
                 NULL);
}


/*++++++++++++++++++++++++++++++++++++++
  Display some information about the request that was sent for the URL.

  int fd The file descriptor to write the output to.

  URL *Url The URL that was requested.
  ++++++++++++++++++++++++++++++++++++++*/

static void InfoRequestPage(int fd,URL *Url)
{
 char *url=NULL;

 url=URLDecodeFormArgs(Url->args);

 HTMLMessage(fd,200,"WWWOFFLE Info Request",
             NULL,
             "InfoRequest",
             "url",url,
             NULL);

 free(url);
}


/*++++++++++++++++++++++++++++++++++++++
  Display some information about the request that was sent for the URL.

  int fd The file descriptor to write the output to.

  URL *Url The URL that was requested.

  Header *request_head The header of the original request.

  Body *request_body The body of the original request.
  ++++++++++++++++++++++++++++++++++++++*/

static void InfoRequestedPage(int fd,URL *Url,Header *request_head,Body *request_body)
{
 char *head1,*head2;

 head1=HeaderString(request_head);
 head1[strlen(head1)-4]=0;

 ModifyRequest(Url,request_head);

 head2=HeaderString(request_head);
 head2[strlen(head2)-4]=0;

 HTMLMessageHead(fd,200,"WWWOFFLE Info Requested",
                 "Cache-Control","no-cache",
                 "Pragma","no-cache",
                 NULL);

 HTMLMessageBody(fd,"InfoRequested",
                 "url",Url->name,
                 "head1",head1,
                 "head2",head2,
                 "anybody",request_body?"yes":"",
                 "body",request_body?request_body->content:NULL,
                 NULL);

 free(head1);
 free(head2);
}

.