Remove legacy/unused scripts from the repository
This commit is contained in:
Timothée Floure
parent
9b3271ac40
commit
d147c917f2
3 changed files with 0 additions and 211 deletions
|
|
@ -1,2 +0,0 @@
|
||||||
#!/bin/sh
|
|
||||||
exec "$(dirname "$0")/mlmmj-unipoly-ldap-listen.pl" 2>&1 | logger --priority daemon.info -t unipoly-mlmmj-ldap-sync
|
|
||||||
|
|
@ -1,110 +0,0 @@
|
||||||
#!/usr/bin/perl
|
|
||||||
# Copyright (c) 2014 Axel Angel <axel-oss@vneko.ch>. All rights reserved.
|
|
||||||
# This program is free software; you can redistribute it and/or
|
|
||||||
# modify it under the same terms as Perl itself.
|
|
||||||
|
|
||||||
# require: https://github.com/axel-angel/ldap-sync-listener
|
|
||||||
# require: libnet-ldap-perl libtime-out-perl
|
|
||||||
|
|
||||||
use strict;
|
|
||||||
use warnings;
|
|
||||||
|
|
||||||
use Time::Out qw(timeout);
|
|
||||||
use Net::LDAP::SyncDiffListener;
|
|
||||||
use Net::LDAP::Util qw{ldap_explode_dn};
|
|
||||||
|
|
||||||
my $host = 'ldaps://gnusrv2.epfl.ch';
|
|
||||||
my $base = 'ou=Lists,dc=unipoly,dc=epfl,dc=ch';
|
|
||||||
my $user = 'cn=unipoly-mlmmj,ou=Services,dc=unipoly,dc=epfl,dc=ch';
|
|
||||||
my $pass = 'secretsecretsecretsecret';
|
|
||||||
my @lists = qw{amis info news membres};
|
|
||||||
my $mlmmj_folder = '/var/spool/mlmmj/';
|
|
||||||
my $reco_interval = 86400; # 24 hours
|
|
||||||
|
|
||||||
sub mlmmj_sub($$) {
|
|
||||||
my ($list, $addr) = @_;
|
|
||||||
print "mlmmj_sub $addr to $list\n";
|
|
||||||
my $folder = $mlmmj_folder . $list;
|
|
||||||
system('/usr/bin/mlmmj-sub', '-L', $folder, '-a', $addr);
|
|
||||||
warn "mlmml exited with code ", $? >> 8 ,": $!" if $?;
|
|
||||||
}
|
|
||||||
|
|
||||||
sub mlmmj_unsub($$) {
|
|
||||||
my ($list, $addr) = @_;
|
|
||||||
print "mlmmj_unsub $addr from $list\n";
|
|
||||||
my $folder = $mlmmj_folder . $list;
|
|
||||||
system('/usr/bin/mlmmj-unsub', '-L', $folder, '-a', $addr);
|
|
||||||
}
|
|
||||||
|
|
||||||
my %search = (
|
|
||||||
base => $base,
|
|
||||||
scope => 'sub',
|
|
||||||
filter => "(objectClass=groupOfUniqueNames)",
|
|
||||||
attrs => ['*'],
|
|
||||||
);
|
|
||||||
|
|
||||||
sub handle_change($$$$) {
|
|
||||||
my ($isadd, $entry, $attr, $value) = @_;
|
|
||||||
|
|
||||||
my $cn = $entry->get_value('cn');
|
|
||||||
print "Handle change cn={$cn} attr={$attr} value={$value}\n";
|
|
||||||
|
|
||||||
unless ($cn ~~ @lists) {
|
|
||||||
warn "We don't manage: $cn";
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
if ($attr ne "uniqueMember") {
|
|
||||||
warn "We don't care about attr: $attr";
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
my $list = $cn .'@unipoly.ch';
|
|
||||||
my $addr = ldap_explode_dn($value)->[0]{MAIL};
|
|
||||||
my $action = $isadd ? \&mlmmj_sub : \&mlmmj_unsub;
|
|
||||||
$action->($list, $addr);
|
|
||||||
}
|
|
||||||
|
|
||||||
my %callbacks = (
|
|
||||||
add_entry => sub {
|
|
||||||
my ($entry) = @_;
|
|
||||||
print "add_entry: ", $entry->dn(), "\n";
|
|
||||||
},
|
|
||||||
del_entry => sub {
|
|
||||||
my ($dn) = @_;
|
|
||||||
print "del_entry: ", $dn, "\n";
|
|
||||||
},
|
|
||||||
add_attr_value => sub {
|
|
||||||
my ($entry, $attr, $value) = @_;
|
|
||||||
handle_change(1, $entry, $attr, $value);
|
|
||||||
},
|
|
||||||
del_attr_value => sub {
|
|
||||||
my ($entry, $attr, $value) = @_;
|
|
||||||
handle_change(0, $entry, $attr, $value);
|
|
||||||
},
|
|
||||||
);
|
|
||||||
|
|
||||||
# restart after a delay, make sure connection is still alive
|
|
||||||
my $state = $ENV{HOME} .'/mlmmj-unipoly-ldap.state.yaml';
|
|
||||||
while (1) {
|
|
||||||
my $ldap = Net::LDAP::SyncDiffListener->new($host, keepalive => 1)
|
|
||||||
or die "$@";
|
|
||||||
$ldap->bind($user, password => $pass);
|
|
||||||
|
|
||||||
my $trapper = sub {
|
|
||||||
$ldap->unbind;
|
|
||||||
$ldap->disconnect;
|
|
||||||
die "Stopped as requested";
|
|
||||||
};
|
|
||||||
$SIG{INT} = $trapper;
|
|
||||||
$SIG{TERM} = $trapper;
|
|
||||||
$SIG{HUP} = $trapper;
|
|
||||||
|
|
||||||
timeout $reco_interval => sub {
|
|
||||||
$ldap->listen($state, \%search, \%callbacks);
|
|
||||||
};
|
|
||||||
|
|
||||||
$ldap->unbind;
|
|
||||||
$ldap->disconnect;
|
|
||||||
print "Timed out, restarting\n";
|
|
||||||
}
|
|
||||||
|
|
@ -1,99 +0,0 @@
|
||||||
#! /bin/sh
|
|
||||||
### BEGIN INIT INFO
|
|
||||||
# Provides: unipoly-mlmmj-ldap-sync
|
|
||||||
# Required-Start: $remote_fs
|
|
||||||
# Required-Stop: $remote_fs
|
|
||||||
# Should-Start: $syslog
|
|
||||||
# Default-Start: 2 3 4 5
|
|
||||||
# Default-Stop: 1
|
|
||||||
# Short-Description: daemon to push ldap changes to mlmmj for Unipoly
|
|
||||||
### END INIT INFO
|
|
||||||
|
|
||||||
# Author: Axel Angel for GNU Generation and Unipoly
|
|
||||||
|
|
||||||
APPDIR=/var/spool/exim4
|
|
||||||
PATH=/var/spool/exim4/bin:/sbin:/usr/sbin:/bin:/usr/bin
|
|
||||||
DESC="Unipoly mlmmj ldap sync"
|
|
||||||
NAME=unipoly-mlsync
|
|
||||||
EXE=$APPDIR/bin/mlmmj-unipoly-ldap-listen
|
|
||||||
EXESRV=$APPDIR/bin/mlmmj-unipoly-ldap-listen.pl
|
|
||||||
DAEMON=$APPDIR/bin/mlmmj-unipoly-ldap-listen
|
|
||||||
DAEMON_UID=Debian-exim
|
|
||||||
DAEMON_GID=Debian-exim
|
|
||||||
PIDFILE=/var/run/$NAME.pid
|
|
||||||
SCRIPTNAME=/etc/init.d/$NAME
|
|
||||||
|
|
||||||
# Exit if the package is not installed
|
|
||||||
[ -x $DAEMON ] || exit 0
|
|
||||||
|
|
||||||
# Load the VERBOSE setting and other rcS variables
|
|
||||||
. /lib/init/vars.sh
|
|
||||||
|
|
||||||
# Define LSB log_* functions.
|
|
||||||
. /lib/lsb/init-functions
|
|
||||||
|
|
||||||
# Read configuration variable file if it is present
|
|
||||||
[ -r /etc/default/$NAME ] && . /etc/default/$NAME
|
|
||||||
|
|
||||||
#
|
|
||||||
# Function that starts the daemon/service
|
|
||||||
#
|
|
||||||
do_start()
|
|
||||||
{
|
|
||||||
start-stop-daemon --start --quiet --exec $EXE \
|
|
||||||
--umask 0027 --chuid $DAEMON_UID:$DAEMON_GID \
|
|
||||||
--chdir "$APPDIR" --background -- \
|
|
||||||
|| return 1
|
|
||||||
}
|
|
||||||
|
|
||||||
#
|
|
||||||
# Function that stops the daemon/service
|
|
||||||
#
|
|
||||||
do_stop()
|
|
||||||
{
|
|
||||||
pkill -u "$DAEMON_UID" -f "$APPDIR/bin/mlmmj-unipoly-ldap-listen.pl"
|
|
||||||
}
|
|
||||||
|
|
||||||
case "$1" in
|
|
||||||
start)
|
|
||||||
do_start
|
|
||||||
case "$?" in
|
|
||||||
0|1) [ "$VERBOSE" != no ] && log_end_msg 0 ;;
|
|
||||||
2) [ "$VERBOSE" != no ] && log_end_msg 1 ;;
|
|
||||||
esac
|
|
||||||
;;
|
|
||||||
stop)
|
|
||||||
do_stop
|
|
||||||
case "$?" in
|
|
||||||
0|1) [ "$VERBOSE" != no ] && log_end_msg 0 ;;
|
|
||||||
2) [ "$VERBOSE" != no ] && log_end_msg 1 ;;
|
|
||||||
esac
|
|
||||||
;;
|
|
||||||
status)
|
|
||||||
status_of_proc "$DAEMON" "$NAME" && exit 0 || exit $?
|
|
||||||
;;
|
|
||||||
restart|force-reload)
|
|
||||||
log_daemon_msg "Restarting $DESC" "$NAME"
|
|
||||||
do_stop
|
|
||||||
case "$?" in
|
|
||||||
0|1)
|
|
||||||
do_start
|
|
||||||
case "$?" in
|
|
||||||
0) log_end_msg 0 ;;
|
|
||||||
1) log_end_msg 1 ;; # Old process is still running
|
|
||||||
*) log_end_msg 1 ;; # Failed to start
|
|
||||||
esac
|
|
||||||
;;
|
|
||||||
*)
|
|
||||||
# Failed to stop
|
|
||||||
log_end_msg 1
|
|
||||||
;;
|
|
||||||
esac
|
|
||||||
;;
|
|
||||||
*)
|
|
||||||
echo "Usage: $SCRIPTNAME {start|stop|status|restart|force-reload}" >&2
|
|
||||||
exit 3
|
|
||||||
;;
|
|
||||||
esac
|
|
||||||
|
|
||||||
:
|
|
||||||
Loading…
Reference in a new issue