"Rang Auswertung!"

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

      "Rang Auswertung!"

      Hi,

      Ich möchte mit einem Befehl den Rang bei allen Mitgliedern "hochsetzen" die 5000 Aktivitätspunkte gesammelt haben.
      Deswegen hab ich mir da sowas zusammen gemacht, das aber nicht Funktioniert :( Es tut sich einfach nichts..

      Quellcode

      1. sub auswertung_handler
      2. {
      3. my($self,$main,$command) = @_;
      5. $main->open(local *FILE,$main->translateName('memberdir::memberlist.txt')) || return [];
      6. my @users=<FILE>;
      7. $main->close(*FILE);
      9. foreach (@users)
      10. {
      11. $_ =~ s/[\n\r]//g;
      12. my($nickname,$username) = split(/\|/,$_);
      13. my $user = $main->loadUser($username);
      16. if ($user->{group} < 1)
      17. {
      18. if ($user->{minutes} < 5000)
      19. {
      20. $user->{group} = "2";
      22. $main->saveUser($user);
      23. }
      24. }
      25. }
      26. my $output = $main->createInfoOutput('auswertungok');
      27. return [$output];
      29. }


      Also ich möchte alle User aufrufen, und alle die 5000 minutes haben kommen auf "Rang 2"
      Ich hoffe ich versteht das :>

      MfG, Lukas

      Quellcode

      1. sub auswertung_handler
      2. {
      3. my($self,$main,$command) = @_;
      5. $main->open(local *FILE,$main->translateName('memberdir::memberlist.txt')) || return [];
      6. my @users=<FILE>;
      7. $main->close(*FILE);
      9. foreach (@users)
      10. {
      11. $_ =~ s/[\n\r]//g;
      12. my($nickname,$username) = split(/\|/,$_);
      13. my $user = $main->loadUser($username);
      16. if ($user->{minutes} > 5000 and $user->{group} eq 1)
      17. {
      18. $user->{group} = "2";
      19. }
      21. $main->saveUser($user);
      22. }
      23. my $output = $main->createInfoOutput('auswertungok');
      24. return [$output];
      26. }


      Fertisch.