diff options
-rw-r--r-- | transfugmail.pm | 23 |
1 files changed, 19 insertions, 4 deletions
diff --git a/transfugmail.pm b/transfugmail.pm index 35b658b..562b55b 100644 --- a/transfugmail.pm +++ b/transfugmail.pm @@ -4,10 +4,13 @@ package Transfug; 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"; + $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. + # Return a vector table with all the information. } ######################################## @@ -16,6 +19,9 @@ sub transfug_locate_mail { package OE_5; sub transfug_read_oe_5 { + # Open OE5 Inbox + # Read it + # Store it in a file } ######################################### @@ -24,6 +30,9 @@ sub transfug_read_oe_5 { package OE_4; sub transfug_read_oe_4 { + # Open OE4 Inbox + # Read it + # Store it in a file } ######################################### @@ -32,6 +41,9 @@ sub transfug_read_oe_4 { package Net_4; sub transfug_read_net_4 { + # Open Netscape 4 Inbox + # Read it + # Store it in a file } ######################################### @@ -40,6 +52,9 @@ sub transfug_read_net_4 { package Eudora; sub transfug_read_eudora { + # Open Eudora Inbox + # Read it + # Store it in a file } return 1; |