[Xpcgi-cvs-reports] CVS: XP Credits.pl,1.10,1.11 project.cgi,1.19,1.20 project.pl,1.35,1.36 story.cg
Status: Beta
Brought to you by:
joiellis
|
From: Joi E. <joi...@us...> - 2001-11-12 04:48:10
|
Update of /cvsroot/xpcgi/XP
In directory usw-pr-cvs1:/tmp/cvs-serv3500
Modified Files:
Credits.pl project.cgi project.pl story.cgi
Log Message:
Taint work, use strict work, and some unit tests written and applied to validate some of the html
produced by the cgi scripts.
Index: Credits.pl
===================================================================
RCS file: /cvsroot/xpcgi/XP/Credits.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -r1.10 -r1.11
*** Credits.pl 2001/05/07 22:11:53 1.10
--- Credits.pl 2001/11/12 04:48:07 1.11
***************
*** 1,15 ****
# XPCGI - A Task and Story card utility for use with Extreme Programming.
# Copyright (C) 2000 Joi Ellis
! #
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
! #
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
! #
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
--- 1,15 ----
# XPCGI - A Task and Story card utility for use with Extreme Programming.
# Copyright (C) 2000 Joi Ellis
! #
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
! #
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
! #
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
***************
*** 20,24 ****
# ('$Id$' =~ /Id\:\s+(\S+),v\s+(\d+\.\d+) (\d+\/\d+\/\d+) /);
! require "project.pl";
$HOMEPAGE="http://xpcgi.sourceforge.net/";
--- 20,24 ----
# ('$Id$' =~ /Id\:\s+(\S+),v\s+(\d+\.\d+) (\d+\/\d+\/\d+) /);
! require "./project.pl";
$HOMEPAGE="http://xpcgi.sourceforge.net/";
Index: project.cgi
===================================================================
RCS file: /cvsroot/xpcgi/XP/project.cgi,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -r1.19 -r1.20
*** project.cgi 2001/10/31 05:40:37 1.19
--- project.cgi 2001/11/12 04:48:07 1.20
***************
*** 402,406 ****
<TR><TH ROWSPAN="2">Project</TH><TH ROWSPAN="2">Cards</TH>
<TH>Author</TH>
! </TH><TH>Open</TH><TH>Close</TH><TH>Status</TH><TH>Velocity</TH></TR>
<TR><TH COLSPAN="5">Description</TH></TR>
EOF
--- 402,406 ----
<TR><TH ROWSPAN="2">Project</TH><TH ROWSPAN="2">Cards</TH>
<TH>Author</TH>
! <TH>Open</TH><TH>Close</TH><TH>Status</TH><TH>Velocity</TH></TR>
<TR><TH COLSPAN="5">Description</TH></TR>
EOF
***************
*** 433,440 ****
print <<EOF;
<TR>
! <TD ROWSPAN="2"><a href="$script?ACTION=SHOW+PROJECT&PROJECT=$project&THISUSER=$thisuser$debugurl">$project</a></TD>
<TD ROWSPAN="2" ALIGN="center">
! <a href="$storyscript?ACTION=LIST+STORIES&PROJECT=$project&THISUSER=$thisuser$debugurl">Stories</a><BR>
! <a href="$taskscript?ACTION=LIST+TASKS&PROJECT=$project&THISUSER=$thisuser$debugurl">Tasks</a>
</TD>
<TD>$ownerurl</TD>
--- 433,440 ----
print <<EOF;
<TR>
! <TD ROWSPAN="2"><a href="$script?ACTION=SHOW+PROJECT&PROJECT=$project&THISUSER=$thisuser$debugurl">$project</a></TD>
<TD ROWSPAN="2" ALIGN="center">
! <a href="$storyscript?ACTION=LIST+STORIES&PROJECT=$project&THISUSER=$thisuser$debugurl">Stories</a><BR>
! <a href="$taskscript?ACTION=LIST+TASKS&PROJECT=$project&THISUSER=$thisuser$debugurl">Tasks</a>
</TD>
<TD>$ownerurl</TD>
***************
*** 622,627 ****
print "</TABLE>\n";
print <<EOF;
- <TABLE BORDER="0" CELLPADDING="3">
<FORM ACTION="$script" METHOD="POST">
EOF
print &ListButtons2();
--- 622,627 ----
print "</TABLE>\n";
print <<EOF;
<FORM ACTION="$script" METHOD="POST">
+ <TABLE BORDER="0" CELLPADDING="3">
EOF
print &ListButtons2();
Index: project.pl
===================================================================
RCS file: /cvsroot/xpcgi/XP/project.pl,v
retrieving revision 1.35
retrieving revision 1.36
diff -C2 -r1.35 -r1.36
*** project.pl 2001/10/31 22:21:20 1.35
--- project.pl 2001/11/12 04:48:07 1.36
***************
*** 19,24 ****
# ('$Id$' =~ /Id\:\s+(\S+),v\s+(\d+\.\d+) (\d+\/\d+\/\d+) /);
! require "Debug.pl";
! require "local.pl";
require Date::Parse;
require Date::Format;
--- 19,24 ----
# ('$Id$' =~ /Id\:\s+(\S+),v\s+(\d+\.\d+) (\d+\/\d+\/\d+) /);
! require "./Debug.pl";
! require "./local.pl";
require Date::Parse;
require Date::Format;
Index: story.cgi
===================================================================
RCS file: /cvsroot/xpcgi/XP/story.cgi,v
retrieving revision 1.47
retrieving revision 1.48
diff -C2 -r1.47 -r1.48
*** story.cgi 2001/10/31 15:39:16 1.47
--- story.cgi 2001/11/12 04:48:07 1.48
***************
*** 1,3 ****
! #! ./perl
# /usr/bin/perl
# XPCGI - A Task and Story card utility for use with Extreme Programming.
--- 1,3 ----
! #! ./perl -wT
# /usr/bin/perl
# XPCGI - A Task and Story card utility for use with Extreme Programming.
***************
*** 18,21 ****
--- 18,24 ----
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
# USA.
+
+ # use strict;
+
$|=1;
***************
*** 23,30 ****
('$Id$' =~ /Id\:\s+(\S+),v\s+(\d+\.\d+) (\d+\/\d+\/\d+) /);
! require "story.pl";
! require "Credits.pl";
! require "Debug.pl";
$debugurl = $debug ? "&DEBUG=1" : "";
$card_number = $type = $see_also = $open_date = $close_date = $priority =
--- 26,33 ----
('$Id$' =~ /Id\:\s+(\S+),v\s+(\d+\.\d+) (\d+\/\d+\/\d+) /);
! require "./story.pl";
! require "./Credits.pl";
! require "./Debug.pl";
$debugurl = $debug ? "&DEBUG=1" : "";
$card_number = $type = $see_also = $open_date = $close_date = $priority =
***************
*** 40,44 ****
($projectscript = $script) =~ s/story/project/;
! require "project.pl";
$datapath = &ComputeDataPath();
--- 43,47 ----
($projectscript = $script) =~ s/story/project/;
! require "./project.pl";
$datapath = &ComputeDataPath();
***************
*** 48,51 ****
--- 51,55 ----
use CGI;
+ use CGI::Carp qw(fatalsToBrowser);
$q = new CGI;
&CGI::ReadParse();
|