[dw-free] remove htdocs/settings/index.bml
[commit: http://hg.dwscoalition.org/dw-free/rev/9e56251b1394]
http://bugs.dwscoalition.org/show_bug.cgi?id=3932
Remove settings tagcloud; they're more organized in /manage/settings now.
Patch by
kareila.
Files modified:
http://bugs.dwscoalition.org/show_bug.cgi?id=3932
Remove settings tagcloud; they're more organized in /manage/settings now.
Patch by
![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png)
Files modified:
- cgi-bin/redirect.dat
- htdocs/settings/index.bml
- htdocs/settings/index.bml.text
-------------------------------------------------------------------------------- diff -r 78e66801c811 -r 9e56251b1394 cgi-bin/redirect.dat --- a/cgi-bin/redirect.dat Mon Sep 12 15:42:03 2011 +0800 +++ b/cgi-bin/redirect.dat Mon Sep 12 15:44:30 2011 +0800 @@ -44,3 +44,7 @@ /help/ /support/ /tos /legal/tos /tos/ /legal/tos +/settings /manage/settings +/settings/ /manage/settings +/settings/index /manage/settings +/settings/index.bml /manage/settings diff -r 78e66801c811 -r 9e56251b1394 htdocs/settings/index.bml --- a/htdocs/settings/index.bml Mon Sep 12 15:42:03 2011 +0800 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,130 +0,0 @@ -<?_c -# 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. -_c?> -<?_code -{ - use strict; - use vars qw($title $body %GET %POST); - - BML::decl_params(tag => qr/^[\w\. ]+$/, - c => "word", - _default => qr/./); - - my $err = sub { - $title = $ML{'Error'}; - $body = $_[0]; - return; - }; - - my $remote = LJ::User->remote - or return "<?needlogin?>"; - - my $authas = $GET{'authas'} || $remote->user; - my $u = LJ::get_authas_user($authas) || $remote; - - my $selminiclass = $GET{c}; # classname without LJ::Setting:: - my $selclass = $selminiclass ? "LJ::Setting::$selminiclass" : ""; - - my @settings = ( - LJ::ModuleLoader->module_subclasses( "LJ::Setting" ), - LJ::ModuleLoader->module_subclasses( "DW::Setting" ) - ); - - my $tag = lc $GET{tag}; - my %tags = (); - my @matches; - foreach my $class (@settings) { - next if $selclass && $selclass ne $class; - eval "use $class; 1; " or next; - push @matches, $class if $selclass; - my $tagct = 0; - foreach my $tag ($class->tags) { - push @{$tags{lc $tag} ||= []}, $class; - $tagct++; - } - if ($tagct && $tag && $tag eq "_all") { - push @matches, $class; - } - } - - - $title = $ML{'.change.settings'}; - $body = "<center>"; - $body .= BML::ml('.which.setting', {'link'=>"href='./'"}); - $body .= "<form method='get'><input name='tag' value='" . LJ::ehtml($GET{tag}) . "' style='text-align: center; font-size: 20pt; font-weight: bold; -moz-border-radius: 10px;' /></form></center>"; - - unless ($tag || $selclass) { - my %tagmap; - while (my ($k, $v) = each %tags) { - $tagmap{$k} = { - url => "./?tag=" . LJ::eurl($k), - value => scalar(@$v), - }; - } - $body .= LJ::tag_cloud(\%tagmap); - return; - } - - @matches = @{ $tags{$tag} || [] } unless @matches; - unless (@matches) { - $body .= "<?h1 $ML{'.sorry'} h1?><?p $ML{'.no.options.match'} '$tag'. p?>"; - return; - } - - my $returns; - $returns = LJ::Setting::save_all( $u, \%POST, \@matches ) - if LJ::did_post(); - - $body .= "<form method='get' action='./'>\n"; - $body .= LJ::html_hidden("tag" => $GET{tag}) if $GET{tag}; - $body .= LJ::html_hidden("c" => $GET{c}) if $GET{c}; - $body .= LJ::make_authas_select($remote, { 'authas' => $GET{'authas'} }); - $body .= "</form>\n\n"; - - $body .= "<form method='post'>"; - if ($tag) { - $body .= "<?h1 $ML{'.options.tagged'} '$tag': h1?>\n"; - } else { - $body .= "<?h1 " . BML::ml('.the.setting', {selminiclass=>$selminiclass}) . " h1?>\n"; - } - foreach my $class (@matches) { - unless (eval "use $class; 1;") { - my $del = $class; - $del =~ s!::!/!; - $del .= ".pm"; - delete $INC{$del}; - $body .= $ML{'.failed.to.load'} . "$class: " . LJ::ehtml($@); - next; - } - - my $html = eval { $class->as_html($u, $returns->{$class}{save_errors}, $returns->{$class}{post_args}) }; - if ($@) { - $body .= "<p>" . LJ::ehtml($@) . "</p>"; - } else { - my $pkgkey = $class->pkgkey; - my $color = $returns->{$class}{save_errors} ? "red" : "black"; - my $miniclass = $class; - $miniclass =~ s/^LJ::Setting:://; - $body .= "<div id='$pkgkey' style='margin: 0.5em; border: 2px solid $color; padding: 10px;'><div style='float:right'><a href='/settings/?c=$miniclass'>#</a></div>$html</div>"; - } - } - $body .= "<input type='submit' value='$ML{'.save'}' />"; - $body .= "</form>"; - - return; -} -_code?><?page -title=><?_code $title _code?> -body=><?_code $body _code?> -page?> diff -r 78e66801c811 -r 9e56251b1394 htdocs/settings/index.bml.text --- a/htdocs/settings/index.bml.text Mon Sep 12 15:42:03 2011 +0800 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,17 +0,0 @@ -;; -*- coding: utf-8 -*- -.change.settings=Change Settings - -.failed.to.load=Failed to load - -.no.options.match=No matching options - -.options.tagged=Options tagged - -.save=Save - -.sorry=Sorry. - -.the.setting=The '[[selminiclass]]' setting: - -.which.setting=Enter the tag for the <a [[link]]>setting</a> you want to change. - --------------------------------------------------------------------------------