[interchange-cvs] interchange - docelic modified 2 files

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Sun Oct 3 11:41:19 EDT 2004


User:      docelic
Date:      2004-10-03 15:41:19 GMT
Modified:  code/UserTag fortune.tag history_scan.tag
Log:
- header/license fix
- formatting

Revision  Changes    Path
1.4       +8 -26     interchange/code/UserTag/fortune.tag


rev 1.4, prev_rev 1.3
Index: fortune.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/fortune.tag,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- fortune.tag	24 Aug 2003 18:53:05 -0000	1.3
+++ fortune.tag	3 Oct 2004 15:41:19 -0000	1.4
@@ -1,28 +1,9 @@
+# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
+# Licensed under the GNU GPL v2. See file LICENSE for details.
+# $Id: fortune.tag,v 1.4 2004/10/03 15:41:19 docelic Exp $
+
 UserTag fortune Order short
 UserTag fortune addAttr
-UserTag fortune Documentation <<EOF
-
-=pod
-
-This tag uses the fortune(1) command to display a random saying.
-
-Options:
-
-    short=yes|no*       Select only short (< 1
-		60 chars) fortunes
-    no-computer=yes|no* No computer fortunes.
-    a=1                 Select from all fortunes, even potentially offensive ones.
-    o=1                 Select only from potentially offensive fortunes.
-    raw=1               Don't do any HTML formatting
-
-Example:
-
-	[fortune short=yes]
-
-=cut
-
-EOF
-
 UserTag fortune Routine <<EOR
 sub {
 	my ($short, $opt) = @_;
@@ -34,7 +15,7 @@
 	}
 
 	if(is_yes($opt->{no_computer}) ) {
-     	push @flags, qw/
+		push @flags, qw/
 			6% education 
 			6% food 
 			6% humorists 
@@ -51,7 +32,7 @@
 			6% sports 
 			6% work
 			10% wisdom
-		/;
+			/;
 	}
 
 	my $out = '';
@@ -60,7 +41,7 @@
 	while (<FORT>) {
 		$out .= $_
 	}
-	
+
 	unless($opt->{raw}) {
 		$out = filter_value('text2html', $out);
 		$out =~ s/--(?!:.*--)/<br>--/s;
@@ -68,3 +49,4 @@
 	return $out;
 }
 EOR
+



1.15      +14 -67    interchange/code/UserTag/history_scan.tag


rev 1.15, prev_rev 1.14
Index: history_scan.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/history_scan.tag,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- history_scan.tag	9 Apr 2004 02:45:31 -0000	1.14
+++ history_scan.tag	3 Oct 2004 15:41:19 -0000	1.15
@@ -1,74 +1,20 @@
-UserTag history-scan Version 0.10
+# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
+# Licensed under the GNU GPL v2. See file LICENSE for details.
+# $Id: history_scan.tag,v 1.15 2004/10/03 15:41:19 docelic Exp $
+
 UserTag history-scan Order find exclude default
 UserTag history-scan addAttr
-
-UserTag history-scan Documentation <<EOF
-
-=pod
-
-=head1 history-scan
-
-This tag returns a complete link (or optionally just the page name of) a previously
-visited page.
-
-Options:
-
-	default=      Page to return if nothing else matches
-	exclude=      A RegEx of page names to skip
-	include=      A RegEx of only page names allowed
-	form=         Additional form parameters
-	pageonly=1    Return just the name of a page, not a link to it.
-	count=#N      Skip the #N most recently visited pages
-	var_exclude   A list of parameters that should NOT be included in the
-	              links returned.
-
-Examples:
-
-A continue shopping button from an email by Jeff Dafoe:
-
-	[button
-	  text="Continue shopping"
-	  src="__THEME_IMG_DIR__/continueshopping.gif"
-	  hidetext=1
-	  extra="class=maincontent"
-	  form=basket
-	]
-	    [bounce href='[history-scan exclude="^/ord|^/multi/|^/process|^/login" default=index]']
-	    mv_nextpage=nothing
-	[/button]
-
-
-A simple login form that returns to the calling page when login was successful:
-
-	<FORM ACTION="[process secure=1]" METHOD=POST>
-	<INPUT TYPE=hidden   NAME=mv_todo        VALUE=return>
-	<INPUT TYPE=hidden   NAME=mv_click       VALUE=Login>
-	<INPUT TYPE=hidden   NAME=mv_failpage    VALUE="login">
-	<INPUT TYPE=hidden   NAME=mv_successpage VALUE="[history-scan exclude="^/ord|^/multi/|^/process|^/login|^/logout" pageonly=1]">
-	<INPUT TYPE=hidden   NAME=mv_nextpage    VALUE="index">
-	<INPUT TYPE=hidden   NAME=mv_session_id  VALUE="[data session id]">
-	<INPUT TYPE=text     NAME=mv_username    VALUE="[read-cookie MV_USERNAME]">
-	<INPUT TYPE=password NAME=mv_password    VALUE="">
-	<INPUT TYPE=submit   NAME=submit         VALUE="Log In">
-	</FORM>
-
-
-=cut
-
-EOF
-
-
-
 UserTag history-scan Routine <<EOR
 my %var_exclude = ( qw/
-	mv_credit_card_number 1
-	mv_pc                 1
-	mv_session_id         1
-	expand                1
-	collapse              1
-	expandall             1
-	collapseall           1
-/);
+		mv_credit_card_number 1
+		mv_pc                 1
+		mv_session_id         1
+		expand                1
+		collapse              1
+		expandall             1
+		collapseall           1
+		/);
+
 sub {
 	my ($find, $exclude, $default, $opt) = @_;
 	$default ||= $Config->{SpecialPage}{catalog};
@@ -118,3 +64,4 @@
 	return $Tag->area( { href => $href, form => $form} );
 }
 EOR
+








More information about the interchange-cvs mailing list