gecko-dev/webtools/bonsai/editprofile.cgi

110 строки
2.8 KiB
Perl
Executable File

#!/usr/bonsaitools/bin/mysqltcl
# -*- Mode: tcl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Netscape Public License
# Version 1.0 (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.
source CGI.tcl
LoadPerson $FORM(person)
puts "Content-type: text/html
"
NOTDEF {
if {![cequal $FORM(password) $person(password)]} {
puts "<TITLE>Bzzzzt!</TITLE>"
puts "<H1>Invalid password.</h1>"
puts "Please click the <b>Back</b> button and try again."
exit
}
}
puts "
<TITLE>Tell us about yourself...</TITLE>
<H1>Profile for $person(name)</H1>
<FORM method=get action=\"doeditprofile.cgi\">
<INPUT TYPE=HIDDEN NAME=person VALUE=$FORM(person)>
<INPUT TYPE=HIDDEN NAME=name VALUE=$FORM(person)>
<TABLE>
<TR>
<TD><B>Real name:</B></TD>
<TD><INPUT NAME=fullname VALUE=\"[value_quote $person(fullname)]\"></TD>
</TR><TR>
<TD><B>Contact:</B></TD>
<TD>"
set mailmatch 0
if {[regexp -- {^<a href="mailto:(.*)\?subject=(.*)">Send mail to (.*)</a>$} \
$person(contact) foo name1 subject name2]} {
if {[cequal $name1 $name2]} {
set mailmatch 1
}
}
if {$mailmatch} {
set checked "CHECKED"
} else {
set name1 $person(name)
set subject "Build busted"
set checked {}
}
puts "
<INPUT TYPE=radio NAME=contacttype VALUE=mailto $checked> Send mail to
<INPUT NAME=mailtoname VALUE=\"[value_quote $name1]\"> with subject
<INPUT NAME=mailtosubject VALUE=\"[value_quote $subject]\"><BR>"
if {$mailmatch} {
set checked {}
set value {}
} else {
set checked "CHECKED"
set value $person(contact)
}
puts "
<INPUT TYPE=radio NAME=contacttype VALUE=misc $checked> Other:
<INPUT NAME=misccontact SIZE=70 VALUE=\"[value_quote $value]\"></TD>
</TR><TR>"
NOTDEF {
puts "
<TD><B>Password:</B></TD>
<TD><INPUT NAME=password TYPE=password VALUE=\"[value_quote $person(password)]\"></TD>
</TR><TR>
<TD><B>Retype password:</B></TD>
<TD><INPUT NAME=password2 TYPE=password VALUE=\"[value_quote $person(password)]\"></TD>
</TR><TR>
}
puts "
</TABLE>
<B>Other info (office phone, home phone numbers, graffiti, whatever):</B>
<BR>
<TEXTAREA NAME=otherinfo ROWS=10 COLS=80>$person(otherinfo)</TEXTAREA>
<BR>
<INPUT TYPE=SUBMIT Value=\"Submit\"></FORM>
"
PutsTrailer
exit