Benutzer erstellen Passwort Verschlüsselung (solved) (Allgemeines zu Perl)

[thread]16153[/thread]

Benutzer erstellen Passwort Verschlüsselung [solved]

Tags: perl5 system Similar Threads

Readers: 19

Articles: hide open all | hide show old branches

+4 replies
Spaeti

2011-04-04 11:17
User since
2011-04-04
2 articles
BenutzerIn
Guten Tag Perl-Programmierer

Habe folgendes Problem:
Möchte mehrere Benutzer mit einem kleinen Perl-Script erstellen. Nun habe ich das Problem, dass man sich wenn man die Benutzer erstellt hat, nicht anmelden kann. Es funktioniert eigentlich alles, bis auf das Anmelden.

Hier ist mein Programmcode:
Code: (dl )

system("useradd -g $array[1] -p ".crypt('$ARGV[0]','fg')." -d $StdPfad/$array[0] -m $array[0]");
Ich würde mich über eine rasche Antwort freuen :o)

Gruss Spaeti
Last edited: 2011-04-04 11:32:55 +0200 (CEST)
- +2 replies
- GwenDragon
  
  2011-04-04 11:57
  User since
  2005-01-17
  14741 articles
  Admin1
  1) Was liefert denn der system-Aufruf als ANtwort zurück?
  
  Test das mal so:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  my $ret = system("useradd -g $array[1] -p " . crypt("$ARGV[0]",'fg') ." -d $StdPfad/$array[0] -m $array[0]"); if ($ret) { die "Fehler $? - Problem bei system: $!"; }
  
  2) Warum setzt du $ARGV[0] in einfache Anführungszeichen? Das wird dann aber nicht aufgelöst. Dann verwendet crypt immer die Zeichenkette $ARGV[0] als Passwort.
  
  //EDIT:
  Du hast es schon gelöst? Weil nämlich der grüne Haken im Threadtitel sichtbar ist.
  Last edited: 2011-04-04 12:08:52 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - Spaeti
    
    2011-04-04 12:26
    
    User since
    2011-04-04
    2 articles
    BenutzerIn
    
    :D:D:D:D haha super danke. Ich war zu blöde um das zu merken :D Danke vielmals =)
    
    Gruss
    Last edited: 2011-04-04 12:41:34 +0200 (CEST)
- pq
  
  2011-04-04 12:54
  
  User since
  2003-08-04
  12208 articles
  Admin1
  
  Verschoben von Installation und Konfiguration nach Allgemeines zu Perl
  hat ja nichts mit installation zu tun.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2011-04-04 11:17.