Changeset 414

Timestamp:

11/16/11 09:46:41 (12 years ago)

Author:

nanardon

Message:

• add runas and pidfile options

File:

• tools/trunk/bin/sophie-notify (modified) (3 diffs)

tools/trunk/bin/sophie-notify

@@ -12 +12 @@
 
 GetOptions(
-    'c=s'      => \my $configfile,
-    'bdelay=i' => \my $updated_inotify,
-    'd|daemon' => \my $daemon,
-    'u|url=s'  => \my $server,
-    'l=s'      => \my $login,
-    'p=s'      => \my $pass,
-    'proxy=s'  => \my $proxy,
+    'c=s'       => \my $configfile,
+    'bdelay=i'  => \my $updated_inotify,
+    'd|daemon'  => \my $daemon,
+    'u|url=s'   => \my $server,
+    'l=s'       => \my $login,
+    'p=s'       => \my $pass,
+    'proxy=s'   => \my $proxy,
+    'pidfile=s' => \my $pidfile,
+    'runas=s'   => \my $runas,
 ) or die "Wrong options";
 
@@ -29 +31 @@
     $pass        ||= $config{pass};
     $proxy       ||= $config{proxy};
+    $pidfile     ||= $config{pidfile};
+    $runas       ||= $config{runas};
 }
 
 $updated_inotify ||= 500;
+
+my $sc = Sophie::Client->new(
+    server     => $server,
+    login      => $login,
+    password   => $pass,
+    proxy      => $proxy,
+) or die "Can't access to sophie web site";
+
+if ($runas) {
+    my ($login,$pass,$uid,$gid) = $runas =~ /^\d/
+    ? getpwuid($runas)
+    : getpwnam($runas);
+
+    $> = $uid; $) = $gid;
+    if ($> ne $uid) {
+        die "Cannot change to user $runas\n";
+    }
+}
+
 
 if ($daemon) {
@@ -39 +62 @@
 }
 
-my $sc = Sophie::Client->new(
-    server     => $server,
-    login      => $login,
-    password   => $pass,
-    proxy      => $proxy,
-);
+if ($pidfile) {
+    if (open(my $handle, '>', $pidfile)) {
+        print $handle $$ . "\n";
+        close($handle);
+    } else {
+    }
+}
 
 my $update = 1;