# use_perl.site -- based on the slashdot site.

URL:		http://use.perl.org/index.pl?light=1&noboxes=1&noicons=1
Name:		use Perl
Description:	All The Perl That's P7L to E5T and R4T
Levels:		2
MinPages: 2

ContentsStart:	<HTML>
ContentsEnd:	</HTML>
ContentsDiff: 1

StoryURL:	http://use.perl.org/article.*
StoryStart:	<A href="submit.pl">Submit Story</A> \]</P>
StoryEnd:       <FORM METHOD="GET" ACTION="http://use.perl.org/search.pl">

# strip out the "login" and "related links" tables, they're irrelevant offline!
# added Feb  2 2000 jm 
#
StoryHTMLPreProcess: {
  s,<H3>use Perl Login</H3>.*?<B>The Fine Print:</B>,</FONT></TD></TR></TABLE>,s;
}

URLProcess: {
  # fix the URL; trim out all comment settings and use our own.
  s{^(http://use.perl.org/article.pl\?sid=\d+/\d+/\d+/\d+).*}
        {$1\&light=1\&noboxes=1\&noicons=1\&mode=nested\&threshold=3}g;
        
  if (!m,^http://use.perl.org/index.pl.light=1\&noboxes=1\&noicons=1,
        && !/mode=nested\&threshold=3/)
  {
    undef $_;           # has to include these two; block it if it does not
  }
}

# skip URLs that have been archived
StorySkipURL:   http://use.perl.org/interviews/\d+/\d+/\d+/\d+.shtml

