Tadashi Okoshi
slash****@users*****
2006年 6月 13日 (火) 14:23:16 JST
Index: affelio/lib/Affelio/misc/NetMisc.pm
diff -u affelio/lib/Affelio/misc/NetMisc.pm:1.6 affelio/lib/Affelio/misc/NetMisc.pm:1.7
--- affelio/lib/Affelio/misc/NetMisc.pm:1.6 Sun Jun 4 18:11:55 2006
+++ affelio/lib/Affelio/misc/NetMisc.pm Tue Jun 13 14:23:16 2006
@@ -14,7 +14,7 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-# $Id: NetMisc.pm,v 1.6 2006/06/04 09:11:55 slash5234 Exp $
+# $Id: NetMisc.pm,v 1.7 2006/06/13 05:23:16 slash5234 Exp $
package Affelio::misc::NetMisc;
{
@@ -123,6 +123,9 @@
$port =":$ENV{SERVER_PORT}";
}
my $ret = "$proto://$ENV{SERVER_NAME}" .$port. $ENV{REQUEST_URI};
+
+ $ret =~ s|\?(.*)$||; #Prune after ? (parameters)
+
return($ret);
}
}