[Debian-l10n-commits] [SCM] DDTP - Debian Descriptions Translation Project branch, master, updated. 20080812.0-116-g9d06ac3

[Martijn van Oosterhout]

The following commit has been merged in the master branch:
commit 8d3651512f7e65fca3cc5b3f42212db9f304f8cd
Author: Martijn van Oosterhout <kleptog at svana.org>
Date:   Fri Jun 15 18:12:10 2012 +0200

    Script to help with fixing lost passwords.

diff --git a/ddtss/ddtss-admin.pl b/ddtss/ddtss-admin.pl
new file mode 100644
index 0000000..82df6ff
--- /dev/null
+++ b/ddtss/ddtss-admin.pl
@@ -0,0 +1,57 @@
+use strict;
+
+#use Encode;
+use DDTSS_Pg;
+
+if(scalar(@ARGV) == 0)
+{
+   die "Need option\n";
+}
+if($ARGV[0] eq "find")
+{
+  my $email = $ARGV[1] || '';
+  
+  my $db = DDTSS_Open_Read();
+
+  print "Looking for $email\n";
+    
+  ddtss_match($db, "aliases/", sub {
+      my($key,$value) = @_;
+      return if $key !~ m,^aliases/([^/]+)$,;
+      my $user = $1;
+#      print "$key,$value\n";
+      return if $value !~ $email;
+      
+      print "$user: $value\n";
+  });
+  
+  DDTSS_Close($db);
+}
+if($ARGV[0] eq "password")
+{
+  my $username = $ARGV[1] or die "Require username\n";
+  my $newpass = $ARGV[2];
+  my $email;
+  my $pass;
+  
+  my $db = DDTSS_Open_Write();
+  
+  if($db->get("aliases/$username", $email))
+  {
+    die "Couldn't find user '$username'\n";
+  }
+  if($db->get("aliases/$username/password", $pass))
+  {
+    die "Couldn't get password\n";
+  }
+  print "Password: '$pass'\n";
+  if( defined $newpass )
+  {
+    $db->put("aliases/$username/password", $newpass);
+    print "Password changed\n";
+  }
+  
+  DDTSS_Close($db);
+}
+
+  
\ No newline at end of file

-- 
DDTP - Debian Descriptions Translation Project