######################################## # General transfugdrake functions ######################################## package Transfug; sub splash_screen { sub transfug_locate_mail { $netscape_4_inbox = "X:\\\\Program Files\\Netscape\\users\\*\\Mail"; $outlook_4_inbox = "X:\\\\Windows\\Application Data\\Identities\\*\\Microsoft\\Outlook Express\\Inbox.mbx"; $outlook_5_inbox = "X:\\\\Windows\\Application Data\\Identities\\*\\Microsoft\\Outlook Express\\Inbox.dbx"; $eudora_inbox = "X:\\\\path\\to\\eudora\\inbox"; # Have to find a way to search for all the inboxes and the programs.a # Return a vector table with all the information. } ######################################## # Outlook Express 5 functions ######################################## package OE_5; sub transfug_read_oe_5 { # Open OE5 Inbox # Read it # Store it in a file } ######################################### # Outlook Express 4 functions ######################################### package OE_4; sub transfug_read_oe_4 { # Open OE4 Inbox # Read it # Store it in a file } ######################################### # Netscape 4 functions ######################################### package Net_4; sub transfug_read_net_4 { # Open Netscape 4 Inbox # Read it # Store it in a file } ######################################### # Eudora functions ######################################### package Eudora; sub transfug_read_eudora { # Open Eudora Inbox # Read it # Store it in a file } return 1;