#!E:\perl\perl.exe -w
#
# (c) 1999 by Alexander Wagner, Team OS/2 Franken
#
# Available and Ready for OS/2
# Yes it should run on Linux
# 
#----------------------------------------
# Declare constants
#----------------------------------------

use PDA::Pilot;                     # include Pilot-support
use Data::Dumper;

$device       = 'COM1';             # Which COM-port should be used
                                    # should be /dev/cua? on Unix
$database     = 'MailDB';        # Database  to delete

sub Connect
{
#----------------------------------------
# Open port and connect
#----------------------------------------
   print "\n\n\n\n Deleting $database\n";
   print " ~~~~~~~~~~~~~~~~~~\n\n";
   $socket = PDA::Pilot::openPort($device);   # Open device, get socket
   print "\n\n";
   print "   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿\n";
   print "   ³   Now press HotSync button...   ³\n";
   print "   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ\n\n\n";
   $dlp  = PDA::Pilot::accept($socket);
}

sub DeleteDB
{
#----------------------------------------
# Remove old PluckerDB and recreate it 
#----------------------------------------
   $dlp->getStatus();                    # Set pilot-display to notify user
   print "\n\n  Removing database";
   $dlp->delete($database);     
   print "   ÄÄ> done.\n";
}


#========================================
# The main program
#========================================

Connect();
DeleteDB();