From 6c63633545c254dc085402e0f927a6826d1dd229 Mon Sep 17 00:00:00 2001
From: Akinori Ito <aito@eie.yz.yamagata-u.ac.jp>
Date: Fri, 9 Nov 2001 04:59:17 +0000
Subject: Updates from 0.2.1 into 0.2.1-inu-1.5

---
 scripts/bm2menu.pl | 54 ------------------------------------------------------
 1 file changed, 54 deletions(-)
 delete mode 100644 scripts/bm2menu.pl

(limited to 'scripts/bm2menu.pl')

diff --git a/scripts/bm2menu.pl b/scripts/bm2menu.pl
deleted file mode 100644
index 1390bae..0000000
--- a/scripts/bm2menu.pl
+++ /dev/null
@@ -1,54 +0,0 @@
-#!/usr/bin/perl
-
-$PRE_MENU = "";
-$POST_MENU = <<EOF;
- nop	"───────────"
- func	"ブックマークに追加 (a)"	ADD_BOOKMARK	"aA"
-EOF
-
-@section = ();
-%title = ();
-%url = ();
-while(<>) {
-  if (/<h2>(.*)<\/h2>/) {
-    $s = &unquote($1);
-    push(@section, $s);
-  } elsif (/<li><a href=\"(.*)\">(.*)<\/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/\&lt;/\</g;
-  s/\&gt;/\>/g;
-  s/\&nbsp;/ /g;
-  s/\&amp;/\&/g;
-
-  return $_;
-}
-- 
cgit v1.2.3