Probleme mit einem übernommenen Skript (solved) (Allgemeines zu Perl)

[thread]18417[/thread]

Probleme mit einem übernommenen Skript [solved]

Tags: perl5 Similar Threads

Readers: 15

Articles: hide open all | hide show old branches

+8 replies
guest k0kett

2013-07-02 12:50

Ich bin mir nich sicher, ob dieses Problem hier richtig ist, aber ich habe ein Skript von einem Vorgänger übernommen, welches bis vor Kurzem reibungslos lief, nun zickt es aber mit der Meldung 'Can't call method "get_value" on an undefined value ...' rum.
Das Skript ist dafür zuständig automatisch neue Repos aus einem AD (Gruppen) zu erkennen, diese auf dem SVN-Server anzulegen, Access-Dateien zu verwalten (neue Mitgleider in den Gruppen), etc. Durch den geworfenen Fehler, wird nun jedoch verständlicherweise nichts mehr erledigt.
Leider habe ich selbst recht wenig mit Perl zu tun gehabt und kenne mich nur in den Grundzügen damit aus, hoffe jedoch, dass mir hier jemand helfen kann.
Hier das Skript in "geschwärzter" Form: http://pastie.org/private/bqdbbgx0nrlvfss4gxuebq
Last edited: 2013-07-02 12:51:47 +0200 (CEST)
- +6 replies
- guest k0kett
  
  2013-07-02 12:56
  
  Was vllt noch hilfreich wäre ist, dass der Fehler bei line 126, <DATA> line 228 geworfen wird.
  Last edited: 2013-07-02 12:57:44 +0200 (CEST)
  - +5 replies
  - GwenDragon
    
    2013-07-02 13:02
    User since
    2005-01-17
    14850 articles
    Admin1
    
    Code (perl): (dl )
    
    1 2 3 4 5 6
    
    my $result = $ad->search(base=>$path,filter=>"cn=*",attrs=>"cn"); my $manager = $result->entry(0)->get_value('managedBy'); $result = $ad->search(base=>$manager,filter=>"cn=*",attrs=>"cn"); #print decodeCertSubject($result->entry(0)->get_value('userCertificate')) . "\n"; my ($oneline, $cn) = decodeCertSubject($result->entry(0)->get_value('userCertificate'));
    
    Dann benutze doch bitte mal die Funktion Dumper von Data::Dumper um dir ausgeben zu lassen, ob $manager und $result sinnvolle Daten liefert.
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9
    
    use Data::Dumper; my $result = $ad->search(base=>$path,filter=>"cn=*",attrs=>"cn"); warn Dumper (\$result); my $manager = $result->entry(0)->get_value('managedBy'); warn Dumper (\$manager); $result = $ad->search(base=>$manager,filter=>"cn=*",attrs=>"cn"); #print decodeCertSubject($result->entry(0)->get_value('userCertificate')) . "\n"; my ($oneline, $cn) = decodeCertSubject($result->entry(0)->get_value('userCertificate'));
    
    Last edited: 2013-07-02 13:04:49 +0200 (CEST)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +4 replies
    - guest k0kett
      
      2013-07-02 13:15
      
      $result sieht ganz brauchbar aus, ist ein wenig viel um alles zu sichten, aber macht durchaus Sinn.
      $manager liefert 2 Zuweisungen für $VAR1, das erste ist der managedBy String ausm AD, der zweite ist dann undef
      Last edited: 2013-07-02 13:26:22 +0200 (CEST)
      - +3 replies
      - GwenDragon
        
        2013-07-02 13:33
        
        User since
        2005-01-17
        14850 articles
        Admin1
        
        Und liefert $result->entry(0) was sinnvolles?
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        guest k0kett
        
        2013-07-02 13:39
        
        Oh Gott, das ist mir jetzt ein wenig peinlich :|
        Der Fehler lag darin, dass wohl jemand eine AD-Gruppe angelegt hat und keinen Verwalter eingetragen hat -.-
        Aber vielen Dank für deine schnelle Hilfe, auf die Idee hätte ich selbst kommen müssen :(
        Last edited: 2013-07-02 13:52:24 +0200 (CEST)
        
        GwenDragon
        
        2013-07-02 13:53
        
        User since
        2005-01-17
        14850 articles
        Admin1
        
        Na, wenn ein Problem so schnell zu lösen ist, freut's mich doch ;)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- bianca
  
  2013-07-02 16:32
  
  User since
  2009-09-13
  7016 articles
  BenutzerIn
  
  Hallo k0kett,
  ich mache eine kleine Umfrage:
  Warum bist du als Gast drin?
  Hast du einen Account hier oder keinen?
  Falls keinen, warum nicht?
  Würde mich über deine Beteiligung freuen.
  10 print "Hallo"
  20 goto 10

View all threads created 2013-07-02 12:50.