transfugmail.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45

########################################
# General transfugdrake functions
########################################
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";
}

########################################
# Outlook Express 5 functions
########################################
package OE_5;

sub transfug_read_oe_5 {
}

#########################################
# Outlook Express 4 functions
#########################################
package OE_4;

sub transfug_read_oe_4 {
}

#########################################
# Netscape 4 functions
#########################################
package Net_4;

sub transfug_read_net_4 {
}

#########################################
# Eudora functions
#########################################
package Eudora;

sub transfug_read_eudora {
}

return 1;