From 68a07bf03b7624c9924065cce9ffa45497225834 Mon Sep 17 00:00:00 2001 From: Akinori Ito Date: Thu, 8 Nov 2001 05:14:08 +0000 Subject: Initial revision --- scripts/bm2menu.pl | 54 ++++++ scripts/dirlist.cgi | 501 ++++++++++++++++++++++++++++++++++++++++++++++++++++ scripts/dirlist.in | 501 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 1056 insertions(+) create mode 100644 scripts/bm2menu.pl create mode 100644 scripts/dirlist.cgi create mode 100755 scripts/dirlist.in (limited to 'scripts') diff --git a/scripts/bm2menu.pl b/scripts/bm2menu.pl new file mode 100644 index 0000000..1390bae --- /dev/null +++ b/scripts/bm2menu.pl @@ -0,0 +1,54 @@ +#!/usr/bin/perl + +$PRE_MENU = ""; +$POST_MENU = <) { + if (/

(.*)<\/h2>/) { + $s = &unquote($1); + push(@section, $s); + } elsif (/

(.*)<\/a>/) { + $u = &unquote($1); + $t = &unquote($2); + $url{$s} .= "$u\n"; + $title{$s} .= "$t\n"; + } +} + +print "menu Bookmarks\n"; +print $PRE_MENU; +foreach(@section) { + print " popup\t\"$_\"\t\"$_\"\n"; +} +print $POST_MENU; +print "end\n"; + +foreach(@section) { + print "\n"; + print "menu \"$_\"\n"; + @ts = split("\n", $title{$_}); + @us = split("\n", $url{$_}); + while(@ts) { + $t = shift @ts; + $u = shift @us; + print " func\t\"$t\"\tGOTO\t\"\"\t\"$u\"\n"; + } + print "end\n"; +} + +sub unquote { + local($_) = @_; + + s/\</\/g; + s/\ / /g; + s/\&/\&/g; + + return $_; +} diff --git a/scripts/dirlist.cgi b/scripts/dirlist.cgi new file mode 100644 index 0000000..40f11a8 --- /dev/null +++ b/scripts/dirlist.cgi @@ -0,0 +1,501 @@ +#!/usr/local/bin/perl +# +# Directory list CGI by Hironori Sakamoto (hsaka@mth.biglobe.ne.jp) +# + +$CYGWIN = 0; +$RC_DIR = '~/.w3m/'; + +$RC_DIR =~ s@^~/@$ENV{'HOME'}/@; +$CONFIG = "$RC_DIR/dirlist"; +$CGI = $ENV{'SCRIPT_NAME'} || $0; +$CGI = &html_quote(&form_encode("file:$CGI")); + +$AFMT = '%s'; +$NOW = time(); + +@OPT = &init_option($CONFIG); + +$query = $ENV{'QUERY_STRING'}; +$cmd = ''; +$cgi = 0; +if ($query eq '') { + $_ = `pwd`; + chop; + s/\r$//; + $dir = $_; + $cgi = 0; +} elsif ($query =~ /^(opt\d+|dir|cmd)=/) { + foreach(split(/\&/, $query)) { + if (s/^dir=//) { + $dir = &form_decode($_); + } elsif (s/^opt(\d+)=//) { + $OPT[$1] = $_; + } elsif (s/^cmd=//) { + $cmd = $_; + } + } + $cgi = 1; +} else { + $dir = $query; + if (($dir !~ m@^/@) && + ($CYGWIN && $dir !~ /^[a-z]:/i)) { + $_ = `pwd`; + chop; + s/\r$//; + $dir = "$_/$dir"; + } + $cgi = -1; +} +if ($dir !~ m@/$@) { + $dir .= '/'; +} +$ROOT = ''; +if ($CYGWIN) { + if (($dir =~ s@^//[^/]+@@) || ($dir =~ s@^[a-z]:@@i)) { + $ROOT = $&; + } +} +if ($cgi) { + $dir = &cleanup($dir); +} + +$TYPE = $OPT[$OPT_TYPE]; +$FORMAT = $OPT[$OPT_FORMAT]; +$SORT = $OPT[$OPT_SORT]; +if ($cmd) { + &update_option($CONFIG); +} + +$qdir = &html_quote("$ROOT$dir"); +$edir = &html_quote(&form_encode("$ROOT$dir")); +if (! opendir(DIR, "$ROOT$dir")) { + print < + +Directory list of $qdir + + +$qdir: $! ! + + +EOF + exit 1; +} + +# ($cgi > 0) && print < + +Directory list of $qdir + + +

Directory list of $qdir

+EOF +&print_form($qdir, @OPT); +print < +EOF +$dir =~ s@/$@@; +@sdirs = split('/', $dir); +$_ = $sdirs[0]; +if ($_ eq '') { + $_ = '/'; +} +if ($TYPE eq $TYPE_TREE) { + print < + +

+EOF
+  $q = &html_quote("$ROOT$_");
+  $e = &html_quote(&form_encode("$ROOT$_"));
+  if ($dir =~ m@^$@) {
+    $n = "\" name=\"current";
+  } else {
+    $n = '';
+  }
+  printf("$AFMT\n", "$q$n", "$q");
+  $N = 0;
+  $SKIPLINE = "";
+
+  &left_dir('', @sdirs);
+
+  print <
+
+$SKIPLINE
+EOF
+} else {
+  print <
+EOF
+}
+
+&right_dir($dir);
+
+if ($TYPE eq $TYPE_TREE) {
+  print <
+
+
+
+
+EOF
+} else {
+  print <
+
+
+EOF
+}
+
+sub left_dir {
+  local($pre, $dir, @sdirs) = @_;
+  local($ok) = (@sdirs == 0);
+  local(@cdirs) = ();
+  local($_, $dir0, $d, $qdir, $q, $edir, $e);
+
+  $dir0 = "$dir/";
+  $dir = "$ROOT$dir0";
+  opendir(DIR, $dir) || return;
+
+  foreach(sort readdir(DIR)) {
+    -d "$dir$_" || next;
+    /^\.$/ && next;
+    /^\.\.$/ && next;
+    push(@cdirs, $_);
+  }
+  closedir(DIR);
+
+  $qdir = &html_quote($dir);
+  $edir = &html_quote(&form_encode($dir));
+  while(@cdirs) {
+    $_ = shift @cdirs;
+    $q = &html_quote($_);
+    $e = &html_quote(&form_encode($_));
+    $N++;
+    if (!$ok && $_ eq $sdirs[0]) {
+      $d = $dir0 . shift @sdirs;
+      if (!@sdirs) {
+        $n = "\" name=\"current";
+        $SKIPLINE = "\n" x $N;
+      } else {
+        $n = '';
+      }
+      printf("${pre}o-$AFMT\n", "$qdir$q$n", "$q");
+      &left_dir(@cdirs ? "$pre| " : "$pre  ", $d, @sdirs);
+      $ok = 1;
+    } else {
+      printf("${pre}+-$AFMT\n", "$qdir$q", $q);
+    }
+  }
+}
+
+sub right_dir {
+  local($dir) = @_;
+  local(@list);
+  local($_, $qdir, $q, $edir, $e, $f, $max, @d, $type, $u, $g);
+  local($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
+        $atime,$mtime,$ctime,$blksize,$blocks);
+  local(%sizes, %ctimes, %prints);
+
+  $dir = "$ROOT$dir/";
+  opendir(DIR, $dir) || return;
+
+  $qdir = &html_quote($dir);
+  $edir = &html_quote(&form_encode($dir));
+  if ($TYPE eq $TYPE_TREE) {
+    print "$qdir\n";
+  }
+  @list = ();
+  $max = 0;
+  foreach(readdir(DIR)) {
+    /^\.$/ && next;
+#    if ($TYPE eq $TYPE_TREE) {
+#      /^\.\.$/ && next;
+#    }
+    $f = "$dir$_";
+    (($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
+      $atime,$mtime,$ctime,$blksize,$blocks) = lstat($f)) || next;
+    push(@list, $_);
+    $sizes{$_} = $size;
+    $ctimes{$_} = $ctime;
+
+    if ($FORMAT eq $FORMAT_COLUMN)  {
+      if (length($_) > $max) {
+        $max = length($_);
+      }
+      next;
+    }
+    $type = &utype($mode);
+    if ($FORMAT eq $FORMAT_SHORT)  {
+      $prints{$_} = sprintf("%-6s ", "[$type]");
+      next;
+    }
+    if ($type =~ /^[CB]/) {
+      $size = sprintf("%3u, %3u", ($rdev >> 8) & 0xff, $rdev & 0xffff00ff);
+    }
+    if ($FORMAT eq $FORMAT_LONG) {
+      $u = $USER{$uid} || ($USER{$uid} = getpwuid($uid) || $uid);
+      $g = $GROUP{$gid} || ($GROUP{$gid} = getgrgid($gid) || $gid);
+      $prints{$_} = sprintf( "%s %-8s %-8s %8s %s ",
+		&umode($mode), $u, $g, $size, &utime($ctime));
+#   } elsif ($FORMAT eq $FORMAT_STANDARD) {
+    } else {
+      $prints{$_} = sprintf("%-6s %8s %s ", "[$type]", $size, &utime($ctime));
+    }
+  }
+  closedir(DIR);
+  if ($SORT eq $SORT_SIZE) { 
+    @list = sort { $sizes{$b} <=> $sizes{$a} || $a <=> $b } @list;
+  } elsif ($SORT eq $SORT_TIME) { 
+    @list = sort { $ctimes{$b} <=> $ctimes{$a} || $a <=> $b } @list;
+  } else {
+    @list = sort @list;
+  }
+  if ($FORMAT eq $FORMAT_COLUMN) {
+    local($COLS, $l, $nr, $n);
+    if ($TYPE eq $TYPE_TREE) {
+      $COLS = 60;
+    } else {
+      $COLS = 80;
+    }
+    $l = int($COLS / ($max + 2)) || 1;
+    $nr = int($#list / $l + 1);
+    $n = 0;
+    print "\n";
+    foreach(@list) {
+      $f = "$dir$_";
+      $q = &html_quote($_);
+      $e = &html_quote(&form_encode($_));
+      if ($n % $nr == 0) {
+        print "\n";
+      } else {
+        print "
\n";
+      }
+    }
+    print "";
+      }
+      if (-d $f) {
+        printf($AFMT, "$qdir$q", "$q/");
+      } else {
+        printf($AFMT, "$qdir$q", $q);
+      }
+      $n++;
+      if ($n % $nr == 0) {
+        print "\n";
+    return;
+  }
+  foreach(@list) {
+    $f = "$dir$_";
+    $q = &html_quote($_);
+    $e = &html_quote(&form_encode($_));
+    print $prints{$_};
+    if (-d $f) {
+      printf($AFMT, "$qdir$q", "$q/");
+    } else {
+      printf($AFMT, "$qdir$q", $q);
+    }
+    if (-l $f) {
+      print " -> ", &html_quote(readlink($f));
+    }
+    print "\n";
+  }
+}
+
+sub init_option {
+  local($config) = @_;
+  $OPT_TYPE   = 0;
+  $OPT_FORMAT = 1;
+  $OPT_SORT   = 2;
+  $TYPE_TREE    = 't';
+  $TYPE_STARDRD = 'd';
+  $FORMAT_SHORT    = 's';
+  $FORMAT_STANDRAD = 'd';
+  $FORMAT_LONG     = 'l';
+  $FORMAT_COLUMN   = 'c';
+  $SORT_NAME = 'n';
+  $SORT_SIZE = 's';
+  $SORT_TIME = 't';
+  local(@opt) = ($TYPE_TREE, $FORMAT_STANDRAD, $SORT_NAME);
+  local($_);
+
+  open(CONFIG, "< $config") || return @opt;
+  while() {
+    chop;
+    s/^\s+//;
+    tr/A-Z/a-z/;
+    if (/^type\s+(\S)/i) {
+      $opt[$OPT_TYPE] = $1;
+    } elsif (/^format\s+(\S)/i) {
+      $opt[$OPT_FORMAT] = $1
+    } elsif (/^sort\s+(\S)/i) {
+      $opt[$OPT_SORT] = $1;
+    }
+  }
+  close(CONFIG);
+  return @opt;
+}
+
+sub update_option {
+  local($config) = @_;
+
+  open(CONFIG, "> $config") || return;
+  print CONFIG <
+
+
+
+EOF
+  foreach(0 .. 2) {
+    print "\n";
+  }
+  print "\n";
+  foreach(0 .. 2) {
+    print "\n";
+  }
+  print <
+
+ $disc[$_]

+
+
+
+EOF
+}
+
+sub html_quote {
+  local($_) = @_;
+  local(%QUOTE) = (
+    '<', '<',
+    '>', '>',
+    '&', '&',
+    '"', '"',
+  );
+  s/[<>&"]/$QUOTE{$&}/g;
+  return $_;
+}
+sub form_encode {
+  local($_) = @_;
+  s/[\t\r\n%#&=+]/sprintf('%%%2x', unpack('c', $&))/eg;
+  s/ /+/g;
+  return $_;
+}
+
+sub form_decode {
+  local($_) = @_;
+  s/\+/ /g;
+  s/%([\da-f][\da-f])/pack('c', hex($1))/egi;
+  return $_;
+}
+
+sub cleanup {
+  local($_) = @_;
+
+  s@//+@/@g;
+  s@/\./@/@g;
+  while(m@/\.\./@) {
+    s@^/(\.\./)+@/@;
+    s@/[^/]+/\.\./@/@;
+  }
+  return $_;
+}
+
+sub utype {
+  local($_) = @_;
+  local(%T) = (
+    0010000, 'PIPE',
+    0020000, 'CHR',
+    0040000, 'DIR',
+    0060000, 'BLK',
+    0100000, 'FILE',
+    0120000, 'LINK',
+    0140000, 'SOCK',
+  );
+  return $T{($_ & 0170000)} || 'FILE';
+}
+
+sub umode {
+  local($_) = @_;
+  local(%T) = (
+    0010000, 'p',
+    0020000, 'c',
+    0040000, 'd',
+    0060000, 'b',
+    0100000, '-',
+    0120000, 'l',
+    0140000, 's',
+  );
+
+  return ($T{($_ & 0170000)} || '-')
+     . (($_ & 00400) ? 'r' : '-')
+     . (($_ & 00200) ? 'w' : '-')
+     . (($_ & 04000) ? 's' :
+       (($_ & 00100) ? 'x' : '-'))
+     . (($_ & 00040) ? 'r' : '-')
+     . (($_ & 00020) ? 'w' : '-')
+     . (($_ & 02000) ? 's' :
+       (($_ & 00010) ? 'x' : '-'))
+     . (($_ & 00004) ? 'r' : '-')
+     . (($_ & 00002) ? 'w' : '-')
+     . (($_ & 01000) ? 't' :
+       (($_ & 00001) ? 'x' : '-'));
+}
+
+sub utime {
+  local($_) = @_;
+  local(@MON) = (
+    'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun',
+    'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec'
+  );
+  local($sec,$min,$hour,$mday,$mon,
+        $year,$wday,$yday,$isdst) = localtime($_);
+
+  if ($_ > $NOW - 182*24*60*60 && $_ < $NOW + 183*24*60*60) {
+    return sprintf("%3s %2d %.2d:%.2d", $MON[$mon], $mday, $hour, $min);
+  } else {
+    return sprintf("%3s %2d %5d", $MON[$mon], $mday, 1900+$year);
+  }
+}
+
diff --git a/scripts/dirlist.in b/scripts/dirlist.in
new file mode 100755
index 0000000..991ba95
--- /dev/null
+++ b/scripts/dirlist.in
@@ -0,0 +1,501 @@
+#!@PERL@
+#
+# Directory list CGI by Hironori Sakamoto (hsaka@mth.biglobe.ne.jp)
+#
+
+$CYGWIN = @CYGWIN@;
+$RC_DIR = '~/.w3m/';
+
+$RC_DIR =~ s@^~/@$ENV{'HOME'}/@;
+$CONFIG = "$RC_DIR/dirlist";
+$CGI = $ENV{'SCRIPT_NAME'} || $0;
+$CGI = &html_quote(&form_encode("file:$CGI"));
+
+$AFMT = '%s';
+$NOW = time();
+
+@OPT = &init_option($CONFIG);
+
+$query = $ENV{'QUERY_STRING'};
+$cmd = '';
+$cgi = 0;
+if ($query eq '') {
+  $_ = `pwd`;
+  chop;
+  s/\r$//;
+  $dir = $_;
+  $cgi = 0;
+} elsif ($query =~ /^(opt\d+|dir|cmd)=/) {
+  foreach(split(/\&/, $query)) {
+    if (s/^dir=//) {
+      $dir = &form_decode($_);
+    } elsif (s/^opt(\d+)=//) {
+      $OPT[$1] = $_;
+    } elsif (s/^cmd=//) {
+      $cmd = $_;
+    }
+  }
+  $cgi = 1;
+} else {
+  $dir = $query;
+  if (($dir !~ m@^/@) &&
+      ($CYGWIN && $dir !~ /^[a-z]:/i)) {
+    $_ = `pwd`;
+    chop;
+    s/\r$//;
+    $dir = "$_/$dir";
+  }
+  $cgi = -1;
+}
+if ($dir !~ m@/$@) {
+  $dir .= '/';
+}
+$ROOT = '';
+if ($CYGWIN) {
+  if (($dir =~ s@^//[^/]+@@) || ($dir =~ s@^[a-z]:@@i)) {
+    $ROOT = $&;
+  }
+}
+if ($cgi) {
+  $dir = &cleanup($dir);
+}
+
+$TYPE   = $OPT[$OPT_TYPE];
+$FORMAT = $OPT[$OPT_FORMAT];
+$SORT   = $OPT[$OPT_SORT];
+if ($cmd) {
+  &update_option($CONFIG);
+}
+
+$qdir = &html_quote("$ROOT$dir");
+$edir = &html_quote(&form_encode("$ROOT$dir"));
+if (! opendir(DIR, "$ROOT$dir")) {
+  print <
+
+Directory list of $qdir
+
+
+$qdir: $! !
+
+
+EOF
+  exit 1;
+}
+
+# ($cgi > 0) && print <
+
+Directory list of $qdir
+
+
+Directory list of $qdir
+EOF
+&print_form($qdir, @OPT);
+print <
+EOF
+$dir =~ s@/$@@;
+@sdirs = split('/', $dir);
+$_ = $sdirs[0];
+if ($_ eq '') {
+  $_ = '/';
+}
+if ($TYPE eq $TYPE_TREE) {
+  print <
+
++EOF
+  $q = &html_quote("$ROOT$_");
+  $e = &html_quote(&form_encode("$ROOT$_"));
+  if ($dir =~ m@^$@) {
+    $n = "\" name=\"current";
+  } else {
+    $n = '';
+  }
+  printf("$AFMT\n", "$q$n", "$q");
+  $N = 0;
+  $SKIPLINE = "";
+
+  &left_dir('', @sdirs);
+
+  print <
+
+$SKIPLINE
+EOF
+} else {
+  print <
+EOF
+}
+
+&right_dir($dir);
+
+if ($TYPE eq $TYPE_TREE) {
+  print <
+
+
+
+
+EOF
+} else {
+  print <
+
+
+EOF
+}
+
+sub left_dir {
+  local($pre, $dir, @sdirs) = @_;
+  local($ok) = (@sdirs == 0);
+  local(@cdirs) = ();
+  local($_, $dir0, $d, $qdir, $q, $edir, $e);
+
+  $dir0 = "$dir/";
+  $dir = "$ROOT$dir0";
+  opendir(DIR, $dir) || return;
+
+  foreach(sort readdir(DIR)) {
+    -d "$dir$_" || next;
+    /^\.$/ && next;
+    /^\.\.$/ && next;
+    push(@cdirs, $_);
+  }
+  closedir(DIR);
+
+  $qdir = &html_quote($dir);
+  $edir = &html_quote(&form_encode($dir));
+  while(@cdirs) {
+    $_ = shift @cdirs;
+    $q = &html_quote($_);
+    $e = &html_quote(&form_encode($_));
+    $N++;
+    if (!$ok && $_ eq $sdirs[0]) {
+      $d = $dir0 . shift @sdirs;
+      if (!@sdirs) {
+        $n = "\" name=\"current";
+        $SKIPLINE = "\n" x $N;
+      } else {
+        $n = '';
+      }
+      printf("${pre}o-$AFMT\n", "$qdir$q$n", "$q");
+      &left_dir(@cdirs ? "$pre| " : "$pre  ", $d, @sdirs);
+      $ok = 1;
+    } else {
+      printf("${pre}+-$AFMT\n", "$qdir$q", $q);
+    }
+  }
+}
+
+sub right_dir {
+  local($dir) = @_;
+  local(@list);
+  local($_, $qdir, $q, $edir, $e, $f, $max, @d, $type, $u, $g);
+  local($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
+        $atime,$mtime,$ctime,$blksize,$blocks);
+  local(%sizes, %ctimes, %prints);
+
+  $dir = "$ROOT$dir/";
+  opendir(DIR, $dir) || return;
+
+  $qdir = &html_quote($dir);
+  $edir = &html_quote(&form_encode($dir));
+  if ($TYPE eq $TYPE_TREE) {
+    print "$qdir\n";
+  }
+  @list = ();
+  $max = 0;
+  foreach(readdir(DIR)) {
+    /^\.$/ && next;
+#    if ($TYPE eq $TYPE_TREE) {
+#      /^\.\.$/ && next;
+#    }
+    $f = "$dir$_";
+    (($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
+      $atime,$mtime,$ctime,$blksize,$blocks) = lstat($f)) || next;
+    push(@list, $_);
+    $sizes{$_} = $size;
+    $ctimes{$_} = $ctime;
+
+    if ($FORMAT eq $FORMAT_COLUMN)  {
+      if (length($_) > $max) {
+        $max = length($_);
+      }
+      next;
+    }
+    $type = &utype($mode);
+    if ($FORMAT eq $FORMAT_SHORT)  {
+      $prints{$_} = sprintf("%-6s ", "[$type]");
+      next;
+    }
+    if ($type =~ /^[CB]/) {
+      $size = sprintf("%3u, %3u", ($rdev >> 8) & 0xff, $rdev & 0xffff00ff);
+    }
+    if ($FORMAT eq $FORMAT_LONG) {
+      $u = $USER{$uid} || ($USER{$uid} = getpwuid($uid) || $uid);
+      $g = $GROUP{$gid} || ($GROUP{$gid} = getgrgid($gid) || $gid);
+      $prints{$_} = sprintf( "%s %-8s %-8s %8s %s ",
+		&umode($mode), $u, $g, $size, &utime($ctime));
+#   } elsif ($FORMAT eq $FORMAT_STANDARD) {
+    } else {
+      $prints{$_} = sprintf("%-6s %8s %s ", "[$type]", $size, &utime($ctime));
+    }
+  }
+  closedir(DIR);
+  if ($SORT eq $SORT_SIZE) { 
+    @list = sort { $sizes{$b} <=> $sizes{$a} || $a <=> $b } @list;
+  } elsif ($SORT eq $SORT_TIME) { 
+    @list = sort { $ctimes{$b} <=> $ctimes{$a} || $a <=> $b } @list;
+  } else {
+    @list = sort @list;
+  }
+  if ($FORMAT eq $FORMAT_COLUMN) {
+    local($COLS, $l, $nr, $n);
+    if ($TYPE eq $TYPE_TREE) {
+      $COLS = 60;
+    } else {
+      $COLS = 80;
+    }
+    $l = int($COLS / ($max + 2)) || 1;
+    $nr = int($#list / $l + 1);
+    $n = 0;
+    print "\n";
+    foreach(@list) {
+      $f = "$dir$_";
+      $q = &html_quote($_);
+      $e = &html_quote(&form_encode($_));
+      if ($n % $nr == 0) {
+        print "\n";
+      } else {
+        print "
\n";
+      }
+    }
+    print "";
+      }
+      if (-d $f) {
+        printf($AFMT, "$qdir$q", "$q/");
+      } else {
+        printf($AFMT, "$qdir$q", $q);
+      }
+      $n++;
+      if ($n % $nr == 0) {
+        print "\n";
+    return;
+  }
+  foreach(@list) {
+    $f = "$dir$_";
+    $q = &html_quote($_);
+    $e = &html_quote(&form_encode($_));
+    print $prints{$_};
+    if (-d $f) {
+      printf($AFMT, "$qdir$q", "$q/");
+    } else {
+      printf($AFMT, "$qdir$q", $q);
+    }
+    if (-l $f) {
+      print " -> ", &html_quote(readlink($f));
+    }
+    print "\n";
+  }
+}
+
+sub init_option {
+  local($config) = @_;
+  $OPT_TYPE   = 0;
+  $OPT_FORMAT = 1;
+  $OPT_SORT   = 2;
+  $TYPE_TREE    = 't';
+  $TYPE_STARDRD = 'd';
+  $FORMAT_SHORT    = 's';
+  $FORMAT_STANDRAD = 'd';
+  $FORMAT_LONG     = 'l';
+  $FORMAT_COLUMN   = 'c';
+  $SORT_NAME = 'n';
+  $SORT_SIZE = 's';
+  $SORT_TIME = 't';
+  local(@opt) = ($TYPE_TREE, $FORMAT_STANDRAD, $SORT_NAME);
+  local($_);
+
+  open(CONFIG, "< $config") || return @opt;
+  while() {
+    chop;
+    s/^\s+//;
+    tr/A-Z/a-z/;
+    if (/^type\s+(\S)/i) {
+      $opt[$OPT_TYPE] = $1;
+    } elsif (/^format\s+(\S)/i) {
+      $opt[$OPT_FORMAT] = $1
+    } elsif (/^sort\s+(\S)/i) {
+      $opt[$OPT_SORT] = $1;
+    }
+  }
+  close(CONFIG);
+  return @opt;
+}
+
+sub update_option {
+  local($config) = @_;
+
+  open(CONFIG, "> $config") || return;
+  print CONFIG <
+
+
+
+EOF
+  foreach(0 .. 2) {
+    print "\n";
+  }
+  print "\n";
+  foreach(0 .. 2) {
+    print "\n";
+  }
+  print <
+
+ $disc[$_]

+
+
+
+EOF
+}
+
+sub html_quote {
+  local($_) = @_;
+  local(%QUOTE) = (
+    '<', '<',
+    '>', '>',
+    '&', '&',
+    '"', '"',
+  );
+  s/[<>&"]/$QUOTE{$&}/g;
+  return $_;
+}
+sub form_encode {
+  local($_) = @_;
+  s/[\t\r\n%#&=+]/sprintf('%%%2x', unpack('c', $&))/eg;
+  s/ /+/g;
+  return $_;
+}
+
+sub form_decode {
+  local($_) = @_;
+  s/\+/ /g;
+  s/%([\da-f][\da-f])/pack('c', hex($1))/egi;
+  return $_;
+}
+
+sub cleanup {
+  local($_) = @_;
+
+  s@//+@/@g;
+  s@/\./@/@g;
+  while(m@/\.\./@) {
+    s@^/(\.\./)+@/@;
+    s@/[^/]+/\.\./@/@;
+  }
+  return $_;
+}
+
+sub utype {
+  local($_) = @_;
+  local(%T) = (
+    0010000, 'PIPE',
+    0020000, 'CHR',
+    0040000, 'DIR',
+    0060000, 'BLK',
+    0100000, 'FILE',
+    0120000, 'LINK',
+    0140000, 'SOCK',
+  );
+  return $T{($_ & 0170000)} || 'FILE';
+}
+
+sub umode {
+  local($_) = @_;
+  local(%T) = (
+    0010000, 'p',
+    0020000, 'c',
+    0040000, 'd',
+    0060000, 'b',
+    0100000, '-',
+    0120000, 'l',
+    0140000, 's',
+  );
+
+  return ($T{($_ & 0170000)} || '-')
+     . (($_ & 00400) ? 'r' : '-')
+     . (($_ & 00200) ? 'w' : '-')
+     . (($_ & 04000) ? 's' :
+       (($_ & 00100) ? 'x' : '-'))
+     . (($_ & 00040) ? 'r' : '-')
+     . (($_ & 00020) ? 'w' : '-')
+     . (($_ & 02000) ? 's' :
+       (($_ & 00010) ? 'x' : '-'))
+     . (($_ & 00004) ? 'r' : '-')
+     . (($_ & 00002) ? 'w' : '-')
+     . (($_ & 01000) ? 't' :
+       (($_ & 00001) ? 'x' : '-'));
+}
+
+sub utime {
+  local($_) = @_;
+  local(@MON) = (
+    'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun',
+    'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec'
+  );
+  local($sec,$min,$hour,$mday,$mon,
+        $year,$wday,$yday,$isdst) = localtime($_);
+
+  if ($_ > $NOW - 182*24*60*60 && $_ < $NOW + 183*24*60*60) {
+    return sprintf("%3s %2d %.2d:%.2d", $MON[$mon], $mday, $hour, $min);
+  } else {
+    return sprintf("%3s %2d %5d", $MON[$mon], $mday, 1900+$year);
+  }
+}
+
-- 
cgit v1.2.3