[interchange-cvs] [SCM] Interchange branch, master, updated. 2b69f1bba4e498288a70c9ac6f0ad5e9b7b7abf1

Stefan Hornburg interchange-cvs at icdevgroup.org
Tue Jun 9 16:36:25 UTC 2009


This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Interchange".

The branch, master has been updated
       via  2b69f1bba4e498288a70c9ac6f0ad5e9b7b7abf1 (commit)
      from  e3101a4fd834010b1193d0d515871fc41a7d0864 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 2b69f1bba4e498288a70c9ac6f0ad5e9b7b7abf1
Author: Stefan Hornburg (Racke) <racke at linuxia.de>
Date:   Tue Jun 9 18:35:58 2009 +0200

    Removed rarely used mass_setting admininstration page.

-----------------------------------------------------------------------

Summary of changes and diff:
 MANIFEST                                    |    1 -
 WHATSNEW-5.7                                |    2 +
 dist/standard/pages/admin/mass_setting.html |  253 ---------------------------
 3 files changed, 2 insertions(+), 254 deletions(-)
 delete mode 100644 dist/standard/pages/admin/mass_setting.html

diff --git a/MANIFEST b/MANIFEST
index 70ace73..178ff68 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -893,7 +893,6 @@ dist/standard/pages/admin/.empty
 dist/standard/pages/admin/edit_error.html
 dist/standard/pages/admin/edit_page.html
 dist/standard/pages/admin/edit_setup.html
-dist/standard/pages/admin/mass_setting.html
 dist/standard/pages/advancedsearch.html
 dist/standard/pages/affiliate/index.html
 dist/standard/pages/affiliate/login.html
diff --git a/WHATSNEW-5.7 b/WHATSNEW-5.7
index 9660c1d..2b736c5 100644
--- a/WHATSNEW-5.7
+++ b/WHATSNEW-5.7
@@ -177,6 +177,8 @@ Standard demo
 
 * Removed spurious SQLite database configuration file.
 
+* Removed rarely used mass_setting admininstration page.
+
 
 ------------------------------------------------------------------------------
 
diff --git a/dist/standard/pages/admin/mass_setting.html b/dist/standard/pages/admin/mass_setting.html
deleted file mode 100644
index 6a91167..0000000
--- a/dist/standard/pages/admin/mass_setting.html
+++ /dev/null
@@ -1,253 +0,0 @@
-[set page_title]Mass setting of set/seti/tmp/tmpn settings[/set]
-
- at _UI_STD_HEAD_@
-
-<!-- BEGIN REAL STUFF -->
-
-[calc]
-	return if $CGI->{pattern};
-	$CGI->{pattern} = '*';
-	$CGI->{setting} = $Variable->{DEFAULT_MASS_SETTING} || 'ads_top';
-	$CGI->{dontdo} = 1;
-	return;
-[/calc]
-<form action="[area @@MV_PAGE@@]" method=POST>
-[form-session-id]
-<input type=hidden name=mv_action value=back>
-<br>
-[display 
-	type=select
-	name=setting
-	value="[cgi setting]"
-	passed="[either]__MASS_SETTINGS__[or]ads_top,ads_left,page_title,members_only[/either]"
-	]
-File name pattern to scan <input type=text name=pattern size=50 value="[cgi pattern]"> <input type=submit value=Scan>
-</form>
-
-<form action="[area @@MV_PAGE@@]" method=POST>
-[form-session-id]
-<input type=hidden name=mv_action value=back>
-<input type=hidden name=setting value="[cgi setting]">
-<input type=hidden name=pattern value="[cgi pattern]">
-
-[perl]
-	my @pages = grep /^dopage\d+$/, keys %$CGI;
-
-	my  @do;
-	for(@pages) {
-#Debug("Checking $_");
-		next unless $CGI->{$_};
-#Debug("$_ is changable.");
-		my $digits = $_;
-		$digits =~ s/^dopage//;
-		push @do, $digits;
-	}
-
-	return unless @do;
-
-	for(@do) {
-		my $page = $CGI->{"page$_"};
-		my $settor = $CGI->{"settor$_"};
-		my $val = $CGI->{"value$_"};
-#Debug("ready to write page=$page settor=$settor val=$val");
-		my $data = $Tag->file("pages/$page", 'raw');
-		$data =~ s/(\n[ \t]*\@_[A-Z][A-Z_]+_\@[ \t]*\n.*)//s
-			or do {
-				$Tag->warnings("page $_ not a templated page.");
-				next;
-			};
-		my $tail = $1;
-		$data =~ s{
-					\[ (seti?|tmpn?) \s+ $CGI->{setting} \s* \]
-					(.*?)
-					\[/ \1 ]
-					
-				    }
-					{[$settor $CGI->{setting}]$val\[/$settor]}xs
-		or $data =~ s{
-					(\[ (seti?|tmpn?) \s+ \w+ \s* \]
-					(.*?)
-					\[/ \2 ])
-					
-				    }
-					{$1\n[$settor $CGI->{setting}]$val\[/$settor]}xs
-		or $data =~ s{(\s*)$}{\n[$settor $CGI->{setting}]$val\[/$settor]\n$1}s
-		or do {
-
-				$Tag->warnings("$page didn't match.");
-				next;
-			};
-		$Tag->write_relative_file("pages/$page", $data . $tail);
-		$Tag->warnings("Wrote page $page.<br>");
-	}
-
-[/perl]
-
-[warnings auto=1]
-
-<script>
-	function apply_all_value (form,widfrom) {
-		var v = widfrom.value;
-		var i;
-		for(i = 0; i < form.elements.length; i++) {
-			if(form.elements[i].name.substr(0,5) == 'value') 
-				form.elements[i].value = v;
-			if(form.elements[i].name.substr(0,6) == 'dopage') 
-				form.elements[i].checked = true;
-		}
-	}
-
-	function apply_all_settor (form,widfrom) {
-		var v = widfrom.selectedIndex;
-		var i;
-		for(i = 0; i < form.elements.length; i++) {
-			if(form.elements[i].name.substr(0,6) == 'settor') 
-				form.elements[i].selectedIndex = v;
-		}
-	}
-
-
-</script>
-<table>
-	[calc]
-		my $items;
-		return if $CGI->{dontdo};
-		my $suf = $Config->{HTMLsuffix};
-		if($CGI->{pattern} eq '*') {
-			$items = $Tag->list_pages({ arrayref => 1 });
-			for(@$items) {
-				$_ .= $suf;
-			}
-		}
-		else {
-			my @pats = split /[\s\0]+/, $CGI->{pattern};
-			my @items;
-			for(@pats) {
-				push @items, $Tag->list_glob("pages/$_");
-			}
-			for(@items) {
-				s{^pages/}{};
-			}
-			my $pat = $suf;
-			$pat = "\\$pat\$";
-			my $re = qr/$pat/;
-			@items = grep $_ =~ $re, @items;
-			$items = \@items;
-		}
-
-		my $setre = "\\[(seti?|tmpn?)\\s+$CGI->{setting}\\s*\\](.*?)\\[/\\1\\]";
-		$setre = qr($setre);
-
-		my @things;
-		for(@$items) {
-			my $data = $Tag->file("pages/$_", 'raw');
-			$data =~ s/\n[ \t]*\@_[A-Z][A-Z_]+_\@[ \t]*\n.*//s
-				or do {
-					$Tag->warnings("page $_ not a templated page.");
-					next;
-				};
-			$data =~ $setre
-				or do {
-					push @things,
-						{
-							page => $_,
-							settor => undef,
-							current => '',
-						};
-					next;
-				};
-			push @things,
-				{
-					page => $_,
-					settor => $1,
-					current => $2,
-				};
-		}
-
-		my $settor_passed = 'set,seti,tmp,tmpn';
-		my @out;
-		my $i = '0000';
-
-		for my $ref (@things) {
-			$i++;
-			push @out, "<tr><td>";
-			push @out, qq{<input type=hidden name=page$i value="$ref->{page}">};
-			push @out, qq{<input type=checkbox name=dopage$i value="1">};
-			push @out, "$ref->{page}";
-			my $extra = qq{onChange="this.form.dopage$i.checked = true"};
-			push @out, "</td><td>";
-			push @out, $Tag->display({
-								name => "settor$i",
-								type => 'select',
-								passed => $settor_passed,
-								value => $ref->{settor},
-								js => $extra,
-							});
-			push @out, "</td><td>";
-			my $w;
-			my $h;
-			my $wid;
-			if($ref->{current} =~ /[\r\n]/) {
-				$w = 60;
-				$h = 3;
-				$wid = 'textarea';
-			}
-			else {
-				$w = 60;
-				$wid = 'text';
-			}
-			push @out, $Tag->display({
-								name => "value$i",
-								type => $wid,
-								height => $h,
-								width => $w,
-								value => $ref->{current},
-								extra => $extra,
-							});
-			push @out, "</td></tr>";
-		}
-
-		## Put the global settors
-		push @out, "<tr><td colspan=3><hr></td></tr>";
-		push @out, "<tr><td><b>Apply this to all";
-		push @out, "</td><td>";
-		push @out, $Tag->display({
-							name => "allsettor",
-							type => 'select',
-							passed => $settor_passed,
-						});
-		push @out, "</td><td>";
-		push @out, $Tag->display({
-							name => "allvalue",
-							type => 'text',
-							width => 60,
-						});
-		push @out, qq{<input type=button onClick="apply_all_value(this.form,this.form.allvalue); apply_all_settor(this.form, this.form.allsettor)" value="Apply to all">};
-		push @out, qq{<input type=reset>};
-		push @out, "</td></tr>";
-
-		$CGI->{change_button} = 1;
-		return join "", @out;
-	[/calc]
-
-[if cgi change_button]
-<tr>
-	<td colspan=3>
-	&nbsp;
-	</td>
-</tr>
-<tr>
-	<td colspan=2>
-	When ready....
-	</td>
-	<td>
-<input type=submit value="[L]Apply Mass Setting[/L]" style="font-weight: bold">
-	</td>
-</tr>
-[/if]
-</table>
-
-</form>
-<!-- END REAL STUFF -->
-
- at _UI_STD_FOOTER_@


hooks/post-receive
-- 
Interchange



More information about the interchange-cvs mailing list