I do the same using intellilink, Palmconnect, and Calendar Creator on a PC with
the zoomer, and other calendar sources.
Typically I consolidate by merging and basically
doing a sort and uniq on the comma seperated file, and then distribute
the now common file.
---- cmyear.pl -- from cm to comma seperated:
$year = "94";
$q = "\"";
%Month = (January,1,February,2,March,3,April,4,May,5,June,6,
"July",7,August,8,September,9,October,10,November,11,December,12);
@NMonth = (January,1,February,2,March,3,April,4,May,5,June,6,
"July",7,August,8,September,9,October,10,November,11,December,12);
foreach $name ( @NMonth ){
next if ( $name =~ /[1-9]/);
print stderr "$name \n";
open(SUNLU,"cm_lookup -view month -d $Month{$name}/1/$year |");
while(<SUNLU>){
chop;
# print;
if( /Appointments for /){
($dow,$mon,$day,$yr,$rest) = split( /[ ,:]+/, $');
$adate = "$Month{$mon}/$day/$yr";
}
if( /[)]/ ){
$num = $`+0;
($x,$start,$end,$msg) = split( /[ -]+/, $',4);
if ( $end =~ /:\d\d[ap]m/ ){
print "$adate,$start,$end, ,$q$msg$q,1,0, ,1,1\n";
}else{
print "$adate,,, ,$q$start $end $msg$q,1,0, ,1,1\n";
}
}
}
close SUNLU;
}
---- cmfcc.pl -- from comma seperated to cm:
$q = "\"";
open(CCBUS,"ccbus");
while(<CCBUS>){
chop;
($adate,$start,$end,$msg1,$msg,$msg2,$msg3,$num) = split(/,/);
$start = "-s ".$start if($start );
$end = "-e ".$end if($end );
print "cm_insert -d $adate $start $end -w $msg\n";
}
-----
Caution: be sure the cm_insert file created by cmfcc contains NO ^M's !
the cm_inserts will take, but cm tool will barf on the first ^M in callog.$USER
Also you will want to rename callog.$USER to callog.$USER.old
and exit cm tool, to erase old entries, prior to running the cm_inserts.
...
.:' `.
:.[o]o]
@ >
:}\_ ~/
{:
:} malcom