Code (Perl)

    if ($save_moved) { save_moved_file(); } 

Code (Perl)

## New forum.totals rebuild ##
     my @newtots = ();
     my @myline1 = ();
     while( ($key, $value) = each %board ) {
         $ftotals = 0;
         fopen ( TOTALS, "<$boardsdir/$key.txt" );
         my @ftotals = <TOTALS>;
         fclose(TOTALS);
         chomp @ftotals;
         $ftotals = @ftotals;
         if ( !$ftotals ) {
             $msgtot = 0;
             $myline1[4] = 'N/A';
             $myline1[0] = q{};
             $myline1[5] = q{};
             $myline1[7]= q{};
             $mesg[0] = q{};
             $messby = 'N/A';
             $msgts = 0;
         }
         else {
             @myline1 = split /[|]/xsm, $ftotals[0];
             $msgtot = 0;
             $msgts = $myline1[8];
             for (@ftotals) {
                 @totalsvars = split /[|]/xsm, $_;
                 $msgtot += $totalsvars[5] + 1;
             }
             fopen ( TOTALSN, "<$datadir/$myline1[0].txt" );
             my @ftotalsn = <TOTALSN>;
             fclose(TOTALSN);
             @mesg =  split /[|]/xsm, $ftotalsn[-1];
             $messby = $myline1[6];
             if ( $messby eq 'Guest') {
                 $messby = $myline1[2];
             }
         }
         push @newtots, qq~$key|$ftotals|$msgtot|$myline1[4]|$messby|$myline1[0]|$myline1[5]|$mesg[0]|$myline1[7]|$msgts\n~;
     }
     fopen ( NTOTALS, ">$boardsdir/forum.totals" );
     print {NTOTALS} @newtots;
     fclose(NTOTALS);