From d147c917f2cb1d6a9a7d60cbbc99e0ab0307c803 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Timoth=C3=A9e=20Floure?= Date: Sun, 23 Dec 2018 14:27:00 +0100 Subject: [PATCH] Remove legacy/unused scripts from the repository --- legacy/mlmmj-unipoly-ldap-listen | 2 - legacy/mlmmj-unipoly-ldap-listen.pl | 110 ---------------------------- legacy/unipoly-mlmmj-ldap-sync | 99 ------------------------- 3 files changed, 211 deletions(-) delete mode 100755 legacy/mlmmj-unipoly-ldap-listen delete mode 100755 legacy/mlmmj-unipoly-ldap-listen.pl delete mode 100755 legacy/unipoly-mlmmj-ldap-sync diff --git a/legacy/mlmmj-unipoly-ldap-listen b/legacy/mlmmj-unipoly-ldap-listen deleted file mode 100755 index 299a5cf..0000000 --- a/legacy/mlmmj-unipoly-ldap-listen +++ /dev/null @@ -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 diff --git a/legacy/mlmmj-unipoly-ldap-listen.pl b/legacy/mlmmj-unipoly-ldap-listen.pl deleted file mode 100755 index 792fcd6..0000000 --- a/legacy/mlmmj-unipoly-ldap-listen.pl +++ /dev/null @@ -1,110 +0,0 @@ -#!/usr/bin/perl -# Copyright (c) 2014 Axel Angel . 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"; -} diff --git a/legacy/unipoly-mlmmj-ldap-sync b/legacy/unipoly-mlmmj-ldap-sync deleted file mode 100755 index 19c2667..0000000 --- a/legacy/unipoly-mlmmj-ldap-sync +++ /dev/null @@ -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 - -: