File: doeditwhiteboard.cgi

package info (click to toggle)
bonsai 1.3%2Bcvs20060111-2
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 1,096 kB
  • ctags: 445
  • sloc: perl: 11,380; sh: 271; makefile: 223; sql: 217
file content (87 lines) | stat: -rwxr-xr-x 2,409 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
#!/usr/bonsaitools/bin/perl -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Netscape Public
# License Version 1.1 (the "License"); you may not use this file
# except in compliance with the License. You may obtain a copy of
# the License at http://www.mozilla.org/NPL/
#
# Software distributed under the License is distributed on an "AS
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
# implied. See the License for the specific language governing
# rights and limitations under the License.
#
# The Original Code is the Bonsai CVS tool.
#
# The Initial Developer of the Original Code is Netscape Communications
# Corporation. Portions created by Netscape are
# Copyright (C) 1998 Netscape Communications Corporation. All
# Rights Reserved.
#
# Contributor(s): 

use strict;

use lib '/usr/share/bonsai/lib'; 

require 'CGI.pl';
print "Content-type: text/html\n\n";

&validateReferer(('editwhiteboard.cgi','doeditwhiteboard.cgi'));

Lock();
LoadWhiteboard();

my $oldvalue = &url_decode(FormData('origwhite'));
my $currentvalue = $::WhiteBoard;
$oldvalue =~ s/[\n\r]//g; $currentvalue =~ s/[\n\r]//g;
unless ($oldvalue eq $currentvalue) {
     Unlock();

     print "
<TITLE>Error -- pen stolen.</TITLE>
<H1>Someone else just changed the whiteboard.</H1>

Somebody else has changed what's on the whiteboard.  Your changes will
stomp over theirs.
<P>
The whiteboard now reads:
<hr>
<PRE VARIABLE>$::WhiteBoard</PRE>
<hr>
If you really want to change the whiteboard to your text, click the button
below.  Or maybe you want to tweak your text first.  Or you can forget it and
go back to the beginning.

<FORM method=get action=\"doeditwhiteboard.cgi\">
<INPUT TYPE=HIDDEN NAME=origwhite VALUE=\"" . &url_quote($::WhiteBoard). "\">

Change the free-for-all whiteboard:<br>
<TEXTAREA NAME=whiteboard ROWS=10 COLS=70>" . FormData('whiteboard') .
"</TEXTAREA><BR>
<INPUT TYPE=SUBMIT VALUE=\"Change the Whiteboard\">
</FORM>
";
    PutsTrailer();
    exit;
}


my $newwhiteboard = trim(FormData('whiteboard'));

MailDiffs("whiteboard", $::WhiteBoard, $newwhiteboard);

$::WhiteBoard = $newwhiteboard;
WriteWhiteboard();
Unlock();

print "<TITLE>Where's my blue marker?</TITLE>
<H1>The whiteboard has been changed.</H1>
The whiteboard now reads:
<hr>
<PRE VARIABLE>$::WhiteBoard</PRE>
";

Log("Whiteboard changed to be: $::WhiteBoard");
PutsTrailer();
exit;