mark: A photo of Mark kneeling on top of the Taal Volcano in the Philippines. It was a long hike. (Default)
Mark Smith ([staff profile] mark) wrote in [site community profile] changelog2010-02-05 10:20 am

[dw-free] Misc BML cleanup

[commit: http://hg.dwscoalition.org/dw-free/rev/5926aa540cb4]

http://bugs.dwscoalition.org/show_bug.cgi?id=2250

LJ::TagGenerator does not appear to be used in cgi-bin/, bin/, htdocs/, or
t/. Removing for cleanup.

Patch by [staff profile] mark.

Files modified:
  • cgi-bin/LJ/TagGenerator.pm
--------------------------------------------------------------------------------
diff -r 17a1b276616f -r 5926aa540cb4 cgi-bin/LJ/TagGenerator.pm
--- a/cgi-bin/LJ/TagGenerator.pm	Fri Feb 05 10:16:11 2010 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,85 +0,0 @@
-#!/usr/bin/perl
-# This code was forked from the LiveJournal project owned and operated
-# by Live Journal, Inc. The code has been modified and expanded by
-# Dreamwidth Studios, LLC. These files were originally licensed under
-# the terms of the license supplied by Live Journal, Inc, which can
-# currently be found at:
-#
-# http://code.livejournal.org/trac/livejournal/browser/trunk/LICENSE-LiveJournal.txt
-#
-# In accordance with the original license, this code and all its
-# modifications are provided under the GNU General Public License.
-# A copy of that license can be found in the LICENSE file included as
-# part of this distribution.
-
-
-package LJ::TagGenerator;
-use Carp;
-
-my %_tag_groups = (
-                   ":common" => [qw(a b body br code col colgroup dd del div dl dt em
-                                  font form frame frameset h1 h2 h3 h4 h5 h6 head hr
-                                  html i img input li nobr ol option p pre table td th 
-                                  tr Tr TR tt title u ul)],
-                   ":html4" => [qw(a abbr acronym address applet area b base basefont
-                                 bdo big blockquote body br button caption center cite
-                                 code col colgroup dd del dfn dir div dl dt em fieldset
-                                 font form frame frameset h1 h2 h3 h4 h5 h6 head hr html
-                                 i iframe img input ins isindex kbd label legend li link
-                                 map menu meta noframes noscript object ol optgroup option
-                                 p param pre q s samp script select small span strike
-                                 strong style sub sup table tbody td textarea tfoot th 
-                                 thead title tr Tr TR tt u ul var)],
-                  );
-                                 
-sub import {
-    shift;  # ditch the class name
-    my %args = @_;
-    my $tags = $args{tags} || $_tag_groups{":common"};
-    ref $tags and UNIVERSAL::isa($tags, "ARRAY")
-      or croak "Invalid tags argument";
-    my $prefix = $args{prefix} || "";
-    my $suffix = $args{suffix} || "";
-    my $uppercase = $args{uppercase} || 1;
-    my $package = (caller)[0];
-    while (my $tag = shift @$tags) {
-        if (exists $_tag_groups{$tag}) {
-            push @$tags, @{$_tag_groups{$tag}};
-            next;
-        }
-        if ($uppercase) {
-            $tag = uc $tag;
-        }
-        # print "aliasing __$tag to ${package}::$prefix$tag$suffix\n";
-        *{"${package}::$prefix$tag$suffix"} = \&{"__$tag"};
-    }
-}
-        
-sub AUTOLOAD {
-    $AUTOLOAD =~ /::__([^:]*)$/ or croak "No such method $AUTOLOAD";
-    my $tagname = lc $1;
-    my $sub = "sub $AUTOLOAD " . q{
-      {
-          my $result = '<__TAGNAME__';
-          if (ref($_[0]) && ref($_[0]) eq 'HASH') {
-              my $attrs = shift;
-              while (my ($key, $value) = each %$attrs) {
-	          $key =~ s/^\-//;
-	          $key =~ s/_/-/g;
-	          $result .= (defined $value ? qq( $key="$value") : qq( $key));
-              }
-          }
-          if (@_) {
-              $result .= ">" . join("", @_) . "</__TAGNAME__>";
-          } else {
-              $result .= " />";
-          }
-          return $result;
-      }
-    };
-    $sub =~ s/__TAGNAME__/$tagname/g;
-    eval $sub;
-    goto &$AUTOLOAD;
-}
-
-1;
--------------------------------------------------------------------------------