[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

SourceForge Headquarters 1320 Columbia Street Suite 310 San Diego, CA 92101 +1 (858) 422-6466

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&amp;PROJECT=$project&THISUSER=$thisuser$debugurl">$project</a></TD>
    <TD ROWSPAN="2" ALIGN="center">
!     <a href="$storyscript?ACTION=LIST+STORIES&amp;PROJECT=$project&THISUSER=$thisuser$debugurl">Stories</a><BR>
!     <a href="$taskscript?ACTION=LIST+TASKS&amp;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&amp;PROJECT=$project&amp;THISUSER=$thisuser$debugurl">$project</a></TD>
    <TD ROWSPAN="2" ALIGN="center">
!     <a href="$storyscript?ACTION=LIST+STORIES&amp;PROJECT=$project&amp;THISUSER=$thisuser$debugurl">Stories</a><BR>
!     <a href="$taskscript?ACTION=LIST+TASKS&amp;PROJECT=$project&amp;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 ? "&amp;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 ? "&amp;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();

[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

[Xpcgi-cvs-reports] CVS: XP Credits.pl,1.10,1.11 project.cgi,1.19,1.20 project.pl,1.35,1.36 story.cgi,1.47,1.48