1 50794f47 2023-04-04 op #!/usr/bin/env perl
 2 50794f47 2023-04-04 op #
 3 50794f47 2023-04-04 op # mimport was written by Omar Polo <op@openbsd.org> and is placed in the
 4 50794f47 2023-04-04 op # public domain.  The author hereby disclaims copyright to this source
 5 50794f47 2023-04-04 op # code.
 6 50794f47 2023-04-04 op 
 7 50794f47 2023-04-04 op use strict;
 8 50794f47 2023-04-04 op use warnings;
 9 50794f47 2023-04-04 op use v5.32;
10 50794f47 2023-04-04 op use utf8;
11 50794f47 2023-04-04 op 
12 50794f47 2023-04-04 op use Date::Parse;
13 50794f47 2023-04-04 op use File::Basename;
14 50794f47 2023-04-04 op 
15 50794f47 2023-04-04 op use OpenBSD::Pledge;
16 50794f47 2023-04-04 op use OpenBSD::Unveil;
17 50794f47 2023-04-04 op 
18 50794f47 2023-04-04 op die "usage: $0 dbpath\n" if @ARGV != 1;
19 50794f47 2023-04-04 op my $dbpath = shift @ARGV;
20 50794f47 2023-04-04 op 
21 d4133df3 2023-04-04 op open(my $sqlite, "|-", "/usr/local/bin/sqlite3", $dbpath)
22 50794f47 2023-04-04 op     or die "can't spawn sqlite3";
23 50794f47 2023-04-04 op 
24 50794f47 2023-04-04 op unveil("/usr/local/bin/mshow", "rx") or die "unveil mshow: $!";
25 50794f47 2023-04-04 op pledge("stdio proc exec") or die "pledge: $!";
26 50794f47 2023-04-04 op 
27 50794f47 2023-04-04 op say $sqlite ".import --csv /dev/stdin email"
28 50794f47 2023-04-04 op     or die "can't speak to sqlite: $!";
29 50794f47 2023-04-04 op 
30 50794f47 2023-04-04 op while (<>) {
31 50794f47 2023-04-04 op 	chomp;
32 50794f47 2023-04-04 op 
33 50794f47 2023-04-04 op 	open(my $fh, "-|", "/usr/local/bin/mshow", "-Atext/plain", "-NF", $_)
34 50794f47 2023-04-04 op 	    or die "can't run mshow $_: $!";
35 50794f47 2023-04-04 op 
36 50794f47 2023-04-04 op 	my $f = $_;
37 50794f47 2023-04-04 op 	my ($time, $id) = split /\./, basename $_;
38 50794f47 2023-04-04 op 	my $mid = "$time.$id";
39 50794f47 2023-04-04 op 	$mid =~ s/"/""/g;
40 50794f47 2023-04-04 op 
41 50794f47 2023-04-04 op 	my ($from, $subj, $date) = ('', '', undef);
42 50794f47 2023-04-04 op 	while (<$fh>) {
43 50794f47 2023-04-04 op 		chomp;
44 50794f47 2023-04-04 op 		last if /^$/;
45 50794f47 2023-04-04 op 		s/"/""/g;
46 50794f47 2023-04-04 op 		$from = s/.*?: //r if /^From:/;
47 50794f47 2023-04-04 op 		$subj = s/.*?: //r if /^Subject:/;
48 50794f47 2023-04-04 op 		$date = str2time(s/.*?: //r) if /^Date:/;
49 50794f47 2023-04-04 op 	}
50 50794f47 2023-04-04 op 	$date //= time;
51 50794f47 2023-04-04 op 	$from =~ s/ +<.*>//;
52 50794f47 2023-04-04 op 
53 50794f47 2023-04-04 op 	# leave open for the body
54 50794f47 2023-04-04 op 	print $sqlite "\"$mid\",\"$from\",\"$date\",\"$subj\",\"";
55 50794f47 2023-04-04 op 
56 50794f47 2023-04-04 op 	while (<$fh>) {
57 50794f47 2023-04-04 op 		s/"/""/g;
58 50794f47 2023-04-04 op 		print $sqlite $_;
59 50794f47 2023-04-04 op 	}
60 50794f47 2023-04-04 op 	say $sqlite '"';
61 50794f47 2023-04-04 op 
62 50794f47 2023-04-04 op 	close $fh;
63 50794f47 2023-04-04 op }
64 50794f47 2023-04-04 op 
65 50794f47 2023-04-04 op close $sqlite;
66 50794f47 2023-04-04 op die "sqlite3 exited with $?\n" unless $? == 0;