Code

###/Exp Hack ###

### Activity Bar Hack ###
      my ($usermonth, $userday, $useryear, $day, $today, $days, $dif);
      ($usermonth, $userday, $useryear) = split(/\//, $userprofile{$user}->[14]);
      use Time::Local;
      my $day = 86400;
      $today = time();
      $usermonth--;
      my $days = timelocal(0,0,0,$userday,$usermonth,$useryear);
      $dif = int (($today - $days) / $day);
      if(!$dif) { $dif = 1; }

      $dif *= 1; # Change this number to whatever the average posts per day should be.

      if($userprofile{$user}->[6] eq $txt{'683'}) {
          $posts = $userprofile{$user}->[6];
          $userprofile{$user}->[6] = 1;
          $dif = 1;
      }
# Uncomment this to count negative posts as something other than negative.
# elsif ($posts < 0) {
#          $posts = $userprofile{$user}->[6];
#          $userprofile{$user}->[6] = 0;
#          $dif = 1;
#      }

      $avgpost{$user} = sprintf("%.2f", $userprofile{$user}->[6] / $dif * 100);
      if($avgpost{$user} >= 100) { $avgpost{$user} = qq~<img src="$imagesdir/full_abar.gif" width="104" height="6"><br>\nActivity: 100% ($userprofile{$user}->[6]/$userprofile{$user}->[6])~; } else {

          $fill_bar = int($avgpost{$user});
          if($fill_bar){$fill_bar = qq~<img src="$imagesdir/fill_abar.gif" width="$fill_bar" height="6">~;} else {$fill_bar = "";}

          $empty_bar = 100 - $avgpost{$user};
          if($empty_bar){$empty_bar = qq~<img src="$imagesdir/empty_abar.gif" width="$empty_bar" height="6">~;} else {$empty_bar = ""; }

          $avgpost{$user} = qq~<img src="$imagesdir/l_abar.gif" width="2" height="6">$fill_bar$empty_bar<img src="$imagesdir/r_abar.gif" width="3" height="6"><br>\nActivity: $avgpost{$user}% ($userprofile{$user}->[6]/$dif)~;
      }
      $avgpost{$user} .= '<!-- Activity Bar Hack by Michael (mrtorrent@yahoo.com) -->';
      $userprofile{$user}->[6] = $posts;
      ###/Activity Bar Hack ### 

Code

my $days = timelocal(0,0,0,$userday,$usermonth,$useryear);