head	1.2;
access;
symbols
	caudium_1_3_15:1.1
	caudium_1_3_14:1.1
	caudium_1_3_13:1.1
	caudium_1_3_12:1.1
	caudium_1_3_11:1.1
	caudium_1_3_10:1.1
	caudium_1_3_9:1.1
	caudium_1_3_8:1.1
	caudium_1_3_7:1.1
	caudium_1_3_6:1.1
	caudium_1_3_5:1.1
	caudium_1_3_4:1.1
	caudium_1_2_9:1.1
	caudium_1_2_8:1.1
	caudium_1_3_3:1.1
	caudium_1_2_7:1.1
	caudium_1_2_6:1.1
	Caudium_1_3_2:1.1
	caudium_1_2_5:1.1
	caudium_1_2_4:1.1
	caudium_1_2_3:1.1
	caudium_1_2_2:1.1
	caudium_1_3_1:1.1
	caudium_1_2_1:1.1
	stable_1_2:1.1.0.2
	caudium_1_1_5:1.1
	caudium_1_1_4:1.1
	caudium_1_1_3:1.1
	caudium_1_1_2:1.1;
locks; strict;
comment	@# @;


1.2
date	2003.02.24.17.13.57;	author kiwi;	state dead;
branches;
next	1.1;

1.1
date	2001.01.21.21.16.34;	author kiwi;	state Exp;
branches
	1.1.2.1;
next	;

1.1.2.1
date	2002.07.29.14.12.16;	author kiwi;	state dead;
branches;
next	;


desc
@@


1.2
log
@Removing Headline module. It is really a pain in the ... to maintain...
@
text
@/* Site-specific code. Here parsing and more of this site is.
 * $Id: src,v 1.1 2001/01/21 21:16:34 kiwi Exp $
 *
 * Written by David Hedbor <david@@hedbor.org>.
 *
 */

import spider;
import "..";

#include "../base.pike"

constant site = "YourTown CLN";
constant url  = "http://cln.open.ac.uk/";
constant path = "ultramode.txt";
constant full_names =
({ "title", "url", "time", "author", "department", "section",
   "comments", "type", "image"});
constant names = ({ "title", "author", "section", "time", "comments" });
constant titles = ({ "Title", "Author", "Topic", "Date", "#C" });

constant sub = "Other";
array headlines;

private static void parse_reply(string data)
{
  foreach((data / "\n%%\n")[1..], string s)
  {
    array lines = s / "\n";
    if(sizeof(lines) == sizeof(full_names)) {
      lines[-1] = sprintf("%simages/topics/%s", url, lines[-1]);
      headlines += ({ mkmapping(full_names, lines) });
    }
  }
}


string entry2txt(mapping hl)
{
  return sprintf("Title:    %s\n"
		 "URL:      %s\n"
		 "Date:     %s\n"
		 "Author:   %s\n"
		 "\n",
		 hl->title||"None", 
		 HTTPFetcher()->encode(hl->url||""),
		 hl->time, hl->author||"",
		 );
}


@


1.1
log
@Adding Xavier's port of David's Headlines pmod.
@
text
@d2 1
a2 1
 * $Id: YourTownCLN.pike,v 1.1 1999/09/15 18:57:54 neotron Exp $
@


1.1.2.1
log
@Removing old things.
@
text
@d2 1
a2 1
 * $Id: src,v 1.1 2001/01/21 21:16:34 kiwi Exp $
@

