[popfile-commit] engine popfilew.pl,NONE,1.1 Makefile,1.19,1.20

[<jgr...@us...>]

Update of /cvsroot/popfile/engine
In directory sc8-pr-cvs1:/tmp/cvs-serv12319

Modified Files:
	Makefile 
Added Files:
	popfilew.pl 
Log Message:
USING PERLTRAY TO BUILD A POPFILE.EXE FOR WINDOWS


Makefile:

Suitable targets to use PerlTray to created popfile.exe and
popfileb.exe.


POPFile/Loader.pm:

Added version() accessor for version string and an option to
service so that it can be called from an external poller.


popfilew.pl:

Equivalent of popfile.pl which uses PerlTray to show an icon
in the system tray on Windows.   This is designed to be turned
into popfile.exe by PerlTray.













--- NEW FILE: popfilew.pl ---
#!/usr/bin/perl
# ---------------------------------------------------------------------------------------------
#
# popfilew.pl --- Message analyzer and sorter (Windows loader used with PerlTray)
#
# Acts as a server and client designed to sit between a real mail/news client and a real mail/
# news server using POP3.  Inserts an extra header X-Text-Classification: into the header to
# tell the client which category the message belongs in and much more...
#
# Copyright (c) 2001-2003 John Graham-Cumming
#
#   This file is part of POPFile
#
#   POPFile is free software; you can redistribute it and/or modify
#   it under the terms of the GNU General Public License as published by
#   the Free Software Foundation; either version 2 of the License, or
#   (at your option) any later version.
#
#   POPFile is distributed in the hope that it will be useful,
#   but WITHOUT ANY WARRANTY; without even the implied warranty of
#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#   GNU General Public License for more details.
#
#   You should have received a copy of the GNU General Public License
#   along with POPFile; if not, write to the Free Software
#   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#
# ---------------------------------------------------------------------------------------------

use strict;
use locale;

use POPFile::Loader;

use PerlTray;

# POPFile is actually loaded by the POPFile::Loader object which does all
# the work

our $POPFile = POPFile::Loader->new();

# ---------------------------------------------------------------------------------------------
#
# PopupMenu
#
# Called by PerlTray when it needs the content of the popup menu
#
# ---------------------------------------------------------------------------------------------

sub PopupMenu
{
    my $url = 'http://127.0.0.1:'; # $self->module_config_( 'html', 'port' );

    return [ [ "*POPFile UI", "Execute '$url'"          ],
             [ "--------"                               ],
             [ "Shutdown POPFile", \&popfile_shutdown   ] ];
}

# ---------------------------------------------------------------------------------------------
#
# ToolTip
#
# Called by PerlTray when it needs the to show a tool tip on the tray icon
#
# ---------------------------------------------------------------------------------------------

sub ToolTip
{
    return "POPFile " . $POPFile->version();
}

# ---------------------------------------------------------------------------------------------
#
# Timer
#
# Called by PerlTray when the timer expires
#
# ---------------------------------------------------------------------------------------------

sub Timer
{
    SetTimer( 0 );

    if ( !$POPFile->CORE_service(1) ) {
        popfile_shutdown();
    }

    SetTimer( 50 );
}

# ---------------------------------------------------------------------------------------------
#
# popfile_shutdown
#
# Called by PerlTray when the user click Shutdown on the pop up menu
#
# ---------------------------------------------------------------------------------------------

sub popfile_shutdown
{
    $POPFile->CORE_stop();

    exit(0);
}

# Indicate that we should create output on STDOUT (the POPFile
# load sequence) and initialize with the version

$POPFile->debug(1);
$POPFile->CORE_loader_init();
$POPFile->CORE_version(0, 20, 0);

# Redefine POPFile's signals

$POPFile->CORE_signals();

# Create the main objects that form the core of POPFile.  Consists of the configuration
# modules, the classifier, the UI (currently HTML based), platform specific code,
# and the POP3 proxy.  The link the components together, intialize them all, load
# the configuration from disk, start the modules running

$POPFile->CORE_load();
$POPFile->CORE_link_components();
$POPFile->CORE_initialize();
$POPFile->CORE_config();
$POPFile->CORE_start();

# We terminate here because that lets PerlTray start and it will call the Timer
# function above

Timer();


Index: Makefile
===================================================================
RCS file: /cvsroot/popfile/engine/Makefile,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** Makefile	11 Sep 2003 23:04:59 -0000	1.19
--- Makefile	12 Sep 2003 00:34:36 -0000	1.20
***************
*** 47,57 ****
  winexe: popfile.exe popfileb.exe
  
! TRAY_OPTIONS = --exe $@ --force --clean --dependent --xclude --icon ../windows/POPFileIcon/popfile.ico --script popfile.pl --info CompanyName="The POPFile Project" --info LegalCopyright="Copyright (c) 2003 John Graham-Cumming" --info ProductName=POPFile --info ProductVersion=$(POPFILE_VERSION).0 --info FileDescription=POPFile --info FileVersion=$(POPFILE_VERSION).0
! 
! popfile.exe: popfile.pl
! 	perltray $(TRAY_OPTIONS)
  
! popfileb.exe: popfile.pl
  	perltray --nogui $(TRAY_OPTIONS)
  
  # windows builds the Windows installer
--- 47,57 ----
  winexe: popfile.exe popfileb.exe
  
! TRAY_OPTIONS = --exe $@ --force --clean --dependent --xclude --icon ../windows/POPFileIcon/popfile.ico --script $< --info CompanyName="The POPFile Project" --info LegalCopyright="Copyright (c) 2003 John Graham-Cumming" --info ProductName=POPFile --info ProductVersion=$(POPFILE_VERSION).0 --info FileDescription=POPFile --info FileVersion=$(POPFILE_VERSION).0
  
! popfile.exe: popfilew.pl POPFile/Loader.pm
  	perltray --nogui $(TRAY_OPTIONS)
+ 
+ popfileb.exe: popfilew.pl POPFile/Loader.pm
+ 	perltray $(TRAY_OPTIONS)
  
  # windows builds the Windows installer