LJ::TagGenerator does not appear to be used in cgi-bin/, bin/, htdocs/,
or t/. Removing for cleanup.
Patch by mark.
diffs (89 lines):
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;
_______________________________________________
dw-changelog mailing list
[email protected]
http://lists.dwscoalition.org/mailman/listinfo/dw-changelog
