Menu
▾
▴
popfile-commit — CVS commit list messages
You can subscribe to this list here.
| 2003 |
Jan
|
Feb
(160) |
Mar
(119) |
Apr
(111) |
May
(118) |
Jun
(101) |
Jul
(304) |
Aug
(113) |
Sep
(140) |
Oct
(137) |
Nov
(87) |
Dec
(122) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2004 |
Jan
(78) |
Feb
(125) |
Mar
(131) |
Apr
(59) |
May
(121) |
Jun
(166) |
Jul
(150) |
Aug
(137) |
Sep
(73) |
Oct
(58) |
Nov
(27) |
Dec
(60) |
| 2005 |
Jan
(131) |
Feb
(84) |
Mar
(36) |
Apr
(8) |
May
(28) |
Jun
(20) |
Jul
(10) |
Aug
(72) |
Sep
(76) |
Oct
(34) |
Nov
(3) |
Dec
(29) |
| 2006 |
Jan
(13) |
Feb
(92) |
Mar
(7) |
Apr
(1) |
May
(1) |
Jun
(2) |
Jul
(4) |
Aug
(17) |
Sep
(5) |
Oct
(2) |
Nov
(8) |
Dec
(12) |
| 2007 |
Jan
(28) |
Feb
(15) |
Mar
|
Apr
|
May
(8) |
Jun
(4) |
Jul
(5) |
Aug
(8) |
Sep
(20) |
Oct
(38) |
Nov
(65) |
Dec
(92) |
| 2008 |
Jan
(21) |
Feb
(56) |
Mar
(27) |
Apr
(174) |
May
(25) |
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|
From: <ssc...@us...> - 2003-03-18 02:24:30
|
Update of /cvsroot/popfile/engine/Proxy
In directory sc8-pr-cvs1:/tmp/cvs-serv14595
Modified Files:
Proxy.pm
Log Message:
another stupid syntax error
Index: Proxy.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/Proxy.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Proxy.pm 18 Mar 2003 00:18:07 -0000 1.6
--- Proxy.pm 18 Mar 2003 02:24:26 -0000 1.7
***************
*** 339,344 ****
last if ( $self->{alive_} == 0 );
! print $client $_;
! #$self->tee_($client, $_);
# The termination has to be a single line with exactly a dot on it and nothing
--- 339,344 ----
last if ( $self->{alive_} == 0 );
! #print $client $_;
! $self->tee_($client, $_);
# The termination has to be a single line with exactly a dot on it and nothing
***************
*** 420,424 ****
if ( $mail->connected ) {
my $selector = new IO::Select( $mail );
! my ($ready) = $selector->can_read( (!$null_resp,$self->global_config_( 'timeout' ),.5) );
if ( ( defined( $ready ) ) && ( $ready == $mail ) ) {
--- 420,424 ----
if ( $mail->connected ) {
my $selector = new IO::Select( $mail );
! my ($ready) = $selector->can_read( (!$null_resp?$self->global_config_( 'timeout' ):.5) );
if ( ( defined( $ready ) ) && ( $ready == $mail ) ) {
|
|
From: <ssc...@us...> - 2003-03-18 01:55:22
|
Update of /cvsroot/popfile/engine/Proxy
In directory sc8-pr-cvs1:/tmp/cvs-serv1952
Modified Files:
NNTP.pm
Log Message:
fixed remote login, syntax now [username@]host[:port]
Index: NNTP.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/NNTP.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** NNTP.pm 18 Mar 2003 00:48:25 -0000 1.3
--- NNTP.pm 18 Mar 2003 01:55:19 -0000 1.4
***************
*** 62,66 ****
# The separator within the NNTP user name is :
! $self->config_( 'separator', ':');
return 1;
--- 62,66 ----
# The separator within the NNTP user name is :
! $self->config_( 'separator', '@');
return 1;
***************
*** 122,134 ****
if ($connection_state eq 'username needed') {
! my $user_command = '^ *AUTHINFO USER (.+)(:(\d+))?(' . $self->config_( 'separator' ) . '(.+))?';
! if ( $command =~ /$user_command/i ) {
! if ( $1 ne '' ) {
! if ( $news = $self->verify_connected_( $news, $client, $1, $3 || 119 ) ) {
! if (defined $5) {
# Pass through the AUTHINFO command with the actual user name for this server,
# if one is defined, and send the reply straight to the client
! $self->echo_response_($news, $client, 'AUTHINFO USER ' . $5 );
$connection_state = "password needed";
} else {
--- 122,139 ----
if ($connection_state eq 'username needed') {
! my $user_command = '^ *AUTHINFO USER ((.+)\\' . $self->config_('separator') . ')?([^\:]+)(:(.*))?';
! if ( $command =~ /$user_command/i ) {
!
! my $username = $2;
! my $server = $3;
! my $port = $5;
!
! if ( $server ne '' ) {
! if ( $news = $self->verify_connected_( $news, $client, $server, $port || 119 ) ) {
! if (defined $username) {
# Pass through the AUTHINFO command with the actual user name for this server,
# if one is defined, and send the reply straight to the client
! $self->get_response_($news, $client, 'AUTHINFO USER ' . $username );
$connection_state = "password needed";
} else {
***************
*** 136,142 ****
$self->tee_($client, "381 password$eol");
$connection_state = "ignore password";
! }
!
!
} else {
--- 141,145 ----
$self->tee_($client, "381 password$eol");
$connection_state = "ignore password";
! }
} else {
***************
*** 161,166 ****
if ($command =~ /^ *AUTHINFO PASS (.*)/i) {
! my $response = $self->echo_response_($news, $client, $command);
! $self->tee_($client,$response);
if ($response =~ /^281 .*/) {
--- 164,168 ----
if ($command =~ /^ *AUTHINFO PASS (.*)/i) {
! my $response = $self->get_response_($news, $client, $command);
if ($response =~ /^281 .*/) {
|
|
From: <ssc...@us...> - 2003-03-18 00:48:29
|
Update of /cvsroot/popfile/engine/Proxy
In directory sc8-pr-cvs1:/tmp/cvs-serv8575
Modified Files:
NNTP.pm
Log Message:
reduce excess flushing on POST et al
Index: NNTP.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/NNTP.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** NNTP.pm 18 Mar 2003 00:46:53 -0000 1.2
--- NNTP.pm 18 Mar 2003 00:48:25 -0000 1.3
***************
*** 254,263 ****
$self->get_response_( $news, $client, "$eol" );
! # The client may have some cruft after the .crlf,
! # the server will respond, the client may(?) echo something back
! $self->flush_extra_( $news, $client, 0 );
! $self->flush_extra_( $client, $news, 0 );
! $self->flush_extra_( $news, $client, 0 );
! $self->flush_extra_( $client, $news, 0 );
}
--- 254,258 ----
$self->get_response_( $news, $client, "$eol" );
! $self->flush_extra_( $news, $client, 0 );
}
|
|
From: <ssc...@us...> - 2003-03-18 00:46:57
|
Update of /cvsroot/popfile/engine/Proxy
In directory sc8-pr-cvs1:/tmp/cvs-serv8157
Modified Files:
NNTP.pm
Log Message:
unfixed a fix of a non-bug in echo_to_dot_
Index: NNTP.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/NNTP.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** NNTP.pm 18 Mar 2003 00:04:51 -0000 1.1
--- NNTP.pm 18 Mar 2003 00:46:53 -0000 1.2
***************
*** 245,256 ****
# 3xx (300) series response indicates multi-line text should be sent, up to .crlf
if ($response =~ /^3\d\d/ ) {
$self->echo_to_dot_( $client, $news, 0 );
! # Echo to dot consumes the dot. We recreate it.
! $self->get_response_( $news, $client, ".$eol" );
# The client may have some cruft after the .crlf,
# the server will respond, the client may(?) echo something back
$self->flush_extra_( $client, $news, 0 );
$self->flush_extra_( $news, $client, 0 );
--- 245,260 ----
# 3xx (300) series response indicates multi-line text should be sent, up to .crlf
if ($response =~ /^3\d\d/ ) {
+
+ # Echo from the client to the server
+
$self->echo_to_dot_( $client, $news, 0 );
! # Echo to dot doesn't provoke a server response somehow, we add another CRLF
! $self->get_response_( $news, $client, "$eol" );
# The client may have some cruft after the .crlf,
# the server will respond, the client may(?) echo something back
+ $self->flush_extra_( $news, $client, 0 );
$self->flush_extra_( $client, $news, 0 );
$self->flush_extra_( $news, $client, 0 );
|
|
From: <ssc...@us...> - 2003-03-18 00:18:12
|
Update of /cvsroot/popfile/engine/Proxy
In directory sc8-pr-cvs1:/tmp/cvs-serv31044
Modified Files:
Proxy.pm
Log Message:
fix bug in last revision
Index: Proxy.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/Proxy.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Proxy.pm 18 Mar 2003 00:03:23 -0000 1.5
--- Proxy.pm 18 Mar 2003 00:18:07 -0000 1.6
***************
*** 402,408 ****
sub get_response_
{
! my ( $self, $mail, $client, $command, $error, $use_timeout ) = @_;
! $null_resp = 0 if (!defined $use_timeout);
unless ( $mail ) {
--- 402,408 ----
sub get_response_
{
! my ( $self, $mail, $client, $command, $error, $null_resp ) = @_;
! $null_resp = 0 if (!defined $null_resp);
unless ( $mail ) {
|
|
From: <ssc...@us...> - 2003-03-18 00:04:54
|
Update of /cvsroot/popfile/engine/Proxy
In directory sc8-pr-cvs1:/tmp/cvs-serv25525
Added Files:
NNTP.pm
Log Message:
checkin of NNTP proxy (beta)
--- NEW FILE: NNTP.pm ---
# POPFILE LOADABLE MODULE
package Proxy::NNTP;
use Proxy::Proxy;
@ISA = ("Proxy::Proxy");
# ---------------------------------------------------------------------------------------------
#
# This module handles proxying the NNTP protocol for POPFile.
#
# Copyright (c) 2001-2003 John Graham-Cumming
#
# ---------------------------------------------------------------------------------------------
use strict;
use warnings;
use locale;
# A handy variable containing the value of an EOL for networks
my $eol = "\015\012";
#----------------------------------------------------------------------------
# new
#
# Class new() function
#----------------------------------------------------------------------------
sub new
{
my $type = shift;
my $self = Proxy::Proxy->new();
# Must call bless before attempting to call any methods
bless $self, $type;
$self->name( 'nntp' );
$self->{child_} = \&child__;
$self->{connection_timeout_error_} = '500 no response from mail server';
$self->{connection_failed_error_} = '500 can\'t connect to';
$self->{good_response_} = '^(1|2|3)\d\d';
return $self;
}
# ---------------------------------------------------------------------------------------------
#
# initialize
#
# Called to initialize the POP3 proxy module
#
# ---------------------------------------------------------------------------------------------
sub initialize
{
my ( $self ) = @_;
# Default ports for POP3 service and the user interface
$self->config_( 'port', 119 );
# Only accept connections from the local machine for NNTP
$self->config_( 'local', 1 );
# The separator within the NNTP user name is :
$self->config_( 'separator', ':');
return 1;
}
# ---------------------------------------------------------------------------------------------
#
# child__
#
# The worker method that is called when we get a good connection from a client
#
# $client - an open stream to a POP3 client
# $download_count - The unique download count for this session
#
# ---------------------------------------------------------------------------------------------
sub child__
{
my ( $self, $client, $download_count, $pipe ) = @_;
# Number of messages downloaded in this session
my $count = 0;
# The handle to the real news server gets stored here
my $news;
# The state of the connection (username needed, password needed, authenticated/connected)
my $connection_state = 'username needed';
# Tell the client that we are ready for commands and identify our version number
$self->tee_( $client, "201 NNTP POPFile (vTODO.TODO.TODO) server ready$eol" );
# Retrieve commands from the client and process them until the client disconnects or
# we get a specific QUIT command
while ( <$client> ) {
my $command;
$command = $_;
# Clean up the command so that it has a nice clean $eol at the end
$command =~ s/(\015|\012)//g;
$self->log_( "Command: --$command--" );
#$self->log_( "State: --$connection_state--" );
# The news client wants to stop using the server, so send that message through to the
# real mail server, echo the response back up to the client and exit the while. We will
# close the connection immediately
if ( $command =~ /^ *QUIT/i ) {
if ( $news ) {
$self->echo_response_( $news, $client, $command );
close $news;
} else {
$self->tee_( $client, "205 goodbye$eol" );
}
last;
}
if ($connection_state eq 'username needed') {
my $user_command = '^ *AUTHINFO USER (.+)(:(\d+))?(' . $self->config_( 'separator' ) . '(.+))?';
if ( $command =~ /$user_command/i ) {
if ( $1 ne '' ) {
if ( $news = $self->verify_connected_( $news, $client, $1, $3 || 119 ) ) {
if (defined $5) {
# Pass through the AUTHINFO command with the actual user name for this server,
# if one is defined, and send the reply straight to the client
$self->echo_response_($news, $client, 'AUTHINFO USER ' . $5 );
$connection_state = "password needed";
} else {
# Signal to the client to send the password
$self->tee_($client, "381 password$eol");
$connection_state = "ignore password";
}
} else {
last;
}
} else {
$self->tee_( $client, "482 Authentication rejected server name not specified in AUTHINFO USER command$eol" );
last;
}
$self->flush_extra_( $news, $client, 0 );
next;
} else {
# Issue a 480 authentication required response
$self->tee_( $client, "480 Authorization required for this command$eol" );
next;
}
} elsif ( $connection_state eq "password needed" ) {
if ($command =~ /^ *AUTHINFO PASS (.*)/i) {
my $response = $self->echo_response_($news, $client, $command);
$self->tee_($client,$response);
if ($response =~ /^281 .*/) {
$connection_state = "connected"
}
next;
} else {
# Issue a 381 more authentication required response
$self->tee_( $client, "381 more authentication required for this command$eol" );
next;
}
} elsif ($connection_state eq "ignore password") {
if ($command =~ /^ *AUTHINFO PASS (.*)/i) {
$self->tee_($client, "281 authentication accepted$eol");
$connection_state = "connected";
next;
} else {
# Issue a 480 authentication required response
$self->tee_( $client, "381 more authentication required for this command$eol" );
next;
}
} elsif ( $connection_state eq "connected" ) {
# COMMANDS USED DIRECTLY WITH THE REMOTE NNTP SERVER GO HERE
# The client wants to retrieve an article. We oblige, and insert classification headers.
if ( $command =~ /^ *ARTICLE (.*)/i ) {
my $response = $self->get_response_( $news, $client, $command);
if ( $response =~ /^220 (.*) (.*)$/i) {
$count += 1;
my $class = $self->{classifier__}->classify_and_modify( $news, $client, $download_count, $count, 0, '' );
# Tell the parent that we just handled a mail
print $pipe "$class$eol";
}
$self->flush_extra_( $news, $client, 0 );
next;
}
# Commands expecting a code + text response
if ( $command =~ /^ *(LIST|HEAD|BODY|NEWSGROUPS|NEWNEWS|LISTGROUP|XGTITLE|XINDEX|XHDR|XOVER|XPAT|XROVER|XTHREAD)/i ) {
my $response = $self->get_response_( $news, $client, $command);
# 2xx (200) series response indicates multi-line text follows to .crlf
$self->echo_to_dot_( $news, $client, 0 ) if ($response =~ /^2\d\d/ );
$self->flush_extra_( $news, $client, 0 );
next;
}
# Exceptions to 200 code above
if ( $ command =~ /^ *(HELP)/i ) {
my $response = $self->get_response_( $news, $client, $command);
$self->echo_to_dot_( $news, $client, 0 ) if ( $response =~ /^1\d\d/ );
$self->flush_extra_( $news, $client, 0 );
next;
}
# Commands expecting a single-line response
if ( $command =~ /^ *(GROUP|STAT|IHAVE|LAST|NEXT|SLAVE|MODE|XPATH)/i ) {
$self->get_response_( $news, $client, $command );
$self->flush_extra_( $news, $client, 0 );
next;
}
# Commands followed by multi-line client response
if ( $command =~ /^ *(IHAVE|POST|XRELPIC)/i ) {
my $response = $self->get_response_( $news, $client, $command);
# 3xx (300) series response indicates multi-line text should be sent, up to .crlf
if ($response =~ /^3\d\d/ ) {
$self->echo_to_dot_( $client, $news, 0 );
# Echo to dot consumes the dot. We recreate it.
$self->get_response_( $news, $client, ".$eol" );
# The client may have some cruft after the .crlf,
# the server will respond, the client may(?) echo something back
$self->flush_extra_( $client, $news, 0 );
$self->flush_extra_( $news, $client, 0 );
$self->flush_extra_( $client, $news, 0 );
}
next;
}
}
# Commands we expect no response to, such as the null command
if ( $ command =~ /^ *$/ ) {
if ( $news && $news->connected ) {
$self->get_response_($news, $client, $command, '',1);
$self->flush_extra_( $news, $client, 0 );
next;
}
}
# Don't know what this is so let's just pass it through and hope for the best
if ( $news && $news->connected) {
$self->echo_response_($news, $client, $command );
$self->flush_extra_( $news, $client, 0 );
next;
} else {
$self->tee_( $client, "-ERR unknown command or bad syntax$eol" );
last;
}
}
close $news if defined( $news );
close $client;
close $pipe;
$self->log_( "NNTP forked child done" );
}
# TODO echo_response_ that calls echo_response_ with the extra parameters
# required et al.
|
|
From: <ssc...@us...> - 2003-03-18 00:03:27
|
Update of /cvsroot/popfile/engine/Proxy
In directory sc8-pr-cvs1:/tmp/cvs-serv24818
Modified Files:
Proxy.pm
Log Message:
Allow for the possibility of a null server response to a command
Index: Proxy.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/Proxy.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Proxy.pm 7 Mar 2003 02:59:38 -0000 1.4
--- Proxy.pm 18 Mar 2003 00:03:23 -0000 1.5
***************
*** 340,344 ****
print $client $_;
!
# The termination has to be a single line with exactly a dot on it and nothing
# else other than line termination characters. This is vital so that we do
--- 340,345 ----
print $client $_;
! #$self->tee_($client, $_);
!
# The termination has to be a single line with exactly a dot on it and nothing
# else other than line termination characters. This is vital so that we do
***************
*** 391,394 ****
--- 392,396 ----
# $command The text of the command to send (we add an EOL)
# $error The error string if the response fails
+ # $null_resp Allow a null response
#
# Send $command to $mail, receives the response and echoes it to the $client and the debug
***************
*** 396,402 ****
#
# ---------------------------------------------------------------------------------------------
sub get_response_
{
! my ( $self, $mail, $client, $command, $error ) = @_;
unless ( $mail ) {
--- 398,408 ----
#
# ---------------------------------------------------------------------------------------------
+
+ #TODO: Implement or remove $error as defined in interface above
sub get_response_
{
! my ( $self, $mail, $client, $command, $error, $use_timeout ) = @_;
!
! $null_resp = 0 if (!defined $use_timeout);
unless ( $mail ) {
***************
*** 414,418 ****
if ( $mail->connected ) {
my $selector = new IO::Select( $mail );
! my ($ready) = $selector->can_read($self->global_config_( 'timeout' ));
if ( ( defined( $ready ) ) && ( $ready == $mail ) ) {
--- 420,424 ----
if ( $mail->connected ) {
my $selector = new IO::Select( $mail );
! my ($ready) = $selector->can_read( (!$null_resp,$self->global_config_( 'timeout' ),.5) );
if ( ( defined( $ready ) ) && ( $ready == $mail ) ) {
***************
*** 425,432 ****
}
}
!
! # An error has occurred reading from the mail server
! $self->tee_( $client, "$self->{connection_timeout_error_}$eol" );
! return $self->{connection_timeout_error_};
}
--- 431,443 ----
}
}
!
! if (!null_resp) {
! # An error has occurred reading from the mail server
! $self->tee_( $client, "$self->{connection_timeout_error_}$eol" );
! return $self->{connection_timeout_error_};
! } else {
! $self->tee_($client, "");
! return "";
! }
}
|
|
From: <ssc...@us...> - 2003-03-16 01:32:34
|
Update of /cvsroot/popfile/engine
In directory sc8-pr-cvs1:/tmp/cvs-serv17259
Modified Files:
traintest.pl
Log Message:
add stopword toggle (-stopwords 0 to test without stopwords)
Index: traintest.pl
===================================================================
RCS file: /cvsroot/popfile/engine/traintest.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** traintest.pl 16 Mar 2003 00:57:16 -0000 1.2
--- traintest.pl 16 Mar 2003 01:32:31 -0000 1.3
***************
*** 16,19 ****
--- 16,20 ----
my $DEFAULT_CSV = 'auto';
my $DEFAULT_TOE = 1;
+ my $DEFAULT_STOP = 1;
my $DEFAULT_WINDOW1 = 100;
my $DEFAULT_WINDOW2 = 500;
***************
*** 64,67 ****
--- 65,69 ----
$config->parameter("csv",$DEFAULT_CSV);
$config->parameter("toe",$DEFAULT_TOE);
+ $config->parameter("stopwords",$DEFAULT_STOP);
$config->parameter("window1",$DEFAULT_WINDOW1);
$config->parameter("window2",$DEFAULT_WINDOW2);
***************
*** 87,90 ****
--- 89,101 ----
}
+ if ( $config->parameter('stopwords') ne $DEFAULT_STOP ) {
+ $file .= "_";
+ if ($config->parameter('stopwords') != 1) {
+ $file .= "no";
+ }
+ $file .= "stop";
+ }
+
+
$file .= ".csv";
}
***************
*** 251,254 ****
--- 262,271 ----
$b->{unclassified__} = ($c->parameter("bayes_unclassified_probability") || 0.5);
+ # test with or without stop-words
+ if ( $c->parameter("stopwords") eq 0 ) {
+ $b->{parser__}->{mangle__}->{stop__} = {};
+ $b->{mangler__}->{stop__} = {};
+ }
+
my $archive = $c->parameter("ui_archive_dir");
***************
*** 398,402 ****
print " -archive_dir: Location to seek an archive\n";
print " -csv: Filename to save CSV log to, \"auto\" generates a filename\n";
! print " -toe: Train Only Errors, defaults to $DEFAULT_TOE";
}
--- 415,420 ----
print " -archive_dir: Location to seek an archive\n";
print " -csv: Filename to save CSV log to, \"auto\" generates a filename\n";
! print " -toe: Train Only Errors, defaults to $DEFAULT_TOE\n";
! print " -stopwords: Use stop-words, defaults to $DEFAULT_STOP\n";
}
|
|
From: <ssc...@us...> - 2003-03-16 00:57:19
|
Update of /cvsroot/popfile/engine
In directory sc8-pr-cvs1:/tmp/cvs-serv7785
Modified Files:
traintest.pl
Log Message:
fix CSV output of subject/from (porting problem from 0.18)
Index: traintest.pl
===================================================================
RCS file: /cvsroot/popfile/engine/traintest.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** traintest.pl 13 Mar 2003 03:08:34 -0000 1.1
--- traintest.pl 16 Mar 2003 00:57:16 -0000 1.2
***************
*** 320,324 ****
@errors[$error_count] = {};
@errors[$error_count]->{index}= $message_count;
! @errors[$error_count]->{subject} = $b->{parser}->{subject};
@errors[$error_count]->{shouldbe} = $bucket_true;
@errors[$error_count]->{classified_as} = $bucket_class;
--- 320,324 ----
@errors[$error_count] = {};
@errors[$error_count]->{index}= $message_count;
! @errors[$error_count]->{subject} = $b->{parser__}->{subject__};
@errors[$error_count]->{shouldbe} = $bucket_true;
@errors[$error_count]->{classified_as} = $bucket_class;
***************
*** 344,349 ****
@clog[$message_count]->{error_count} = $error_count;
@clog[$message_count]->{accuracy} = int( 10000 * ( $message_count - $error_count ) / $message_count ) / 100;
! @clog[$message_count]->{subject} = $b->{parser}->{subject};
! @clog[$message_count]->{from} = $b->{parser}->{from};
@clog[$message_count]->{shouldbe} = $bucket_true;
@clog[$message_count]->{classified_as} = $bucket_class;
--- 344,349 ----
@clog[$message_count]->{error_count} = $error_count;
@clog[$message_count]->{accuracy} = int( 10000 * ( $message_count - $error_count ) / $message_count ) / 100;
! @clog[$message_count]->{subject} = $b->{parser__}->{subject__};
! @clog[$message_count]->{from} = $b->{parser__}->{from__};
@clog[$message_count]->{shouldbe} = $bucket_true;
@clog[$message_count]->{classified_as} = $bucket_class;
|
|
From: <ssc...@us...> - 2003-03-16 00:52:36
|
Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1:/tmp/cvs-serv6457
Modified Files:
HTML.pm
Log Message:
add binmode to output file when writing archive
Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.113
retrieving revision 1.114
diff -C2 -d -r1.113 -r1.114
*** HTML.pm 12 Mar 2003 21:28:21 -0000 1.113
--- HTML.pm 16 Mar 2003 00:52:33 -0000 1.114
***************
*** 3356,3359 ****
--- 3356,3360 ----
if ( open( TO, ">$to_dir\/$to_name") ) {
binmode FROM;
+ binmode TO;
while (<FROM>) {
print TO $_;
|
|
From: <jgr...@us...> - 2003-03-14 23:12:54
|
Update of /cvsroot/popfile/engine
In directory sc8-pr-cvs1:/tmp/cvs-serv17538
Modified Files:
popfile.pl
Added Files:
popfile.ico
Log Message:
First commit of code to detect and load platform specific extensions; first commit of Windows platform module that adds an icon to the system tray (does nothing right now---in fact can cause a nasty crash if you click on it)
Index: popfile.pl
===================================================================
RCS file: /cvsroot/popfile/engine/popfile.pl,v
retrieving revision 1.206
retrieving revision 1.207
diff -C2 -d -r1.206 -r1.207
*** popfile.pl 3 Mar 2003 22:01:27 -0000 1.206
--- popfile.pl 14 Mar 2003 23:12:48 -0000 1.207
***************
*** 21,29 ****
my %components;
- # This is the A PIECE OF PLATFORM SPECIFIC CODE and all it does is force Windows users to have
- # v5.8.0 because that's the version with good fork() support everyone else can use whatever they
- # want. This is probably only temporary because at some point I am going to force 5.8.0 for
- # everyone because of the better Unicode support
-
my $on_windows = 0;
--- 21,24 ----
***************
*** 246,249 ****
--- 241,260 ----
print " Loading... ";
+ # Look for a module called Platform::<platform> where <platform> is the value of $^O
+ # and if it exists then load it as a component of POPFile. IN this way we can have
+ # platform specific code (or not) encapsulated. Note that such a module needs to be
+ # a POPFile Loadable Module and a subclass of POPFile::Module to operate correctly
+
+ my $platform = $^O;
+
+ if ( -e "Platform/$platform.pm" ) {
+ require "Platform/$platform.pm";
+ $platform = "Platform::$platform";
+ my $mod = new $platform;
+ my $name = $mod->name();
+ $components{core}{$name} = $mod;
+ print " {$name}";
+ }
+
load_modules( 'POPFile', 'core' );
load_modules( 'Classifier', 'classifier' );
***************
*** 254,259 ****
$components{core}{config}->{major_version} = 0;
! $components{core}{config}->{minor_version} = 18;
! $components{core}{config}->{build_version} = 1;
print "\nPOPFile Engine v$components{core}{config}->{major_version}.$components{core}{config}->{minor_version}.$components{core}{config}->{build_version} starting";
--- 265,270 ----
$components{core}{config}->{major_version} = 0;
! $components{core}{config}->{minor_version} = 19;
! $components{core}{config}->{build_version} = 0;
print "\nPOPFile Engine v$components{core}{config}->{major_version}.$components{core}{config}->{minor_version}.$components{core}{config}->{build_version} starting";
|
|
From: <jgr...@us...> - 2003-03-14 23:12:54
|
Update of /cvsroot/popfile/engine/Platform
In directory sc8-pr-cvs1:/tmp/cvs-serv17538/Platform
Added Files:
MSWin32.pm
Log Message:
First commit of code to detect and load platform specific extensions; first commit of Windows platform module that adds an icon to the system tray (does nothing right now---in fact can cause a nasty crash if you click on it)
--- NEW FILE: MSWin32.pm ---
# POPFILE LOADABLE MODULE
package Platform::MSWin32;
use POPFile::Module;
@ISA = ("POPFile::Module");
use Win32::GUI;
#----------------------------------------------------------------------------
#
# This module handles POPFile specifics on Windows
#
# Copyright (c) 2001-2003 John Graham-Cumming
#
#----------------------------------------------------------------------------
use strict;
use warnings;
use locale;
#----------------------------------------------------------------------------
# new
#
# Class new() function
#----------------------------------------------------------------------------
sub new
{
my $proto = shift;
my $class = ref($proto) || $proto;
my $self = POPFile::Module->new();
bless($self, $class);
$self->name( 'platform' );
return $self;
}
# ---------------------------------------------------------------------------------------------
#
# service
#
# Give Windows a chance to process messages about the tray icon
#
# ---------------------------------------------------------------------------------------------
sub service
{
my ( $self ) = @_;
Win32::GUI::DoEvents();
return 1;
}
# ---------------------------------------------------------------------------------------------
#
# start
#
# Add an icon to the system tray
#
# ---------------------------------------------------------------------------------------------
sub start
{
my ( $self ) = @_;
$self->{window__} = Win32::GUI::Window->new(
-name => 'traywindow',
-text => 'POPFile',
-width => 200,
-height => 200 );
$self->{icon__} = new Win32::GUI::Icon('popfile.ico');
$self->{notify__} = $self->{window__}->AddNotifyIcon(
-name => "NI",
-id => 1,
-icon => $self->{icon__},
-tip => "POPFile running; right click icon to terminate" );
return 1;
}
# ---------------------------------------------------------------------------------------------
#
# stop
#
# Remove the tray icon
#
# ---------------------------------------------------------------------------------------------
sub stop
{
my ( $self ) = @_;
$self->{window__}->NI->Delete( -id => 1 );
Win32::GUI::DoEvents();
}
# ---------------------------------------------------------------------------------------------
#
# NI_RightClick Called when someone right clicks on the tray icon. When this happens we
# display the menu that contains the single option "Exit"
#
# ---------------------------------------------------------------------------------------------
sub NI_RightClick
{
1;
}
1;
|
|
From: <jgr...@us...> - 2003-03-14 23:03:57
|
Update of /cvsroot/popfile/engine/Platform In directory sc8-pr-cvs1:/tmp/cvs-serv11327/Platform Log Message: Directory /cvsroot/popfile/engine/Platform added to the repository |
|
From: <jgr...@us...> - 2003-03-14 22:36:22
|
Update of /cvsroot/popfile/engine/manual/en In directory sc8-pr-cvs1:/tmp/cvs-serv2029/manual/en Modified Files: email.html Log Message: Fix typo in manual Index: email.html =================================================================== RCS file: /cvsroot/popfile/engine/manual/en/email.html,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** email.html 26 Feb 2003 17:39:34 -0000 1.3 --- email.html 14 Mar 2003 22:36:15 -0000 1.4 *************** *** 377,381 **** ! <p>Eudora allows filtering based on any mail header, which is great - everything can be done completely in the background, without changing the subject lin!</p> --- 377,381 ---- ! <p>Eudora allows filtering based on any mail header, which is great - everything can be done completely in the background, without changing the subject line!</p> |
|
From: <jgr...@us...> - 2003-03-14 22:35:25
|
Update of /cvsroot/popfile/windows
In directory sc8-pr-cvs1:/tmp/cvs-serv1598
Modified Files:
installer.nsi
Log Message:
Added the GPL as a license file and include it in the package
Index: installer.nsi
===================================================================
RCS file: /cvsroot/popfile/windows/installer.nsi,v
retrieving revision 1.33
retrieving revision 1.34
diff -C2 -d -r1.33 -r1.34
*** installer.nsi 27 Feb 2003 17:58:11 -0000 1.33
--- installer.nsi 14 Mar 2003 22:35:17 -0000 1.34
***************
*** 138,141 ****
--- 138,142 ----
SetOutPath $INSTDIR
+ File "..\engine\license"
File "..\engine\v0.18.1.change"
File "..\engine\*.pl"
|
|
From: <jgr...@us...> - 2003-03-14 22:34:29
|
Update of /cvsroot/popfile/engine/Classifier
In directory sc8-pr-cvs1:/tmp/cvs-serv1129/Classifier
Modified Files:
MailParse.pm
Log Message:
Added the GPL as a license file and include it in the package
Index: MailParse.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/MailParse.pm,v
retrieving revision 1.96
retrieving revision 1.97
diff -C2 -d -r1.96 -r1.97
*** MailParse.pm 10 Mar 2003 07:59:23 -0000 1.96
--- MailParse.pm 14 Mar 2003 22:34:26 -0000 1.97
***************
*** 799,803 ****
$splitline =~ s/</</g;
$splitline =~ s/>/>/g;
!
#TODO: regress patch to 0.18.1
if ( $encoding =~ /quoted\-printable/i ) {
--- 799,803 ----
$splitline =~ s/</</g;
$splitline =~ s/>/>/g;
!
#TODO: regress patch to 0.18.1
if ( $encoding =~ /quoted\-printable/i ) {
***************
*** 805,809 ****
$splitline =~ s/=3E/>/g;
}
!
$splitline =~ s/\t/ /g;
$self->{ut__} .= $splitline;
--- 805,809 ----
$splitline =~ s/=3E/>/g;
}
!
$splitline =~ s/\t/ /g;
$self->{ut__} .= $splitline;
|
|
From: <jgr...@us...> - 2003-03-14 22:34:29
|
Update of /cvsroot/popfile/engine
In directory sc8-pr-cvs1:/tmp/cvs-serv1129
Modified Files:
Makefile
Added Files:
license
Log Message:
Added the GPL as a license file and include it in the package
--- NEW FILE: license ---
GNU GENERAL PUBLIC LICENSE
TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
0. This License applies to any program or other work which contains
a notice placed by the copyright holder saying it may be distributed
under the terms of this General Public License. The "Program", below,
refers to any such program or work, and a "work based on the Program"
means either the Program or any derivative work under copyright law:
that is to say, a work containing the Program or a portion of it,
either verbatim or with modifications and/or translated into another
language. (Hereinafter, translation is included without limitation in
the term "modification".) Each licensee is addressed as "you".
Activities other than copying, distribution and modification are not
covered by this License; they are outside its scope. The act of
running the Program is not restricted, and the output from the Program
is covered only if its contents constitute a work based on the
Program (independent of having been made by running the Program).
Whether that is true depends on what the Program does.
1. You may copy and distribute verbatim copies of the Program's
source code as you receive it, in any medium, provided that you
conspicuously and appropriately publish on each copy an appropriate
copyright notice and disclaimer of warranty; keep intact all the
notices that refer to this License and to the absence of any warranty;
and give any other recipients of the Program a copy of this License
along with the Program.
You may charge a fee for the physical act of transferring a copy, and
you may at your option offer warranty protection in exchange for a fee.
2. You may modify your copy or copies of the Program or any portion
of it, thus forming a work based on the Program, and copy and
distribute such modifications or work under the terms of Section 1
above, provided that you also meet all of these conditions:
a) You must cause the modified files to carry prominent notices
stating that you changed the files and the date of any change.
b) You must cause any work that you distribute or publish, that in
whole or in part contains or is derived from the Program or any
part thereof, to be licensed as a whole at no charge to all third
parties under the terms of this License.
c) If the modified program normally reads commands interactively
when run, you must cause it, when started running for such
interactive use in the most ordinary way, to print or display an
announcement including an appropriate copyright notice and a
notice that there is no warranty (or else, saying that you provide
a warranty) and that users may redistribute the program under
these conditions, and telling the user how to view a copy of this
License. (Exception: if the Program itself is interactive but
does not normally print such an announcement, your work based on
the Program is not required to print an announcement.)
These requirements apply to the modified work as a whole. If
identifiable sections of that work are not derived from the Program,
and can be reasonably considered independent and separate works in
themselves, then this License, and its terms, do not apply to those
sections when you distribute them as separate works. But when you
distribute the same sections as part of a whole which is a work based
on the Program, the distribution of the whole must be on the terms of
this License, whose permissions for other licensees extend to the
entire whole, and thus to each and every part regardless of who wrote it.
Thus, it is not the intent of this section to claim rights or contest
your rights to work written entirely by you; rather, the intent is to
exercise the right to control the distribution of derivative or
collective works based on the Program.
In addition, mere aggregation of another work not based on the Program
with the Program (or with a work based on the Program) on a volume of
a storage or distribution medium does not bring the other work under
the scope of this License.
3. You may copy and distribute the Program (or a work based on it,
under Section 2) in object code or executable form under the terms of
Sections 1 and 2 above provided that you also do one of the following:
a) Accompany it with the complete corresponding machine-readable
source code, which must be distributed under the terms of Sections
1 and 2 above on a medium customarily used for software interchange; or,
b) Accompany it with a written offer, valid for at least three
years, to give any third party, for a charge no more than your
cost of physically performing source distribution, a complete
machine-readable copy of the corresponding source code, to be
distributed under the terms of Sections 1 and 2 above on a medium
customarily used for software interchange; or,
c) Accompany it with the information you received as to the offer
to distribute corresponding source code. (This alternative is
allowed only for noncommercial distribution and only if you
received the program in object code or executable form with such
an offer, in accord with Subsection b above.)
The source code for a work means the preferred form of the work for
making modifications to it. For an executable work, complete source
code means all the source code for all modules it contains, plus any
associated interface definition files, plus the scripts used to
control compilation and installation of the executable. However, as a
special exception, the source code distributed need not include
anything that is normally distributed (in either source or binary
form) with the major components (compiler, kernel, and so on) of the
operating system on which the executable runs, unless that component
itself accompanies the executable.
If distribution of executable or object code is made by offering
access to copy from a designated place, then offering equivalent
access to copy the source code from the same place counts as
distribution of the source code, even though third parties are not
compelled to copy the source along with the object code.
4. You may not copy, modify, sublicense, or distribute the Program
except as expressly provided under this License. Any attempt
otherwise to copy, modify, sublicense or distribute the Program is
void, and will automatically terminate your rights under this License.
However, parties who have received copies, or rights, from you under
this License will not have their licenses terminated so long as such
parties remain in full compliance.
5. You are not required to accept this License, since you have not
signed it. However, nothing else grants you permission to modify or
distribute the Program or its derivative works. These actions are
prohibited by law if you do not accept this License. Therefore, by
modifying or distributing the Program (or any work based on the
Program), you indicate your acceptance of this License to do so, and
all its terms and conditions for copying, distributing or modifying
the Program or works based on it.
6. Each time you redistribute the Program (or any work based on the
Program), the recipient automatically receives a license from the
original licensor to copy, distribute or modify the Program subject to
these terms and conditions. You may not impose any further
restrictions on the recipients' exercise of the rights granted herein.
You are not responsible for enforcing compliance by third parties to
this License.
7. If, as a consequence of a court judgment or allegation of patent
infringement or for any other reason (not limited to patent issues),
conditions are imposed on you (whether by court order, agreement or
otherwise) that contradict the conditions of this License, they do not
excuse you from the conditions of this License. If you cannot
distribute so as to satisfy simultaneously your obligations under this
License and any other pertinent obligations, then as a consequence you
may not distribute the Program at all. For example, if a patent
license would not permit royalty-free redistribution of the Program by
all those who receive copies directly or indirectly through you, then
the only way you could satisfy both it and this License would be to
refrain entirely from distribution of the Program.
If any portion of this section is held invalid or unenforceable under
any particular circumstance, the balance of the section is intended to
apply and the section as a whole is intended to apply in other
circumstances.
It is not the purpose of this section to induce you to infringe any
patents or other property right claims or to contest validity of any
such claims; this section has the sole purpose of protecting the
integrity of the free software distribution system, which is
implemented by public license practices. Many people have made
generous contributions to the wide range of software distributed
through that system in reliance on consistent application of that
system; it is up to the author/donor to decide if he or she is willing
to distribute software through any other system and a licensee cannot
impose that choice.
This section is intended to make thoroughly clear what is believed to
be a consequence of the rest of this License.
8. If the distribution and/or use of the Program is restricted in
certain countries either by patents or by copyrighted interfaces, the
original copyright holder who places the Program under this License
may add an explicit geographical distribution limitation excluding
those countries, so that distribution is permitted only in or among
countries not thus excluded. In such case, this License incorporates
the limitation as if written in the body of this License.
9. The Free Software Foundation may publish revised and/or new versions
of the General Public License from time to time. Such new versions will
be similar in spirit to the present version, but may differ in detail to
address new problems or concerns.
Each version is given a distinguishing version number. If the Program
specifies a version number of this License which applies to it and "any
later version", you have the option of following the terms and conditions
either of that version or of any later version published by the Free
Software Foundation. If the Program does not specify a version number of
this License, you may choose any version ever published by the Free Software
Foundation.
10. If you wish to incorporate parts of the Program into other free
programs whose distribution conditions are different, write to the author
to ask for permission. For software which is copyrighted by the Free
Software Foundation, write to the Free Software Foundation; we sometimes
make exceptions for this. Our decision will be guided by the two goals
of preserving the free status of all derivatives of our free software and
of promoting the sharing and reuse of software generally.
NO WARRANTY
11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS
TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE
PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
REPAIR OR CORRECTION.
12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.
Index: Makefile
===================================================================
RCS file: /cvsroot/popfile/engine/Makefile,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Makefile 28 Feb 2003 02:08:36 -0000 1.6
--- Makefile 14 Mar 2003 22:34:24 -0000 1.7
***************
*** 24,28 ****
popfile.zip: core manual skins
! core: popfile.pl pix.gif black.gif insert.pl Classifier/*.pm POPFile/Configuration.pm POPFile/Logger.pm Proxy/POP3.pm UI/HTML.pm *.change
rm -f popfile.zip
$(BUILD_ZIP)
--- 24,28 ----
popfile.zip: core manual skins
! core: popfile.pl pix.gif black.gif insert.pl Classifier/*.pm POPFile/Configuration.pm POPFile/Logger.pm Proxy/POP3.pm UI/HTML.pm *.change license
rm -f popfile.zip
$(BUILD_ZIP)
***************
*** 33,45 ****
skins: skins/*.css skins/*.gif skins/*/*.gif
$(BUILD_ZIP)
!
# package builds a zip file containing the POPFile package and the windows
# installer
! package: popfile.zip windows
!
!
!
!
!
!
\ No newline at end of file
--- 33,39 ----
skins: skins/*.css skins/*.gif skins/*/*.gif
$(BUILD_ZIP)
!
# package builds a zip file containing the POPFile package and the windows
# installer
! package: popfile.zip windows
\ No newline at end of file
|
Update of /cvsroot/popfile/engine/tests
In directory sc8-pr-cvs1:/tmp/cvs-serv25224
Added Files:
Tag: v0
TestMailParse001.col TestMailParse002.col TestMailParse003.col
TestMailParse004.col TestMailParse005.col TestMailParse006.col
TestMailParse007.col TestMailParse008.col TestMailParse009.col
TestMailParse010.col TestMailParse011.col TestMailParse012.col
TestMailParse013.col TestMailParse014.col TestMailParse015.col
TestMailParse016.col TestMailParse017.col TestMailParse018.col
TestMailParse019.col TestMailParse020.col TestMailParse021.col
TestMailParse022.cam TestMailParse022.col TestMailParse022.msg
Log Message:
add colorized output tests (again? apparently add doesn't work -- must commit)
--- NEW FILE: TestMailParse001.col ---
<tt>From: <b><font color="black">blank</font></b><br />
<br />
<b><font color="black">Testing</font></b> S P A C E D out <b><font color="black">words</font></b> <b><font color="black">spaced</font></b> out in a <b><font color="black">document</font></b>.<br />
.<br />
</tt>
--- NEW FILE: TestMailParse002.col ---
<tt>From: <b><font color="black">blank</font></b><br />
<br />
<b><font color="black">who</font></b> <b><font color="black">wants</font></b> to be a <b><font color="black">millionaire</font></b> milli<!---->onaire mi<!-- testing -->llionaire millionair<!-- -->e<br />
</tt>
--- NEW FILE: TestMailParse003.col ---
<tt>Subject: from: <b><font color="black">Leandro</font></b><br />
To: <b><font color="black">jI775QsT823y17g@<b><font color="black">aol.com</font></b></font></b><br />
Message-ID: <200...@8S...><br />
From: "<b><font color="black">serafina</font></b> <b><font color="black">venter</font></b>"<<b><font color="black">j239o114@<b><font color="black">earthlink.net</font></b></font></b>><br />
Date: Sun, 12 Jan 2003 19:49:36 -0400<br />
X-Priority: 3 (<b><font color="black">Normal</font></b>)<br />
Importance: <b><font color="black">Normal</font></b><br />
X-Accept-Language: en<br />
Errors-To: <<b><font color="black">j23...@ea...</font></b>><br />
MIME-Version: 1.0<br />
Content-Type: multipart/alternative;<br />
Content-Transfer-Encoding: 7bit<br />
Return-Path: j239o114@<b><font color="black">earthlink.net</font></b><br />
X-OriginalArrivalTime: 13 Jan 2003 00:49:31.0608 (<b><font color="black">UTC</font></b>)<br />
FILETIME=[A257A580:01C2BA9D]<br />
--=gs6mlah1knva3tk5nbs4422k3570q7m3k==<br />
Content-Transfer-Encoding: base64<br />
Content-Type: text/html; charset="<b><font color="black">US-ASCII</font></b>"<br />
PGh0bWw+DQo8YSBocmVmPSJodHRwOi8vJTc3JTc3dy5wJTYxJTczJTczNCU2NiU3MmUlNjUlMkVuZXQvcGIzLyIgVDhJPjxGT05UIFNJWkU9NT48Qj4mIzg3<br />
<br />
OyYjOTc7PCFLND50PCE0YTQ1PmMmIzEwNDs8IVBKMHV1PiAmIzY4OzwhT1UxMGRRPm88IWgzMj5nPCFOWDc4PnM8IUY0NzZ0PiAmIzExNTsmIzEwODs8IXkw<br />
<br />
eDY+dSYjMTE0OzwhV1ZRPnAmIzMyOzwhMW0+eTwhS1NrUD5vPCFvMzVBZT51JiMxMTA7JiMxMDM7PCE0N2ViVTM+ICYjMTAzOyYjMTA1OyYjMTE0OyYjMTA4<br />
<br />
OyYjMTE1OyYjMzI7PCF5MjU+cCYjMTE3OzwhOFljPnMmIzExNTsmIzEyMTs8ITVSaTQ+JzwhcEdTNj5zJiMzMjsmIzk3OzwhQWgxPnMmIzMyOyYjMTE2OyYj<br />
<br />
MTA0OzwhMXJKM1JIPmU8IW84V1h1PnkmIzMyOzwhMzU+czwhMFE3ND5jJiMxMTQ7PCFSZnA+ZTwhUGw+YTwhSzQ+bTwhNGE0NT4gJiMxMDI7PCFQSjB1dT5v<br />
<br />
JiMxMTQ7PCFPVTEwZFE+IDwhaDMyPm08IU5YNzg+bzwhRjQ3NnQ+ciYjMTAxOyYjMzM7PC9mb250PjwvYT48QlI+DQo8QlIgck0wc1JhUHE+PGEgaHJlZj0i<br />
<br />
aHR0cDovL3d3dyUyRSU3MCU2MSU3MyU3MyUzNGZyZWUlMkUlNkUlNjV0L3BiMy8iIDFySjNSSEJvOFcgdW5TVlQ3PjxGT05UIFNJWkU9ND48Qj48IXkweDY+<br />
<br />
QyYjMTA4OzwhV1ZRPmkmIzk5OzwhMW0+azwhS1NrUD4gPCFvMzVBZT5IJiMxMDE7JiMxMTQ7PCE0N2ViVTM+ZTwvZm9udD48L2E+PEJSPjxCUj48QlI+PEJS<br />
<br />
PjxCUj48QlI+PEJSPiYjMTM7JiMxMDsmIzY5OyYjMTA5OyYjOTc7JiMxMDU7PCF5MjU+bCYjMzI7PCE4WWM+QiYjOTc7JiMxMDA7PCE1Umk0Pj88QlIgUlIg<br />
<br />
Mk1PZHZjTT4NCm5vIG1vcmUgPGEgaHJlZj0iaHR0cDovL3JlbW92ZSUyRSU2RGUlNzMlNzNhJTY3JTY1bSU2NW4lNkYlNzcuJTZFZXQvIiBSZnBOUD5DbGlj<br />
<br />
ayBIZXJlPC9hPjxCUj4NCjxCUj48L2h0bWw+DQoNCmFQcTgyTU9kICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjTUo=<br />
<b>Found in encoded data:</b> <font color="black">www.pass4free.net</font> <font color="black">pass4free.net</font> <font color="black">Watch</font> <font color="black">Dogs</font> <font color="black">slurp</font> <font color="black">young</font> <font color="black">girls</font> <font color="black">pussy's</font> <font color="black">they</font> <font color="black">scream</font> <font color="black">more</font> <font color="black">www.pass4free.net</font> <font color="black">pass4free.net</font> <font color="black">Click</font> <font color="black">Here</font> <font color="black">Email</font> <font color="black">Bad</font> <font color="black">more</font> <font color="black">remove.messagemenow.net</font> <font color="black">messagemenow.net</font> <font color="black">Click</font> <font color="black">Here</font> <font color="black">aPq</font> <font color="black">MOd</font> <font color="black">cMJ</font> </tt>
--- NEW FILE: TestMailParse004.col ---
<tt>Return-Path: <<b><font color="black">hot...@ya...</font></b>><br />
From: <b><font color="black">hottest_girls_online6653@<b><font color="black">yahoo.com</font></b></font></b><br />
Message-ID: <000048874f7b$00000e95$000...@mx...><br />
To: <<b><font color="black">Undisclosed.Recipients@<b><font color="black">vanyel.<b><font color="black">herald.<b><font color="black">co.uk</font></b></font></b></font></b></font></b>><br />
Subject: <br />
Date: Sat, 18 Jan 2003 19:50:57 01900<br />
MIME-Version: 1.0<br />
Content-Type: multipart/mixed;<br />
X-UIDL: B<E!!^8S!!0'="!J;6"!<br />
<br />
------=_NextPart_000_60BF_00005753.000048CC<br />
Content-Type: text/html;<br />
charset="iso-8859-1"<br />
Content-Transfer-Encoding: base64<br />
<br />
PEhUTUw+PEJPRFkgQkdDT0xPUj0iIzAwMDAwMCI+PC9QPjxQIEFMSUdOPUNFTlRFUj48Rk9OVCAgQ09MT1I9IiNmZjAwMDAiIEJBQ0s9IiMwMDAwMDAiIHN0<br />
eWxlPSJCQUNLR1JPVU5ELUNPTE9SOiAjMDAwMDAwIiBTSVpFPTYgUFRTSVpFPTI0PlRoZSBob3R0ZXN0IEdpcmxzIE9ubGluZSE8QlI+DQpTdG9wIHdhc3Rp<br />
bmcgeW91ciB0aW1lIHdpdGggNSBzZWM8QlI+DQp2aWRlbyBjbGlwcyEgQ29tZSB0byBvdXIgc2l0ZSBmb3I8QlI+DQpGcmVlIEZ1bGwgTGVuZ3RoIE1vdmll<br />
cyE8QlI+DQo8QSBIUkVGPSJodHRwOi8vd2NhbWF0ZXVycy5jb20vbC9ibCI+V2h5IHdhaXQsIHNlZSBmb3IgRnJlZTwvQT48L0ZPTlQ+PEZPTlQgIENPTE9S<br />
PSIjZmYwMDAwIiBCQUNLPSIjMDAwMDAwIiBzdHlsZT0iQkFDS0dST1VORC1DT0xPUjogIzAwMDAwMCIgU0laRT02IFBUU0laRT0yNCBGQU1JTFk9IlNBTlNT<br />
RVJJRiIgRkFDRT0iQXJpYWwiIExBTkc9IjAiPjxCUj4NCjwvUD48UCBBTElHTj1MRUZUPjwvRk9OVD48Rk9OVCAgQ09MT1I9IiNmZjAwMDAiIEJBQ0s9IiMw<br />
MDAwMDAiIHN0eWxlPSJCQUNLR1JPVU5ELUNPTE9SOiAjMDAwMDAwIiBTSVpFPTMgUFRTSVpFPTExIEZBTUlMWT0iU0FOU1NFUklGIiBGQUNFPSJBcmlhbCIg<br />
TEFORz0iMCI+PEJSPg0KPC9GT05UPjxGT05UICBDT0xPUj0iIzAwMDBmZiIgQkFDSz0iIzAwMDAwMCIgc3R5bGU9IkJBQ0tHUk9VTkQtQ09MT1I6ICMwMDAw<br />
MDAiIFNJWkU9NiBQVFNJWkU9MjQgR!<br />
kFNSUxZPSJTQU5TU0VSSUYiIEZBQ0U9IkFyaWFsIiBMQU5HPSIwIj48QSBIUkVGPSJodHRwOi8vd2NhbWF0ZXVycy5jb20vbC9yIj5ObyBtb3JlIG1haWwga<br />
GVyZTwvQT48L0ZPTlQ+PC9IVE1MPg0K<br />
<br />
------=_NextPart_000_60BF_00005753.000048CC--<br />
<b>Found in encoded data:</b> <font color="black">#000000</font> <font color="black">#ff0000</font> <font color="black">#000000</font> <font color="black">hottest</font> <font color="black">Girls</font> <font color="black">Online</font> <font color="black">Stop</font> <font color="black">wasting</font> <font color="black">time</font> <font color="black">sec</font> <font color="black">video</font> <font color="black">clips</font> <font color="black">Come</font> <font color="black">site</font> <font color="black">Free</font> <font color="black">Full</font> <font color="black">Length</font> <font color="black">Movies</font> <font color="black">wcamateurs.com</font> <font color="black">Why</font> <font color="black">wait</font> <font color="black">see</font> <font color="black">Free</font> <font color="black">#ff0000</font> <font color="black">#000000</font> <font color="black">#ff0000</font> <font color="black">#000000</font> <font color="black">#0000ff</font> <font color="black">#000000</font> <font color="black">wcamateurs.com</font> <font color="black">more</font> <font color="black">here</font> </tt>
--- NEW FILE: TestMailParse005.col ---
<tt>Return-Path: <<b><font color="black">anonymous@ns.<b><font color="black">englishmaster.<b><font color="black">co.kr</font></b></font></b></font></b>><br />
Date: 19 Jan 2003 15:13:43 -0000<br />
Message-ID: <200...@ns...><br />
From: <b><font color="black">XoSeXyGoDdEsSm@<b><font color="black">hotmail.com</font></b></font></b> (<b><font color="black">XoSeXyGoDdEsSm@<b><font color="black">hotmail.com</font></b></font></b>)<br />
Subject: Re: <b><font color="black">screename</font></b> <b><font color="black">change</font></b> <b><font color="black">again</font></b> <b><font color="black">lol</font></b><br />
X-UIDL: ll'"!$DC!!7ld"!85K!!<br />
<br />
<b><font color="black">Below</font></b> is the <b><font color="black">result</font></b> of your <b><font color="black">feedback</font></b> form. It was <b><font color="black">submitted</font></b> by<br />
<b><font color="black">XoS...@ho...</font></b> (XoS...@ho...) on <b><font color="black">Monday</font></b>, <b><font color="black">January</font></b> 20, 2003 at 00:13:42<br />
---------------------------------------------------------------------------<br />
<br />
ze: <br />
<br />
<b><font color="black">Hey</font></b>!! <b><font color="black">What's</font></b> Up? <b><font color="black">I'm</font></b> *Jenny* 20/F/<b><font color="black">San</font></b> <b><font color="black">Diego</font></b>/<b><font color="black">Webcam</font></b> & <b><font color="black">Pics</font></b>. <b><font color="black">I'm</font></b> *LIVE* on my *FREE* <b><font color="black">Webcam</font></b> <b><font color="black">mostly</font></b> 24/7 so if you <b><font color="black">wanna</font></b> <br />
<b><font color="black">come</font></b> in and <b><font color="black">chat</font></b> or <b><font color="black">see</font></b> me go to my <b><font color="black">Personal</font></b> <b><font color="black">Homepage</font></b> at http://<b><font color="black">www.<b><font color="black">freelivecamgirls.net</font></b></font></b> and <b><font color="black">i'll</font></b> <b><font color="black">talk</font></b> to you in a <b><font color="black">bit</font></b> <br />
<b><font color="black">hun</font></b>! If you <b><font color="black">join</font></b> and the <b><font color="black">webchat</font></b> is <b><font color="black">already</font></b> <b><font color="black">full</font></b> im <b><font color="black">sorry</font></b>, <b><font color="black">just</font></b> <b><font color="black">wait</font></b> <b><font color="black">like</font></b> 5 <b><font color="black">minutes</font></b> and <b><font color="black">then</font></b> <b><font color="black">you'll</font></b> be <b><font color="black">able</font></b> to <b><font color="black">see</font></b> me <br />
<b><font color="black">LIVE</font></b>!! *Remember* this is my <b><font color="black">Personal</font></b> <b><font color="black">Homepage</font></b> so of <b><font color="black">course</font></b> its *FREE* =)<br />
<333 *Jenny* <333<br />
<br />
PS.Remember my <b><font color="black">Personal</font></b> <b><font color="black">Homepage</font></b> is http://<b><font color="black">www.<b><font color="black">freelivecamgirls.net</font></b></font></b> and <b><font color="black">hopefully</font></b> I can <b><font color="black">chat</font></b> with you <b><font color="black">soon</font></b>!! oh <b><font color="black">yah</font></b>!! If <br />
you <b><font color="black">don't</font></b> have a <b><font color="black">webcam</font></b> of your <b><font color="black">own</font></b> its ok!! You can <b><font color="black">still</font></b> <b><font color="black">watch</font></b> and <b><font color="black">chat</font></b> with me <b><font color="black">then</font></b>!! ok!! <b><font color="black">ByE</font></b>!!<br />
<333 *Jenny* <333<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
3e<br />
<br />
---------------------------------------------------------------------------<br />
</tt>
--- NEW FILE: TestMailParse006.col ---
<tt>From: <b><font color="black">blank</font></b><br />
<br />
<b><font color="black">We're</font></b> so <b><font color="black">sure</font></b> <b><font color="black">about</font></b> the <b><font color="black">quality</font></b> and <b><font color="black">effectiveness</font></b> of our p.<b><font color="black">roducts</font></b>, we<br />
<b><font color="black">offer</font></b> a <b><font color="black">full</font></b> 90 <b><font color="black">day</font></b> m.oney b.ack g.<b><font color="black">uarantee</font></b>. If any <b><font color="black">customer</font></b> is not<br />
<b><font color="black">satisfied</font></b> with our <b><font color="black">products</font></b>, for any <b><font color="black">reason</font></b> <b><font color="black">whatsoever</font></b>, <b><font color="black">simply</font></b> return the<br />
u.<b><font color="black">nused</font></b> p.ortion <b><font color="black">within</font></b> 90 <b><font color="black">days</font></b> for a 100% r.<b><font color="black">efund</font></b>. NO <b><font color="black">QUESTIONS</font></b> <b><font color="black">ASKED</font></b>. <br />
<br />
Our <b><font color="black">goal</font></b> is to <b><font color="black">educate</font></b> you and <b><font color="black">make</font></b> you <b><font color="black">aware</font></b> of our <b><font color="black">new</font></b> and <b><font color="black">absolutely</font></b><br />
<b><font color="black">miraculous</font></b> <b><font color="black">Internationally</font></b> <b><font color="black">Patented</font></b> <b><font color="black">Nobel</font></b> <b><font color="black">Prize</font></b> <b><font color="black">Validated</font></b> <b><font color="black">Biotechnology</font></b>.<br />
<br />
C.<b><font color="black">lick</font></b> b.elow f.or m.ore i.<b><font color="black">nformation</font></b>, it's f.r.e.e.<br />
</tt>
--- NEW FILE: TestMailParse007.col ---
<tt>Return-Path: <<b><font color="black">mov...@ea...</font></b>><br />
Received: from <b><font color="black">mail126.<b><font color="black">ninodw.com</font></b></font></b> ([<b><font color="black">204.117.162.126</font></b>])<br />
by priv-edtnes62.telusplanet.net (InterMail vM.5.01.05.17 201-253-122-126-117-20021021) with SMTP<br />
id <200...@ma...> for <jo...@te...>; Sat, 11 Jan <br />
2003 06:04:06 -0700<br />
To: <b><font color="black">jopat@<b><font color="black">telusplanet.net</font></b></font></b><br />
Date: Sat, 11 Jan 2003 07:05:44 -0500<br />
Message-ID: <104...@ma...><br />
X-Mailer: <b><font color="black">Gnus</font></b>/5.090001 (<b><font color="black">Oort</font></b> <b><font color="black">Gnus</font></b> v0.01) <b><font color="black">XEmacs</font></b>/21.2 (<b><font color="black">Terspichore</font></b>)<br />
From: <b><font color="black">movietqmugapo@<b><font color="black">easynet.be</font></b></font></b><br />
Reply-To: <<b><font color="black">movienfsjorbt@<b><font color="black">easynet.be</font></b></font></b>><br />
Subject: <b><font color="black">Think</font></b> <b><font color="black">you've</font></b> <b><font color="black">seen</font></b> <b><font color="black">porn</font></b>? <b><font color="black">How</font></b> <b><font color="black">about</font></b> a <b><font color="black">dog</font></b> <b><font color="black">giving</font></b> 5+ <b><font color="black">girls</font></b> <b><font color="black">oral</font></b> <b><font color="black">sex</font></b> <b><font color="black">till</font></b> <b><font color="black">they</font></b> <b><font color="black">cum</font></b>?<br />
<br />
So you <b><font color="black">think</font></b> <b><font color="black">you've</font></b> <b><font color="black">seen</font></b> <b><font color="black">some</font></b> <b><font color="black">crazy</font></b> <b><font color="black">porn</font></b>? <br />
<b><font color="black">Think</font></b> <b><font color="black">you've</font></b> <b><font color="black">seen</font></b> all the <b><font color="black">crazy</font></b> <b><font color="black">stuff</font></b> out <b><font color="black">there</font></b>? <br />
YOU <b><font color="black">HAVEN'T</font></b> <b><font color="black">SEEN</font></b> <b><font color="black">SHIT</font></b>!!! I <b><font color="black">saw</font></b> the <b><font color="black">most</font></b> un <b><font color="black">fuckin</font></b> <br />
<b><font color="black">believable</font></b> <b><font color="black">video</font></b> <b><font color="black">clip</font></b> <b><font color="black">thats</font></b> <b><font color="black">ever</font></b> been on our <b><font color="black">sick</font></b> <br />
and <b><font color="black">twisted</font></b> <b><font color="black">internet</font></b>! <b><font color="black">Know</font></b> this <b><font color="black">I've</font></b> been <b><font color="black">surfing</font></b> <br />
<b><font color="black">porn</font></b> and the <b><font color="black">internet</font></b> <b><font color="black">since</font></b> it <b><font color="black">began</font></b>! I have <b><font color="black">seen</font></b> <br />
it all..and this <b><font color="black">shocked</font></b> the <b><font color="black">shit</font></b> out of me <b><font color="black">even</font></b>!!! <br />
<b><font color="black">READ</font></b> <b><font color="black">BELOW</font></b> <b><font color="black">ABOUT</font></b> THIS <b><font color="black">CLIP</font></b>!<br />
THE <b><font color="black">FOOTAGE</font></b> OF <b><font color="black">HARVEY</font></b> THE <b><font color="black">PUSSY</font></b> <b><font color="black">EATING</font></b> <b><font color="black">WONDER</font></b> <b><font color="black">DOG</font></b>!<br />
It <b><font color="black">takes</font></b> <b><font color="black">place</font></b> on a <b><font color="black">farm</font></b> <b><font color="black">somewhere</font></b> <b><font color="black">within</font></b> the u.s. <br />
I would <b><font color="black">say</font></b> the <b><font color="black">clip</font></b> is <b><font color="black">just</font></b> <b><font color="black">shy</font></b> of 9 <b><font color="black">minutes</font></b> <b><font color="black">long</font></b> <br />
and <b><font color="black">seems</font></b> to be <b><font color="black">shot</font></b> by a <b><font color="black">home</font></b> <b><font color="black">cam</font></b> <b><font color="black">recorder</font></b>. In <br />
this <b><font color="black">nine</font></b> <b><font color="black">minutes</font></b> you <b><font color="black">see</font></b> a <b><font color="black">group</font></b> of 5+ <b><font color="black">girls</font></b> in <br />
a <b><font color="black">barn</font></b> <b><font color="black">looking</font></b> <b><font color="black">building</font></b>..at <b><font color="black">first</font></b> <b><font color="black">they</font></b> are having <br />
<b><font color="black">light</font></b> <b><font color="black">sex</font></b> with <b><font color="black">each</font></b> <b><font color="black">other</font></b>..this is <b><font color="black">nothing</font></b>..<b><font color="black">then</font></b> <br />
<b><font color="black">jackpot</font></b>. <b><font color="black">Another</font></b> <b><font color="black">girl</font></b> <b><font color="black">comes</font></b> in with a <b><font color="black">dog</font></b> that we <br />
<b><font color="black">now</font></b> <b><font color="black">know</font></b> is <b><font color="black">named</font></b> <b><font color="black">harvey</font></b>. She <b><font color="black">brings</font></b> the <b><font color="black">dog</font></b> in <br />
and <b><font color="black">leads</font></b> him to <b><font color="black">one</font></b> of her <b><font color="black">friends</font></b> <b><font color="black">who</font></b> is <b><font color="black">already</font></b> <br />
<b><font color="black">naked</font></b> and <b><font color="black">spreading</font></b> her <b><font color="black">legs</font></b>. The <b><font color="black">dog</font></b> goes <b><font color="black">right</font></b> <br />
to <b><font color="black">work</font></b>..<b><font color="black">eats</font></b> her <b><font color="black">pussy</font></b> <b><font color="black">like</font></b> <b><font color="black">he's</font></b> done it a <b><font color="black">hundred</font></b> <br />
<b><font color="black">times</font></b> <b><font color="black">before</font></b>..and <b><font color="black">folks</font></b> he has. <br />
http://<b><font color="black">www.<b><font color="black">nfogroup.net</font></b></font></b>/<b><font color="black">ral</font></b>/<br />
She <b><font color="black">takes</font></b> him to her <b><font color="black">next</font></b> <b><font color="black">friend</font></b> and the <b><font color="black">next</font></b> and <br />
the <b><font color="black">friend</font></b> <b><font color="black">after</font></b> that. By this <b><font color="black">point</font></b> we <b><font color="black">got</font></b> <b><font color="black">why</font></b> <br />
this <b><font color="black">clip</font></b> of was being <b><font color="black">taken</font></b>..<b><font color="black">these</font></b> <b><font color="black">farm</font></b> <b><font color="black">girl</font></b> <b><font color="black">sluts</font></b> <br />
have been doing this <b><font color="black">regularly</font></b>. <b><font color="black">They</font></b> <b><font color="black">get</font></b> <b><font color="black">together</font></b> <br />
and this <b><font color="black">dog</font></b>, <b><font color="black">harvey</font></b>, <b><font color="black">gives</font></b> <b><font color="black">them</font></b> all head..<b><font color="black">i'm</font></b> <br />
<b><font color="black">talking</font></b> <b><font color="black">like</font></b> a <b><font color="black">pro</font></b> <b><font color="black">here</font></b>..if you or I could <b><font color="black">satisfy</font></b> <br />
<b><font color="black">half</font></b> the <b><font color="black">women</font></b> this <b><font color="black">dog</font></b> can we would have it <b><font color="black">made</font></b>. <br />
This <b><font color="black">dog</font></b> is <b><font color="black">amazing</font></b>..<b><font color="black">hes</font></b> <b><font color="black">just</font></b> <b><font color="black">pussy</font></b> <b><font color="black">eating</font></b> <b><font color="black">machine</font></b>..<br />
and <b><font color="black">these</font></b> <b><font color="black">slutty</font></b> <b><font color="black">farm</font></b> <b><font color="black">girls</font></b> <b><font color="black">love</font></b> it to <b><font color="black">death</font></b>. <b><font color="black">I've</font></b> <br />
<b><font color="black">seen</font></b> <b><font color="black">animal</font></b> <b><font color="black">sites</font></b> and so on but <b><font color="black">i've</font></b> <b><font color="black">never</font></b> <b><font color="black">seen</font></b> <b><font color="black">actual</font></b> <br />
<b><font color="black">amature</font></b> <b><font color="black">footage</font></b> <b><font color="black">like</font></b> this in my <b><font color="black">life</font></b>. <br />
<b><font color="black">HOW</font></b> AND <b><font color="black">WHY</font></b> THE <b><font color="black">FOOTAGE</font></b> WAS <b><font color="black">FILMED</font></b>?<br />
It was the <b><font color="black">little</font></b> <b><font color="black">brother</font></b> of <b><font color="black">one</font></b> of the <b><font color="black">girls</font></b>..<b><font color="black">whichever</font></b> <br />
<b><font color="black">girl</font></b> <b><font color="black">actually</font></b> <b><font color="black">lived</font></b> at this <b><font color="black">place</font></b>. This <b><font color="black">little</font></b> <b><font color="black">brother</font></b> <br />
<b><font color="black">sneaks</font></b> <b><font color="black">into</font></b> the <b><font color="black">barn</font></b> and <b><font color="black">films</font></b> his <b><font color="black">slutty</font></b> <b><font color="black">sister</font></b> and <br />
all her <b><font color="black">friends</font></b> doing this ..<b><font color="black">then</font></b> <b><font color="black">puts</font></b> in on the <b><font color="black">internet</font></b>!!!! <br />
<b><font color="black">How</font></b> <b><font color="black">hilarious</font></b> is that..I <b><font color="black">can't</font></b> <b><font color="black">imagine</font></b> <b><font color="black">how</font></b> <b><font color="black">those</font></b> <b><font color="black">girls</font></b> <b><font color="black">feel</font></b> <br />
<b><font color="black">now</font></b>..<b><font color="black">there</font></b> will be <b><font color="black">definite</font></b> <b><font color="black">lawsuits</font></b> <b><font color="black">over</font></b> this <b><font color="black">one</font></b>. <b><font color="black">Maybe</font></b> <br />
he <b><font color="black">didn't</font></b> <b><font color="black">like</font></b> <b><font color="black">what</font></b> <b><font color="black">they</font></b> were doing to his <b><font color="black">dog</font></b> or <b><font color="black">maybe</font></b> <br />
he <b><font color="black">just</font></b> <b><font color="black">hated</font></b> his <b><font color="black">sister</font></b> <b><font color="black">like</font></b> all <b><font color="black">siblings</font></b> but <b><font color="black">either</font></b> <br />
<b><font color="black">way</font></b> the <b><font color="black">little</font></b> <b><font color="black">bastard</font></b> <b><font color="black">filmed</font></b> it <b><font color="black">then</font></b> <b><font color="black">put</font></b> it on the net! <br />
http://<b><font color="black">www.<b><font color="black">nfogroup.net</font></b></font></b>/<b><font color="black">ral</font></b>/<br />
<b><font color="black">HERE'S</font></b> THE <b><font color="black">GOOD</font></b> <b><font color="black">PART</font></b><br />
The <b><font color="black">guys</font></b> that <b><font color="black">now</font></b> have this <b><font color="black">footage</font></b> <b><font color="black">aren't</font></b> <b><font color="black">normal</font></b> <b><font color="black">porn</font></b> <b><font color="black">site</font></b> <b><font color="black">guys</font></b>..<br />
<b><font color="black">they</font></b> are <b><font color="black">just</font></b> <b><font color="black">guys</font></b> that <b><font color="black">get</font></b> off on <b><font color="black">posting</font></b> <b><font color="black">extreme</font></b> <b><font color="black">shit</font></b> to the <br />
<b><font color="black">public</font></b>. That <b><font color="black">means</font></b> <b><font color="black">they</font></b> <b><font color="black">don't</font></b> <b><font color="black">want</font></b> any <b><font color="black">money</font></b> from us <b><font color="black">surfers</font></b> <br />
to <b><font color="black">watch</font></b> the <b><font color="black">show</font></b>. <b><font color="black">What</font></b> <b><font color="black">they</font></b> do <b><font color="black">instead</font></b> is <b><font color="black">make</font></b> you <b><font color="black">play</font></b> this <br />
<b><font color="black">little</font></b> <b><font color="black">game</font></b> that <b><font color="black">asks</font></b> <b><font color="black">how</font></b> <b><font color="black">many</font></b> <b><font color="black">girls</font></b> did <b><font color="black">harvey</font></b> <b><font color="black">give</font></b> an <br />
<b><font color="black">orgasm</font></b> to in <b><font color="black">one</font></b> <b><font color="black">session</font></b> and you have to <b><font color="black">pick</font></b> <b><font color="black">one</font></b> of <b><font color="black">three</font></b> <br />
<b><font color="black">answers</font></b>. IF you <b><font color="black">win</font></b> <b><font color="black">you're</font></b> in and <b><font color="black">get</font></b> to <b><font color="black">watch</font></b>..if you <br />
<b><font color="black">lose</font></b> <b><font color="black">you're</font></b> out. The <b><font color="black">reason</font></b> <b><font color="black">they</font></b> do this is I <b><font color="black">guess</font></b> if we <br />
<b><font color="black">play</font></b> the <b><font color="black">game</font></b> we <b><font color="black">willingly</font></b> went and <b><font color="black">tried</font></b> to <b><font color="black">watch</font></b> it..we <br />
are not <b><font color="black">some</font></b> <b><font color="black">government</font></b> <b><font color="black">agent</font></b> <b><font color="black">who</font></b> is <b><font color="black">trying</font></b> to <b><font color="black">get</font></b> <b><font color="black">them</font></b> in <br />
<b><font color="black">trouble</font></b>. I <b><font color="black">think</font></b> <b><font color="black">because</font></b> of <b><font color="black">nature</font></b> of <b><font color="black">they</font></b> <b><font color="black">content</font></b> <b><font color="black">they</font></b> <b><font color="black">just</font></b> <br />
<b><font color="black">wanna</font></b> <b><font color="black">make</font></b> <b><font color="black">sure</font></b> you are <b><font color="black">into</font></b> this <b><font color="black">stuff</font></b>..but <b><font color="black">hell</font></b> if <b><font color="black">you're</font></b> <br />
<b><font color="black">like</font></b> me and <b><font color="black">don't</font></b> <b><font color="black">know</font></b> <b><font color="black">dick</font></b> <b><font color="black">about</font></b> this <b><font color="black">stuff</font></b> <b><font color="black">then</font></b> <b><font color="black">just</font></b> <b><font color="black">guess</font></b>..<br />
<b><font color="black">thats</font></b> <b><font color="black">what</font></b> I did and it <b><font color="black">resulted</font></b> in the <b><font color="black">most</font></b> <b><font color="black">shocking</font></b> <b><font color="black">movie</font></b> <br />
<b><font color="black">clip</font></b> of <b><font color="black">i've</font></b> <b><font color="black">seen</font></b> to date!<br />
MY <b><font color="black">STRONGEST</font></b> <b><font color="black">RECOMMENDATION</font></b><br />
If <b><font color="black">you're</font></b> <b><font color="black">like</font></b> me and <b><font color="black">like</font></b> <b><font color="black">seeing</font></b> this <b><font color="black">kind</font></b> if <b><font color="black">bizarre</font></b> <b><font color="black">stuff</font></b>..<br />
<b><font color="black">get</font></b> in <b><font color="black">there</font></b> and <b><font color="black">see</font></b> it <b><font color="black">now</font></b> <b><font color="black">while</font></b> its <b><font color="black">still</font></b> up. <b><font color="black">Before</font></b> <b><font color="black">somebody</font></b><br />
<b><font color="black">gets</font></b> it <b><font color="black">taken</font></b> <b><font color="black">offline</font></b>...but <b><font color="black">even</font></b> <b><font color="black">more</font></b> <b><font color="black">important</font></b> that that, <br />
DO NOT <b><font color="black">FUCKING</font></b> <b><font color="black">FORGET</font></b> TO <b><font color="black">SAVE</font></b> IT TO <b><font color="black">DISK</font></b>!<b><font color="black">YOU'RE</font></b> <b><font color="black">FRIENDS</font></b> WILL NOT <br />
<b><font color="black">BELIEVE</font></b> YOU <b><font color="black">WITHOUT</font></b> <b><font color="black">PROOF</font></b>..<b><font color="black">TRUST</font></b> ME ON THIS. <b><font color="black">SAVE</font></b> IT SO THAT <br />
<b><font color="black">WHEN</font></b> YOU <b><font color="black">TELL</font></b> <b><font color="black">THEM</font></b> YOU CAN ALSO <b><font color="black">SHOW</font></b> <b><font color="black">THEM</font></b>.<br />
http://<b><font color="black">www.<b><font color="black">nfogroup.net</font></b></font></b>/<b><font color="black">ral</font></b>/<br />
<b><font color="black">CLICK</font></b> <b><font color="black">HERE</font></b> TO <b><font color="black">WATCH</font></b> <b><font color="black">HARVEY</font></b> <b><font color="black">GIVE</font></b> HEAD TO <b><font color="black">GROUP</font></b> OF 18 <b><font color="black">year</font></b> <b><font color="black">old</font></b> <b><font color="black">FARM</font></b> <b><font color="black">SLUTS</font></b>!!!!}<br />
wbcng^gryhfcynarg(<b><font color="black">arg</font></b><br />
</tt>
--- NEW FILE: TestMailParse008.col ---
<tt>Return-Path: <<b><font color="black">sy...@ya...</font></b>><br />
Received: from N1N ([<b><font color="black">218.0.119.123</font></b>]) by <b><font color="black">priv-edtnes27.<b><font color="black">telusplanet.net</font></b></font></b><br />
(InterMail vM.5.01.05.17 201-253-122-126-117-20021021) with ESMTP<br />
id <20030112013444.RTJR4607.priv-edtnes27.telusplanet.net@N1N><br />
for <jo...@te...>; Sat, 11 Jan 2003 18:34:44 -0700<br />
From: "<b><font color="black">Alice</font></b>" <<b><font color="black">syjet@<b><font color="black">yahu.com</font></b></font></b>><br />
Subject: <b><font color="black">Hello</font></b>,<b><font color="black">Let</font></b> us <b><font color="black">enjoy</font></b> <b><font color="black">life</font></b>!<br />
To: <b><font color="black">jopat@<b><font color="black">telusplanet.net</font></b></font></b><br />
Content-Type: text/html;<br />
charset="us-ascii"<br />
Date: Sun, 12 Jan 2003 09:34:46 +0800<br />
X-Priority: 3<br />
X-Mailer: <b><font color="black">jpfree</font></b> <b><font color="black">Group</font></b> Mail <b><font color="black">Express</font></b> V1.0<br />
Message-Id: <20030112013444.RTJR4607.priv-edtnes27.telusplanet.net@N1N><br />
<br />
<HTML><HEAD><TITLE></TITLE><br />
<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD> <br />
<BODY text=<b><font color="black">#000000</font></b> bgColor=<b><font color="black">#EFEBE7</font></b>><br />
<table border="0" width="500" cellspacing="0" cellpadding="5"><br />
<tr><br />
<td valign="top"><br />
<h1 align=left><FONT size=4><B><b><font color="black">Hello</font></b> <b><font color="black">friends</font></b>.</B></FONT></h1> <br />
<h1 align=left><B><FONT size=4 face="Arial Narrow">I <b><font color="black">bet</font></b> you would <b><font color="black">just</font></b> <b><font color="black">love</font></b><br />
to<a href="http://<b><font color="black">www.<b><font color="black">apple999.com</font></b></font></b>/xy1.htm"><br />
<b><font color="black">see</font></b> me <b><font color="black">naked</font></b></a>, <b><font color="black">spreading</font></b> my <b><font color="black">candy</font></b> for ya. I can not <b><font color="black">even</font></b> <b><font color="black">tell</font></b> <br />
you <b><font color="black">how</font></b> <b><font color="black">much</font></b> it <b><font color="black">turns</font></b> me on to have <b><font color="black">people</font></b> <a<br />
href="http://<b><font color="black">www.<b><font color="black">apple999.com</font></b></font></b>/xy1.htm"><b><font color="black">get</font></b><br />
off to my <b><font color="black">naked</font></b> <b><font color="black">sexy</font></b> body</a>. <b><font color="black">I've</font></b> <b><font color="black">left</font></b> you a <b><font color="black">tiny</font></b> <b><font color="black">sample</font></b> of <br />
my <b><font color="black">gorgeousness</font></b> <b><font color="black">just</font></b> to <b><font color="black">give</font></b> you a <b><font color="black">itty</font></b>- <b><font color="black">bitty</font></b> <b><font color="black">taste</font></b> of <b><font color="black">what's</font></b> <br />
<b><font color="black">inside</font></b> if you <b><font color="black">join</font></b>. So <b><font color="black">when</font></b> you are done <b><font color="black">checking</font></b> out my <b><font color="black">different</font></b> <br />
<b><font color="black">pics</font></b>- it's <b><font color="black">time</font></b> for you to <b><font color="black">join</font></b>!!</FONT></B></h1><br />
<P align=left><B><FONT size=4 face="Arial"><a<br />
href="http://<b><font color="black">www.<b><font color="black">apple999.com</font></b></font></b>/xy1.htm"><b><font color="black">See</font></b><br />
you <b><font color="black">inside</font></b>...</a></FONT></B></P><br />
<P align=left><B><FONT size=4 face="Arial"><a<br />
href="http://<b><font color="black">www.<b><font color="black">apple999.com</font></b></font></b>/xy1.htm"><b><font color="black">Hugs</font></b><br />
& <b><font color="black">Kisses</font></b>,</a><BR><br />
<b><font color="black">Kurious</font></b></FONT></B></P><br />
</td><br />
<td><a href="http://<b><font color="black">www.<b><font color="black">apple999.com</font></b></font></b>/xy1.htm"><br />
</tr><br />
</table><br />
</BODY></HTML><br />
</tt>
--- NEW FILE: TestMailParse009.col ---
<tt>Return-Path: <<b><font color="black">bri...@po...</font></b>><br />
Received: from <b><font color="black"><b><font color="black">200.204.91.79</font></b></font></b> (200.204.91.79)<br />
by mta564.mail.yahoo.com with SMTP; 09 Jan 2003 05:15:37 -0800 (PST)<br />
From: "<b><font color="black">Luke</font></b> <b><font color="black">Perry</font></b>" <<b><font color="black">brienne66@<b><font color="black">poetic.com</font></b></font></b>><br />
Reply-To: "<b><font color="black">Luke</font></b> <b><font color="black">Perry</font></b>" <<b><font color="black">brienne66@<b><font color="black">poetic.com</font></b></font></b>><br />
CC: <b><font color="black">big_bake01@<b><font color="black">yahoo.com</font></b></font></b>, <b><font color="black">star4403@<b><font color="black">yahoo.com</font></b></font></b><br />
Date: Thu, 9 Jan 2003 05:14:46 -0800<br />
Subject: [spam] <b><font color="black">FánTástìç</font></b>!! ^ comman6853 ^ »»» <b><font color="black">Eárn</font></b> <b><font color="black">Mõnéy</font></b> <b><font color="black">thrôuGh</font></b> <b><font color="black">UnçõLLeçted</font></b> <b><font color="black">Judgments</font></b>! «««<br />
X-Priority: 1<br />
MIME-Version: 1.0<br />
X-Mailer: <b><font color="black">Microsoft</font></b> <b><font color="black">Outlook</font></b> <b><font color="black">Express</font></b> 6.00.2600.0000<br />
X-<b><font color="black">MimeOLE</font></b>: <b><font color="black">Produced</font></b> By <b><font color="black">Microsoft</font></b> MimeOLE V6.00.2600.0000<br />
Content-Type: text/html; charset=<b><font color="black">us-ascii</font></b><br />
Content-Transfer-Encoding: 7bit<br />
Content-Length: 1094<br />
Message-ID: <avj...@FQ...valid><br />
<br />
<font color=<b><font color="black">white</font></b>>*-*-**-*-*-*-*-*-*-*-*-*-*-*--*-*-*-*-*-*-*-*-*--*-*-*-*-*-*-*<br />
*-*-*-*-*-*-*-*-*-*-*-*-*--*-*-*-*-*-*-*****-----*-**-*-*-*--*-*--*-*-*-*-*-***-<br />
<BR>¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤<BR> comman6853<br />
*--*-*-**-*-*-*-*-*-*-*-*-*-*-*-*-*-*-**</font><br><br />
<br />
<HTML><br />
<font color=white<br />
size=1>comman6853YHERKHSDKJFHSDKJFHKSJDFHKJSDHFIUWEYRKHSDKFJHSDKJFHSRHFKSDJHFKJS<br />
DHFKSHDFKJSDHFUIWEYRIHWSFKJSDHKFJWIEURYKSJDHFKJSDHFKJSDHFKSHDFIWUEYRWHSFKJSDHFKH<br />
WEKRHKSJDFHWEYHFK^#$*#^^!*^*^$*^!^%^*^*^$&%^%(!@</font><br><!-- <REM: <URL2#####>><br />
--><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<HEAD></HEAD><br />
<body><br />
<P align=left><br />
<IMG<br />
src="http://<b><font color="black">202.108.221.16</font></b>/HTTP/ben/MBTY.jpg" border=0> <img<br />
src="http://<b><font color="black">202.108.221.16</font></b>/HTTP/ben/EmailOffersOndemand.jpg" border="0"><br />
<BR><BR><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<IMG src="http://<b><font color="black">202.108.221.16</font></b>/HTTP/ben/sinko.gif" border=0><br />
<BR><BR><br />
<a href="mailto:<b><font color="black">28...@28...</font></b>"><img<br />
src="http://<b><font color="black">202.108.221.16</font></b>/HTTP/ben/clhere.gif" border="0"<br />
onMouseOver="window.status='283245'; return true"<br />
onMouseOut="window.status='283245'"></a><br />
</P><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<BR><BR><BR><BR><BR><BR><BR><br />
283245<br />
</body><br />
<BR><br />
<BR><br />
<BR><br />
<BR><br />
<BR><font color=<b><font color="black">fuchsia</font></b> face="tempus sans itc" ><b><b><font color="black">LYK</font></b> 01'08''03 C24<br />
<BR><BR><BR><BR>00066©<BR><BR><br />
<BR><br />
<BR><br />
<BR><font color=<b><font color="black">white</font></b> size=1>Current alternatives for recovering judgments<br />
inadequate-learn moreSecure Your Future Tod...@ya...Work at home-<br />
unlimited potentialHave you heard about this?com...@ya...Thriving Business<br />
needs your help!!!!We have the most advanced asset tracking services in the<br />
world!com...@ya...New career in legal profession gives you fresh outlook<br />
on your lifeHere's your chance for the American Dre...@ya...New<br />
methods for recovering judicial judgmentsRead Thi...@ya...Feel the<br />
need to succeedHave you heard about this?com...@ya...Everyone needs<br />
a Home-Based BusinessTraining in the Judgment business -A great new business<br />
idea!com...@ya...Feel the need to succeedHelp people who are awarded<br />
judgments - work from your hom...@ya...Love your job- work from<br />
homeSeeking Justice-Minded People for Business Opp...@ya...Work<br />
at home- unlimited potentialSuccessful judgment recovery<br />
bus...@ya...Enjoy the fruits of your laborDedicated, Hard-Working<br />
People Nee...@ya...</FONT><br />
<BR><br />
<BR></HTML><br />
<br />
[@^*#@*%_#%*#_$%*_#_]<br />
</tt>
--- NEW FILE: TestMailParse010.col ---
<tt>X-Auth-No: <br />
Return-Path: <<b><font color="black">cs...@my...</font></b>><br />
Received: from <b><font color="black">digitalme.com</font></b> not <b><font color="black">authenticated</font></b> [<b><font color="black">193.97.97.75</font></b>]<br />
by smtp-send.myrealbox.com with NetMail SMTP Agent $Revision: 1.1.2.1 $ on Novell NetWare;<br />
Sat, 11 Jan 2003 22:03:10 -0700<br />
Received: from <b><font color="black"><b><font color="black">65.100.247.142</font></b></font></b> not <b><font color="black">authenticated</font></b> [65.100.247.142]<br />
by digitalme.com with Novell NIMS $Revision: 1.1.2.1 $ on Novell NetWare;<br />
Sat, 11 Jan 2003 21:03:05 -0800<br />
Message-ID: <44747.22535@><br />
From: U'S'A L'o't't'e'r'y L'T'D <iplvwq@><br />
Subject: Re[4]: <b><font color="black">Regarding</font></b> your <b><font color="black">activation</font></b><br />
To: <b><font color="black">are10@<b><font color="black">myrealbox.com</font></b></font></b><br />
Date: Sun, 12 Jan 2003 07:03:25 <br />
MIME-Version: 1.0<br />
Content-Type: text/plain;<br />
charset="windows-1252"<br />
Content-Transfer-Encoding: base64<br />
<br />
Q29uZ3JhdHVsYXRpb25zIQ0KDQpZb3UgaGF2ZSBiZWVuIHNlbGVjdGVkIHRvIHJlY2lldmUgbWVt<br />
YmVyc2hpcCB0byB0aGUgYmVzdCBBYERgVWBMYFQgc2l0ZSBvZg0KeW91ciBjaG9pY2UgZm9yIEZe<br />
Ul5FXkUhDQoNCiogV2UgaGF2ZSBldmVyeSBuaWNoZSB5b3UgY2FuIGltYWdpbmUhDQoqIEFsbCBv<br />
ZiBvdXIgc2l0ZXMgaGFzIGhpZ2ggcXVhbGl0eSBjb250YW50IQ0KKiBZb3UgY2FuIGJlIGluIG1l<br />
bWJlciBzZWN0aW9uIGluIGxlc3MgdGhhbiAxIG1pbiENCiogQW5kIGJlc3Qgb2YgYWxsOiBOYE9g<br />
IENgUmBFYERgSWBUYCBDYEFgUmBEYCBOYEVgRWBEYEVgRGANCg0KKiAqICogKiBDYExgSWBDYEsg<br />
SGBFYFJgRSAqICogKiAqDQpodHRwOi8vYmVzdHBvcm5ob3N0LmNvbS92YXN5YS8/aW5zdGFudGhv<br />
bWUNCg0KSWYgeW91IGhhdmUgcmVjZWl2ZWQgdGhpcyBtYWlsaW5nIGluIGVycm9yLCBvciBkbyBu<br />
b3Qgd2lzaCB0byByZWNlaXZlIGFueQ0KZnVydGhlciBvZmZlcnMgb3Igbm90aWNlcyBmcm9tIHVz<br />
<b>Found in encoded data:</b> <font color="black">rm_...@ma...</font> <font color="black">mail.com</font> <font color="black">bestpornhost.com</font> <font color="black">FREE</font> <font color="black">ADULT</font> <font color="black">CREDIT</font> <font color="black">CARD</font> <font color="black">NEEDED</font> <font color="black">CLICK</font> <font color="black">HERE</font> <font color="black">Congratulations</font> <font color="black">selected</font> <font color="black">recieve</font> <font color="black">membership</font> <font color="black">best</font> <font color="black">site</font> <font color="black">choice</font> <font color="black">every</font> <font color="black">niche</font> <font color="black">imagine</font> <font color="black">sites</font> <font color="black">high</font> <font color="black">quality</font> <font color="black">contant</font> <font color="black">member</font> <font color="black">section</font> <font color="black">less</font> <font color="black">than</font> <font color="black">min</font> <font color="black">best</font> <font color="black">vasya</font> <font color="black">instanthome</font> <font color="black">mailing</font> <font color="black">error</font> <font color="black">wish</font> <font color="black">receive</font> <font color="black">further</font> <font color="black">offers</font> <font color="black">notices</font> <font color="black">simply</font> <font color="black">here</font> </tt>
--- NEW FILE: TestMailParse011.col ---
<tt>Return-Path: <<b><font color="black">hor...@fr...</font></b>><br />
Delivered-To: myrealemailaddress@<b><font color="black">domain</font></b><br />
Received: (<b><font color="black">qmail</font></b> 26261 <b><font color="black">invoked</font></b> by <b><font color="black">uid</font></b> 609); 18 Jan 2003 06:22:49 -0000<br />
Delivered-To: <b><font color="black">spam</font></b>-address-ccbill@<b><font color="black">domain</font></b><br />
Received: (<b><font color="black">qmail</font></b> 26258 <b><font color="black">invoked</font></b> by <b><font color="black">uid</font></b> 421); 18 Jan 2003 06:22:49 -0000 <b><font color="black">blah</font></b> <b><font color="black">blah</font></b><br />
by <b><font color="black">ekardia</font></b> with <b><font color="black">Microsoft</font></b> SMTPSVC(5.0.2122.2262);<br />
Sat, 18 Jan 2003 15:26:39 +0900<br />
Date: Sat, 18 Jan 2003 06:25:35 GMT<br />
From: "<b><font color="black">Acaynya</font></b>"<<b><font color="black">hornydarla3553qqoe1@<b><font color="black">free.fr</font></b></font></b>><br />
X-Priority: 3<br />
To: <b><font color="black">spamaddy@domain</font></b><br />
Subject: <b><font color="black">spamaddy</font></b>,<b><font color="black">what</font></b> ?<br />
Mime-Version: 1.0<br />
Content-Type: text/plain; charset=<b><font color="black">us-ascii</font></b><br />
Content-Transfer-Encoding: 7bit<br />
Message-ID: <EKARDIAX6Mmasdf78970016@ekardia><br />
X-OriginalArrivalTime: 18 Jan 2003 06:26:40.0656 (<b><font color="black">UTC</font></b>)<br />
FILETIME=[8FDC2900:01BAAAABA]<br />
<br />
I <b><font color="black">think</font></b> you <b><font color="black">answered</font></b> my ad <b><font color="black">longtime</font></b> <b><font color="black">ago</font></b> if it was not you I am <b><font color="black">sorry</font></b>.<br />
If it was I could not <b><font color="black">answer</font></b><br />
you <b><font color="black">because</font></b> my <b><font color="black">Eudora</font></b> <b><font color="black">died</font></b> and I could not <b><font color="black">get</font></b> it to <b><font color="black">work</font></b> but my <b><font color="black">friend</font></b> <b><font color="black">got</font></b><br />
the <b><font color="black">emails</font></b> address out for me ..:)<br />
I <b><font color="black">hope</font></b> it was you and you are <b><font color="black">still</font></b> <b><font color="black">interested</font></b>,<br />
as I <b><font color="black">realize</font></b> <b><font color="black">lots</font></b> of <b><font color="black">time</font></b> has <b><font color="black">past</font></b>.<br />
I <b><font color="black">really</font></b> <b><font color="black">don't</font></b> <b><font color="black">know</font></b> <b><font color="black">where</font></b> to <b><font color="black">start</font></b> ....<br />
<b><font color="black">Maybe</font></b> you can <b><font color="black">tell</font></b> me <b><font color="black">little</font></b> <b><font color="black">more</font></b> <b><font color="black">about</font></b> <b><font color="black">yourself</font></b> <b><font color="black">since</font></b> I <b><font color="black">lost</font></b> your <b><font color="black">first</font></b> <b><font color="black">email</font></b><br />
,<br />
<b><font color="black">what</font></b> you <b><font color="black">look</font></b> <b><font color="black">like</font></b>,<b><font color="black">age</font></b>,and are you <b><font color="black">still</font></b> <b><font color="black">looking</font></b> ?<br />
If you are <b><font color="black">interested</font></b> <b><font color="black">learning</font></b> <b><font color="black">more</font></b> <b><font color="black">about</font></b> me, I have a <b><font color="black">profile</font></b> at :<br />
<br />
http://<b><font color="black">www.<b><font color="black">hiddenmatch.com</font></b></font></b><br />
<br />
I am NOT a <b><font color="black">Porn</font></b> <b><font color="black">Chick</font></b> ..:-)<br />
I <b><font color="black">just</font></b> <b><font color="black">chose</font></b> it <b><font color="black">because</font></b> you <b><font color="black">don't</font></b> have to <b><font color="black">pay</font></b>,<br />
And <b><font color="black">they</font></b> <b><font color="black">allow</font></b> any <b><font color="black">pictures</font></b> I <b><font color="black">want</font></b> .:).<br />
Oh <b><font color="black">yea</font></b> , My <b><font color="black">username</font></b> is darla1792 .<br />
<b><font color="black">Don't</font></b> <b><font color="black">really</font></b> <b><font color="black">know</font></b> <b><font color="black">what</font></b> <b><font color="black">else</font></b> to <b><font color="black">say</font></b> for <b><font color="black">now</font></b> I <b><font color="black">hope</font></b> this is the <b><font color="black">right</font></b> address .<br />
<b><font color="black">Let</font></b> me <b><font color="black">know</font></b> if you are <b><font color="black">interested</font></b>, And I <b><font color="black">hope</font></b><br />
you <b><font color="black">don't</font></b> <b><font color="black">run</font></b> <b><font color="black">when</font></b> you <b><font color="black">see</font></b> my <b><font color="black">picture</font></b> :-)<br />
<br />
<b><font color="black">Bye</font></b> ..... D<br />
</tt>
--- NEW FILE: TestMailParse012.col ---
<tt>Return-Path: <<b><font color="black">Bri...@ao...</font></b>><br />
Received: from <b><font color="black">sunsinger</font></b>.<b><font color="black">herald</font></b>.co.uk (<b><font color="black">sunsinger</font></b>.<b><font color="black">herald</font></b>.co.uk [<b><font color="black">213.38.80.4</font></b>]) by <b><font color="black">walnut.<b><font color="black">he.net</font></b></font></b> (8.8.6/8.8.2) with ESMTP <br />
id RAA04728 for <<b><font color="black">jg...@ex...</font></b>>; Mon, 20 Jan 2003 17:08:29 -0800<br />
Received: from <b><font color="black">mailin-03.<b><font color="black">mx.<b><font color="black">aol.com</font></b></font></b></font></b> (CacheFlowServer@[<b><font color="black">200.215.97.82</font></b>])<br />
by sunsinger.herald.co.uk (8.9.3/8.9.3/Debian/GNU) with SMTP id BAA08887<br />
for <web...@jg...>; Tue, 21 Jan 2003 01:08:19 GMT<br />
Date: Tue, 21 Jan 2003 01:08:19 GMT<br />
Message-Id: <200...@su...><br />
X-Authentication-Warning: <b><font color="black">sunsinger</font></b>.<b><font color="black">herald</font></b>.co.uk: <b><font color="black">Host</font></b> CacheFlowServer@[<b><font color="black">200.215.97.82</font></b>] <b><font color="black">claimed</font></b> to be <br />
<b><font color="black">mailin-03.<b><font color="black">mx.<b><font color="black">aol.com</font></b></font></b></font></b><br />
From: Brianna121 <<b><font color="black">Brianna121@<b><font color="black">aol.com</font></b></font></b>><br />
To: <<b><font color="black">webmaster@<b><font color="black">jgc.org</font></b></font></b>><br />
Subject: [spam] <b><font color="black">Want</font></b> to <b><font color="black">see</font></b> a <b><font color="black">huge</font></b> <b><font color="black">horse</font></b> c*ck in a <b><font color="black">tiny</font></b> <b><font color="black">teen</font></b> c*nt?<br />
MIME-Version: 1.0<br />
Content-Type: text/html; charset="<b><font color="black">US-ASCII</font></b>"<br />
Content-transfer-encoding: 7bit<br />
X-UIDL: M-$"!c:b"!57:!!i#1!!<br />
X-Text-Classification: spam<br />
X-POPFile-Link: <http://<b><font color="black">127.0.0.1</font></b>:9090/<b><font color="black">jump</font></b>_to_message?view=popfile2146=1.<b><font color="black">msg</font></b>><br />
<br />
<html><br />
<br />
<head><br />
<title><b><font color="black">get</font></b> it <b><font color="black">now</font></b></title><br />
<base target="_blank"><br />
</head><br />
<body alink="Blue" link="Blue" vlink="Blue"><br />
<a href="http://<b><font color="black">pc.<b><font color="black">x-x-xfreehosting.com</font></b></font></b>/pc"><br />
You <b><font color="black">think</font></b> you have <b><font color="black">seen</font></b> <b><font color="black">some</font></b> <b><font color="black">pretty</font></b> <b><font color="black">crazy</font></b> <b><font color="black">porn</font></b> on the <b><font color="black">internet</font></b>? YOU <b><font color="black">HAVEN'T</font></b> <b><font color="black">SEEN</font></b> <b><font color="black">SHIT</font></b>! I <b><font color="black">saw</font></b> the <b><font color="black">most</font></b> <b><font color="black">unbelievable</font></b> <b><font color="black">movie</font></b> <br />
<b><font color="black">clip</font></b> <b><font color="black">ever</font></b> to <b><font color="black">grace</font></b> the <b><font color="black">internet</font></b>! <b><font color="black">These</font></b> <b><font color="black">guys</font></b> <b><font color="black">put</font></b> up a <b><font color="black">clip</font></b> of a <b><font color="black">beautiful</font></b> <b><font color="black">teen</font></b> <b><font color="black">farm</font></b> <b><font color="black">girl</font></b> <b><font color="black">who</font></b> <b><font color="black">actually</font></b> <b><font color="black">fucks</font></b> her <br />
<b><font color="black">horse</font></b>!<br />
<br><br />
NO <b><font color="black">BULLSHIT</font></b>, SHE <b><font color="black">ACTUALLY</font></b> <b><font color="black">FUCKS</font></b> A <b><font color="black">HORSE</font></b> WITH A 25 <b><font color="black">INCH</font></b> <b><font color="black">COCK</font></b>! <br />
THE <b><font color="black">MOVIE</font></b> <b><font color="black">QUALITY</font></b> IS <b><font color="black">GREAT</font></b> AND HAS <b><font color="black">SOUND</font></b> <b><font color="black">TOO</font></b>! IT IS <b><font color="black">UNBELIEVABLE</font></b>!<br />
<br><br><br />
THIS <b><font color="black">LITTLE</font></b> <b><font color="black">SLUTS</font></b> CAN <b><font color="black">REALLY</font></b> <b><font color="black">HANDLE</font></b> A <b><font color="black">GIANT</font></b> <b><font color="black">HORSE</font></b> <b><font color="black">COCK</font></b> IN HER <b><font color="black">TIGHT</font></b> <b><font color="black">LITTLE</font></b> <b><font color="black">TEEN</font></b> <b><font color="black">PUSSY</font></b> <b><font color="black">LIKE</font></b> YOU WOULD NOT <b><font color="black">BELIEVE</font></b>! YOU <br />
<b><font color="black">HAV</font></b> TO <b><font color="black">WATCH</font></b> THIS <b><font color="black">CLIP</font></b> <b><font color="black">BEFORE</font></b> <b><font color="black">SOMEONE</font></b> <b><font color="black">FINDS</font></b> IT AND <b><font color="black">TAKE</font></b> IT OFF.<br />
<br><br><br />
<b><font color="black">HERES</font></b> THE <b><font color="black">GOOD</font></b> <b><font color="black">PART</font></b>. <b><font color="black">THESE</font></b> <b><font color="black">GUYS</font></b> <b><font color="black">AREN'T</font></b> A <b><font color="black">NORMAL</font></b> <b><font color="black">PORN</font></b> <b><font color="black">SITE</font></b> SO <b><font color="black">THEY</font></b> <b><font color="black">DON'T</font></b> <b><font color="black">WANT</font></b> <b><font color="black">MONEY</font></b> TO <b><font color="black">LET</font></b> US <b><font color="black">WATCH</font></b> SO ITS <b><font color="black">FREE</font></b>. BUT <b><font color="black">WHAT</font></b> <br />
<b><font color="black">THEY</font></b> DO IS <b><font color="black">MAKE</font></b> YOU <b><font color="black">TAKE</font></b> THIS <b><font color="black">TEST</font></b> THAT <b><font color="black">ASKS</font></b> <b><font color="black">HOW</font></b> BIG A <b><font color="black">HORSE</font></b> <b><font color="black">DICK</font></b> IS. <b><font color="black">THAT'S</font></b> <b><font color="black">SOMETHING</font></b> THAT <b><font color="black">ONLY</font></b> <b><font color="black">PEOPLE</font></b> <b><font color="black">INTO</font></b> <b><font color="black">ANIMAL</font></b> <b><font color="black">SEX</font></b> <br />
WOULD <b><font color="black">KNOW</font></b>. SO I <b><font color="black">THINK</font></b> <b><font color="black">THEY</font></b> ARE <b><font color="black">JUST</font></b> <b><font color="black">TRYING</font></b> TO <b><font color="black">MAKE</font></b> <b><font color="black">SURE</font></b> YOU ARE <b><font color="black">SOMEONE</font></b> <b><font color="black">WHOS</font></b> <b><font color="black">INTO</font></b> THIS <b><font color="black">STUFF</font></b>..NOT <b><font color="black">SOMEONE</font></b> <b><font color="black">WHO</font></b> <b><font color="black">WANTS</font></b> TO <br />
<b><font color="black">BUST</font></b> <b><font color="black">THEM</font></b>. SO IF <b><font color="black">YOU'RE</font></b> <b><font color="black">LIKE</font></b> ME AND <b><font color="black">DON'T</font></b> <b><font color="black">KNOW</font></b> <b><font color="black">ANYTHING</font></b> <b><font color="black">ABOUT</font></b> <b><font color="black">ANIMALS</font></b> <b><font color="black">JUST</font></b> <b><font color="black">GUESS</font></b> THE <b><font color="black">SIZE</font></b>. <b><font color="black">THERE</font></b> ARE <b><font color="black">ONLY</font></b> 3 <b><font color="black">CHOICES</font></b> AND <br />
IF YOU <b><font color="black">GET</font></b> IT <b><font color="black">RIGHT</font></b> <b><font color="black">YOU'RE</font></b> IN. YOU <b><font color="black">GET</font></b> TO <b><font color="black">WATCH</font></b> THE <b><font color="black">WHOLE</font></b> <b><font color="black">CLIP</font></b>..A...
[truncated message content] |
|
From: <ssc...@us...> - 2003-03-13 03:08:41
|
Update of /cvsroot/popfile/engine
In directory sc8-pr-cvs1:/tmp/cvs-serv24984
Added Files:
traintest.pl
Log Message:
adding traintest.pl "perl traintest.pl -usage" for basic help, email me for more for now
--- NEW FILE: traintest.pl ---
#!/usr/bin/perl
# ---------------------------------------------------------------------------------------------
#
# traintest.pl - Simulate training on errors using a saved archive.
#
# Copyright (c) 2001-2003 John Graham-Cumming
#
# ---------------------------------------------------------------------------------------------
use strict;
use Classifier::Bayes;
use POPFile::Configuration;
my $debug = 0;
my $DEFAULT_CSV = 'auto';
my $DEFAULT_TOE = 1;
my $DEFAULT_WINDOW1 = 100;
my $DEFAULT_WINDOW2 = 500;
my $DEFAULT_CLASSIFIER = "bayes";
my $DEFAULT_ARCHIVE = "archive";
$| = 1;
$, = ", ";
my %wordtab;
# ---------------------------------------------------------------------------------------------
#
# compare_mf - Compares two mailfiles, used for sorting mail into order
#
# ---------------------------------------------------------------------------------------------
# NB, wasn't able to get this to work as part of HTML.pm
sub compare_mf
{
my $ad;
my $bd;
my $am;
my $bm;
if ( $a =~ /popfile(.*)=(.*)\.msg/ ) {
$ad = $1;
$am = $2;
if ( $b =~ /popfile(.*)=(.*)\.msg/ ) {
$bd = $1;
$bm = $2;
if ( $ad == $bd ) {
return ( $bm <=> $am );
} else {
return ( $bd <=> $ad );
}
}
}
return 0;
}
sub initialize
{
my ($config) = @_;
$config->parameter("csv",$DEFAULT_CSV);
$config->parameter("toe",$DEFAULT_TOE);
$config->parameter("window1",$DEFAULT_WINDOW1);
$config->parameter("window2",$DEFAULT_WINDOW2);
$config->parameter("classifier",$DEFAULT_CLASSIFIER);
$config->parameter("archive_dir",$DEFAULT_ARCHIVE);
}
sub cvs_out
{
my ($config, $file, @log) = @_;
if ($file eq 'auto') {
if ($config->parameter('toe') == 1) {
$file = "toe";
} else {
$file = "te";
}
if ( ( $config->parameter('window1') ne $DEFAULT_WINDOW1 ) && \
( $config->parameter('window2') ne $DEFAULT_WINDOW2 ) ) {
$file .= "$config->parameter('window1')and$config->parameter('window2')";
}
$file .= ".csv";
}
print STDERR "Printing data to $file\n";
open CSV, ">$file";
$, = ",";
print CSV sort keys %{ @log[1] };
foreach my $message (0 .. $#log) {
$message = @log[$message];
foreach my $item (sort keys %{$message}) {
my $value = $message->{$item};
$value =~ s/\"/'/g;
print CSV "\"$value\",";
}
print CSV "\n";
}
print STDERR "Data saved to $file\n";
$, = "";
}
sub reclassify
{
my ($b,$bucket) = @_;
foreach my $word (keys %{ $b->{parser__}->{words__} }) {
my $wordvalue = $wordtab{$bucket."|".$word};
$wordtab{$bucket."|".$word} += $b->{parser__}->{words__}{$word};
# my $wordvalue = $b->get_value($bucket, $word);
# $b->set_value($bucket,$word, $wordvalue + $b->{parser}->{words}{$word} );
# $b->set_value($bucket,$word, $wordtab{$bucket."|".$word});
$b->{total__}{$bucket} += $b->{parser__}->{words__}{$word};
$b->{unique__}{$bucket} += 1 if ($wordvalue == 0);
}
$b->{full_total__} += $b->{parser__}{msg_total__};
foreach my $word (keys %wordtab) {
if ( $word =~ /^\Q$bucket\E\|(.*)$/ ) {
$b->set_value_($bucket,$1, $wordtab{$word});
}
}
$b->update_constants_();
}
sub retrain_decider
{
my ($toe,$predicted,$actual) = @_;
if ($toe == 1) {
return ($predicted ne $actual);
} elsif ($toe == 0) {
return 1;
} elsif ($toe == 2) {
return (rand > .5);
}
}
sub find_messages
{
my ( $archive ) = @_;
my $messages = {};
my @buckets_array = glob "$archive/*";
foreach my $abucket (@buckets_array) {
$abucket =~ s/.*\/(.*)$/$1/;
print "saved bucket $abucket opening\n" if ($debug);
my @dir_messages;
my $subdirs = 1;
my $locations = 0;
#$messages->{messages}{$abucket} = {};
my @subdirectories = glob "$archive/$abucket/*";
foreach my $dir (@subdirectories) {
$dir =~ s/.*\/(.*)$/$1/;
print "$abucket subdirectory $dir opening..." if ($debug);
if ( opendir(DIR,"$archive/$abucket/$dir") ) {
print "(open):\n" if ($debug);
$messages->{buckets}{$abucket}{subdirs}{$dir} = {};
$messages->{locations}[$locations] = "$archive/$abucket/$dir";
$locations++;
$subdirs = 1;
closedir(DIR);
foreach my $message ( glob( "$archive/$abucket/$dir/*.msg" ) ) {
my $shortname = $message;
$shortname =~ s/.*\/(.*)$/$1/;
$messages->{messages}{$shortname}{bucket} = $abucket;
$messages->{messages}{$shortname}{long} = $message;
$messages->{buckets}{$abucket}{messages}{$shortname} = $abucket;
$messages->{buckets}{$abucket}{subdirs}{$dir}{$shortname} = $abucket;
}
} else {
print ":" if ($debug);
$subdirs = 0;
last;
}
}
if ($subdirs == 0) {
print "$abucket root dir opening messages:\n" if $debug;
foreach my $message ( glob( "$archive/$abucket/*.msg") ) {
my $shortname = $message;
$shortname =~ s/.*\/(.*)$/$1/;
$messages->{messages}{$shortname}{bucket} = $abucket;
$messages->{messages}{$shortname}{long} = $message;
$messages->{buckets}{$abucket}{messages}{$shortname} = $abucket;
}
$messages->{locations}[$locations] = "$archive/$abucket";
$locations++;
}
}
return $messages;
}
my $self = {};
# main
if ( @ARGV[0] ne "-usage")
{
my $b = new Classifier::Bayes;
my $c = new POPFile::Configuration;
$b->configuration( $c );
$c->configuration( $c );
$c->initialize();
$b->initialize();
initialize( $c );
$c->load_configuration();
$c->parse_command_line();
# $b->{unclassified} = ($c->parameter('unclassified_probability') || 0.0001);
$b->{unclassified__} = ($c->parameter("bayes_unclassified_probability") || 0.5);
my $archive = $c->parameter("ui_archive_dir");
#load the messages
$self->{messages} = find_messages($archive);
#some debug output to verify bucket structure
if ($debug) {
foreach my $abucket ( keys %{ $self->{messages}->{buckets} } ) {
print "$abucket:" . (keys %{ $self->{messages}->{buckets}{$abucket}{messages} }). "\n";
#print keys %{$self->{messages}->{$abucket}};
foreach my $message (keys %{ $self->{messages}->{buckets}{$abucket}{messages} } ) {
print "\t$message $self->{messages}->{buckets}{$abucket}{messages}{$message}\n";
}
}
}
# build a bucket skeleton
foreach my $abucket ( keys %{ $self->{messages}->{buckets} } ) {
$b->{total__}{$abucket} = 0;
$b->{colors__}{$abucket} = "black";
}
$self->{messages}->{buckets}{unclassified} = {};
#sort the messages
my @sorted_messages = sort compare_mf keys %{$self->{messages}{messages}};
# my @sorted_messages = keys %{$self->{messages}{messages}};
#more debug output
if ($debug) {
print "sorted " . $#sorted_messages . ": ";
foreach my $index (0 .. $#sorted_messages ) {
print " " . @sorted_messages[$index];
}
print "\n\n";
}
$b->{debug} = 0;
$b->{parser__}->{debug} = 0;
my ($bucket_class, $bucket_true, $correct);
my $error_count = 0;
my @errors;
my @clog;
#loop through all saved messages, classify
my $start_time = time;
my $total_size = 0;
foreach my $index (0 .. $#sorted_messages ) {
$correct = 1;
my $message_count = $index + 1;
$index = $#sorted_messages - $index;
print "\n$self->{messages}->{messages}{ @sorted_messages[$index] }{long}:" if ($debug);
$bucket_class = $b->classify_file( $self->{messages}->{messages}{ @sorted_messages[$index] }{long});
$bucket_true = $self->{messages}->{messages}{ @sorted_messages[$index] }{bucket};
if ($bucket_class ne $bucket_true) {
@errors[$error_count] = {};
@errors[$error_count]->{index}= $message_count;
@errors[$error_count]->{subject} = $b->{parser}->{subject};
@errors[$error_count]->{shouldbe} = $bucket_true;
@errors[$error_count]->{classified_as} = $bucket_class;
$error_count++;
$correct = 0;
if ($bucket_class eq 'unclassified') {
print STDERR "/";
} else {
print STDERR "+";
}
} else {
print STDERR ".";
}
if ( retrain_decider($c->parameter('toe'),$bucket_class, $bucket_true) ) {
print STDERR "Reclassifying $message_count $bucket_class => $bucket_true.\n" if ($debug);
reclassify($b,$bucket_true);
}
@clog[$message_count] = {};
@clog[$message_count]->{count} = $message_count;
@clog[$message_count]->{correct} = $correct;
@clog[$message_count]->{error_count} = $error_count;
@clog[$message_count]->{accuracy} = int( 10000 * ( $message_count - $error_count ) / $message_count ) / 100;
@clog[$message_count]->{subject} = $b->{parser}->{subject};
@clog[$message_count]->{from} = $b->{parser}->{from};
@clog[$message_count]->{shouldbe} = $bucket_true;
@clog[$message_count]->{classified_as} = $bucket_class;
@clog[$message_count]->{filename} = @sorted_messages[$index];
foreach my $abucket (keys %{ $self->{messages}->{buckets} } ) {
if ($message_count != 1) {
if ( ( $abucket eq $bucket_class ) && ( $bucket_class ne $bucket_true ) ) {
@clog[$message_count]->{"misclassified_count_$abucket"} = $clog[($message_count - 1)]->{"misclassified_count_$abucket"} + 1;
} else {
@clog[$message_count]->{"misclassified_count_$abucket"} = $clog[($message_count - 1)]->{"misclassified_count_$abucket"};
}
} else {
@clog[$message_count]->{"misclassified_count_$abucket"} = ((($bucket_true ne $bucket_class) && ($bucket_class eq $abucket))?1:0);
}
}
my $window_size = $c->parameter("window2");
my $window_errors = 0;
foreach my $error (0 .. $#errors) {
if ( @errors[$error]->{index} > ($message_count - $window_size) ) {
$window_errors++;
}
}
@clog[$message_count]->{window_errors} = $window_errors;
$window_size = (($window_size > $message_count)?$message_count:$window_size);
@clog[$message_count]->{moving_accuracy} = int( 10000 * ( $window_size - $window_errors ) / $window_size ) / 100;
}
print STDERR "\n";
my $end_time = time;
my $total_messages = $#sorted_messages + 1;
my $accuracy = int( 10000 * ( $total_messages - $error_count ) / $total_messages ) / 100;
print STDERR "process took " . ($end_time - $start_time) . " seconds\n";
print STDERR "$error_count out of " . $total_messages . " incorrect\n";
print STDERR "that's $accuracy% accurate\n";
cvs_out($c, $c->parameter('csv'), @clog) if ($c->parameter('csv') ne "none");
} else {
print "traintest.pl - perform classification tests on archived messages\n\n";
print "Usage: traintest.pl [-usage] [-csv auto|filename] [-parameter value [-parameter value] ...]\n";
print " -usage: Displays this screen\n";
print " Other Parameters Use\n";
print " -archive_dir: Location to seek an archive\n";
print " -csv: Filename to save CSV log to, \"auto\" generates a filename\n";
print " -toe: Train Only Errors, defaults to $DEFAULT_TOE";
}
|
|
From: <jgr...@us...> - 2003-03-12 21:28:26
|
Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1:/tmp/cvs-serv31997/UI
Modified Files:
HTML.pm
Log Message:
Clean up regexps used to separate out the popfile123=123.msg part of a history message file name, fixes a bug where if there was popfile in the path various things would not work
Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.112
retrieving revision 1.113
diff -C2 -d -r1.112 -r1.113
*** HTML.pm 11 Mar 2003 22:19:22 -0000 1.112
--- HTML.pm 12 Mar 2003 21:28:21 -0000 1.113
***************
*** 2793,2797 ****
$body .= "<a name=\"$mail_file\"></a>";
$body .= $i+1 . "</td>\n<td>";
! $mail_file =~ /popfile\d+=(\d+)\.msg/;
$body .= "<a title=\"$from\">$short_from</a></td>\n";
$body .= "<td><a class=\"messageLink\" title=\"$subject\" href=\"/history?view=$mail_file&start_message=$start_message&session=$self->{session_key__}&sort=$self->{form__}{sort}&filter=$self->{form__}{filter}&search=$self->{form__}{search}#$mail_file\">";
--- 2793,2797 ----
$body .= "<a name=\"$mail_file\"></a>";
$body .= $i+1 . "</td>\n<td>";
! $mail_file =~ /popfile\d+=(\d+)\.msg$/;
$body .= "<a title=\"$from\">$short_from</a></td>\n";
$body .= "<td><a class=\"messageLink\" title=\"$subject\" href=\"/history?view=$mail_file&start_message=$start_message&session=$self->{session_key__}&sort=$self->{form__}{sort}&filter=$self->{form__}{filter}&search=$self->{form__}{search}#$mail_file\">";
***************
*** 3187,3191 ****
for my $i (0..$#{$self->{languages__}}) {
! $self->{languages__}[$i] =~ s/.*\/(.+)\.msg/$1/;
}
}
--- 3187,3191 ----
for my $i (0..$#{$self->{languages__}}) {
! $self->{languages__}[$i] =~ s/.*\/(.+)\.msg$/$1/;
}
}
***************
*** 3297,3301 ****
my ( $self, $mail_file, $archive ) = @_;
! $mail_file =~ /(popfile.+\=.+\.msg)/;
$mail_file = $1;
$self->log_( "delete: $mail_file" );
--- 3297,3301 ----
my ( $self, $mail_file, $archive ) = @_;
! $mail_file =~ /(popfile.+\=.+\.msg)$/;
$mail_file = $1;
$self->log_( "delete: $mail_file" );
|
|
From: <kin...@us...> - 2003-03-11 22:19:35
|
Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1:/tmp/cvs-serv7144
Modified Files:
HTML.pm
Log Message:
Convert all tabs to spaces
Fixed indenting in a few places
Change the & lt; and & gt; used in the <no from/subject> text to use <>'s because we're going to do the substitution ourselves a few lines later.
Fixed an & in the bottom links.
Move Apply buttons in the Config/History View to the right side of the text fields.
Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.111
retrieving revision 1.112
diff -C2 -d -r1.111 -r1.112
*** HTML.pm 11 Mar 2003 08:47:33 -0000 1.111
--- HTML.pm 11 Mar 2003 22:19:22 -0000 1.112
***************
*** 231,235 ****
EOM
! return 0;
}
--- 231,235 ----
EOM
! return 0;
}
***************
*** 606,610 ****
$result .= "$self->{language__}{Footer_Manual}</a> - \n";
! $result .= "<a class=\"bottomLink\" href=\"http://sourceforge.net/docman/display_doc.php?docid=14421&group_id=63137\">FAQ</a> - \n";
$result .= "<a class=\"bottomLink\" href=\"http://popfile.sourceforge.net/\">$self->{language__}{Footer_HomePage}</a> - \n";
$result .= "<a class=\"bottomLink\" href=\"http://sourceforge.net/forum/forum.php?forum_id=213876\">$self->{language__}{Footer_FeedMe}</a> - \n";
--- 606,610 ----
$result .= "$self->{language__}{Footer_Manual}</a> - \n";
! $result .= "<a class=\"bottomLink\" href=\"http://sourceforge.net/docman/display_doc.php?docid=14421&group_id=63137\">FAQ</a> - \n";
$result .= "<a class=\"bottomLink\" href=\"http://popfile.sourceforge.net/\">$self->{language__}{Footer_HomePage}</a> - \n";
$result .= "<a class=\"bottomLink\" href=\"http://sourceforge.net/forum/forum.php?forum_id=213876\">$self->{language__}{Footer_FeedMe}</a> - \n";
***************
*** 833,838 ****
$body .= "<form action=\"/configuration\">\n";
$body .= "<label class=\"configurationLabel\" for=\"configPageSize\">$self->{language__}{Configuration_History}:</label><br />\n";
- $body .= "<input type=\"submit\" class=\"submit\" name=\"update_page_size\" value=\"$self->{language__}{Apply}\" />\n";
$body .= "<input name=\"page_size\" id=\"configPageSize\" type=\"text\" value=\"" . $self->config_( 'page_size' ) . "\" />\n";
$body .= "<input type=\"hidden\" name=\"session\" value=\"$self->{session_key__}\" />\n</form>\n$page_size_error\n";
$body .= sprintf( $self->{language__}{Configuration_HistoryUpdate}, $self->config_( 'page_size' ) ) if ( defined($self->{form__}{page_size}) );
--- 833,838 ----
$body .= "<form action=\"/configuration\">\n";
$body .= "<label class=\"configurationLabel\" for=\"configPageSize\">$self->{language__}{Configuration_History}:</label><br />\n";
$body .= "<input name=\"page_size\" id=\"configPageSize\" type=\"text\" value=\"" . $self->config_( 'page_size' ) . "\" />\n";
+ $body .= "<input type=\"submit\" class=\"submit\" name=\"update_page_size\" value=\"$self->{language__}{Apply}\" />\n";
$body .= "<input type=\"hidden\" name=\"session\" value=\"$self->{session_key__}\" />\n</form>\n$page_size_error\n";
$body .= sprintf( $self->{language__}{Configuration_HistoryUpdate}, $self->config_( 'page_size' ) ) if ( defined($self->{form__}{page_size}) );
***************
*** 841,846 ****
$body .= "\n<form action=\"/configuration\">\n";
$body .= "<label class=\"configurationLabel\" for=\"configHistoryDays\">$self->{language__}{Configuration_Days}:</label> <br />\n";
- $body .= "<input type=\"submit\" class=\"submit\" name=\"update_history_days\" value=\"$self->{language__}{Apply}\" />\n";
$body .= "<input name=\"history_days\" id=\"configHistoryDays\" type=\"text\" value=\"" . $self->config_( 'history_days' ) . "\" />\n";
$body .= "<input type=\"hidden\" name=\"session\" value=\"$self->{session_key__}\" />\n";
$body .= "</form>\n$history_days_error\n";
--- 841,846 ----
$body .= "\n<form action=\"/configuration\">\n";
$body .= "<label class=\"configurationLabel\" for=\"configHistoryDays\">$self->{language__}{Configuration_Days}:</label> <br />\n";
$body .= "<input name=\"history_days\" id=\"configHistoryDays\" type=\"text\" value=\"" . $self->config_( 'history_days' ) . "\" />\n";
+ $body .= "<input type=\"submit\" class=\"submit\" name=\"update_history_days\" value=\"$self->{language__}{Apply}\" />\n";
$body .= "<input type=\"hidden\" name=\"session\" value=\"$self->{session_key__}\" />\n";
$body .= "</form>\n$history_days_error\n";
***************
*** 1346,1350 ****
$self->{form__}{text} =~ s/[ \t]+$//;
! $self->{classifier__}->create_magnet( $self->{form__}{bucket}, $self->{form__}{type}, $self->{form__}{text});
$magnet_message = "<blockquote>" . sprintf( $self->{language__}{Magnet_Error3}, "$self->{form__}{type}: $self->{form__}{text}", $self->{form__}{bucket} ) . "</blockquote>";
}
--- 1346,1350 ----
$self->{form__}{text} =~ s/[ \t]+$//;
! $self->{classifier__}->create_magnet( $self->{form__}{bucket}, $self->{form__}{type}, $self->{form__}{text});
$magnet_message = "<blockquote>" . sprintf( $self->{language__}{Magnet_Error3}, "$self->{form__}{type}: $self->{form__}{text}", $self->{form__}{bucket} ) . "</blockquote>";
}
***************
*** 1438,1443 ****
$body .="<br />\n";
! # end optional widget placement
! $body .= "</div>\n";
http_ok($self, $client,$body,4);
--- 1438,1443 ----
$body .="<br />\n";
! # end optional widget placement
! $body .= "</div>\n";
http_ok($self, $client,$body,4);
***************
*** 1628,1632 ****
if ( ( defined($self->{form__}{delete}) ) && ( $self->{form__}{name} ne '' ) ) {
$self->{form__}{name} = lc($self->{form__}{name});
! $self->{classifier__}->delete_bucket( $self->{form__}{name} );
$deletemessage = "<blockquote><b>" . sprintf( $self->{language__}{Bucket_Error6}, $self->{form__}{name} ) . "</b></blockquote>";
}
--- 1628,1632 ----
if ( ( defined($self->{form__}{delete}) ) && ( $self->{form__}{name} ne '' ) ) {
$self->{form__}{name} = lc($self->{form__}{name});
! $self->{classifier__}->delete_bucket( $self->{form__}{name} );
$deletemessage = "<blockquote><b>" . sprintf( $self->{language__}{Bucket_Error6}, $self->{form__}{name} ) . "</b></blockquote>";
}
***************
*** 1638,1642 ****
$self->{form__}{oname} = lc($self->{form__}{oname});
$self->{form__}{newname} = lc($self->{form__}{newname});
! $self->{classifier__}->rename_bucket( $self->{form__}{oname}, $self->{form__}{newname} );
$rename_message = "<blockquote><b>" . sprintf( $self->{language__}{Bucket_Error5}, $self->{form__}{oname}, $self->{form__}{newname} ) . "</b></blockquote>";
}
--- 1638,1642 ----
$self->{form__}{oname} = lc($self->{form__}{oname});
$self->{form__}{newname} = lc($self->{form__}{newname});
! $self->{classifier__}->rename_bucket( $self->{form__}{oname}, $self->{form__}{newname} );
$rename_message = "<blockquote><b>" . sprintf( $self->{language__}{Bucket_Error5}, $self->{form__}{oname}, $self->{form__}{newname} ) . "</b></blockquote>";
}
***************
*** 1886,1891 ****
$body .= "</form>\n$rename_message\n<br />\n";
! # end optional widget placement
! $body .= "</div>\n</td>\n";
# Lookup panel
--- 1886,1891 ----
$body .= "</form>\n$rename_message\n<br />\n";
! # end optional widget placement
! $body .= "</div>\n</td>\n";
# Lookup panel
***************
*** 1903,1907 ****
# end optional widget placement
! $body .= "</div>\n";
if ( ( defined($self->{form__}{lookup}) ) || ( defined($self->{form__}{word}) ) ) {
--- 1903,1907 ----
# end optional widget placement
! $body .= "</div>\n";
if ( ( defined($self->{form__}{lookup}) ) || ( defined($self->{form__}{word}) ) ) {
***************
*** 2164,2169 ****
}
! $from = "<$self->{language__}{History_NoFrom}>" if ( $from eq '' );
! $subject = "<$self->{language__}{History_NoSubject}>" if ( !( $subject =~ /[^ \t\r\n]/ ) );
$from =~ s/\"(.*)\"/$1/g;
--- 2164,2169 ----
}
! $from = "<$self->{language__}{History_NoFrom}>" if ( $from eq '' );
! $subject = "<$self->{language__}{History_NoSubject}>" if ( !( $subject =~ /[^ \t\r\n]/ ) );
$from =~ s/\"(.*)\"/$1/g;
***************
*** 2428,2432 ****
if ( !$reclassified ) {
! $self->{classifier__}->add_message_to_bucket( $self->global_config_( 'msgdir' ) . $mail_file, $newbucket );
$self->global_config_( 'ecount', $self->global_config_( 'ecount' ) + 1 ) if ( $newbucket ne $bucket );
--- 2428,2432 ----
if ( !$reclassified ) {
! $self->{classifier__}->add_message_to_bucket( $self->global_config_( 'msgdir' ) . $mail_file, $newbucket );
$self->global_config_( 'ecount', $self->global_config_( 'ecount' ) + 1 ) if ( $newbucket ne $bucket );
***************
*** 2434,2440 ****
$self->{classifier__}->set_bucket_parameter( $newbucket, 'count',
! $self->{classifier__}->get_bucket_parameter( $newbucket, 'count' ) + 1 );
$self->{classifier__}->set_bucket_parameter( $bucket, 'count',
! $self->{classifier__}->get_bucket_parameter( $bucket, 'count' ) - 1 );
# Update the class file
--- 2434,2440 ----
$self->{classifier__}->set_bucket_parameter( $newbucket, 'count',
! $self->{classifier__}->get_bucket_parameter( $newbucket, 'count' ) + 1 );
$self->{classifier__}->set_bucket_parameter( $bucket, 'count',
! $self->{classifier__}->get_bucket_parameter( $bucket, 'count' ) - 1 );
# Update the class file
***************
*** 2453,2457 ****
$self->{feedback}{$mail_file} = sprintf( $self->{language__}{History_ChangedTo}, $self->{classifier__}->get_bucket_color($newbucket), $newbucket );
! $self->{configuration__}->save_configuration();
}
}
--- 2453,2457 ----
$self->{feedback}{$mail_file} = sprintf( $self->{language__}{History_ChangedTo}, $self->{classifier__}->get_bucket_color($newbucket), $newbucket );
! $self->{configuration__}->save_configuration();
}
}
***************
*** 2487,2494 ****
$self->global_config_( 'ecount', $self->global_config_( 'ecount' ) - 1 ) if ( $self->global_config_( 'ecount' ) > 0 );
! $self->{classifier__}->set_bucket_parameter( $bucket, 'count',
! $self->{classifier__}->get_bucket_parameter( $bucket, 'count' ) - 1 );
! $self->{classifier__}->set_bucket_parameter( $usedtobe, 'count',
! $self->{classifier__}->get_bucket_parameter( $usedtobe, 'count' ) + 1 );
}
--- 2487,2494 ----
$self->global_config_( 'ecount', $self->global_config_( 'ecount' ) - 1 ) if ( $self->global_config_( 'ecount' ) > 0 );
! $self->{classifier__}->set_bucket_parameter( $bucket, 'count',
! $self->{classifier__}->get_bucket_parameter( $bucket, 'count' ) - 1 );
! $self->{classifier__}->set_bucket_parameter( $usedtobe, 'count',
! $self->{classifier__}->get_bucket_parameter( $usedtobe, 'count' ) + 1 );
}
***************
*** 2508,2512 ****
$self->{feedback}{$mail_file} = sprintf( $self->{language__}{History_ChangedTo}, ($self->{classifier__}->get_bucket_color($usedtobe) || ''), $usedtobe );
! $self->{configuration__}->save_configuration();
}
}
--- 2508,2512 ----
$self->{feedback}{$mail_file} = sprintf( $self->{language__}{History_ChangedTo}, ($self->{classifier__}->get_bucket_color($usedtobe) || ''), $usedtobe );
! $self->{configuration__}->save_configuration();
}
}
***************
*** 2872,2876 ****
if ( $head =~ /\Q$header\E/i ) {
if ( $arg =~ /\Q$text\E/i ) {
! my $new_color = $self->{classifier__}->get_bucket_color($self->{history__}{$mail_file}{bucket});
$line =~ s/(\Q$text\E)/<b><font color=\"$new_color\">$1<\/font><\/b>/;
}
--- 2872,2876 ----
if ( $head =~ /\Q$header\E/i ) {
if ( $arg =~ /\Q$text\E/i ) {
! my $new_color = $self->{classifier__}->get_bucket_color($self->{history__}{$mail_file}{bucket});
$line =~ s/(\Q$text\E)/<b><font color=\"$new_color\">$1<\/font><\/b>/;
}
|
|
From: <ssc...@us...> - 2003-03-11 08:49:18
|
Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1:/tmp/cvs-serv4247
Modified Files:
Tag: v0/18/1
HTML.pm
Log Message:
fixed more XPL problems - bug 697046, 692673
Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.98.2.1
retrieving revision 1.98.2.2
diff -C2 -d -r1.98.2.1 -r1.98.2.2
*** HTML.pm 7 Mar 2003 08:31:20 -0000 1.98.2.1
--- HTML.pm 11 Mar 2003 08:49:12 -0000 1.98.2.2
***************
*** 3198,3201 ****
--- 3198,3206 ----
}
}
+
+ #Reset any filters
+ $self->{form}{filter} = '';
+ $self->{form}{search} = '';
+ $self->{form}{setsearch} = 1;
# Force a history_reload if we did not find this file in the history cache
|
|
From: <ssc...@us...> - 2003-03-11 08:47:37
|
Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1:/tmp/cvs-serv3820
Modified Files:
HTML.pm
Log Message:
fixed more XPL problems - bug 697046, 692673
Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.110
retrieving revision 1.111
diff -C2 -d -r1.110 -r1.111
*** HTML.pm 7 Mar 2003 08:32:16 -0000 1.110
--- HTML.pm 11 Mar 2003 08:47:33 -0000 1.111
***************
*** 3067,3070 ****
--- 3067,3075 ----
}
}
+
+ #Reset any filters
+ $self->{form__}{filter} = '';
+ $self->{form__}{search} = '';
+ $self->{form__}{setsearch} = 1;
# Force a history_reload if we did not find this file in the history cache
|
|
From: <ssc...@us...> - 2003-03-11 08:10:43
|
Update of /cvsroot/popfile/engine/tests
In directory sc8-pr-cvs1:/tmp/cvs-serv22944
Modified Files:
Tag: v0/18/1
TestMailParse.tst
Log Message:
add colorized tests, a new test message
Index: TestMailParse.tst
===================================================================
RCS file: /cvsroot/popfile/engine/tests/TestMailParse.tst,v
retrieving revision 1.5
retrieving revision 1.5.2.1
diff -C2 -d -r1.5 -r1.5.2.1
*** TestMailParse.tst 25 Feb 2003 02:06:54 -0000 1.5
--- TestMailParse.tst 11 Mar 2003 08:10:40 -0000 1.5.2.1
***************
*** 144,145 ****
--- 144,191 ----
test_assert_equal( $cl->{to}, 'ds...@ct..., ds...@do..., ds...@di..., ds...@di..., ds...@cr..., <ds...@cy...>, <ds...@do...>, <ds...@db...>, <ds...@cs...>, <ds...@cr...>, <ds...@dr...>, <ds...@cv...>, <ds...@dm...>, <ds...@da...>, <ds...@da...>' );
test_assert_equal( $cl->{cc}, 'ds...@dm..., ds...@da..., ds...@cr..., ds...@da..., <ds...@do...>, <ds...@dn...>, <ds...@cy...>, <ds...@cs...>, <ds...@di...>, <ds...@cv...>, <ds...@dr...>, <ds...@cr...>, <ds...@dc...>, <ds...@da...>' );
+
+
+ #Test colorized output
+
+ # glob the tests directory for files called TestMailParse\d+.msg which consist of messages
+ # to be sent through parse_stream
+
+
+ use Classifier::Bayes;
+
+ $cl->{bayes} = new Classifier::Bayes;
+ #$cl->{bayes}->initialize();
+
+ $cl->{color} = 1;
+ $cl->{debug} = 0;
+
+ my @color_tests = sort glob 'tests/TestMailParse*.msg';
+
+ for my $input_file (@color_tests) {
+ if ( open OUTPUT, ">tests/temp.out" ) {
+ my $output = $cl->parse_stream($input_file);
+
+
+ print OUTPUT $output;
+ close OUTPUT;
+
+ my $output_file = $input_file;
+ $output_file =~ s/msg/col/;
+
+ open COL, "<$output_file";
+ open OUTPUT, "<tests/temp.out";
+ while ( <OUTPUT> ) {
+ my $output_line = $_;
+ my $col_line = <COL>;
+ $output_line =~ s/[\r\n]//g;
+ $col_line =~ s/[\r\n]//g;
+ test_assert_equal( $col_line, $output_line, $input_file );
+ }
+
+ close COL;
+ close OUTPUT;
+ # rename( 'tests/temp.out', $output_file );
+ unlink( 'tests/temp.out' );
+
+ }
+ }
\ No newline at end of file
|
|
From: <ssc...@us...> - 2003-03-11 08:09:27
|
Update of /cvsroot/popfile/engine/tests
In directory sc8-pr-cvs1:/tmp/cvs-serv22622
Modified Files:
Tag: v0/18/1
TestBayes.tst
Log Message:
set binmode on temp output file for tests
Index: TestBayes.tst
===================================================================
RCS file: /cvsroot/popfile/engine/tests/TestBayes.tst,v
retrieving revision 1.4
retrieving revision 1.4.2.1
diff -C2 -d -r1.4 -r1.4.2.1
*** TestBayes.tst 20 Feb 2003 21:36:42 -0000 1.4
--- TestBayes.tst 11 Mar 2003 08:09:25 -0000 1.4.2.1
***************
*** 61,64 ****
--- 61,65 ----
for my $modify_file (@modify_tests) {
if ( ( open MSG, "<$modify_file" ) && ( open OUTPUT, ">tests/temp.out" ) ) {
+ binmode OUTPUT;
$b->classify_and_modify( \*MSG, \*OUTPUT, 0, 0, 0, '' );
close MSG;
|
11 messages has been excluded from this view by a project administrator.
