control panel
This commit is contained in:
Bob Mottram
parent
9e63e9884e
commit
0ef3423afe
5
Makefile
5
Makefile
|
|
@ -38,6 +38,8 @@ install:
|
|||
install -m 755 src/${APP}-mesh ${DESTDIR}${PREFIX}/bin/mesh
|
||||
install -m 755 src/${APP}-meshweb ${DESTDIR}${PREFIX}/bin
|
||||
install -m 755 src/${APP}-meshweb ${DESTDIR}${PREFIX}/bin/meshweb
|
||||
install -m 755 src/${APP}-controlpanel ${DESTDIR}${PREFIX}/bin
|
||||
install -m 755 src/${APP}-controlpanel ${DESTDIR}${PREFIX}/bin/control
|
||||
mkdir -m 755 -p ${DESTDIR}${PREFIX}/share/man/man1
|
||||
install -m 644 man/${APP}.1.gz ${DESTDIR}${PREFIX}/share/man/man1
|
||||
install -m 644 man/${APP}-keydrive.1.gz ${DESTDIR}${PREFIX}/share/man/man1
|
||||
|
|
@ -63,6 +65,7 @@ install:
|
|||
install -m 644 man/${APP}-rmxmpp.1.gz ${DESTDIR}${PREFIX}/share/man/man1
|
||||
install -m 644 man/${APP}-xmpp-pass.1.gz ${DESTDIR}${PREFIX}/share/man/man1
|
||||
install -m 644 man/${APP}-mesh.1.gz ${DESTDIR}${PREFIX}/share/man/man1
|
||||
install -m 644 man/${APP}-controlpanel.1.gz ${DESTDIR}${PREFIX}/share/man/man1
|
||||
uninstall:
|
||||
rm -f ${PREFIX}/share/man/man1/${APP}.1.gz
|
||||
rm -f ${PREFIX}/share/man/man1/${APP}-keydrive.1.gz
|
||||
|
|
@ -88,6 +91,7 @@ uninstall:
|
|||
rm -f ${PREFIX}/share/man/man1/${APP}-rmxmpp.1.gz
|
||||
rm -f ${PREFIX}/share/man/man1/${APP}-xmpp-pass.1.gz
|
||||
rm -f ${PREFIX}/share/man/man1/${APP}-mesh.1.gz
|
||||
rm -f ${PREFIX}/share/man/man1/${APP}-controlpanel.1.gz
|
||||
rm -rf ${PREFIX}/share/${APP}
|
||||
rm -f ${PREFIX}/bin/${APP}
|
||||
rm -f ${PREFIX}/bin/zeronetavahi
|
||||
|
|
@ -116,6 +120,7 @@ uninstall:
|
|||
rm -f ${PREFIX}/bin/mesh
|
||||
rm -f ${PREFIX}/bin/${APP}-meshweb
|
||||
rm -f ${PREFIX}/bin/meshweb
|
||||
rm -f ${PREFIX}/bin/${APP}-controlpanel
|
||||
clean:
|
||||
rm -f \#* \.#* debian/*.substvars debian/*.log
|
||||
rm -fr deb.* debian/${APP}
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -0,0 +1,362 @@
|
|||
#!/bin/bash
|
||||
#
|
||||
# .---. . .
|
||||
# | | |
|
||||
# |--- .--. .-. .-. .-.| .-. .--.--. |.-. .-. .--. .-.
|
||||
# | | (.-' (.-' ( | ( )| | | | )( )| | (.-'
|
||||
# ' ' --' --' -' - -' ' ' -' -' -' ' - --'
|
||||
#
|
||||
# Freedom in the Cloud
|
||||
#
|
||||
# Administrator control panel for the Freedombone system
|
||||
#
|
||||
# License
|
||||
# =======
|
||||
#
|
||||
# Copyright (C) 2015 Bob Mottram <bob@robotics.uk.to>
|
||||
#
|
||||
# This program is free software: you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation, either version 3 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License
|
||||
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
COMPLETION_FILE=$HOME/freedombone-completed.txt
|
||||
SELECTED_USERNAME=
|
||||
|
||||
function any_key {
|
||||
echo ' '
|
||||
read -n1 -r -p "Press any key to continue..." key
|
||||
}
|
||||
|
||||
function add_user {
|
||||
data=$(tempfile 2>/dev/null)
|
||||
trap "rm -f $data" 0 1 2 5 15
|
||||
dialog --backtitle "Freedombone Control Panel" \
|
||||
--title "Add new user" \
|
||||
--form "\n" 8 40 3 \
|
||||
"Username:" 1 1 "" 1 11 16 15 \
|
||||
"ssh public key (optional):" 2 1 "" 3 1 40 10000 \
|
||||
2> $data
|
||||
sel=$?
|
||||
case $sel in
|
||||
1) return;;
|
||||
255) return;;
|
||||
esac
|
||||
new_user_username=$(cat $data | sed -n 1p)
|
||||
new_user_ssh_public_key=$(cat $data | sed -n 2p)
|
||||
if [ ${#new_user_username} -lt 2 ]; then
|
||||
dialog --title "New username" --msgbox "No username was given" 6 40
|
||||
return
|
||||
fi
|
||||
if [[ "$new_user_username" == *" "* ]]; then
|
||||
dialog --title "Invalid username" --msgbox "The username should not contain any spaces" 6 40
|
||||
return
|
||||
fi
|
||||
if [ ${#new_user_ssh_public_key} -lt 20 ]; then
|
||||
clear
|
||||
freedombone-adduser "$new_user_username"
|
||||
any_key
|
||||
else
|
||||
if [[ "$new_user_ssh_public_key" == "ssh-"* ]]; then
|
||||
clear
|
||||
freedombone-adduser "$new_user_username" "$new_user_ssh_public_key"
|
||||
any_key
|
||||
else
|
||||
dialog --title "ssh public key" --msgbox "This does not look like an ssh public key" 6 40
|
||||
fi
|
||||
fi
|
||||
}
|
||||
|
||||
function select_user {
|
||||
SELECTED_USERNAME=
|
||||
data=$(tempfile 2>/dev/null)
|
||||
trap "rm -f $data" 0 1 2 5 15
|
||||
dialog --title "Select a user" \
|
||||
--backtitle "Freedombone Control Panel" \
|
||||
--dselect "/home/" 14 40 2> $data
|
||||
sel=$?
|
||||
case $sel in
|
||||
0) SELECTED_USERNAME=$(cat $data | awk -F '/' '{print $3}');;
|
||||
1) exit 1;;
|
||||
255) exit 1;;
|
||||
esac
|
||||
if [ ${#SELECTED_USERNAME} -lt 2 ]; then
|
||||
SELECTED_USERNAME=
|
||||
fi
|
||||
if [ ! -d /home/$SELECTED_USERNAME/Maildir ]; then
|
||||
dialog --title "User directory check" --msgbox "This does not look like a user directory" 6 40
|
||||
SELECTED_USERNAME=
|
||||
fi
|
||||
}
|
||||
|
||||
function delete_user {
|
||||
select_user
|
||||
if [ ! $SELECTED_USERNAME ]; then
|
||||
return
|
||||
fi
|
||||
if grep -Fxq "Admin user: $SELECTED_USERNAME" $COMPLETION_FILE; then
|
||||
dialog --title "Administrator user" --msgbox "You can't delete the administrator user" 6 40
|
||||
return
|
||||
fi
|
||||
clear
|
||||
freedombone-rmuser $SELECTED_USERNAME
|
||||
any_key
|
||||
}
|
||||
|
||||
function change_password {
|
||||
select_user
|
||||
if [ ! $SELECTED_USERNAME ]; then
|
||||
return
|
||||
fi
|
||||
clear
|
||||
su -c "passwd" - $SELECTED_USERNAME
|
||||
any_key
|
||||
}
|
||||
|
||||
function add_to_mailing_list {
|
||||
select_user
|
||||
if [ ! $SELECTED_USERNAME ]; then
|
||||
return
|
||||
fi
|
||||
data=$(tempfile 2>/dev/null)
|
||||
trap "rm -f $data" 0 1 2 5 15
|
||||
dialog --backtitle "Freedombone Control Panel" \
|
||||
--title "Subscribe $SELECTED_USERNAME to a mailing list" \
|
||||
--form "\n" 8 68 4 \
|
||||
"List folder name:" 1 1 "" 1 35 26 25 \
|
||||
"Name between [] on subject line:" 2 1 "" 2 35 26 25 \
|
||||
"List email address:" 3 1 "" 3 35 26 25 \
|
||||
2> $data
|
||||
sel=$?
|
||||
case $sel in
|
||||
1) return;;
|
||||
255) return;;
|
||||
esac
|
||||
LIST_NAME=$(cat $data | sed -n 1p)
|
||||
LIST_SUBJECT=$(cat $data | sed -n 2p)
|
||||
LIST_EMAIL=$(cat $data | sed -n 3p)
|
||||
|
||||
if [ ${#LIST_NAME} -lt 2 ]; then
|
||||
dialog --title "Add mailing list" --msgbox "No mailing list name was given" 6 40
|
||||
return
|
||||
fi
|
||||
if [ ${#LIST_SUBJECT} -lt 2 ]; then
|
||||
dialog --title "Add mailing list" --msgbox "No mailing list subject was given" 6 40
|
||||
return
|
||||
fi
|
||||
if [ ${#LIST_EMAIL} -lt 2 ]; then
|
||||
dialog --title "Add mailing list" --msgbox "No mailing list email address was given" 6 40
|
||||
return
|
||||
fi
|
||||
if [[ "$LIST_EMAIL" != *"@"* || "$LIST_EMAIL" != *"."* ]]; then
|
||||
dialog --title "Add mailing list" --msgbox "Unrecognised email address" 6 40
|
||||
return
|
||||
fi
|
||||
|
||||
freedombone-addlist -u $SELECTED_USERNAME -l "$LIST_NAME" -s "$LIST_SUBJECT" -e "$LIST_EMAIL"
|
||||
dialog --title "Add mailing list" --msgbox "$LIST_NAME list was added" 6 40
|
||||
}
|
||||
|
||||
function email_rule {
|
||||
select_user
|
||||
if [ ! $SELECTED_USERNAME ]; then
|
||||
return
|
||||
fi
|
||||
data=$(tempfile 2>/dev/null)
|
||||
trap "rm -f $data" 0 1 2 5 15
|
||||
dialog --backtitle "Freedombone Control Panel" \
|
||||
--title "Email rule for user $SELECTED_USERNAME" \
|
||||
--form "\n" 8 65 3 \
|
||||
"When email arrives from address:" 1 1 "" 1 35 24 28 \
|
||||
"Move to folder:" 2 1 "" 2 35 24 28 \
|
||||
2> $data
|
||||
sel=$?
|
||||
case $sel in
|
||||
1) return;;
|
||||
255) return;;
|
||||
esac
|
||||
RULE_EMAIL=$(cat $data | sed -n 1p)
|
||||
RULE_FOLDER=$(cat $data | sed -n 2p)
|
||||
|
||||
if [ ${#RULE_EMAIL} -lt 2 ]; then
|
||||
dialog --title "Add email rule" --msgbox "No email address was given" 6 40
|
||||
return
|
||||
fi
|
||||
if [ ${#RULE_FOLDER} -lt 2 ]; then
|
||||
dialog --title "Add email rule" --msgbox "No folder name was given" 6 40
|
||||
return
|
||||
fi
|
||||
if [[ "$RULE_EMAIL" != *"@"* || "$RULE_EMAIL" != *"."* ]]; then
|
||||
dialog --title "Add email rule" --msgbox "Unrecognised email address" 6 40
|
||||
return
|
||||
fi
|
||||
|
||||
freedombone-addemail -u $SELECTED_USERNAME -e "$RULE_EMAIL" -g "$RULE_FOLDER"
|
||||
dialog --title "Add email rule" --msgbox "Email rule for $RULE_EMAIL was added" 6 40
|
||||
}
|
||||
|
||||
function block_unblock_email {
|
||||
select_user
|
||||
if [ ! $SELECTED_USERNAME ]; then
|
||||
return
|
||||
fi
|
||||
data=$(tempfile 2>/dev/null)
|
||||
trap "rm -f $data" 0 1 2 5 15
|
||||
dialog --backtitle "Freedombone Control Panel" \
|
||||
--title "Block/Unblock email going to $SELECTED_USERNAME" \
|
||||
--form "\n" 8 65 3 \
|
||||
"When email arrives from address:" 1 1 "" 1 35 24 28 \
|
||||
"Block it:" 2 1 "yes" 2 35 4 4 \
|
||||
2> $data
|
||||
sel=$?
|
||||
case $sel in
|
||||
1) return;;
|
||||
255) return;;
|
||||
esac
|
||||
BLOCK_EMAIL=$(cat $data | sed -n 1p)
|
||||
BLOCK=$(cat $data | sed -n 2p)
|
||||
if [ ${#BLOCK_EMAIL} -lt 2 ]; then
|
||||
dialog --title "Block/Unblock an email" --msgbox "No email address was given" 6 40
|
||||
return
|
||||
fi
|
||||
if [[ "$BLOCK_EMAIL" != *"@"* || "$BLOCK_EMAIL" != *"."* ]]; then
|
||||
dialog --title "Block/Unblock an email" --msgbox "Unrecognised email address" 6 40
|
||||
return
|
||||
fi
|
||||
if [[ $BLOCK == "y"* || $BLOCK == "Y"* ]]; then
|
||||
freedombone-ignore -u $SELECTED_USERNAME -e "$BLOCK_EMAIL"
|
||||
dialog --title "Block an email" --msgbox "Email from $BLOCK_EMAIL to $SELECTED_USERNAME blocked" 6 40
|
||||
else
|
||||
freedombone-unignore -u $SELECTED_USERNAME -e "$BLOCK_EMAIL"
|
||||
dialog --title "Unblock an email" --msgbox "Email from $BLOCK_EMAIL to $SELECTED_USERNAME unblocked" 6 40
|
||||
fi
|
||||
}
|
||||
|
||||
function block_unblock_subject {
|
||||
select_user
|
||||
if [ ! $SELECTED_USERNAME ]; then
|
||||
return
|
||||
fi
|
||||
data=$(tempfile 2>/dev/null)
|
||||
trap "rm -f $data" 0 1 2 5 15
|
||||
dialog --backtitle "Freedombone Control Panel" \
|
||||
--title "Block/Unblock email going to $SELECTED_USERNAME" \
|
||||
--form "\n" 8 70 3 \
|
||||
"When email arrives with subject text:" 1 1 "" 1 40 24 28 \
|
||||
"Block it:" 2 1 "yes" 2 40 4 4 \
|
||||
2> $data
|
||||
sel=$?
|
||||
case $sel in
|
||||
1) return;;
|
||||
255) return;;
|
||||
esac
|
||||
BLOCK_SUBJECT=$(cat $data | sed -n 1p)
|
||||
BLOCK=$(cat $data | sed -n 2p)
|
||||
if [ ${#BLOCK_SUBJECT} -lt 2 ]; then
|
||||
dialog --title "Block/Unblock an email" --msgbox "No subject was given" 6 40
|
||||
return
|
||||
fi
|
||||
if [[ $BLOCK == "y"* || $BLOCK == "Y"* ]]; then
|
||||
freedombone-ignore -u $SELECTED_USERNAME -t "$BLOCK_SUBJECT"
|
||||
dialog --title "Block an email" --msgbox "Email with subject $BLOCK_SUBJECT to $SELECTED_USERNAME blocked" 6 40
|
||||
else
|
||||
freedombone-unignore -u $SELECTED_USERNAME -t "$BLOCK_SUBJECT"
|
||||
dialog --title "Unblock an email" --msgbox "Email with subject $BLOCK_SUBJECT to $SELECTED_USERNAME unblocked" 6 40
|
||||
fi
|
||||
}
|
||||
|
||||
function create_keydrive_master {
|
||||
select_user
|
||||
if [ ! $SELECTED_USERNAME ]; then
|
||||
return
|
||||
fi
|
||||
dialog --title "USB Master Keydrive" --msgbox "Plug in a LUKS encrypted USB drive" 6 40
|
||||
clear
|
||||
freedombone-keydrive -u $SELECTED_USERNAME --master 'yes'
|
||||
any_key
|
||||
}
|
||||
|
||||
function create_keydrive_fragment {
|
||||
select_user
|
||||
if [ ! $SELECTED_USERNAME ]; then
|
||||
return
|
||||
fi
|
||||
dialog --title "USB Fragment Keydrive" --msgbox "Plug in a LUKS encrypted USB drive" 6 40
|
||||
clear
|
||||
freedombone-keydrive -u $SELECTED_USERNAME
|
||||
any_key
|
||||
}
|
||||
|
||||
function backup_data {
|
||||
dialog --title "Backup data to USB" --msgbox "Plug in a LUKS encrypted USB drive" 6 40
|
||||
clear
|
||||
backup
|
||||
any_key
|
||||
}
|
||||
|
||||
function restore_data {
|
||||
dialog --title "Restore data from USB" --msgbox "Plug in your backup USB drive" 6 40
|
||||
clear
|
||||
restore
|
||||
any_key
|
||||
}
|
||||
|
||||
function menu_top_level {
|
||||
while true
|
||||
do
|
||||
data=$(tempfile 2>/dev/null)
|
||||
trap "rm -f $data" 0 1 2 5 15
|
||||
dialog --backtitle "Freedombone Control Panel" \
|
||||
--title "Control Panel" \
|
||||
--radiolist "Choose an operation:" 20 70 13 \
|
||||
1 "Backup data to USB drive" off \
|
||||
2 "Restore data from USB drive" off \
|
||||
3 "Add a user" off \
|
||||
4 "Delete a user" off \
|
||||
5 "Change user password or ssh public key" off \
|
||||
6 "Add a user to a mailing list" off \
|
||||
7 "Add an email rule" off \
|
||||
8 "Block/Unblock an email address" off \
|
||||
9 "Block/Unblock email with subject text" off \
|
||||
10 "Change security settings" off \
|
||||
11 "Backup GPG key to USB drive (master keydrive)" off \
|
||||
12 "Backup GPG key to USB drive (fragment keydrive)" off \
|
||||
13 "Exit" on 2> $data
|
||||
sel=$?
|
||||
case $sel in
|
||||
1) exit 1;;
|
||||
255) exit 1;;
|
||||
esac
|
||||
case $(cat $data) in
|
||||
1) backup_data;;
|
||||
2) restore_data;;
|
||||
3) add_user;;
|
||||
4) delete_user;;
|
||||
5) change_password;;
|
||||
6) add_to_mailing_list;;
|
||||
7) email_rule;;
|
||||
8) block_unblock_email;;
|
||||
9) block_unblock_subject;;
|
||||
10) freedombone-sec;;
|
||||
11) create_keydrive_master;;
|
||||
12) create_keydrive_fragment;;
|
||||
13) break;;
|
||||
esac
|
||||
done
|
||||
}
|
||||
|
||||
if [ ! -f $COMPLETION_FILE ]; then
|
||||
echo 'This command should only be run on an installed Freedombone system'
|
||||
exit 1
|
||||
fi
|
||||
|
||||
menu_top_level
|
||||
exit 0
|
||||
Loading…
Reference in New Issue