[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