Code

      $i=0;
      if ($showsmdir eq 2){
      opendir(DIR, "$smiliesdir");
            @contents = readdir(DIR);
      closedir(DIR);
      foreach $line (sort {uc($a) cmp uc($b)} @contents){
            ($name, $extension) = split (/\./, $line);
            if ($extension =~ /gif/i || $extension =~ /jpg/i || $extension =~ /jpeg/i || $extension =~ /png/i ){
                  if ($line !~ /banner/i) {
                        $smilieslist .= qq~           document.write("<option value='$i'>$name");\n~;
                        $smilie_url_array .= qq~"$smiliesdir/$line", ~;
                        $smilie_code_array .= qq~" [smiley=$line]", ~;
                        $i++
                  }
            }
      }
      }
      if ($showadded eq 2){
      while($SmilieURL[$i]) {
            $smilieslist .= qq~           document.write("<option value='$i'>$SmilieDescription[$i]");\n~;
            $smilie_url_array .= qq~"$imagesdir/$SmilieURL[$i]", ~;
            $smilie_code_array .= qq~" $SmilieCode[$i]", ~;
            $i++;
      }
      }
      $smilie_url_array .= qq~""~;
      $smilie_code_array .= qq~""~;