getmeetings4plan.pl

Unix 到 Newton通讯的程序

#=======================================================================
# Newtonlink   - transfer data between a Apple Newton Message Pad and
#                Unix applications
#
# Copyright (C) 1996-1998    The Newtonlink Developers
#                            ([e-mail])
#
# This program 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.
#
# This program 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 this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#=======================================================================

#---------------------------------------------------------------------
# GetMeetings4Plan
#---------------------------------------------------------------------

# $Log: GetMeetings4Plan.pl,v $
# Revision 1.20  1998/03/07 16:35:10  kalli
# Umstellung auf neue ser. Treiber
#
# Revision 1.18  1998/01/11 16:46:50  kalli
# Erweiterungen von Gerald Hofer :
# Ersetzung der Umlaute bei IRIX
# Private Planfile
#
# Revision 1.16  1997/11/18 19:07:24  kalli
# Debugkommentare raus
#
# Revision 1.15  1997/11/15 20:17:26  kalli
# Bugfix : Repeat Meetings waren um einen Tag nach hinten verschoben.
#
# Revision 1.14  1997/11/15 19:18:18  kalli
# Convdate ersetzt durch Perl-Lib
#
# Revision 1.13  1997/09/05 20:01:42  kalli
# dos2unix darueber
#
# Revision 1.12  1997/09/05 19:38:23  kalli
# Erweiterungen von Andrew :
# Globale Optionen in .dayplan werden nicht ueberschrieben
#
# Revision 1.11  1997/05/31 09:49:12  kalli
# Unterscheidung limited/unlimited repeat meetings
#
# Revision 1.10  1997/05/28 19:25:35  kalli
# Aenderungen von Gerald Hofer fuer IRIX,
# Bugfixes
#
# Revision 1.8  1997/04/12 21:05:00  kalli
# Bugfixes :
# \n vor jedem Sloup-Kommando
# Repeat Meetings waren um einen Tag nach vorne verschoben
#
# Revision 1.7  1997/04/08 18:27:17  kalli
# Variables Datumsformat eingefuehrt : Andrew
# Bugfixes
#
# Revision 1.6  1997/03/27 19:39:46  kalli
# Andrew dazu
#
# Revision 1.5  1997/02/23 15:10:34  kalli
# Frank dazu
#
# Revision 1.4  1997/02/22 17:00:20  kalli
# GPL dazu
#
# Revision 1.3  1996/12/14 14:43:12  kalli
# Neu mit calendar notes, taeglich wiederholdende Termine
#
# Revision 1.2  1996/11/26 21:14:01  kalli
# Erste Version mit wiederholten Terminen
#
# Revision 1.1  1996/11/24 19:24:37  kalli
# Initial revision
#

use Date::Parse;
use Date::Format;

sub GetMeetings4Plan {

    select((select(STDOUT), $|=1)[$[]);
    
    if ( $Private ne "P" ) {
	$Private = "-";
    }

    # start counter
    $MeetingCounter = 0;
    $RepMeetingCounter = 0;
    $RepNotesCounter = 0;
    $CalendarNotesCounter = 0;

    # save old plan file
    if (-e "$PlanFile") {
	rename ("$PlanFile", "$PlanFile.bak");
    }

    # Open new plan file
    open (PLFILE, ">> $PlanFile")  || die "Can't open File : $!\n";

    # first save the header information from an old planfile
    if (-e "$PlanFile.bak"){
	open (PLOLD, "$PlanFile.bak");
        while(<PLOLD>){
	    if (/^[aelmoOpPtuUy]/){
	        print PLFILE;
	    }
	}
    }

    # send commands to Sloup
    &send_line (COMNEWTON, "\nCalendar");
    &send_line (COMNEWTON, '{class: "string", mtgText: "string", mtgStartDate: "dateTime", mtgDuration: "time"}'); 
    &send_line (COMNEWTON, "DUMP!{fieldDelimiter: \"\t\"}");

    while (($_ = &receive_line (COMNEWTON)) ne "BYE!") {

	# replace german Umlaute
	if ($SystemType eq "IRIX") {	
	    s/\232/