Attachment 887953 Details for Bug 1073714 – latest version of pre-reboot script

latest version of pre-reboot script

pre-reboot (text/plain), 1.54 KB, created by Tom Horsley on 2014-04-20 14:45:53 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Tom Horsley

Created: 2014-04-20 14:45:53 UTC

Size: 1.54 KB

patch

obsolete

>#!/usr/bin/perl -w
>#
># Silly perl script to find all the process on the system that are not
># system processes and not current user processes and print commands to
># kill them all off. Hopefully this will get rid of systemd user daemons
># which would otherwise make a reboot wait forever.
>
>use strict;
>
>my $my_uid = $<;
>
>my @procs;
>my $pf;
>opendir($pf, "/proc") || die "Cannot read /proc directory : $!\n";
>@procs = readdir($pf);
>closedir($pf);
>
>my @deaders;
>
>my $p;
>foreach $p (@procs) {
>   if ($p=~/^\d+$/) {
>      my @s = stat("/proc/$p");
>      if (scalar(@s) >= 5) {
>         if (! (($s[4] < 1000) || ($s[4] == $my_uid))) {
>            push(@deaders, $p);
>         }
>      }
>   }
>}
>
># I keep getting silly empty mail messages after I come back from reboot, so
># let's try to shut down all mail and related services before starting the
># reboot process. Hmmm... Let's fool with the ordering, I still got empty
># messages with dovecot first, let's try postfix first...
>
>print "systemctl stop crond.service\n";
>print "usleep 100000\n";
>
>print "killall claws-mail\n";
>print "usleep 100000\n";
>
>print "systemctl stop postfix.service\n";
>print "usleep 100000\n";
>
>print "systemctl stop dovecot.service\n";
>print "usleep 100000\n";
>
>foreach $p (sort { $a <=> $b } (@deaders)) {
>   print "kill -STOP $p 2>/dev/null\n";
>}
>print "usleep 100000\n";
>foreach $p (sort { $a <=> $b } (@deaders)) {
>   print "kill -9 $p 2>/dev/null\n";
>}
>print "usleep 100000\n";
>foreach $p (sort { $a <=> $b } (@deaders)) {
>   print "kill -CONT $p 2>/dev/null\n";
>}
>print "usleep 100000\n";
>print "reboot\n";

Actions: View

Attachments on bug 1073714: 879425 | 887953