Tadashi Okoshi
slash****@users*****
2005年 6月 30日 (木) 16:15:01 JST
Index: affelio/lib/Affelio/misc/WebInput.pm diff -u affelio/lib/Affelio/misc/WebInput.pm:1.4 affelio/lib/Affelio/misc/WebInput.pm:1.5 --- affelio/lib/Affelio/misc/WebInput.pm:1.4 Tue Jun 28 01:15:10 2005 +++ affelio/lib/Affelio/misc/WebInput.pm Thu Jun 30 16:15:01 2005 @@ -4,7 +4,7 @@ # http://affelio.jp/ (Japan) # http://affelio.jp/ (USA and other area) # -# $Id: WebInput.pm,v 1.4 2005/06/27 16:15:10 slash5234 Exp $ +# $Id: WebInput.pm,v 1.5 2005/06/30 07:15:01 slash5234 Exp $ use strict; package Affelio::misc::WebInput; @@ -25,6 +25,15 @@ } ###################################################################### + sub PTN_through{ + my $self = shift; + my $in = shift; + + $in =~ /(.*)/; + return ($1); + } + + ###################################################################### sub PTN_visitor_type{ my $self = shift; my $in = shift; @@ -71,6 +80,15 @@ } ###################################################################### + sub PTN_getcontent_content{ + my $self = shift; + my $in = shift; + + $in =~ /([A-Za-z0-9\-\_\.\/]*)/; + return ($1); + } + + ###################################################################### sub PTN_basefilename{ my $self = shift; my $in = shift;
