[WWdevel] Fwd: webwork change

[Michael E. G. <ga...@ma...>]

Begin forwarded message:

> From: Pieter Bowman <bo...@ma...>
> Date: July 20, 2005 12:04:40 PM EDT
> To: sys...@ma..., web...@ma..., 
> ga...@ma..., sh...@ma..., 
> ap...@ma...
> Cc: bo...@ma...
> Subject: webwork change
>
> I have made the following change to the feedback.pl script on the Utah
> webwork systems.  This change was prompted because there are people
> using the webwork system to forward spam.  As far as I know, I'm the
> only recipient.  This change should only affect people who take a long
> time to send their feedback.
>
>  # feedback.pl: Mail feedback to a specified user, with the URL of the
>  #              referring page automagically included.  Reject bogus
> @@ -40,6 +40,8 @@
>         foreach  $ADDR (split(/\s*,\s*/, param('To'))) {
>             &check_destination($ADDR);
>
> +           &user_error('Session timed out.')
> +               if (param('ToUt') < time() - (5*60)); # Timeout 5 
> minutes
>             &user_error('You didn\'t enter any comments.')
>                 if (param('comments') eq '');
>             &user_error('You didn\'t enter an e-mail address.')
> @@ -178,6 +180,7 @@
>          hidden('Mode'),
>          hidden('user'),
>          hidden('key'),
> +        hidden('ToUt', time()),
>          strong("To: "), kbd($To), br,
>              strong("From: "), param('name'), br,
>          p,
>
> Pieter
>
> Pieter Bowman                        Voice:                 
> 1-801-581-5252
> University of Utah                   FAX:                   
> 1-801-581-4148
> Department of Mathematics            Email:           
> bo...@ma...
> 155 S 1400 E RM 233                  URL: 
> http://www.math.utah.edu/~bowman
> Salt Lake City, Ut, 84112-0090       Office:                       103 
> LCB
>