Admin/AdvSettings.pl

FIND	$imsubject =~ s/\>/>/g;
ADD AFTER

##############
# Multiple FA, spyderscripts.com
##############

	if    ($globalimagecount == 1) { $ics1 = ' selected="selected" '; }
	elsif ($globalimagecount == 2) { $ics2 = ' selected="selected" '; }
	elsif ($globalimagecount == 3) { $ics3 = ' selected="selected" '; }
	elsif ($globalimagecount == 4) { $ics4 = ' selected="selected" '; }
	elsif ($globalimagecount == 5) { $ics5 = ' selected="selected" '; }
	elsif ($globalimagecount == 6) { $ics6 = ' selected="selected" '; }
	elsif ($globalimagecount == 7) { $ics7 = ' selected="selected" '; }
	elsif ($globalimagecount == 8) { $ics8 = ' selected="selected" '; }
	elsif ($globalimagecount == 9) { $ics9 = ' selected="selected" '; }
	elsif ($globalimagecount == 10) { $ics10 = ' selected="selected" '; }
	else { $ics1 = ' selected="selected" '; }
#############


---------------------------------------------------------------------------------------------------

Sources/Display.pl

FROM THE LINE AFTER		# Should we show an attachment file?

UNTIL  # Should we show "last modified by?"


REPLACE
#####
# Multiple FA, spyderscripts.com
#####
			my @files = ();
			@files = split(/[\,]/, $mfn);
			foreach (@files) {
				if (-e ("$uploaddir/$_")) {
					$attachment .= qq~<span class="small"><a href="$uploadurl/$_" target="_blank"><img src="$imagesdir/paperclip.gif" border="0" align="middle" alt="" /> $_</a></span>~;
					if (($_ =~ /(jpg|gif|bmp|png|jpeg)$/i) && ($amdisplaypics == 1)) {
						$showattach   .= qq~<div class="scroll" style="max-height: 400px; width: 100%; overflow: auto;" align="center"><img src="$uploadurl/$_" alt="$_" border="0" /></div>~;
						$showattachhr = qq~<hr width="100%" size="1" class="hr" style="margin: 0; margin-top: 5px; margin-bottom: 5px; padding: 0;" />~;
					}
				} else {
					$attachment   .= qq~<span class="small"><img src="$imagesdir/paperclip.gif" border="0" align="middle" alt="" />  $_ $fatxt{'1'}</span>~;
				}
			}

		}


---------------------------------------------------------------------------------------------------

Sources/ModifyMessage.pl

FROM &MultiDel;
UNTIL my ($threadid, $postid, @messages, $msub, $mname, $memail, $mdate, $musername, $micon, $mattach, $mip, $mmessage, $mns, $mlm, $mlmb, $tnum, $tsub, $tname, $temail, $tdate, $treplies, $tusername, $ticon, $tstate, @threads, $tmpa, $tmpb, $tnum2, $tdate2, $newlastposttime, $newlastposter, $lastpostid, $views, $name, $email, $subject, $message, $ns,);


REPLACE WITH

		}
	}

#################
# Multiple FA, spyderscripts.com
##################
      my @filelist = ();       #Contains only files
      my @fileMaster = ();     #Contains file and place holders for files

      for ($y=1;$y<=$globalimagecount;++$y) {
        $file = $query->param("file$y"); 
        $fileAction = $query->param("w_file$y"); 
        $fileOriginal = $query->param("w_filename$y"); 

        #Make sure there is a file, and the user want to attach new, or check that there is no action listed
	if ($file && ($fileAction eq "attachnew" || !$fileAction)) {
		$OS   = $^O;             # operating system name
		if    ($OS =~ /darwin/i) { $isUNIX = 1; }
		elsif ($OS =~ /win/i)    { $isWIN  = 1; }
		else { $isUNIX = 1; }
		$mylimit    = 1024 * $limit;
		$mydirlimit = 1024 * $dirlimit;
		$fixfile    = $file;
		$fixfile =~ s/.+\\([^\\]+)$|.+\/([^\/]+)$/$1/;
		$fixfile =~ s/[#%+,\/:?"<>'|@^!]//g;         # edit in between [ ] to include characters you dont want to allow in filenames (dont put a . there or you wont be able to get any file extensions).
		$fixfile =~ s/ /_/g;                         # replaces spaces in filenames with a "_" character.

		# replace . with _ in the filename except for the extension
		$fixname = $fixfile;
		$fixname =~ s/(\S+)(\.\S+\Z)/$1/gi;
		$fixext = $2;
		$fixext  =~ s/(pl|cgi|php)/_$1/gi;
		$fixname =~ s/\./\_/g;
		$fixfile = qq~$fixname$fixext~;

		if ($overwrite == 2 && (-e "$uploaddir/$fixfile")) { &fatal_error("$fatxt{'8'}"); }
		if (!$overwrite) {
			$fixfile = check_existence($uploaddir, $fixfile);
		}
		if ($checkext == 0) { $match = 1; }
		else {
			foreach $ext (@ext) {
				chomp($ext);
				if (grep /$ext$/i, $fixfile) { $match = 1; last; }
			}
		}
		if ($match) {
			if ($allowattach == 1 && (($allowguestattach == 0 && $username ne 'Guest') || $allowguestattach == 1)) {
				$upload_okay = 1;
			}
		} else {
			&write_error("$fatxt{'20'} @ext ($fixfile)");
		}
		if ($mydirlimit > 0) {
			&dirstats;
		}
		$filesize   = $ENV{'CONTENT_LENGTH'} - $postsize;
		$filesizekb = int($filesize / 1024);
		if ($filesize > $mylimit && $mylimit != 0) {
			$filesizediff = $filesizekb - $limit;
			if ($filesizediff == 1) { $sizevar = "kilobyte"; }
			else { $sizevar = "kilobytes"; }
			&write_error("$fatxt{'21'} $filesizediff $sizevar $fatxt{'21b'}");
		} elsif ($filesize > $spaceleft && $mydirlimit != 0) {
			$filesizediff = $filesizekb - $kbspaceleft;
			if ($filesizediff == 1) { $sizevar = "kilobyte"; }
			else { $sizevar = "kilobytes"; }
			&write_error("$fatxt{'22'} $filesizediff $sizevar $fatxt{'22b'}");
		}
		$save_file = "$uploadurl/$fixfile";
		if ($upload_okay == 1) {
			# create a new file on the server using the formatted ( new instance ) filename
                        $upload_filehandle = $query->upload("file".$y);
                        open UPLOADFILE, ">$uploaddir/$fixfile";
                        binmode UPLOADFILE;
                        while ( <$upload_filehandle> ) 
                        { 
                          print UPLOADFILE; 
                        } 
                        close UPLOADFILE;
		}

		# check if file has actually been uploaded, by checking the file has a size
		if (-s "$uploaddir/$fixfile") {
			$upload_ok = 1;
		} else {
  			unlink("$uploaddir/$fixfile");
			&fatal_error("$fatxt{'59'} $fixfile");
		}

		if (($fixfile =~ /(jpg|gif|png|jpeg)$/i)) {
			$okatt = 1;
			if ($fixfile =~ /(gif)$/i) {
				fopen(ATTFILE, "$uploaddir/$fixfile");
				read(ATTFILE, $header, 10);
				($giftest, undef, undef, undef, undef, undef) = unpack("a3a3C4", $header);
				fclose(ATTFILE);
				if ($giftest ne "GIF") { $okatt = 0; }
			}
			fopen(ATTFILE, "$uploaddir/$fixfile");
			while ( read(ATTFILE, $buffer, 1024) ) {
				if ($buffer =~ /\<html/ig || $buffer =~ /\<script/ig) { $okatt = 0; last; }
			}
			fclose(ATTFILE);
			if(!$okatt) {
  				unlink("$uploaddir/$fixfile");
				&fatal_error("$fatxt{'59'} $fixfile");
			}
		}

                push @filelist, $fixfile;

		&clear_temp;
	} elsif ($fileAction eq "attachold" && $fileOriginal) {
          push @filelist, $fileOriginal;
        }

	if ($fileOriginal && (($file && $fileAction eq "attachnew") || ($fileAction eq "attachdel")) ) {
          if (-e ("$uploaddir/$fileOriginal")) {
            unlink("$uploaddir/$fileOriginal");
          }
        }

        #Create the list of files
        $fixfile = join(",", @filelist);
      }
##########END OF FILE READ

---------------------------------------------------------------------------------------------------

Sources/Post.pl

FIND $selnewatt = qq~ onchange="selectNewattach();"~;
REPLACE WITH $selnewatt = qq~ "~;

FIND if (($is_preview == 1) && $FORM{'file'}) {
REPLACE WITH if (($is_preview == 1) && $FORM{'file1'}) {


FIND $selnewatt = qq~ "~;
REPLACE THE FOLLOWING UNTIL if (($is_preview == 1) && $FORM{'file1'}) {





			}
############
# Multiple FA, spyderscripts.com
############
         if ($action ne 'modify' && $action ne 'modify2') {
           for ($y=1;$y<=$globalimagecount;++$y) {
             $yymain .= qq~<tr>
		<td width="23%" valign="top"><b>$fatxt{'6'} $y:</b></td>
		<td width="77%"><input type="file" name="file$y" id="file$y" size="50"/></td></tr>~;
           }
         }

         $yymain .= qq~<tr>
		<td width="23%" align="right"></td>
		<td width="77%"><span class="small">$filetype_info<br />$filesize_info</span></td></tr>~;

############
# Multiple FA, spyderscripts.com
############

         if ($action eq 'modify' || $action eq 'modify2'){ 
           @files = split(/[\,]/, $isatt);

           for ($y=1;$y<=$globalimagecount;++$y) {
             if ($y <= $#files+1) { $selectAttached = qq~ onchange="selectNewattach($y);"~;;
             } else { $selectAttached = ""; }

             $yymain .= qq~<tr>
		<td width="23%" valign="top"><b>$fatxt{'6'} $y:</b></td>
		<td width="77%"><input type="file" name="file$y" id="file$y" size="50"$selectAttached/>~;

             if (($files[$y-1]) && (-e ("$uploaddir/$files[$y-1]"))) {
               if ($files[$y-1] ne "") {
                 $oldattcheck = qq~selected="selected"~;
                 $newattcheck = qq~~;
                 $atistxt     = qq~$fatxt{'40'}: <a href="$uploadurl/$files[$y-1]">$files[$y-1]</a>~;
               } else {
                 $newattcheck = qq~selected="selected"~;
                 $oldattcheck = qq~~;
                 $atistxt     = "";
               }

               $yymain .= qq~
			<font size="1">
			<input type="hidden" id="w_filename$y" name="w_filename$y" value="$files[$y-1]">
			<select id="w_file$y" name="w_file$y" size="1">
			<option value="attachdel">$fatxt{'6c'}</option>
			<option value="attachnew" $newattcheck>$fatxt{'6b'}</option>
			<option value="attachold" $oldattcheck>$fatxt{'6a'}</option>
			</select>&nbsp;$atistxt</font></td></tr>~;
             } else { $yymain .= qq~</td></tr>~; }
           }

           $yymain .= qq~<input type="hidden" id="w_attachmentlist" name="w_attachmentlist" value="$isatt">~;

         }


###########################




FIND   if     ($numcount < 2)     { &Preview("$post_polltxt{'38'}"); }
REPLACE THE BELOW UNTIL  	# If no thread specified, this is a new thread.


	}

#################
# Multiple FA, spyderscripts.com
##################
      my @filelist = ();
      for ($y=1;$y<=$globalimagecount;++$y) {
        $file = $query->param("file$y"); 
	if ($file ne "") {
		$OS   = $^O;             # operating system name
		if    ($OS =~ /darwin/i) { $isUNIX = 1; }
		elsif ($OS =~ /win/i)    { $isWIN  = 1; }
		else { $isUNIX = 1; }
		$mylimit    = 1024 * $limit;
		$mydirlimit = 1024 * $dirlimit;
		$fixfile    = $file;
		$fixfile =~ s/.+\\([^\\]+)$|.+\/([^\/]+)$/$1/;
		$fixfile =~ s/[\(\)\$#%+,\/:?"<>'\*\;|@^!]//g;    # edit in between [ ] to include characters you dont want to allow in filenames (dont put a . there or you wont be able to get any file extensions).
		$fixfile =~ s/ /_/g;                              # replaces spaces in filenames with a "_" character.
		$fixfile =~ s/&//g;                               # replaces ampersands with nothing.
		$fixfile =~ s/\+//g;                              # replaces + with nothing

		$fixfile =~ s~[^/\\0-9A-Za-z#%+\,\-\ \.\:@^_]~~g; # Remove all inappropriate characters.

		# replace . with _ in the filename except for the extension
		$fixname = $fixfile;
		$fixname =~ s/(\S+)(\.\S+\Z)/$1/gi;
		$fixext = $2;
		$fixext  =~ s/(pl|cgi|php)/_$1/gi;
		$fixname =~ s/\./\_/g;
		$fixfile = qq~$fixname$fixext~;

		if ($overwrite == 2 && (-e "$uploaddir/$fixfile")) { &fatal_error("$fatxt{'8'}"); }
		if (!$overwrite) {
			$fixfile = check_existence($uploaddir, $fixfile);
		}
		if ($checkext == 0) { $match = 1; }
		else {
			foreach $ext (@ext) {
				chomp($ext);
				if (grep /$ext$/i, $fixfile) { $match = 1; last; }
			}
		}
		if ($match) {
			if ($allowattach == 1 && (($allowguestattach == 0 && $username ne 'Guest') || $allowguestattach == 1)) {
				$upload_okay = 1;
			}
		} else {
			&Preview("<br /><br />$fatxt{'20'} @ext ($fixfile)")
		}
		if ($mydirlimit > 0) {
			&dirstats;
		}
		$filesize   = $ENV{'CONTENT_LENGTH'} - $postsize;
		$filesizekb = int($filesize / 1024);
		if ($filesize > $mylimit && $mylimit != 0) {
			$filesizediff = $filesizekb - $limit;
			if ($filesizediff == 1) { $sizevar = "kilobyte"; }
			else { $sizevar = "kilobytes"; }
			&Preview("<br /><br />$fatxt{'21'} $filesizediff $sizevar $fatxt{'21b'}")

		} elsif ($filesize > $spaceleft && $mydirlimit != 0) {
			$filesizediff = $filesizekb - $kbspaceleft;
			if ($filesizediff == 1) { $sizevar = "kilobyte"; }
			else { $sizevar = "kilobytes"; }
			&Preview("<br /><br />$fatxt{'22'} $filesizediff $sizevar $fatxt{'22b'}");
		}

		if ($upload_okay == 1) {
			# create a new file on the server using the formatted ( new instance ) filename
                        $upload_filehandle = $query->upload("file".$y);
                        open UPLOADFILE, ">$uploaddir/$fixfile";
                        binmode UPLOADFILE;
                        while ( <$upload_filehandle> ) 
                        { 
                          print UPLOADFILE; 
                        } 
                        close UPLOADFILE;
		}

		# check if file has actually been uploaded, by checking the file has a size
		if (-s "$uploaddir/$fixfile") {
			$upload_ok = 1;
		} else {
			# delete every file that has been uploaded
                        foreach (@filelist) {
  				unlink("$uploaddir/$_");
                        }

			&fatal_error("$fatxt{'59'} $uploaddir/$fixfile");
		}

		if ($fixfile =~ /(jpg|gif|png|jpeg)$/i) {
			$okatt = 1;
			if ($fixfile =~ /(gif)$/i) {
				fopen(ATTFILE, "$uploaddir/$fixfile");
				read(ATTFILE, $header, 10);
				($giftest, undef, undef, undef, undef, undef) = unpack("a3a3C4", $header);
				fclose(ATTFILE);
				if ($giftest ne "GIF") { $okatt = 0; }
			}
			fopen(ATTFILE, "$uploaddir/$fixfile");
			while ( read(ATTFILE, $buffer, 1024) ) {
				if ($buffer =~ /\<html/ig || $buffer =~ /\<script/ig) { $okatt = 0; last; }
			}
			fclose(ATTFILE);
			if(!$okatt) {
				# delete every file that has been uploaded
                	        foreach (@filelist) {
  					unlink("$uploaddir/$_");
	                        }
				&fatal_error("$fatxt{'59'} $fixfile");
			}
		}

                push @filelist, $fixfile;

		&clear_temp;
	} else {
          #on the first blank entry end the file loading
          $y=$globalimagecount+1;
        }

        #Create the list of files
        $file = join(",", @filelist);
      }

---------------------------------------------------------------------------------------------------
Sources/Profile.pl

FIND else { $tsl0 = ' selected="selected" '; }

REPLACE EVERYTHING AFTER THE ABOVE LINE UNTIL 	# If no thread specified, this is a new thread.

##############
# Multiple FA, spyderscripts.com
##############

	if    (${$uid.$user}{'imagecount'} == 1) { $ics1 = ' selected="selected" '; }
	elsif (${$uid.$user}{'imagecount'} == 2) { $ics2 = ' selected="selected" '; }
	elsif (${$uid.$user}{'imagecount'} == 3) { $ics3 = ' selected="selected" '; }
	elsif (${$uid.$user}{'imagecount'} == 4) { $ics4 = ' selected="selected" '; }
	elsif (${$uid.$user}{'imagecount'} == 5) { $ics5 = ' selected="selected" '; }
	elsif (${$uid.$user}{'imagecount'} == 6) { $ics6 = ' selected="selected" '; }
	elsif (${$uid.$user}{'imagecount'} == 7) { $ics7 = ' selected="selected" '; }
	elsif (${$uid.$user}{'imagecount'} == 8) { $ics8 = ' selected="selected" '; }
	elsif (${$uid.$user}{'imagecount'} == 9) { $ics9 = ' selected="selected" '; }
	elsif (${$uid.$user}{'imagecount'} == 10) { $ics10 = ' selected="selected" '; }
	else { $ics1 = ' selected="selected" '; }
#############







FIND 
		$z++;
	}
	$yymain .= qq~
           </select></td>

 </tr>
~;



ADD AFTER
##############
# Multiple FA, spyderscripts.com
##############

	$yymain .= qq~<tr class="windowbg">
          <td width="320" align="left"><b>$profile_txt{'950'}</b></td>
          <td align="left"><select name="imagecount"><option value="1"$ics1>1</option><option value="2"$ics2>2</option><option value="3"$ics3>3</option><option value="4"$ics4>4</option><option value="5"$ics5>5</option><option value="6"$ics6>6</option><option value="7"$ics7>7</option><option value="8"$ics8>8</option><option value="9"$ics9>9</option><option value="10"$ics10>10</option></select></td>
        </tr>~;
##############