"Rang Auswertung!"

      "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.