void main( string str ) {
  mixed *files, *objects;
  string *names, timestr, dirlist;
  int *sizes, *times, long, ancient, i, j, sz, max, len, rows, time, color_len;
  string cur_col;
  
  if( !str ) {
    str = ".";
  } else if (sscanf(str, "-%s", str) != 0) {
    long = 1;
    if (str == "l") {
      str = ".";
    } else if (sscanf(str, "l %s", str) == 0) {
      write("Usage: ls [-l] [<file> ...]\n");
      return;
    }
  }
  
  str = normalize_path( str, this_player()->query_env( "cwd" ) );
  if( str == "" ) {
    write( "Access denied.\n" );
    return;
  }

  
  files = get_dir( str );

  if( !files ) {
    write( "No such dir.\n" );
    return;
  }
  
  files = get_dir(str + "/*");
  if (!files) {
    write(str + ": Access denied.\n");
    return;
  }
  
  names = files[0];
  sz = sizeof(names);
  if (sz == 0) {
    return;
  }
  sizes = files[1];
  times = files[2];
  /* objects = files[3]; */
  
  for (i = 0; i < sz; i++) {
    j = strlen(names[i]);
    if (j > max) {
      max = j;
    }
    j = sizes[i];
    if (j > len) {
      len = j;
    }
  }
  if (long) {
    len = strlen((string) len) + 1;
    max += len + 14;
    ancient = time() - 6 * 30 * 24 * 60 * 60;
  }
  
  max += 2;
  j = (79 + 2) / (max + 1);
  if (j == 0) {
    rows = sz;
  } else {
    rows = (sz + j - 1) / j;
  }
  
  dirlist = "";
  for (i = 0; i < rows; i++) {
    j = i;
    for (;;) {
       if( sizes[j] < 0 ) {
	  cur_col = "%^MAGENTA%^";
       } else {
	  string *parts;
	  parts = explode( names[j], ".");
	  
	  if( sizeof( parts ) > 1 ) {
	     if( parts[sizeof(parts)-1] == "c" ) {
		cur_col = "%^YELLOW%^";
	     } else if( parts[sizeof(parts)-1] == "o" ) {
		cur_col = "%^BLUE%^";
	     } else if( strstr(parts[sizeof(parts)-1],"~") != -1 ) {
		cur_col = "%^ORANGE%^";
	     } else {
		cur_col = "%^GREEN%^";
	     }
	  } else {
	     cur_col = "%^CYAN%^";
	  }
       }
       
       if (long) {
	  str = "            ";
	  if (sizes[j] >= 0) {
	     str += (string) sizes[j];
	  }
	  
	  time = times[j];
	  timestr = ctime(time);
	  if (time >= ancient) {
	     timestr = timestr[3 .. 15];
	  } else {
	     timestr = timestr[3 .. 10] + timestr[19 .. 23];
	  }
	  str = str[strlen(str) - len ..] + timestr + " " + cur_col + names[j] + "%^RESET%^";
       } else {
	  str = cur_col + names[j] + "%^RESET%^";
       }
       
       if (sizes[j] < 0) {
	  str += "/";
	  /*      } else if (objects[j]) {
		  str += "*"; */
       } 
       j += rows;
       if (j >= sz) {
	  dirlist += str + "\n";
	  break;
       }
       
       color_len = strlen(str) - strlen(ANSI_D->strip_colors(str));
       
       dirlist += (str + "                                        ")[0 .. (max+color_len)];
    }
  }
  write(dirlist);
}