|
~;
if(($fpmconfig{'SHOW_LOGIN'} eq "yes") or ($fpmconfig{'SHOW_HOMEPAGE'} eq "yes")){
print " "; } if($fpmconfig{'SHOW_LOGIN'} eq "yes"){ print qq~ [$fpmlang{'ADMIN'}] ~; } if($fpmconfig{'SHOW_HOMEPAGE'} eq "yes"){ print qq~ [$fpmlang{'HOMEPAGE'}] ~; } print qq~ $tdpn |
| $tdpn |
\n"; $info .= qq(); $info =~ s/\t//g; $info_title = "$fpmlang{'PLEASE_FILL_IN_ALL'}"; &info; # Break here if invalid } } foreach(@fields){ chomp $_; my @cont = split(/\|/, $_); if(($cont[0] ne "submit") and ($cont[0] ne "reset") and ($cont[0] ne "button")){ if($cont[9] eq "on"){ push @active_fields, $cont[1]; $active_field_captions{$cont[1]} = $cont[8]; } if(($cont[14] eq "yes") and ($cont[1] ne "fpm_antispam")){ push @required_fields, $cont[1]; } } } foreach(@required_fields){ my $feld_wert = $cgi->param($_); if((!$feld_wert) or ($feld_wert =~ /^\s*?$/g) or ($feld_wert =~ /^\n*?$/g)){ $feld_wert = "$fpmlang{'REQUIRED'}"; push @empty_required_fields, $_; $info .= "" . $active_field_captions{$_} . ": " . $feld_wert . "
\n"; } } if(@empty_required_fields > 0){ $info .= "
$fpmlang{'GO_BACK_AND_FILL_IN'} "; if(@empty_required_fields == 1){ $info .= $fpmlang{'THIS_FIELD'}; } else{ $info .= $fpmlang{'THESE_FIELDS'}; } $info .= "
\n"; $info .= qq(); $info =~ s/\t//g; $info_title = "$fpmlang{'PLEASE_FILL_IN_ALL'}"; &info; } } ########### Sub Safe Input ############################################# sub safe{ $_[1] =~ s//>/g; $_[1] =~ s/\"/"/g; $_[1] =~ s/\|/&\#5;/g; } ################### Set Cookie ######################################### sub set_cookie{ my @nums = ("a" .. "z", "0" .. "9"); $random_num = join ("", @nums[map{rand @nums}(1 .. 8)]); ################### Cookie setzen ############################## my $cookie_to_set = cookie( -NAME => "FPM", -VALUE => "$random_num"); print header(-COOKIE => $cookie_to_set); ################################################################ } ########### Send now ################################################### sub sendnow{ if($demo == 1){ $info_title = "Permission denied!"; $info = $demo_msg_2; &info; } &read_files; &check_input; # Break here if invalid if($fpmconfig{'ANTI_SPAM'} == 1){ $conttype = ""; # Header is printed by set_cookie &set_cookie; } my ($his_message, $logs); my $my_email = $fpmconfig{'OWNER_EMAIL'}; if((!$my_email) or ($my_email eq "you\@yourserver.com")){ $info = qq(Sorry!
\n The message could not be sent, because the webmaster did not enter a correct e-mail address.
\n Please inform him/her about this error!); &info; } if($fpmconfig{'SEND_HTML_MAIL'} eq "yes"){ my $his_message_body; my $his_message_head = qq(
| IP: | $ip |
\n/g; $his_message_body .= qq(
$fpmlang{'THANK_TITLE'}
|
||
| $tdpn |
|
~;
if($fpmskin{'TITLE_IMAGE_URL'}){
print qq~
~; } else{ if($fpmlang{'TITLE'}){ print qq~ $fpmlang{'TITLE'} - Control Panel ~; } else{ print qq~ Free Perl Mailer - Control Panel ~; } } print qq~
~; } print qq~ |
||||
| $tdpn |
| $tdpn |
The current password is tridung
[go back]); &info; } if(!$new_password){ $info = qq(The field Password cannot be blank!
You must enter a password to protect your FPM!
[go back]); &info; } my @params = $cgi->param(); my %fpmconfig; foreach(@params){ my $feld_wert = $cgi->param($_); &safe($_, $feld_wert); #safe input $fpmconfig{$_} = $feld_wert; } if(!$fpmconfig{'fpm_owner_name'}){ $info = qq(The field Your Name cannot be blank!
[go back]); &info; } if(!$fpmconfig{'fpm_owner_email'}){ $info = qq(The field Your E-Mail cannot be blank!
[go back]); &info; } elsif($fpmconfig{'fpm_owner_email'} eq 'you@yourserver.com'){ $info = qq(The field Your E-Mail contains an invalid e-mail address ($fpmconfig{'fpm_owner_email'})!
It's strongly recommended that you enter your e-mail address, where all messages will be sent to.
[go back]); &info; } if($fpmconfig{'fpm_preview'}){ $fpmconfig{'fpm_preview'} = "yes"; } else{ $fpmconfig{'fpm_preview'} = "no"; } if($fpmconfig{'fpm_vietnamese_writing'}){ $fpmconfig{'fpm_vietnamese_writing'} = "yes"; if(!$fpmconfig{'fpm_writing_tool'}){ $info = qq(The field Vietnamese Typing Tool URL cannot be blank while the field Vietnamese Typing is checked!
[go back]); &info; } } else{ $fpmconfig{'fpm_vietnamese_writing'} = "no"; } if($fpmconfig{'fpm_send_html_mail'}){ $fpmconfig{'fpm_send_html_mail'} = "yes"; } else{ $fpmconfig{'fpm_send_html_mail'} = "no"; } if($fpmconfig{'fpm_write_logs'}){ $fpmconfig{'fpm_write_logs'} = "yes"; } else{ $fpmconfig{'fpm_write_logs'} = "no"; } if(($fpmconfig{'fpm_write_logs_mode'} ne "daily") and ($fpmconfig{'fpm_write_logs_mode'} ne "monthly")){ $fpmconfig{'fpm_write_logs_mode'} = "default"; } if($fpmconfig{'fpm_collect_emails'}){ $fpmconfig{'fpm_collect_emails'} = "yes"; } else{ $fpmconfig{'fpm_collect_emails'} = "no"; } if($fpmconfig{'fpm_antispam'}){ $fpmconfig{'fpm_antispam'} = "1"; } else{ $fpmconfig{'fpm_antispam'} = "0"; } if($fpmconfig{'fpm_show_login'}){ $fpmconfig{'fpm_show_login'} = "yes"; } else{ $fpmconfig{'fpm_show_login'} = "no"; } if($fpmconfig{'fpm_show_homepage'}){ $fpmconfig{'fpm_show_homepage'} = "yes"; } else{ $fpmconfig{'fpm_show_homepage'} = "no"; } if($fpmconfig{'fpm_update_service'}){ $fpmconfig{'fpm_update_service'} = "hidden"; } else{ $fpmconfig{'fpm_update_service'} = "show"; } my $config_file = qq(OWNER_NAME<==>$fpmconfig{'fpm_owner_name'} OWNER_EMAIL<==>$fpmconfig{'fpm_owner_email'} HOMEPAGE<==>$fpmconfig{'fpm_homepage'} PREVIEW<==>$fpmconfig{'fpm_preview'} VIETNAMESE_WRITING<==>$fpmconfig{'fpm_vietnamese_writing'} WRITING_TOOL<==>$fpmconfig{'fpm_writing_tool'} SEND_HTML_MAIL<==>$fpmconfig{'fpm_send_html_mail'} WRITE_LOGS<==>$fpmconfig{'fpm_write_logs'} WRITE_LOGS_MODE<==>$fpmconfig{'fpm_write_logs_mode'} COLLECT_EMAILS<==>$fpmconfig{'fpm_collect_emails'} ANTI_SPAM<==>$fpmconfig{'fpm_antispam'} SHOW_LOGIN<==>$fpmconfig{'fpm_show_login'} SHOW_HOMEPAGE<==>$fpmconfig{'fpm_show_homepage'} UPDATE_SERVICE<==>$fpmconfig{'fpm_update_service'} UPDATE_SERVICE_MAIL<==> ); $config_file =~ s/\t//g; open(DH, ">$config") or die "Cannot open $config! $!"; print DH $config_file; close(DH); my $crypted_password = crypt($new_password, "td"); open(DH, ">$passfile") or die "Cannot open $passfile! $!"; print DH $crypted_password; close(DH); $info_title = "Free Perl Mailer - Control Panel"; $info_color = "$fpmskin{'TABLE_BGCOLOR'}"; $info = qq( ); &info; } ########### Edit Languages ############################################# sub edit_lang{ &read_files; my $password = $cgi->param('password'); print $conttype; print qq~
| $tdpn |
); } elsif($blank_num == 1){ $error_msg = qq(Attention: $blank_num field was blank!
); } my $lang_file = qq(English for FPM Version 1.0 Author: Tri Dung Nguyen Internet: www.vitinh.de CHARSET<==>$fpmlang{'charset'} TITLE<==>$fpmlang{'fpm_title'} TEXT<==>$fpmlang{'fpm_text'} REQUIRED<==>$fpmlang{'fpm_required'} PLEASE_FILL_IN_ALL<==>$fpmlang{'fpm_please_fill_in_all'} GO_BACK_AND_FILL_IN<==>$fpmlang{'fpm_go_back_and_fill_in'} THIS_FIELD<==>$fpmlang{'fpm_this_field'} THESE_FIELDS<==>$fpmlang{'fpm_these_fields'} CLICK_HERE<==>$fpmlang{'fpm_click_here'} GO_BACK<==>$fpmlang{'fpm_go_back'} CONTINUE<==>$fpmlang{'fpm_continue'} SEND_NOW<==>$fpmlang{'fpm_send_now'} PREVIEW<==>$fpmlang{'fpm_preview'} PREVIEW_MSG<==>$fpmlang{'fpm_preview_msg'} PREVIEW_MSG_2<==>$fpmlang{'fpm_preview_msg_2'} THANK_TITLE<==>$fpmlang{'fpm_thank_title'} THANK_MSG<==>$fpmlang{'fpm_thank_msg'} SUCCESSFULLY_SENT<==>$fpmlang{'fpm_successfully_sent'} ANTI_SPAM_MSG<==>$fpmlang{'fpm_anti_spam_msg'} ANTI_SPAM_MSG_2<==>$fpmlang{'fpm_anti_spam_msg_2'} ANTI_SPAM_MSG_3<==>$fpmlang{'fpm_anti_spam_msg_3'} ANTI_SPAM_MSG_4<==>$fpmlang{'fpm_anti_spam_msg_4'} ADMIN<==>$fpmlang{'fpm_admin'} HOMEPAGE<==>$fpmlang{'fpm_homepage'} VIETNAMESE<==>$fpmlang{'fpm_vietnamese'} ); $lang_file =~ s/\t//g; open(DH, ">$language") or die "Cannot open $language! $!"; print DH $lang_file; close(DH); $info_title = "Free Perl Mailer - Control Panel"; $info_color = "$fpmskin{'TABLE_BGCOLOR'}"; $info = qq( ); &info; } ########### Edit Skin ################################################### sub edit_skin{ &read_files; my $fpm_style_sheets = $css; $fpm_style_sheets =~ s/\"/"/g; $fpm_style_sheets =~ s//>/g; my $password = $cgi->param('password'); print $conttype; print qq~
| $tdpn |
); } elsif($blank_num == 1){ $error_msg = qq(Attention: $blank_num field was blank!
); } my $skin_file = qq(Standard Skin for FPM Version $version Author: Tri Dung Nguyen Internet: www.vitinh.de BGCOLOR<==>$new_fpmskin{'fpm_bgcolor'} BACKGROUND<==>$new_fpmskin{'fpm_background'} TITLE_IMAGE_URL<==>$new_fpmskin{'fpm_title_image_url'} BIG_TABLE_BGCOLOR<==>$new_fpmskin{'fpm_big_table_bgcolor'} BIG_TABLE_BACKGROUND<==>$new_fpmskin{'fpm_big_table_background'} BIG_TABLE_WIDTH<==>$new_fpmskin{'fpm_big_table_width'} BIG_TABLE_HEIGHT<==>$new_fpmskin{'fpm_big_table_height'} BIG_TABLE_TD_HEIGHT<==>$new_fpmskin{'fpm_big_table_td_height'} BIG_TABLE_BORDER<==>$new_fpmskin{'fpm_big_table_border'} BIG_TABLE_SPACING<==>$new_fpmskin{'fpm_big_table_spacing'} BIG_TABLE_PADDING<==>$new_fpmskin{'fpm_big_table_padding'} BIG_TABLE_ALIGN<==>$new_fpmskin{'fpm_big_table_align'} BIG_TABLE_TD_ALIGN<==>$new_fpmskin{'fpm_big_table_td_align'} BIG_TABLE_VALIGN<==>$new_fpmskin{'fpm_big_table_valign'} BIG_TABLE_CLASS<==>$new_fpmskin{'fpm_big_table_class'} TABLE_BGCOLOR<==>$new_fpmskin{'fpm_table_bgcolor'} TABLE_BACKGROUND<==>$new_fpmskin{'fpm_table_background'} TABLE_TD_BGCOLOR<==>$new_fpmskin{'fpm_table_td_bgcolor'} TABLE_TD_BACKGROUND<==>$new_fpmskin{'fpm_table_td_background'} TABLE_TEXT_BGCOLOR<==>$new_fpmskin{'fpm_table_text_bgcolor'} TABLE_SUBMIT_BGCOLOR<==>$new_fpmskin{'fpm_table_submit_bgcolor'} TABLE_WIDTH<==>$new_fpmskin{'fpm_table_width'} TABLE_HEIGHT<==>$new_fpmskin{'fpm_table_height'} TABLE_BORDER<==>$new_fpmskin{'fpm_table_border'} TABLE_SPACING<==>$new_fpmskin{'fpm_table_spacing'} TABLE_PADDING<==>$new_fpmskin{'fpm_table_padding'} TABLE_ALIGN<==>$new_fpmskin{'fpm_table_align'} TABLE_TD_ALIGN<==>$new_fpmskin{'fpm_table_td_align'} TABLE_TD_VALIGN<==>$new_fpmskin{'fpm_table_td_valign'} TABLE_CLASS<==>$new_fpmskin{'fpm_table_class'} CONTROL_PANEL_WIDTH<==>$new_fpmskin{'fpm_control_panel_width'} ); $skin_file =~ s/\t//g; open(DH, ">$skin") or die "Cannot open $skin! $!"; print DH $skin_file; close(DH); open(DH, ">$style") or die "Cannot open $style! $!"; print DH $fpm_style_sheets; close(DH); $info_title = "Free Perl Mailer - Control Panel"; $info_color = "$fpmskin{'TABLE_BGCOLOR'}"; $info = qq( ); &info; } ########### Edit Inputs ################################################ sub edit_inputs{ &read_files; my $fpm_inputs = join "", @fields; $fpm_inputs =~ s//>/g; $fpm_inputs =~ s/\"/"/g; $inputs_file =~ s//>/g; $inputs_file =~ s/\"/"/g; my @temp = split(/\n/, $inputs_file); splice @temp, 0, 8; # remove the first 8 lines $inputs_file = join "\n", @temp; my $password = $cgi->param('password'); print $conttype; print qq~
| $tdpn |
"; } elsif($key eq "name"){ $error_msg .= "Text field $key not found! If you don't like to use this field, you can disable it in the configuration file.
"; } elsif($key eq "email"){ $error_msg .= "Text field $key not found! If you don't like to use this field, you can disable it in the configuration file.
"; } else{ $error_msg .= "Button $key not found!
"; } } } if($num > 0){ $info = "
" . $error_msg; $info .= qq(
Please go back and check your input for errors! ); &info; } my $inputs_file = qq(Standard Inputs for FPM Version $version Author: Tri Dung Nguyen Internet: www.vitinh.de Please do not remove or change the NAME-field of the 6 lines: name, email, fpm_antispam, submit and reset 0:TYPE|1:NAME|2:SIZE|3:VALUE|4:MAXLENGTH|5:CHECKED|6:COLS|7:ROWS|8:CAPTION|9:STATUS|10:SRC|11:ACCESSKEY|12:JAVASCRIPT|13:|14:REQUIREMENT|15:OPTIONS/RADIOS ); # 1 new line here $inputs_file .= "\n" . $fpm_inputs; $inputs_file =~ s/\t//g; open(DH, ">$inputs") or die "Cannot open $inputs! $!"; print DH $inputs_file; close(DH); $info_title = "Free Perl Mailer - Control Panel"; $info_color = "$fpmskin{'TABLE_BGCOLOR'}"; $info = qq( ); &info; } ########### Check Pass ################################################# sub pass{ my $password = $cgi->param('password'); my $your_password = crypt($password, "td"); if(not(-e $passfile)){ $passfile =~ s/$dir\///; $dir =~ s/\.\///; $info_color = "red"; $info_title = "Password check failed!"; $info = "Cannot find the password file! "; $info .= "Did you delete the file $passfile? "; $info .= qq(You must re-install FPM! Do the steps below:
- Backup all files in folder $dir
- Delete folder $dir
- Open your FPM with the browser - FPM will install itself.
- Upload all backup-files to the folder $dir and chmod them to 777
| $tdpn |
\n/g; my $pre_message = $message; $pre_message =~ s/\n/
\n/g; my $pre_subject = $subject; $pre_subject =~ s/\n/
\n/g; my $font_family = $cgi->param('font_family'); my $font_size = $cgi->param('font_size'); my $color = $cgi->param('color'); my $sign = $cgi->param('sign'); my $test_msg = $message; $test_msg =~ s/\s//g; $test_msg =~ s/\n//g; if(!$message or !$test_msg){ $info_title = "Invalid input"; $info = "No message written!"; $info .= qq(); &info; } &safe("",$greeting); &safe("",$pre_greeting); &safe("",$message); &safe("",$pre_message); &safe("",$subject); &safe("",$pre_subject); &safe("",$font_family); &safe("",$font_size); &safe("",$color); &safe("",$sign); print $conttype; print qq~
| $tdpn |
\n/g; my $my_email = $fpmconfig{'OWNER_EMAIL'}; my $font_family = $cgi->param('font_family'); my $font_size = $cgi->param('font_size'); my $color = $cgi->param('color'); my $sign = $cgi->param('sign'); ####### Load E-Mail Addresses ####################### my (@recipients, @data); open(DH, "<$mailing_list") or die "Cannot open $mailing_list! $!"; @data =
);
$letter .= $greeting;
if($insert_name eq "yes"){
$letter .= " $recipients[0]";
}
$letter .= $sign;
$letter .= qq(
$message
);
$letter =~ s/\t//g;
#$info = $letter;
#&info;
$ENV{PATH} = "";
if($SEND_MAIL){
open (MAIL,"| $SEND_MAIL $my_email");
print MAIL "To: $recipients[1]\n";
print MAIL "From: $my_email\n";
print MAIL "Reply-to: $my_email\n";
print MAIL "X-Mailer: Free Perl Mailer\n";
print MAIL "Subject: $subject\n";
print MAIL "Content-type: text/html\n\n";
print MAIL "$letter";
print MAIL "\n\n";
close (MAIL);
}
if($smtp){
$smtp->mail($my_email);
$smtp->to($recipients[1]);
$smtp->data();
$smtp->datasend("To: $recipients[1]\n");
$smtp->datasend("From: $my_email\n");
$smtp->datasend("Subject: $subject\n");
$smtp->datasend("Content-type: text/html\n\n");
$smtp->datasend("$letter\n\n");
$smtp->dataend();
$smtp->quit;
}
}
$info_title = "Successfully sent!";
$info_color = "#7083c7";
$info = qq(The message has been successfully sent to
[);
$info .= scalar @data;
$info .= qq(] recipients.$message
); &info; } ########### View Mailing List ########################################## sub view_list{ &read_files; my (@recipients, @data); open(DH, "<$mailing_list") or die "Cannot open $mailing_list! $!"; @data =
FPM Mailing List
|
||||||
| $tdpn |
Not available in this version!
); &info; } ########### Inform user ################################################ sub info{ print $conttype; print qq~
|
||
| $tdpn |