From e0b52520b57cbcf6454ea35e97c99003d5596508 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Wed, 26 May 2021 01:35:00 +0200
Subject: Add 'm-sync' and 'getpw' scripts

m-sync is a wrapper around m-pop that filters headers with m-filter.
---
 src/getpw  | 10 ++++++++++
 src/m-sync | 14 ++++++++++++++
 2 files changed, 24 insertions(+)
 create mode 100755 src/getpw
 create mode 100755 src/m-sync

diff --git a/src/getpw b/src/getpw
new file mode 100755
index 0000000..8115716
--- /dev/null
+++ b/src/getpw
@@ -0,0 +1,10 @@
+#!/bin/sh
+
+# getpw -- read password
+
+printf 'Enter password: ' > /dev/tty
+stty -f /dev/tty -echo
+read PASSWORD < /dev/tty
+stty -f /dev/tty echo
+echo > /dev/tty
+echo "$PASSWORD"
diff --git a/src/m-sync b/src/m-sync
new file mode 100755
index 0000000..d4653d8
--- /dev/null
+++ b/src/m-sync
@@ -0,0 +1,14 @@
+#!/bin/sh
+
+# m-sync -- retrieve mail
+
+# Edit this script to your own preferences.
+
+USERNAME=john@ankarstrom.se
+PASSWORD=`./getpw`
+export USERNAME PASSWORD
+
+mkfifo mbox.i.in
+m-filter < mbox.i.in >> mbox.i &
+m-pop -m mbox -i mbox.i -j mbox.i.in
+rm mbox.i.in
-- 
cgit v1.2.3