#!/usr/bin/perl -w

##########################
# $Id: memoarchive 22 2003-01-16 00:26:34Z steve $
##########################
# $Log$
# Revision 1.2  2003/01/16 00:26:34  steve
# cleaned up usage info
#
# Revision 1.1  2002/12/13 21:08:47  steve
# Initial revision
#
##########################

use Getopt::Std;
use Palm::PDB;
use Palm::Memo;
use Palm::StdAppInfo;

our( $opt_d, $opt_h, $opt_q );
getopts('dhq');

my $delete = 0;
my $quiet  = 0;
$delete    = $opt_d if defined $opt_d;
$quiet     = $opt_q if defined $opt_q;
usage()    if ($opt_h || @ARGV != 1);

my $category = $ARGV[0];

my $db = "$ENV{'HOME'}/.palm/sync/MemoDB.pdb";
   $db = $ENV{'PALM_MEMO_DATABASE'} if exists $ENV{'PALM_MEMO_DATABASE'};

# done initializing

my $pdb = new Palm::Memo;
$pdb->Load( $db );

# find the category number
my $catnum = -1; 

for( my $i = 0; $i < scalar @{$pdb->{'appinfo'}->{'categories'}}; $i++ ){  
  $catnum = $i if $pdb->{'appinfo'}->{'categories'}[$i] =~/^$category$/i;
}

  if($catnum == -1) {
    print "Error: Not a category\n";
    exit; 
  }

$category = $pdb->{'appinfo'}->{'categories'}[$catnum];
print STDERR "Archiving Memopad category \"$category\":\n" unless $quiet;

my $count = 0;
my $i;
for( $i = 0; $i < scalar @{$pdb->{records}}; $i++){
  my $record = $pdb->{records}[$i];

  use Data::Dumper;

  if( exists $record->{category} && $record->{category} == $catnum ){
    $record->{data} =~ /(.{0,40})/;
    print STDERR "Deleting and " if ($delete && !$quiet);
    print STDERR "Dumping: $1\n" unless $quiet;
    print "Subject: [$category] $1\n\n";
    print $record->{data}."\n";
    $pdb->delete_Record($record, 1) if $delete;
    $count++;
  }
}

print STDERR "Looked through $i records" unless $quiet;
print STDERR ", deleted" if ($delete && !$quiet);
print STDERR " and dumped $count from $category\n" unless $quiet;

if( $delete ){
  print STDERR "Deleting category \"$category\"..." unless $quiet;
  $pdb->{'appinfo'}->{'categories'}[$catnum] = "";
  print STDERR "done\n" unless $quiet;
}
$pdb->Write("$db") if $delete;

sub usage{

  die<<EOF;
usage: $0 [options] category

options: 
-d		delete the category after dumping
-q		supresses STDERR output
-h		display this text

Dumps or deletes entire palm memopad category specified from the palm
database in ~/.palm/sync/MemoDB.pdb or whatever is specified in the
PALM_MEMO_DATABASE environment variable. The entire category is dumped
in the same format as the utility "memos" (mbox-format) from the
pilot-link package to STDOUT. Some useful information is dumped to
STDERR. -d will do the normal dump and then delete the entire
category and all information in it. 

(c) Copyright 2001,2002 Steve Pomeroy <steve\@staticfree.info>
Released under the terms of the GNU GPL

EOF

}