blob: eeac8271fcd91f714c4aaf9e70f15a844222e380 (
plain)
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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
########################################
# 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;
|
