Update of /cvsroot/wtf-tracker/wtf/util
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv6361/util
Modified Files:
weekly_status.pl
Log Message:
Random bits of changes here and there, mostly code clean-up but a few bits of refactoring (globally) based on a code review in prep for v1.02 build and release
Index: weekly_status.pl
===================================================================
RCS file: /cvsroot/wtf-tracker/wtf/util/weekly_status.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** weekly_status.pl 28 Nov 2006 21:58:37 -0000 1.2
--- weekly_status.pl 2 Dec 2006 00:09:09 -0000 1.3
***************
*** 122,127 ****
for my $note ( @{ $employee->{'note_content'} } ) {
$report .= ' ' . $note->{'work_day'} . "\n";
! $note->{'notes'} =~ s|<br\s*/>|\n|msg;
$note->{'notes'} =~ s| | |g;
$note->{'notes'} =~ s/\n/\n /msg;
$note->{'notes'} =~ s/[\s\r\n]+$//msg;
--- 122,133 ----
for my $note ( @{ $employee->{'note_content'} } ) {
$report .= ' ' . $note->{'work_day'} . "\n";
!
! # The following four lines are "dehtmlizing" based on
! # WTF::Utils::htmlize_notes()
$note->{'notes'} =~ s| | |g;
+ $note->{'notes'} =~ s|<br\s*/>\n*|\n|msg;
+ $note->{'notes'} =~ s|<|<|msg;
+ $note->{'notes'} =~ s|>|>|msg;
+
$note->{'notes'} =~ s/\n/\n /msg;
$note->{'notes'} =~ s/[\s\r\n]+$//msg;
***************
*** 159,162 ****
--- 165,171 ----
./util/weekly_status.pl DEVEL # run in development enviornment
+ # run in development enviornment, specifying a date range and a user id
+ ./util/weekly_status.pl DEVEL 2006-10-25 2006-10-31 77
+
=head1 DESCRIPTION
***************
*** 172,175 ****
--- 181,190 ----
and send all the emails to the administrator.
+ By adding on two date ranges and a user ID, the script emails a report based
+ on the date range to the user specified, provided that user has the appropriate
+ authorization.
+
+ ./util/weekly_status.pl DEVEL 2006-10-25 2006-10-31 77
+
=head1 DEPENDENCIES
|
