# HG changeset patch
# User Matthias Förste <foerste@schlittermann.de>
# Date 1311001395 -7200
# Node ID a459cc790ed0e20e3465b23e6d99ffdd3c34bdd4
# Parent  c988058104dd502ecbd5614d7a64c1792c2e2548
perltidy

diff -r c988058104dd -r a459cc790ed0 cgi-bin/ius-dav-htuseradd.cgi
--- a/cgi-bin/ius-dav-htuseradd.cgi	Mon Jul 18 16:44:13 2011 +0200
+++ b/cgi-bin/ius-dav-htuseradd.cgi	Mon Jul 18 17:03:15 2011 +0200
@@ -25,7 +25,7 @@
 use CGI;
 use Ius::Dav::Htpasswd qw(mkpasswd readconfig useradd);
 
-my $css =<<EOC;
+my $css = <<EOC;
 body {
         font-family: Helvetica, Arial, sans-serif;
 }
@@ -41,40 +41,40 @@
 
 print $q->header( -charset => 'UTF-8' );
 print $q->start_html(
-    -title   => $0,
-    -style   => { -code => $css },
-    -onload  => q{document.forms['passwd'].elements['user'].focus();}
-), $q->h3({ -id => 'header' }, 'Befristete WebDAV Zugänge einrichten'), $q->hr;
+    -title  => $0,
+    -style  => { -code => $css },
+    -onload => q{document.forms['passwd'].elements['user'].focus();}
+  ),
+  $q->h3( { -id => 'header' }, 'Befristete WebDAV Zugänge einrichten' ),
+  $q->hr;
 
 my $p;
 $p->{$_} = $q->param($_) for qw(user expiry add del);
 
-print $q->start_form(-id => 'passwd'),
+print $q->start_form( -id => 'passwd' ),
   $q->table(
-      $q->Tr(
-          $q->td('Nutzername'),
-          $q->td($q->textfield('user'))
-      ),
-      $q->Tr(
-          $q->td('Gültigkeitsdauer in Tagen (default: 1)'),
-          $q->td($q->textfield('expiry'))
-      ),
-      $q->Tr(
-          $q->td($q->submit({ -name => 'add', -value => 'Anlegen' })),
-          $q->td($q->submit({ -name => 'del', -value => 'Löschen' }))
-      )
+    $q->Tr( $q->td('Nutzername'), $q->td( $q->textfield('user') ) ),
+    $q->Tr(
+        $q->td('Gültigkeitsdauer in Tagen (default: 1)'),
+        $q->td( $q->textfield('expiry') )
+    ),
+    $q->Tr(
+        $q->td( $q->submit( { -name => 'add', -value => 'Anlegen' } ) ),
+        $q->td( $q->submit( { -name => 'del', -value => 'Löschen' } ) )
+    )
   ),
   $q->end_form;
 
 my $doit = 0;
 
-my $conf = readconfig or die "Can't readconfig"; 
+my $conf = readconfig or die "Can't readconfig";
 
-if (defined $p->{add} and $p->{add} ne '') {
+if ( defined $p->{add} and $p->{add} ne '' ) {
 
     print $q->hr;
     my @cmd = ( qw(sudo ius-dav-htuseradd -u), $p->{user} );
-    push @cmd, '-e', $p->{expiry} if defined $p->{expiry} and $p->{expiry} ne '';
+    push @cmd, '-e', $p->{expiry}
+      if defined $p->{expiry} and $p->{expiry} ne '';
 
     if ( my $pass = qx(@cmd) ) {
 
@@ -84,22 +84,18 @@
 
         print $q->table(
             $q->Tr(
-                $q->td('Url:'),
-                $q->td($q->a({ -href => $url }, $url))
+                $q->td('Url:'), $q->td( $q->a( { -href => $url }, $url ) )
             ),
-            $q->Tr(
-                $q->td('Passwort:'),
-                $q->td($pass)
-            )
+            $q->Tr( $q->td('Passwort:'), $q->td($pass) )
         );
 
-
     }
     else {
         print $q->p('Something went wrong');
     }
 
-} elsif (defined $p->{del} and $p->{del} ne '') {
+}
+elsif ( defined $p->{del} and $p->{del} ne '' ) {
 
     my @cmd = ( qw(sudo ius-dav-htuserdel -u), $p->{user} );
     print $q->hr, $q->p('Something went wrong') if system @cmd;