Søg
Avatar billede 93a12 Nybegynder
04. august 2002 - 14:45 Der er 5 kommentarer og
1 løsning

Fejl i script

prøv at oprette et forum her http://www.gamespace.amok.dk/forum
når man så trykker på opret kommer den med fejlen The "following error has occured:
i can't open >/home/www/gamespace.amok.dk/forum/test/myconfig.txt at /home/www/gamespace.amok.dk/cgi-bin//forum/ezmbgen.pl line 231."
Avatar billede 93a12 Nybegynder
04. august 2002 - 14:50 #1
Indhold af filen ezmbgen.pl:

#!/usr/bin/perl
#
# ezmbgen.$cgi - EZ Message Board Generator - by Manny Juan <manny@jps.net> 10/20/00
# http://www.mannyjuan.com/ezmbgen.htm
#
# this program was adapted from ezhomepg by manny juan
#
# This will give your visitors the opportunity to set up a wwwboard message board
# at your site. the generated board page uses ezwboard.$cgi, modified version of
# matt wright's wwwboard.pl script and ezwadmin.$cgi, modified version of wwwadmin.pl
# for maintaining the board
#
#####################################################################################
# 12/05/2001
# This version was modified by Robert Macwange <webman@telia.com>
# Website: http://www.monopro.com
# Added Java colorpicker.
# Enhanced HTML interface using internal CSS styles.
# Modified error handling.
# Only one user password for simplicity.
# Multi language version created in a drunken stupor 20/09/2001
# Contribute to my beer fund www.monopro.com/beerfund
# and I will create even bettter scripts and script modifications
# Beer rules!
# Dedicated to Eberhard Wenzel - Little dancing bear.  1950-2001
#####################################################################################
$SIG{__DIE__} = \&Error_Msg;
sub Error_Msg {
$msg = "@_";
&header;
print qq|
<div align = center><br><b>The following error has occured</b>:<br>
$msg</div></body></html>
|;
exit;
}
read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $input);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<([^>]|\n)*>//g;
$FORM{$name} = $value;
}
eval {require "language.pl";};
eval {require "mbmcfg.pl";};
$nextmsg = "board1.txt";
$updact = $FORM{'updact'};
$retlink=$FORM{'retlink'};
$login = $FORM{'login'};
$email = $FORM{'email'};
$pagename = $FORM{'pagename'};
$adminpwd=$FORM{'login'};
$font_face=$FORM{'font_face'};
$font_size=$FORM{'font_size'};
$yourmail=$email;
$replymail=$FORM{'replymail'};
$maxthreads=$FORM{'maxthreads'};
$max=$FORM{'max'};
$max_reply=$FORM{'max_reply'};
$html=$FORM{'html'};
$require_name=$FORM{'require_name'};
$require_subject=$FORM{'require_subject'};
$require_email=$FORM{'require_email'};
$boardname=$FORM{'boardname'};
$colorset1=$FORM{'colorset1'};
$colorset2=$FORM{'colorset2'};
$colorset3=$FORM{'colorset3'};
$colorset=$FORM{'colorset'};
$flock=$FORM{'flock'};
$usemylogo=$FORM{'usemylogo'};
$mylogo=$FORM{'mylogo'};
$mylogo2=$FORM{'mylogo2'};
$pagename=~s/\W//g;
$adminpwd=~s/\W//g;
$pagename =~ s/ /_/g;

if ($FORM{'action'} eq "New page") {&newpage;}
if ($FORM{'action'} eq "Create Page") {&create;}
if ($FORM{'action'} eq "edit") {&confirm("edit");}
if ($FORM{'action'} eq "checkuser") {&checkuser;}
if ($FORM{'action'} eq "recreate") {&recreate;}
if ($FORM{'action'} eq "delete") {&confirm("delete");}
if ($FORM{'action'} eq "password") {&pass_retriever; exit;}
exit;

sub newpage {
    local ($ackmsg) = @_;
    $html="0";
    $require_subject="1";
    $maxthreads="100";
    $max="20";
    $max_reply="20";
    $colorset='#00ffff,#ff0000,#0737EB,#ffffff,#A4A4EB,#B8B8FB,#CCCCFF,#0C0C4C';
    $font_face="Verdana, Arial, Helvetica, San-serif";
    $font_size="2";
    $replymail="1";
    $table_width="650";
    $colorset1="#C0C0C0";
    $colorset2="#000000";
    $colorset3="#0000EE";

print "Content-type: text/html\n\n";
print qq|
<html><head><title>$create_your_messageboard</title>
<SCRIPT language=JavaScript><!--
function pick(color) {
if (document.forms[0].hex[0].checked) {
document.forms[0].colorset1.value = color;
document.bgColor = color;
bg = color;
}
else if (document.forms[0].hex[1].checked) {
document.forms[0].colorset2.value = color;
document.fgColor = color;
txt = color;
}
else if (document.forms[0].hex[2].checked) {
document.forms[0].colorset3.value = color;
document.linkColor = color;
lnk = color;
}
else {
document.forms[0].colorset1.value = color;
bg = color;
}
}
function textBuild() {
document.form.colorset.value =  document.form.colorset1.value + ',' + document.form.colorset2.value + ',' + document.form.colorset3.value + ',' + document.form.colorset3.value + ',' + document.form.colorset3.value + ',' + document.form.colorset3.value + ',' + document.form.colorset3.value + ',' + document.form.colorset3.value;
}
//--></SCRIPT>
<style><!--BODY{font-family:Verdana, Arial, Helvetica, sans-serif;font-size:12px;}
P,A,BR,UL,OL,TD,TH,LI,SMALL,BLOCKQUOTE,H1,H2,H3,B,{font-family:Verdana, Arial, Helvetica, sans-serif;font-size:12px;}-->
</style></head>
<body bgcolor=#F5F5F5>
<form name=form action=$cgiurl/ezmbgen.$ext method=POST>
<input type=hidden name=colorset>
<input type=hidden name=action value="Create Page">
<input type=hidden name=table_width value=650>
<input type=hidden name=font_size value=2>
<input type=hidden name=font_face value="Verdana, Arial, Helvetica">
<table border=1 cellpadding=5 cellspacing=0 bordercolorlight=#000000 bordercolordark=#FFFFFF align=center width=350>
<tr>
<td>
<div align=center>
<table border=0 cellpadding=3 cellspacing=0>
<tr>
<td>
<table border=1 cellpadding=5 cellspacing=0 bordercolorlight=#000000 bordercolordark=#FFFFFF bgcolor=#F5F5F5 width=100%>
<tr align=center>
<td width=100% height=35><font color=#000000><img src=$alogo alt=$title><br>
<b><font size=3>$ackmsg</font>$create_your_messageboard<br>
</b>$missing_feilds.</font></td>
</tr>
</table>
<table border=1 cellpadding=5 cellspacing=0 bordercolorlight=#000000 bordercolordark=#FFFFFF bgcolor=#F5F5F5 width=100%>
<tr bgcolor=#CCCCCC>
<td width=100% height=96>
<table border=0 cellspacing=0 cellpadding=2 align=center>
<tr>
<td width=50% align=right><font color=#000000>$lan_username:</font></td>
<td width=50%>
<input type=text size=25 name=pagename value=$pagename>
</td>
</tr>
<tr>
<td width=50% align=right><font color=#000000>$lan_password:</font></td>
<td width=50%>
<input type=text size=25 name=login value=$login>
</td>
</tr>
<tr>
<td width=50% align=right><font color=#000000>$lan_messageboard_title:</font></td>
<td width=50%>
<input type=text size=25 name=boardname value=$boardname>
</td>
</tr>
<tr>
<td width=50% align=right><font color=#000000>$lan_your_email:</font></td>
<td width=50%>
<input type=text size=25 name=email value=$email>
</td>
</tr>
</table>
</td>
</tr>
</table>
|;
&build_form_content;
print qq|
<table border=1 cellpadding=5 cellspacing=0 bordercolorlight=#000000 bordercolordark=#FFFFFF width=100%>
<tr>
<td width=100% valign=middle align=center>
<input type=submit value=$lan_create>
</td></tr>
</table>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</form>
</body></html>
|;
    }

sub create {

# error messages
if (uc($email) eq "") {&newpage("<font color=\"#CC0000\">$missing_email</font><br>");exit;}
if (uc($pagename) eq "") {&newpage("<font color=\"#CC0000\">$missing_name</font><br>");exit;}
if (uc($pagename) eq "INDEX") {&newpage("<font color=\"#CC0000\">$cannot_use</font><br>");exit;}
if (uc($boardname) eq "") {&newpage("<font color=\"#CC0000\">Missing title</font><br>");exit;}
if ($email !~ /^\w+(\.)*\w+\@(\w|\-)+\.\w+/) {&newpage("<font color=\"#CC0000\">$email $error_mail</font><br>");exit;}
if (-d "$basedir/$pagename") {&newpage("<font color=\"#CC0000\">$pagename $taken_index</font><br>");exit;}
if (uc($login) eq "") {&newpage("<font color=\"#CC0000\">$missing_password</font><br>");exit;}

&chk_maxthreads;
&chk_max;
&chk_max_reply;

umask(000);
mkdir("$basedir/$pagename", 0777) unless (-d "$basedir/$pagename");
umask(000);  # UNIX file permission junk
mkdir("$basedir/$pagename/messages", 0777) unless (-d "$basedir/$pagename/messages");

open (CFGFILE,">$basedir/$pagename/myconfig.txt")||die "i can't open >$basedir/$pagename/myconfig.txt";
print CFGFILE "$pagename&&$retlink&&$font_face&&$font_size&&$yourmail&&$replymail&&$maxthreads&&$max&&$max_reply&&$html&&$require_name&&$require_subject&&$require_email&&$boardname&&$colorset&&$colorset1&&$colorset2&&$colorset3&&$usemylogo&&$mylogo";
close(CFGFILE);

open (MSGNFILE,">$basedir/$pagename/$nextmsg")||die "i can't open >$basedir/$pagename/$nextmsg";
    print MSGNFILE "1";
    close(MSGNFILE);

open (FILE, ">>$users") || die "I can't open >>$users\n";
if($win95==0){flock (FILE, 2) or die "can't lock data file\n";}
$cryptpwd=crypt($login,substr($login,0,2));
print FILE "$login&&$email&&$pagename&&$cryptpwd\n";
close(FILE);

    # Suck the index page, and write the new entry to it
    open(FILE, "$indexpage") || die "I can't open that file $indexpage\n";
    if($win95==0){flock (FILE, 1) or die "can't lock index file\n";}
    @lines = <FILE>;
    close(FILE);
    $sizelines = @lines;

    # Now, re-open the links file, and add the new link
    open(FILE, ">$indexpage") || die "I can't open that file >$indexpage\n";
    if($win95==0){flock (FILE, 2) or die "can't lock index file\n";}

    for ($a = 0; $a <= $sizelines; $a++) {

        $_ = $lines[$a];

        if (/<!--begin-->/) {

            print FILE "<!--begin-->\n";
            print FILE "<li><a href=\"$cgiurl/mbview.pl?site=$pagename\">$boardname</a></font></li>\n";

        } else {
            print FILE $_;
            }
        }

    close(FILE);


    # Give the user a response
&header;
print "<div align = center><img src=$alogo alt=$title><p>\n";
print "<BR><BR>\n";
print "$board_created<br>\n";
print "<a href=\"$cgiurl/mbview.pl?site=$pagename\">$cgiurl/mbview.pl?site=$pagename</a>\n";
print "</div></body></html>\n";


    # Send the user an e-mail confirming their page
    open (MAIL, "| $sendmail -t") || die "I can't open sendmail\n";
    print MAIL "To: $usrname <$email>\n";
    print MAIL "From: $myemail\n";
    print MAIL "Subject: $your_new_board $title\n";
    print MAIL "$your_new_board:\n";
    print MAIL "\n";
    print MAIL "$cgiurl/mbview.pl?site=$pagename\n";
    print MAIL "\n$lan_messageboard_title: $$boardname";
    print MAIL "\n$lan_username: $pagename";
    print MAIL "\n$lan_password: $login";
    print MAIL "\n$lan_your_email: $email";
    print MAIL "\n\n$please_save";
    print MAIL "\n$thanks_man $title\n";
    print MAIL "\n\n$admin - $myemail\n";
    close (MAIL);

    # Notify us when someone creates a page
    open (MAIL, "| $sendmail -t") || die "I can't open sendmail\n";
    print MAIL "To: $myemail\n";
    print MAIL "From: $pagename <$email>\n";
    print MAIL "Subject: $title New Page Report\n";
    print MAIL "$pagename $has_created:\n";
    print MAIL "$baseurl/$pagename\n";
    close(MAIL);
    }

sub recreate {
    &chk_maxthreads;
    &chk_max;
    &chk_max_reply;

    # Suck the index page, and update site name (in case it changed)
    open(FILE, "$indexpage") || die "I can't open that file $indexpage\n";
    if($win95==0){flock (FILE, 1) or die "can't lock index file\n";}
        @lines = <FILE>;
        close(FILE);
        $sizelines = @lines;

    # Now, re-open the links file, and replace the index entry
    open(FILE, ">$indexpage") || die "I can't open that file >$indexpage\n";
    if($win95==0){flock (FILE, 2) or die "can't lock index file to delete entry\n";}

            for ($a = 0; $a <= $sizelines; $a++) {

            $_ = $lines[$a];

        if (/$pagename\b/) {
            print FILE "<p><a href=\"$cgiurl/mbview.pl?site=$pagename\">$boardname</a></font></p>\n";
          }
        else {
          print FILE $_;
          }
        }
    close(FILE);

    # recreate the config file
    open (CFGFILE,">$basedir/$pagename/myconfig.txt")||die "i can't open >$basedir/$pagename/myconfig.txt";
    print CFGFILE "$pagename&&$retlink&&$font_face&&$font_size&&$yourmail&&$replymail&&$maxthreads&&$max&&$max_reply&&$html&&$require_name&&$require_subject&&$require_email&&$boardname&&$colorset&&$colorset1&&$colorset2&&$colorset3&&$usemylogo&&$mylogo";
    close(CFGFILE);

    &ntfy_usr_edt;

    # Give the user a response
&header;
print "<body bgcolor=\"#F5F5F5\">";
print "<div align = center><img src=$alogo alt=$title>\n";
print "<P><BR><BR>\n";
print "$been_created<br>\n";
print "<a href=\"$cgiurl/mbview.pl?site=$pagename\">$cgiurl/mbview.pl?site=$pagename</a>\n";
print "</div></body></html>\n";
}

sub ntfy_usr_edt {
    # Send the user a notice that their page has been re-done
    open (MAIL, "| $sendmail -t") || die "I can't open sendmail\n";
    print MAIL "To: $usrname <$email>\n";
    print MAIL "From: $myemail\n";
    print MAIL "Subject: $title\n";
    print MAIL "$your_revised\n";
    print MAIL "\n";
    print MAIL "$cgiurl/mbview.pl?site=$pagename\n";
    print MAIL "\n$thanks_man $title\n";
    print MAIL "\n\n$admin - $myemail\n";
    close (MAIL);
    }

sub chk_maxthreads {
    if (($maxthreads !~ /^(\d){1,3}$/)|($maxthreads>200)) {
        &input_error("$lan_inval_threads");
        exit;
        }
    }
sub chk_max {
    if ($max !~ /^(\d){1,2}$/) {
        &input_error("$lan_invalmax_threads");
        exit;
        }
    }
sub chk_max_reply {
    if ($max_reply !~ /^(\d){1,2}$/) {
        &input_error("$lan_invalrep_threads");
        exit;
        }
    }
sub chk_bad_maxdays {
    if ($maxdays !~ /^(\d){1,3}$/) {
        &input_error("$lan_invalret_days");
        exit;
        }
    }
sub chk_hexcolor {
    if ($maxthreads !~ /^[0-9a-fA-F]{6}$/) {
        &input_error("$lan_hex");
        exit;
        }
    }
sub input_error {
    local ($errmsg) = @_;
&header;
print "<center><img src=$alogo alt=$title></center><p>\n";
print "<h1>$lan_error !</h1><h3>$errmsg.</h3>\n";
print "<p>$please_correct</p>\n";
}

sub confirm {
    local ($updact) = @_;
if ($updact eq "edit") {$redit = "$medit"}
else {$redit = "$mdelete"}
&header;
print qq|
<form action=$cgiurl/ezmbgen.$ext method=POST>
<input type=hidden name=userdir value=$userdir>
<TABLE border=0 cellPadding=0 cellSpacing=0 height=100% width=100%>
<TBODY><TR><TD><TABLE align=center bgColor=#F5F5F5 border=1 borderColorDark=#ffffff
borderColorLight=#000000 cellPadding=5 cellSpacing=0 width=320><TBODY><TR><TD><DIV align=center>
<TABLE border=0 cellPadding=3 cellSpacing=0><TBODY><TR><TD>
<TABLE bgColor=#F5F5F5 border=1 borderColorDark=#ffffff
borderColorLight=#000000 cellPadding=5 cellSpacing=0
width=100%><TBODY><TR align=middle><TD height=35 width=100%><img src=$alogo alt=$title><BR>
$login_to $redit $your_board</TD>
</TR></TBODY></TABLE></TD></TR>
<TR><TD><TABLE bgColor=#F5F5F5 border=1 borderColorDark=#ffffff
borderColorLight=#000000 cellPadding=5 cellSpacing=0 width=100%><TBODY><TR>
<TD height=96 width=100%><TABLE border=0 cellPadding=2 cellSpacing=0 width=100%>
<TBODY><TR>
<TD align=right width=50%>$lan_username:</TD>
<TD width=50%><input size=25 type=text name=pagename></TD></TR><TR>
<TD align=right width=50%>$lan_password:</TD>
<TD width=50%><input type=password size=25 name=login></TD></TR>
<TR>
<TD align=right width=50%>$lan_your_email:</TD>
<TD width=50%><input size=25 type=text name=email>
</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR><TR><TD align=right>
<TABLE bgColor=#F5F5F5 border=1 borderColorDark=#ffffff borderColorLight=#000000 cellPadding=5 cellSpacing=0
width=100%><TBODY><TR>
<TD align=center vAlign=center width=100%>
<input class=button type=submit value=$edit_y_board>
<input type=hidden name=action value=checkuser>
<input type=hidden name=updact value=$updact>
</TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></FORM></body></html>

|;
    }

sub checkuser {
    open(FILE, "$users") || die "I can't open $users\n"; 
    if($win95==0){flock (FILE, 1) or die "can't lock users file\n";}
    while(<FILE>) {
    chop;     
    @all = split(/\n/);

    foreach $line (@all) {
    ($loginname, $loginemail, $loginpagename, $logincrypt) = split(/&&/, $line);
    if($loginname eq "$login" && $loginemail eq "$email"
    && $loginpagename eq "$pagename" && crypt($login,substr($logincrypt,0,2)) eq $logincrypt) {
        $match = 1;
        if($updact eq "edit") {
          &edit($loginpagename);
          }
        else {
          &delpage($loginpagename);
          }
        }
      }
    }

    close(FILE);

    if (! $match) {
        &error;
        }

    if($updact eq "delete") {

        open(FILE, "$users") || die "I can't open that file $users\n";
        if($win95==0){flock (FILE, 1) or die "can't lock data file\n";}
            @lines = <FILE>;
            close(FILE);
            $sizelines = @lines;

        open(FILE, ">$users") || die "I can't open that file >$users\n";
        if($win95==0){flock (FILE,2) or die "can't lock index file for append\n";}
        chop;
            for ($a = 0; $a <= $sizelines; $a++) {
            $_ = $lines[$a];
            $w = $_;
            $w =~ s/\cM//g;
            $w =~ s/\n//g;
            ($loginname, $loginemail, $loginpagename, $logincrypt) = split(/&&/, $line);
            if($loginname eq "$login" && $loginemail eq "$email"
            && $loginpagename eq "$pagename" && crypt($login,substr($logincrypt,0,2)) eq $logincrypt) {

              }
            else {
              if($w eq "") {
                }
              else {
                print FILE "$w\n";
                }
              }
            }
        close(FILE);
&header;
print "<CENTER><IMG SRC=\"$alogo\" alt=\"$title\">\n";
print "<P><BR>\n";
print "<p>$been_deleted ";
print "</body></html>\n";
      }
    }

sub edit {
    local ($pagename) = @_;
    open(CFGFILE, "$basedir/$pagename/myconfig.txt") || die "I can't open $basedir/$pagename/myconfig.txt\n";
    if($win95==0){flock (CFGFILE, 1) or die "can't lock data file for edit\n";}
    $txrec=<CFGFILE>;
($pagename,$retlink,$font_face,$font_size,$yourmail,$replymail,$maxthreads,$max,$max_reply,$html,$require_name,$require_subject,$require_email,$boardname,$colorset,$colorset1,$colorset2,$colorset3,$usemylogo,$mylogo)=split('&&',$txrec);
    &build_edit_form;
    close(CFGFILE);
    }

sub delpage {
    local ($pagename) = @_;
    &deltree(0,"$basedir/$pagename");

    open(FILE, "$indexpage") || die "I can't open that file $indexpage\n";
    if($win95==0){flock (FILE, 1) or die "can't lock index file\n";}
        @lines = <FILE>;
        close(FILE);
        $sizelines = @lines;

    open(FILE, ">$indexpage") || die "I can't open that file >$indexpage\n";
    if($win95==0){flock (FILE, 2) or die "can't lock index file to delete entry\n";}
        for ($a = 0; $a <= $sizelines; $a++) {
        $_ = $lines[$a];
        if (/$pagename\b/) {
          }
        else {
          print FILE $_;
          }
        }
    close(FILE);

    open(FILE, "$users") || die "I can't open that file $users\n";
    if($win95==0){flock (FILE, 1) or die "can't lock users file\n";}
        @lines = <FILE>;
        close(FILE);
        $sizelines = @lines;

    open(FILE, ">$users") || die "I can't open that file >$users\n";
    if($win95==0){flock (FILE, 2) or die "can't lock users file to delete entry\n";}
        for ($a = 0; $a <= $sizelines; $a++) {
        $_ = $lines[$a];
        if (/$pagename\b/) {
          }
        else {
          print FILE $_;
          }
        }
    close(FILE);
    }

sub deltree {
    local ($lvl, $dir) = @_;
    local @tnlist;
    opendir (TN, "$dir");
    rewinddir (TN);
    @tnlist =  grep(!/^\.\.?$/, readdir (TN));
    closedir (TN);
    foreach $tn (@tnlist) {
        if (-d "$dir/$tn") {
            $lvl++;
            &deltree($lvl,"$dir/$tn" );
            $lvl--;
            }
        else {
            $cnt=unlink("$dir/$tn");
            }
        }
    rmdir ("$dir");
    }

sub build_edit_form {
    local ($ackmsg) = @_;
print "content-type: text/html\n\n";
print qq|
<html><head><title>edit your messageboard</title>
<SCRIPT language=JavaScript><!--
function pick(color) {
if (document.forms[0].hex[0].checked) {
document.forms[0].colorset1.value = color;
document.bgColor = color;
bg = color;
}
else if (document.forms[0].hex[1].checked) {
document.forms[0].colorset2.value = color;
document.fgColor = color;
txt = color;
}
else if (document.forms[0].hex[2].checked) {
document.forms[0].colorset3.value = color;
document.linkColor = color;
lnk = color;
}
else {
document.forms[0].colorset1.value = color;
bg = color;
}
}
function textBuild() {
document.form.colorset.value =  document.form.colorset1.value + ',' + document.form.colorset2.value + ',' + document.form.colorset3.value + ',' + document.form.colorset3.value + ',' + document.form.colorset3.value + ',' + document.form.colorset3.value + ',' + document.form.colorset3.value + ',' + document.form.colorset3.value;
}//--></SCRIPT>
<style><!--BODY{font-family:Verdana, Arial, Helvetica, sans-serif;font-size:12px;}
P,A,BR,UL,OL,TD,TH,LI,SMALL,BLOCKQUOTE,H1,H2,H3,B,{font-family:Verdana, Arial, Helvetica, sans-serif;font-size:12px;}-->
</style></head>
<body bgcolor=#F5F5F5>
<form name=form form action=$cgiurl/ezmbgen.$ext method=POST>
<input type=hidden name=colorset>
<input type=hidden name=userdir value=$userdir>
<input type=hidden name=action value=recreate>
<input type=hidden name=allow_HTML value=$allow_HTML>
<input type=hidden name=table_width value=$table_width>
<input type=hidden name=font_size value=$font_size>
<input type=hidden name=max value=$max>
<input type=hidden name=maxthreads value=$maxthreads>
<input type=hidden name=max_reply value=$max_reply>
<input type=hidden name=pagename value=$pagename>
<input type=hidden name=font_face value=$font_face>
<input type=hidden name=replymail value=1>
<table border=1 cellpadding=5 cellspacing=0 bordercolorlight=#000000 bordercolordark=#FFFFFF align=center width=350>
<tr>
<td>
<div align=center>
<table border=0 cellpadding=3 cellspacing=0>
<tr>
<td>
<table border=1 cellpadding=5 cellspacing=0 bordercolorlight=#000000 bordercolordark=#FFFFFF bgcolor=#F5F5F5 width=100%>
<tr align=center>
<td width=100% height=35><font color=#000000><img src=$alogo alt=$title><br><b>
<font size=3>$ackmsg</font> $edit_y_board</td>
</tr>
</table>
<TABLE bgColor=#F5F5F5 border=1 borderColorDark=#ffffff borderColorLight=#000000
cellPadding=5 cellSpacing=0 width=100%>
<TBODY>
<TR>
<TD align=center vAlign=center width=100% bgcolor=#CCCCCC><A
href=$cgiurl/mbadmin.pl?site=$pagename&login=$login><font color=#000000>$click_to_edit</font></A></TD>
</TR></TBODY></TABLE>
<table border=1 cellpadding=5 cellspacing=0 bordercolorlight=#000000 bordercolordark=#FFFFFF bgcolor=#F5F5F5 width=100%>
<tr><td width=100% height=96>
<table border=0 width=100% cellspacing=0 cellpadding=2>
<tr>
<td width=50% align=right><font color=#000000>$lan_username:</font></td>
<td width=50%>
<font color=#000000><b>$pagename</b></font>
</td>
</tr>
<tr>
<td width=50% align=right><font color=#000000>$lan_messageboard_title:</font></td>
<td width=50%>
<input type=text size=25 name=boardname value=$boardname>
</td>
</tr>
<tr>
<td width=50% align=right><font color=#000000>$lan_your_email:</font></td>
<td width=50%>
<input type=text size=25 name=email value=$email>
</td>
</tr>
</table>
</td>
</tr>
</table>
|;
&build_form_content;
print qq|
<table border=1 cellpadding=5 cellspacing=0 bordercolorlight=#000000 bordercolordark=#FFFFFF width=100%>
<tr>
<td width=100% valign=middle align=center>
<input type=submit name=selection value=$lan_submit>
<br></td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</form>
</body></html>
|;
    }

sub build_form_content {
print qq|
<TABLE border=1 borderColorDark=#ffffff borderColorLight=#000000 cellPadding=5
cellSpacing=0 width=100%>
<TBODY>
<TR>
<TD align=center vAlign=center width=100%>$use_a_logo<br>$if_so:
|;
&prt_ckb($usemylogo, 'usemylogo');
print qq|
$lan_put_url <br>
<input type=text size=35 name=mylogo value=$mylogo>
</TD></TR></TBODY></TABLE>
<table border=1 cellpadding=5 cellspacing=0 bordercolorlight=#000000 bordercolordark=#FFFFFF width=100%>
<tr>
<td width=100% valign=middle align=center>$link_to_site:<br>
<input type=text size=35 name=retlink value=$retlink>
</b></td>
</tr>
</table>
<TABLE border=1 borderColorDark=#ffffff borderColorLight=#000000 cellPadding=5
cellSpacing=0 width=100%>
<TBODY>
<TR>
<TD align=center vAlign=center width=100%>$picker_info
<TABLE align=center border=1 borderColorDark=#000000 borderColorLight=#000000
cellPadding=0 cellSpacing=3>
<TBODY>
<TR align=middle>
<TD><INPUT CHECKED name=hex type=radio value=bg>
$lan_backgound</TD>
<TD><INPUT name=hex type=radio value=txt>
$lan_text</TD>
<TD><INPUT name=hex type=radio value=lnk>
$lan_links</TD>
</TR>
<TR>
<TD align=middle bgColor=#eeeeee vAlign=center><INPUT maxLength=7
name=colorset1 size=7 value=$colorset1></TD>
<TD align=middle bgColor=#eeeeee vAlign=center><INPUT maxLength=7
name=colorset2 size=7 value=$colorset2></TD>
<TD align=middle bgColor=#eeeeee vAlign=center><INPUT maxLength=7
name=colorset3 size=7 value=$colorset3></TD></TR>
<TR>
<TD align=middle bgColor=#eeeeee colSpan=3 vAlign=center><B><A><IMG
border=0 height=67 src=$baseurl/colortable.gif useMap=#colmap
width=289></A></B></TD></TR></TBODY></TABLE><B><MAP name=colmap><AREA
coords=1,1,7,10 href="java script:pick('#00FF00')" shape=RECT><AREA
coords=9,1,15,10 href="java script:pick('#00FF33')" shape=RECT><AREA
coords=17,1,23,10 href="java script:pick('#00FF66')" shape=RECT><AREA
coords=25,1,31,10 href="java script:pick('#00FF99')" shape=RECT><AREA
coords=33,1,39,10 href="java script:pick('#00FFCC')" shape=RECT><AREA
coords=41,1,47,10 href="java script:pick('#00FFFF')" shape=RECT><AREA
coords=49,1,55,10 href="java script:pick('#33FF00')" shape=RECT><AREA
coords=57,1,63,10 href="java script:pick('#33FF33')" shape=RECT><AREA
coords=65,1,71,10 href="java script:pick('#33FF66')" shape=RECT><AREA
coords=73,1,79,10 href="java script:pick('#33FF99')" shape=RECT><AREA
coords=81,1,87,10 href="java script:pick('#33FFCC')" shape=RECT><AREA
coords=89,1,95,10 href="java script:pick('#33FFFF')" shape=RECT><AREA
coords=97,1,103,10 href="java script:pick('#66FF00')" shape=RECT><AREA
coords=105,1,111,10 href="java script:pick('#66FF33')" shape=RECT><AREA
coords=113,1,119,10 href="java script:pick('#66FF66')" shape=RECT><AREA
coords=121,1,127,10 href="java script:pick('#66FF99')" shape=RECT><AREA
coords=129,1,135,10 href="java script:pick('#66FFCC')" shape=RECT><AREA
coords=137,1,143,10 href="java script:pick('#66FFFF')" shape=RECT><AREA
coords=145,1,151,10 href="java script:pick('#99FF00')" shape=RECT><AREA
coords=153,1,159,10 href="java script:pick('#99FF33')" shape=RECT><AREA
coords=161,1,167,10 href="java script:pick('#99FF66')" shape=RECT><AREA
coords=169,1,175,10 href="java script:pick('#99FF99')" shape=RECT><AREA
coords=177,1,183,10 href="java script:pick('#99FFCC')" shape=RECT><AREA
coords=185,1,191,10 href="java script:pick('#99FFFF')" shape=RECT><AREA
coords=193,1,199,10 href="java script:pick('#CCFF00')" shape=RECT><AREA
coords=201,1,207,10 href="java script:pick('#CCFF33')" shape=RECT><AREA
coords=209,1,215,10 href="java script:pick('#CCFF66')" shape=RECT><AREA
coords=217,1,223,10 href="java script:pick('#CCFF99')" shape=RECT><AREA
coords=225,1,231,10 href="java script:pick('#CCFFCC')" shape=RECT><AREA
coords=233,1,239,10 href="java script:pick('#CCFFFF')" shape=RECT><AREA
coords=241,1,247,10 href="java script:pick('#FFFF00')" shape=RECT><AREA
coords=249,1,255,10 href="java script:pick('#FFFF33')" shape=RECT><AREA
coords=257,1,263,10 href="java script:pick('#FFFF66')" shape=RECT><AREA
coords=265,1,271,10 href="java script:pick('#FFFF99')" shape=RECT><AREA
coords=273,1,279,10 href="java script:pick('#FFFFCC')" shape=RECT><AREA
coords=281,1,287,10 href="java script:pick('#FFFFFF')" shape=RECT><AREA
coords=1,12,7,21 href="java script:pick('#00CC00')" shape=RECT><AREA
coords=9,12,15,21 href="java script:pick('#00CC33')" shape=RECT><AREA
coords=17,12,23,21 href="java script:pick('#00CC66')" shape=RECT><AREA
coords=25,12,31,21 href="java script:pick('#00CC99')" shape=RECT><AREA
coords=33,12,39,21 href="java script:pick('#00CCCC')" shape=RECT><AREA
coords=41,12,47,21 href="java script:pick('#00CCFF')" shape=RECT><AREA
coords=49,12,55,21 href="java script:pick('#33CC00')" shape=RECT><AREA
coords=57,12,63,21 href="java script:pick('#33CC33')" shape=RECT><AREA
coords=65,12,71,21 href="java script:pick('#33CC66')" shape=RECT><AREA
coords=73,12,79,21 href="java script:pick('#33CC99')" shape=RECT><AREA
coords=81,12,87,21 href="java script:pick('#33CCCC')" shape=RECT><AREA
coords=89,12,95,21 href="java script:pick('#33CCFF')" shape=RECT><AREA
coords=97,12,103,21 href="java script:pick('#66CC00')" shape=RECT><AREA
coords=105,12,111,21 href="java script:pick('#66CC33')" shape=RECT><AREA
coords=113,12,119,21 href="java script:pick('#66CC66')" shape=RECT><AREA
coords=121,12,127,21 href="java script:pick('#66CC99')" shape=RECT><AREA
coords=129,12,135,21 href="java script:pick('#66CCCC')" shape=RECT><AREA
coords=137,12,143,21 href="java script:pick('#66CCFF')" shape=RECT><AREA
coords=145,12,151,21 href="java script:pick('#99CC00')" shape=RECT><AREA
coords=153,12,159,21 href="java script:pick('#99CC33')" shape=RECT><AREA
coords=161,12,167,21 href="java script:pick('#99CC66')" shape=RECT><AREA
coords=169,12,175,21 href="java script:pick('#99CC99')" shape=RECT><AREA
coords=177,12,183,21 href="java script:pick('#99CCCC')" shape=RECT><AREA
coords=185,12,191,21 href="java script:pick('#99CCFF')" shape=RECT><AREA
coords=193,12,199,21 href="java script:pick('#CCCC00')" shape=RECT><AREA
coords=201,12,207,21 href="java script:pick('#CCCC33')" shape=RECT><AREA
coords=209,12,215,21 href="java script:pick('#CCCC66')" shape=RECT><AREA
coords=217,12,223,21 href="java script:pick('#CCCC99')" shape=RECT><AREA
coords=225,12,231,21 href="java script:pick('#CCCCCC')" shape=RECT><AREA
coords=233,12,239,21 href="java script:pick('#CCCCFF')" shape=RECT><AREA
coords=241,12,247,21 href="java script:pick('#FFCC00')" shape=RECT><AREA
coords=249,12,255,21 href="java script:pick('#FFCC33')" shape=RECT><AREA
coords=257,12,263,21 href="java script:pick('#FFCC66')" shape=RECT><AREA
coords=265,12,271,21 href="java script:pick('#FFCC99')" shape=RECT><AREA
coords=273,12,279,21 href="java script:pick('#FFCCCC')" shape=RECT><AREA
coords=281,12,287,21 href="java script:pick('#FFCCFF')" shape=RECT><AREA
coords=1,23,7,32 href="java script:pick('#009900')" shape=RECT><AREA
coords=9,23,15,32 href="java script:pick('#009933')" shape=RECT><AREA
coords=17,23,23,32 href="java script:pick('#009966')" shape=RECT><AREA
coords=25,23,31,32 href="java script:pick('#009999')" shape=RECT><AREA
coords=33,23,39,32 href="java script:pick('#0099CC')" shape=RECT><AREA
coords=41,23,47,32 href="java script:pick('#0099FF')" shape=RECT><AREA
coords=49,23,55,32 href="java script:pick('#339900')" shape=RECT><AREA
coords=57,23,63,32 href="java script:pick('#339933')" shape=RECT><AREA
coords=65,23,71,32 href="java script:pick('#339966')" shape=RECT><AREA
coords=73,23,79,32 href="java script:pick('#339999')" shape=RECT><AREA
coords=81,23,87,32 href="java script:pick('#3399CC')" shape=RECT><AREA
coords=89,23,95,32 href="java script:pick('#3399FF')" shape=RECT><AREA
coords=97,23,103,32 href="java script:pick('#669900')" shape=RECT><AREA
coords=105,23,111,32 href="java script:pick('#669933')" shape=RECT><AREA
coords=113,23,119,32 href="java script:pick('#669966')" shape=RECT><AREA
coords=121,23,127,32 href="java script:pick('#669999')" shape=RECT><AREA
coords=129,23,135,32 href="java script:pick('#6699CC')" shape=RECT><AREA
coords=137,23,143,32 href="java script:pick('#6699FF')" shape=RECT><AREA
coords=145,23,151,32 href="java script:pick('#999900')" shape=RECT><AREA
coords=153,23,159,32 href="java script:pick('#999933')" shape=RECT><AREA
coords=161,23,167,32 href="java script:pick('#999966')" shape=RECT><AREA
coords=169,23,175,32 href="java script:pick('#999999')" shape=RECT><AREA
coords=177,23,183,32 href="java script:pick('#9999CC')" shape=RECT><AREA
coords=185,23,191,32 href="java script:pick('#9999FF')" shape=RECT><AREA
coords=193,23,199,32 href="java script:pick('#CC9900')" shape=RECT><AREA
coords=201,23,207,32 href="java script:pick('#CC9933')" shape=RECT><AREA
coords=209,23,215,32 href="java script:pick('#CC9966')" shape=RECT><AREA
coords=217,23,223,32 href="java script:pick('#CC9999')" shape=RECT><AREA
coords=225,23,231,32 href="java script:pick('#CC99CC')" shape=RECT><AREA
coords=233,23,239,32 href="java script:pick('#CC99FF')" shape=RECT><AREA
coords=241,23,247,32 href="java script:pick('#FF9900')" shape=RECT><AREA
coords=249,23,255,32 href="java script:pick('#FF9933')" shape=RECT><AREA
coords=257,23,263,32 href="java script:pick('#FF9966')" shape=RECT><AREA
coords=265,23,271,32 href="java script:pick('#FF9999')" shape=RECT><AREA
coords=273,23,279,32 href="java script:pick('#FF99CC')" shape=RECT><AREA
coords=281,23,287,32 href="java script:pick('#FF99FF')" shape=RECT><AREA
coords=1,34,7,43 href="java script:pick('#006600')" shape=RECT><AREA
coords=9,34,15,43 href="java script:pick('#006633')" shape=RECT><AREA
coords=17,34,23,43 href="java script:pick('#006666')" shape=RECT><AREA
coords=25,34,31,43 href="java script:pick('#006699')" shape=RECT><AREA
coords=33,34,39,43 href="java script:pick('#0066CC')" shape=RECT><AREA
coords=41,34,47,43 href="java script:pick('#0066FF')" shape=RECT><AREA
coords=49,34,55,43 href="java script:pick('#336600')" shape=RECT><AREA
coords=57,34,63,43 href="java script:pick('#336633')" shape=RECT><AREA
coords=65,34,71,43 href="java script:pick('#336666')" shape=RECT><AREA
coords=73,34,79,43 href="java script:pick('#336699')" shape=RECT><AREA
coords=81,34,87,43 href="java script:pick('#3366CC')" shape=RECT><AREA
coords=89,34,95,43 href="java script:pick('#3366FF')" shape=RECT><AREA
coords=97,34,103,43 href="java script:pick('#666600')" shape=RECT><AREA
coords=105,34,111,43 href="java script:pick('#666633')" shape=RECT><AREA
coords=113,34,119,43 href="java script:pick('#666666')" shape=RECT><AREA
coords=121,34,127,43 href="java script:pick('#666699')" shape=RECT><AREA
coords=129,34,135,43 href="java script:pick('#6666CC')" shape=RECT><AREA
coords=137,34,143,43 href="java script:pick('#6666FF')" shape=RECT><AREA
coords=145,34,151,43 href="java script:pick('#996600')" shape=RECT><AREA
coords=153,34,159,43 href="java script:pick('#996633')" shape=RECT><AREA
coords=161,34,167,43 href="java script:pick('#996666')" shape=RECT><AREA
coords=169,34,175,43 href="java script:pick('#996699')" shape=RECT><AREA
coords=177,34,183,43 href="java script:pick('#9966CC')" shape=RECT><AREA
coords=185,34,191,43 href="java script:pick('#9966FF')" shape=RECT><AREA
coords=193,34,199,43 href="java script:pick('#CC6600')" shape=RECT><AREA
coords=201,34,207,43 href="java script:pick('#CC6633')" shape=RECT><AREA
coords=209,34,215,43 href="java script:pick('#CC6666')" shape=RECT><AREA
coords=217,34,223,43 href="java script:pick('#CC6699')" shape=RECT><AREA
coords=225,34,231,43 href="java script:pick('#CC66CC')" shape=RECT><AREA
coords=233,34,239,43 href="java script:pick('#CC66FF')" shape=RECT><AREA
coords=241,34,247,43 href="java script:pick('#FF6600')" shape=RECT><AREA
coords=249,34,255,43 href="java script:pick('#FF6633')" shape=RECT><AREA
coords=257,34,263,43 href="java script:pick('#FF6666')" shape=RECT><AREA
coords=265,34,271,43 href="java script:pick('#FF6699')" shape=RECT><AREA
coords=273,34,279,43 href="java script:pick('#FF66CC')" shape=RECT><AREA
coords=281,34,287,43 href="java script:pick('#FF66FF')" shape=RECT><AREA
coords=1,45,7,54 href="java script:pick('#003300')" shape=RECT><AREA
coords=9,45,15,54 href="java script:pick('#003333')" shape=RECT><AREA
coords=17,45,23,54 href="java script:pick('#003366')" shape=RECT><AREA
coords=25,45,31,54 href="java script:pick('#003399')" shape=RECT><AREA
coords=33,45,39,54 href="java script:pick('#0033CC')" shape=RECT><AREA
coords=41,45,47,54 href="java script:pick('#0033FF')" shape=RECT><AREA
coords=49,45,55,54 href="java script:pick('#333300')" shape=RECT><AREA
coords=57,45,63,54 href="java script:pick('#333333')" shape=RECT><AREA
coords=65,45,71,54 href="java script:pick('#333366')" shape=RECT><AREA
coords=73,45,79,54 href="java script:pick('#333399')" shape=RECT><AREA
coords=81,45,87,54 href="java script:pick('#3333CC')" shape=RECT><AREA
coords=89,45,95,54 href="java script:pick('#3333FF')" shape=RECT><AREA
coords=97,45,103,54 href="java script:pick('#663300')" shape=RECT><AREA
coords=105,45,111,54 href="java script:pick('#663333')" shape=RECT><AREA
coords=113,45,119,54 href="java script:pick('#663366')" shape=RECT><AREA
coords=121,45,127,54 href="java script:pick('#663399')" shape=RECT><AREA
coords=129,45,135,54 href="java script:pick('#6633CC')" shape=RECT><AREA
coords=137,45,143,54 href="java script:pick('#6633FF')" shape=RECT><AREA
coords=145,45,151,54 href="java script:pick('#993300')" shape=RECT><AREA
coords=153,45,159,54 href="java script:pick('#993333')" shape=RECT><AREA
coords=161,45,167,54 href="java script:pick('#993366')" shape=RECT><AREA
coords=169,45,175,54 href="java script:pick('#993399')" shape=RECT><AREA
coords=177,45,183,54 href="java script:pick('#9933CC')" shape=RECT><AREA
coords=185,45,191,54 href="java script:pick('#9933FF')" shape=RECT><AREA
coords=193,45,199,54 href="java script:pick('#CC3300')" shape=RECT><AREA
coords=201,45,207,54 href="java script:pick('#CC3333')" shape=RECT><AREA
coords=209,45,215,54 href="java script:pick('#CC3366')" shape=RECT><AREA
coords=217,45,223,54 href="java script:pick('#CC3399')" shape=RECT><AREA
coords=225,45,231,54 href="java script:pick('#CC33CC')" shape=RECT><AREA
coords=233,45,239,54 href="java script:pick('#CC33FF')" shape=RECT><AREA
coords=241,45,247,54 href="java script:pick('#FF3300')" shape=RECT><AREA
coords=249,45,255,54 href="java script:pick('#FF3333')" shape=RECT><AREA
coords=257,45,263,54 href="java script:pick('#FF3366')" shape=RECT><AREA
coords=265,45,271,54 href="java script:pick('#FF3399')" shape=RECT><AREA
coords=273,45,279,54 href="java script:pick('#FF33CC')" shape=RECT><AREA
coords=281,45,287,54 href="java script:pick('#FF33FF')" shape=RECT><AREA
coords=1,56,7,65 href="java script:pick('#000000')" shape=RECT><AREA
coords=9,56,15,65 href="java script:pick('#000033')" shape=RECT><AREA
coords=17,56,23,65 href="java script:pick('#000066')" shape=RECT><AREA
coords=25,56,31,65 href="java script:pick('#000099')" shape=RECT><AREA
coords=33,56,39,65 href="java script:pick('#0000CC')" shape=RECT><AREA
coords=41,56,47,65 href="java script:pick('#0000FF')" shape=RECT><AREA
coords=49,56,55,65 href="java script:pick('#330000')" shape=RECT><AREA
coords=57,56,63,65 href="java script:pick('#330033')" shape=RECT><AREA
coords=65,56,71,65 href="java script:pick('#330066')" shape=RECT><AREA
coords=73,56,79,65 href="java script:pick('#330099')" shape=RECT><AREA
coords=81,56,87,65 href="java script:pick('#3300CC')" shape=RECT><AREA
coords=89,56,95,65 href="java script:pick('#3300FF')" shape=RECT><AREA
coords=97,56,103,65 href="java script:pick('#660000')" shape=RECT><AREA
coords=105,56,111,65 href="java script:pick('#660033')" shape=RECT><AREA
coords=113,56,119,65 href="java script:pick('#660066')" shape=RECT><AREA
coords=121,56,127,65 href="java script:pick('#660099')" shape=RECT><AREA
coords=129,56,135,65 href="java script:pick('#6600CC')" shape=RECT><AREA
coords=137,56,143,65 href="java script:pick('#6600FF')" shape=RECT><AREA
coords=145,56,151,65 href="java script:pick('#990000')" shape=RECT><AREA
coords=153,56,159,65 href="java script:pick('#990033')" shape=RECT><AREA
coords=161,56,167,65 href="java script:pick('#990066')" shape=RECT><AREA
coords=169,56,175,65 href="java script:pick('#990099')" shape=RECT><AREA
coords=177,56,183,65 href="java script:pick('#9900CC')" shape=RECT><AREA
coords=185,56,191,65 href="java script:pick('#9900FF')" shape=RECT><AREA
coords=193,56,199,65 href="java script:pick('#CC0000')" shape=RECT><AREA
coords=201,56,207,65 href="java script:pick('#CC0033')" shape=RECT><AREA
coords=209,56,215,65 href="java script:pick('#CC0066')" shape=RECT><AREA
coords=217,56,223,65 href="java script:pick('#CC0099')" shape=RECT><AREA
coords=225,56,231,65 href="java script:pick('#CC00CC')" shape=RECT><AREA
coords=233,56,239,65 href="java script:pick('#CC00FF')" shape=RECT><AREA
coords=241,56,247,65 href="java script:pick('#FF0000')" shape=RECT><AREA
coords=249,56,255,65 href="java script:pick('#FF0033')" shape=RECT><AREA
coords=257,56,263,65 href="java script:pick('#FF0066')" shape=RECT><AREA
coords=265,56,271,65 href="java script:pick('#FF0099')" shape=RECT><AREA
coords=273,56,279,65 href="java script:pick('#FF00CC')" shape=RECT><AREA
coords=281,56,287,65 href="java script:pick('#FF00FF')"
shape=RECT></MAP></B>
</TD></TR></TBODY></TABLE>
<TABLE align=center border=1 borderColorDark=#ffffff borderColorLight=#000000
cellPadding=2 cellSpacing=0 width=100%>
<TBODY>
<TR>
<TD align=middle vAlign=center>
<TABLE align=center border=1 borderColorDark=#ffffff
borderColorLight=#000000 cellPadding=2 cellSpacing=0 width=100%>
<TBODY>
<TR>
<TD>$lan_require_name</TD>
<TD>
|;
&prt_ckb($require_name, 'require_name', '');
print qq|
</TD></TR><TR>
<TD>$lan_require_subject</TD>
<TD>
|;
&prt_ckb($require_subject, 'require_subject', '');
print qq|
</TD></TR><TR>
<TD>$lan_require_email</TD>
<TD>
|;
&prt_ckb($require_email, 'require_email', '');
print qq|
</TD></TR><TR>
<TD>$allow_users</TD>
<TD>
|;
&prt_ckb($replymail, 'replymail', '');
print qq|
</TD></TR><TR>
<TD>$allow_html</TD>
<TD>
|;
&prt_ckb($html, 'allow_HTML', '');
print qq|
</TD></TR><TR>
<TD>$max_num_threads</TD>
<TD><input type=text size=5 name=maxthreads value=$maxthreads></TD></TR>
<TR>
<TD>$max_per_page</TD>
<TD><input type=text size=5 name=max value=$max></TD></TR>
<TR>
<TD>$max_rep_per_page</TD>
<TD><input type=text size=5 name=max_reply value=$max_reply>
</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
|;
    }

sub prt_ckb {
local ($var, $varname, $ckbdesc) = @_;
print "\n<INPUT TYPE=\"CHECKBOX\" NAME=\"$varname\" VALUE=\"1\"";
if ($var eq "1") {print " CHECKED";}
print ">&nbsp;$ckbdesc";
}

sub error {
local ($updact) = @_;
&header;
print "<center><p><h1>$denied</h1></p>\n";
print "</body></html>\n";
exit;
}

sub header {
print "content-type: text/html\n\n";
print qq|
<html><head><title>$title</title>
<style><!--BODY{font-family:Verdana, Arial, Helvetica, sans-serif;font-size:12px;}
P,A,BR,UL,OL,TD,TH,LI,SMALL,BLOCKQUOTE,H1,H2,H3,B,{font-family:Verdana, Arial, Helvetica, sans-serif;font-size:12px;}-->
</style></head><body bgcolor="#F5F5F5" text="#000000" link="#000099"><center>
|;
}
sub pass_retriever {
&header;
print qq|
<form action=$cgiurl/ezpwhmpg.$ext method=POST>
<input type=hidden name=userdir value="">
<TABLE border=0 cellPadding=0 cellSpacing=0 height=100% width=100%>
<TBODY><TR><TD><TABLE align=center bgColor=#F5F5F5 border=1 borderColorDark=#ffffff
borderColorLight=#000000 cellPadding=5 cellSpacing=0 width=320><TBODY><TR><TD><DIV align=center>
<TABLE border=0 cellPadding=3 cellSpacing=0><TBODY><TR><TD>
<TABLE bgColor=#F5F5F5 border=1 borderColorDark=#ffffff
borderColorLight=#000000 cellPadding=5 cellSpacing=0
width=100%><TBODY><TR align=middle>
<TD height=35 width=100% align=center><img src=$alogo alt=$title><BR>
<b>$password_retr</b><br>
$paswd_info</TD>
</TR></TBODY></TABLE></TD></TR>
<TR><TD><TABLE bgColor=#F5F5F5 border=1 borderColorDark=#ffffff
borderColorLight=#000000 cellPadding=5 cellSpacing=0 width=100%><TBODY><TR>
<TD width=100%>
<TABLE border=0 cellPadding=2 cellSpacing=0 width=100%>
<TBODY>
<TR>
<TD align=center><b>$lan_your_email :</b>
<input type=input name=mail>
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR></TBODY></TABLE></TD></TR><TR><TD align=right>
<TABLE bgColor=#F5F5F5 border=1 borderColorDark=#ffffff borderColorLight=#000000 cellPadding=5 cellSpacing=0
width=100%><TBODY><TR>
<TD align=center vAlign=center width=100%>
<input type=submit name=action value=$lan_submit>
</TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></FORM></body></html>
|;
}
Avatar billede jespernaur Nybegynder
04. august 2002 - 16:51 #2
Den prøver på at skabe (åbne for skrivning) den nævnte fil

    /home/www/gamespace.amok.dk/forum/test/myconfig.txt

Kan der være tale om, at dit script ikke har rettigheder til dette?
Avatar billede 93a12 Nybegynder
04. august 2002 - 17:30 #3
det tror ikke jeg for den har fået skrive rettigheder
Avatar billede terra Nybegynder
05. august 2002 - 00:12 #4
Sist jeg har prøvd, så la jeg merke til at den pøver å skrive til filen myconfig.txt i directorynavn=brukernavn se:
>/home/www/gamespace.amok.dk/forum/test/myconfig.txt
her brukte du 'test' som brukernavn stemmer (?)
Kan det være at du skal oprette en myconfig.txt fil for hver bruker
i : http://www.gamespace.amok.dk/forum/brukernavn/ (?)
Avatar billede 93a12 Nybegynder
06. august 2002 - 14:57 #5
Fandt selv fejlen sammen med en ven ;-)
Avatar billede terra Nybegynder
06. august 2002 - 17:28 #6
og så... hva fant du ut med vennen din? :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Andet programmering kategorien

Titel Indlæg Oprettet Seneste aktivitet
Bat file. Af johnnylassen i Andet programmering 4 23/04/202616:10 21/08/202611:03
Hjælp til Api.asmx Af lurup i Andet programmering 1 17/03/202609:27 17/03/202614:12
burgermenu til hjemmeside - hjælp! Af SabrinaL i Andet programmering 2 12/11/202514:10 21/08/202611:08
Hjælp til programmering af website Af hamdenlange i Andet programmering 16 17/08/202522:26 19/08/202515:53
Kan man registrere hvis folk lukker en side ned Af KurtG i Andet programmering 8 24/07/202513:06 28/07/202517:03
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 15:02 Gemme besked fra Facebook / Messenger Af lurup i Sociale medier
29/0820:17 Kan man kopiere en DVD og afspille den på * Linux Mint - Cinnamon - 22.1 - "Xia" * ? Af Ikke-ekspert i Linux
27/0821:03 Kan man få Word viewer gratis Af Strawberry i Word
26/0813:28 Findes der en brugsanvisning til : "ONKYO Stereo Casette - Tape Deck - R1" Af Ikke-ekspert i Musik & videoafspillere
24/0820:07 Libra Office 26.2.5.2 - Er sort - Kan an ændre til lysere baggrund ? (Windows 11) Af Ikke-ekspert i Office & Kontorpakker
White papers
Flere white papers »