[Xpcgi-cvs-reports] CVS: XP Debug.pl,1.4,1.5 delete_project,1.4,1.5 project.pl,1.33,1.34 story.cgi,1
Status: Beta
Brought to you by:
joiellis
Menu
▾
▴
[Xpcgi-cvs-reports] CVS: XP Debug.pl,1.4,1.5 delete_project,1.4,1.5 project.pl,1.33,1.34 story.cgi,1.46,1.47
|
From: Joi E. <joi...@us...> - 2001-10-31 15:39:19
|
Update of /cvsroot/xpcgi/XP
In directory usw-pr-cvs1:/tmp/cvs-serv26995
Modified Files:
Debug.pl delete_project project.pl story.cgi
Log Message:
<No Comment Entered>
Index: Debug.pl
===================================================================
RCS file: /cvsroot/xpcgi/XP/Debug.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** Debug.pl 2000/11/17 04:12:32 1.4
--- Debug.pl 2001/10/31 15:39:16 1.5
***************
*** 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
***************
*** 47,54 ****
}
return <<EOF;
! <UL>
$temp1
$temp2
! </UL>
EOF
}
--- 47,54 ----
}
return <<EOF;
!
$temp1
$temp2
!
EOF
}
Index: delete_project
===================================================================
RCS file: /cvsroot/xpcgi/XP/delete_project,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** delete_project 2000/09/03 00:20:59 1.4
--- delete_project 2001/10/31 15:39:16 1.5
***************
*** 1,3 ****
! #!/usr/bin/local/perl
# XPCGI - A Task and Story card utility for use with Extreme Programming.
# Copyright (C) 2000 Joi Ellis
--- 1,3 ----
! #!./perl
# XPCGI - A Task and Story card utility for use with Extreme Programming.
# Copyright (C) 2000 Joi Ellis
***************
*** 31,34 ****
--- 31,35 ----
('$Id$' =~ /Id\:\s+(\S+),v\s+(\d+\.\d+) (\d+\/\d+\/\d+) /);
+ require "local.pl";
require "Debug.pl";
$debugurl = $debug ? "&DEBUG=1" : "";
***************
*** 53,57 ****
chomp($num);
$num--;
! if ( $num > 0 && $num <= scalar(@keys)) {
print "Delete $keys[$num]: are you sure?\n";
$yorn = <STDIN>;
--- 54,58 ----
chomp($num);
$num--;
! if ( $num >= 0 && $num <= scalar(@keys)) {
print "Delete $keys[$num]: are you sure?\n";
$yorn = <STDIN>;
***************
*** 60,63 ****
--- 61,67 ----
print $PROJECTS{$keys[$num]}, "\nDeleted.\n";
delete($PROJECTS{$keys[$num]});
+ if (exists $PROJECTS{$keys[$num]} ) {
+ die "Unable to delete record $keys[$num].\n";
+ }
} else {
print "Delete canceled.\n";
Index: project.pl
===================================================================
RCS file: /cvsroot/xpcgi/XP/project.pl,v
retrieving revision 1.33
retrieving revision 1.34
diff -C2 -r1.33 -r1.34
*** project.pl 2001/10/31 05:40:37 1.33
--- project.pl 2001/10/31 15:39:16 1.34
***************
*** 99,103 ****
&SplitProjectData($data);
print <<EOF;
! <DT><a href="$storyscript?ACTION=LIST+STORIES&PROJECT=$project&THISUSER=$thisuser$debugurl">$project</a>
<DD>$project_title
EOF
--- 99,103 ----
&SplitProjectData($data);
print <<EOF;
! <DT><a href="$storyscript?ACTION=LIST+STORIES&PROJECT=$project&THISUSER=$thisuser$debugurl">$project</a>
<DD>$project_title
EOF
***************
*** 224,234 ****
</TR>
<TR>
! <TD COLSPAN="1"><small> <a href="$help#regexp" target="help">Regular Expression</a>: </td>
! <TD COLSPAN="1"><small><INPUT TYPE="TEXT" SIZE="20" NAME="REGEXP" VALUE=""> </td>
<td><small><INPUT TYPE="SUBMIT" NAME="ACTION" VALUE="SEARCH $whats"></small></TD>
</TR>
<TR>
! <TD><small>
! <INPUT TYPE="SUBMIT" NAME="ACTION" VALUE="$bbutton BURNT CARDS"></small></TD>
</TD>
</TR>
--- 224,233 ----
</TR>
<TR>
! <TD COLSPAN="1"><small> <a href="$help#regexp" target="help">Regular Expression</a>: </small></td>
! <TD COLSPAN="1"><small><INPUT TYPE="TEXT" SIZE="20" NAME="REGEXP" VALUE=""> </small></td>
<td><small><INPUT TYPE="SUBMIT" NAME="ACTION" VALUE="SEARCH $whats"></small></TD>
</TR>
<TR>
! <TD><small><INPUT TYPE="SUBMIT" NAME="ACTION" VALUE="$bbutton BURNT CARDS"></small>
</TD>
</TR>
***************
*** 244,249 ****
<TR>
<TD><small><a href="$projectscript?ACTION=LIST+PROJECTS&THISUSER=$thisuser"$debugurl>List Projects</a></small></TD>
! <TD><small><a href="$storyscript?ACTION=LIST+STORIES&PROJECT=$project&THISUSER=$thisuser$debugurl">List stories</a></small></TD>
! <TD><small><a href="$taskscript?ACTION=LIST+TASKS&PROJECT=$project&THISUSER=$thisuser$debugurl">List Tasks</a></small></TD>
</TR>
<TR><TD>
--- 243,248 ----
<TR>
<TD><small><a href="$projectscript?ACTION=LIST+PROJECTS&THISUSER=$thisuser"$debugurl>List Projects</a></small></TD>
! <TD><small><a href="$storyscript?ACTION=LIST+STORIES&PROJECT=$project&THISUSER=$thisuser$debugurl">List stories</a></small></TD>
! <TD><small><a href="$taskscript?ACTION=LIST+TASKS&PROJECT=$project&THISUSER=$thisuser$debugurl">List Tasks</a></small></TD>
</TR>
<TR><TD>
Index: story.cgi
===================================================================
RCS file: /cvsroot/xpcgi/XP/story.cgi,v
retrieving revision 1.46
retrieving revision 1.47
diff -C2 -r1.46 -r1.47
*** story.cgi 2001/10/31 05:40:37 1.46
--- story.cgi 2001/10/31 15:39:16 1.47
***************
*** 27,31 ****
require "Debug.pl";
! $debugurl = $debug ? "&DEBUG=1" : "";
$card_number = $type = $see_also = $open_date = $close_date = $priority =
$risk = $ied = $description = $submittedby = $notes = $regexp = $status = $rank = $storytitle = $markList = "";
--- 27,31 ----
require "Debug.pl";
! $debugurl = $debug ? "&DEBUG=1" : "";
$card_number = $type = $see_also = $open_date = $close_date = $priority =
$risk = $ied = $description = $submittedby = $notes = $regexp = $status = $rank = $storytitle = $markList = "";
***************
*** 354,358 ****
$submittedby = &SanitizeText($in{"SUBMITTEDBY"});
$debug = $debug || $in{"DEBUG"};
! $debugurl = $debug ? "&DEBUG=1" : "";
if ($in{"BURNT"} ne "") {
$skipburnt = $in{"BURNT"};
--- 354,358 ----
$submittedby = &SanitizeText($in{"SUBMITTEDBY"});
$debug = $debug || $in{"DEBUG"};
! $debugurl = $debug ? "&DEBUG=1" : "";
if ($in{"BURNT"} ne "") {
$skipburnt = $in{"BURNT"};
***************
*** 443,448 ****
<a href="$help#see_also" target="help">See Also</a>: <INPUT TYPE="TEXT" NAME="SEEALSO" size="5" VALUE="$see_also">
$seealsourls
! <a href="$taskscript?ACTION=LIST+TASKS+FOR+STORY&STORY=$card_number&THISUSER=$urlthisuser&PROJECT=$project$debugurl">List Tasks</a>
! <a href="$storyscript?ACTION=SPLITREQUEST&CARDNUMBER=$card_number&THISUSER=$urlthisuser&PROJECT=$project$debugurl">Split Story</a>
</TD>
</TR>
--- 443,448 ----
<a href="$help#see_also" target="help">See Also</a>: <INPUT TYPE="TEXT" NAME="SEEALSO" size="5" VALUE="$see_also">
$seealsourls
! <a href="$taskscript?ACTION=LIST+TASKS+FOR+STORY&STORY=$card_number&THISUSER=$urlthisuser&PROJECT=$project$debugurl">List Tasks</a>
! <a href="$storyscript?ACTION=SPLITREQUEST&CARDNUMBER=$card_number&THISUSER=$urlthisuser&PROJECT=$project$debugurl">Split Story</a>
</TD>
</TR>
***************
*** 794,797 ****
--- 794,800 ----
$foo = &ListButtons("STORY","STORIES");
$burntCaption= "Burnt cards are " . ($skipburnt ? "hidden." : "visible.");
+ #
+ # @todo: need to fix this.
+ #
print <<EOF;
<CAPTION>
***************
*** 877,881 ****
$seealsourls = &MakeSeeAlsos() || " ";
$url = <<EOF;
! <a href="$script?ACTION=GOTO&GOTO=$card_number&PROJECT=$project&THISUSER=$thisuser$debugurl">$card_number</a>
EOF
&LoadIED($card_number);
--- 880,884 ----
$seealsourls = &MakeSeeAlsos() || " ";
$url = <<EOF;
! <a href="$script?ACTION=GOTO&GOTO=$card_number&PROJECT=$project&THISUSER=$thisuser$debugurl">$card_number</a>
EOF
&LoadIED($card_number);
***************
*** 923,927 ****
} else {
return <<EOF;
! <a href="$script?ACTION=CHANGERANK&CARD=$card&DIRECTION=$rankdir&PROJECT=$project&THISUSER=$thisuser$debugurl">$rankdir</a>
EOF
}
--- 926,930 ----
} else {
return <<EOF;
! <a href="$script?ACTION=CHANGERANK&CARD=$card&DIRECTION=$rankdir&PROJECT=$project&THISUSER=$thisuser$debugurl">$rankdir</a>
EOF
}
***************
*** 1462,1466 ****
$card_number = $parent_number . "." . ($child_adj + $child);
&SaveCard();
! $spliturl = "$storyscript?ACTION=GOTO&GOTO=$card_number&PROJECT=$project&THISUSER=$thisuser$debugurl";
print "<LI><a href=\"$spliturl\">$card_number</a>\n";
}
--- 1465,1469 ----
$card_number = $parent_number . "." . ($child_adj + $child);
&SaveCard();
! $spliturl = "$storyscript?ACTION=GOTO&GOTO=$card_number&PROJECT=$project&THISUSER=$thisuser$debugurl";
print "<LI><a href=\"$spliturl\">$card_number</a>\n";
}
|
