#!/usr/bin/perl #!c:/Perl/bin/Perl.exe # swap the first line and second line if the script runs on UNIX System ############################################### ### ### (c) 2012, John Jan Popovic, All Rights Reserved http://1stmuse.com ### ### ### This script may be used and modified freely ### as long as this message remains intact. # (C)2003 1st Muse # www.1stmuse.com # Author John J. Popovic # v3.0 Aug 9, 2003 # v4.0 Feb 13, 2008 ############################################### BEGIN { my $b__dir = (-d '/home/loyaltyh/perl'?'/home/loyaltyh/perl':( getpwuid($>) )[7].'/perl'); unshift @INC,$b__dir.'5/lib/perl5',$b__dir.'5/lib/perl5/x86_64-linux-thread-multi',map { $b__dir . $_ } @INC; } use CGI qw (:standard); use CGI::Carp qw(fatalsToBrowser); use lib qw(.); use CGI qw(nph); $js_path = 'http://1stmuse.com/resources'; my $q = new CGI; $script_name ="$ENV{'SCRIPT_NAME'}"; # sendmail setup $SENDMAIL = "/usr/sbin/sendmail -t"; $FROM = "fido2_News "; $REPLY_TO = "fido2_News "; # access control $ACCESS_CONTROL = 1; # set to 0 to turn off if you're using .htaccess # templates $TEMPLATE_ADD_PAGE = $INSTDIR."/mailing_templates/add.html"; $TEMPLATE_ENTER_PAGE = $INSTDIR."/mailing_templates/enter.html"; $TEMPLATE_REMOVE_PAGE = $INSTDIR."/mailing_templates/remove.html"; $TEMPLATE_ERROR_PAGE = $INSTDIR."/mailing_templates/error.html"; $TEMPLATE_ENTER_MAIL = $INSTDIR."/mailing_templates/entermail.txt"; $ENTERMAIL_SUBJECT = "fido2 NEWS - Richiesta d'iscrizione"; $TEMPLATE_ADD_MAIL = $INSTDIR."/mailing_templates/addmail.txt"; $ADDMAIL_SUBJECT = "fido2 NEWS - Iscrizione confermata "; ### Specify NEWSLETTER_database fields in the array below @fields = ( "NEWSLETTER_subject", "NEWSLETTER_body", ); ### Set URL and email fields to be hyperlinks ### The number used corresponds to its placement in the array above ### Remeber to start your count at zero ### Leave the variables empty to remove the hyperlink # $index_of_image_url = "17"; # $index2_of_image_url= "18"; $index_of_email = "15"; $index_of_URL = "16"; $homedir = $ENV{'DOCUMENT_ROOT'}; ### Specify the required fields below. This may be left empty @required = (); ### Specify the filtered words below. This may be left empty @filter = ("word1","word2"); $database = "$ENV{'DOCUMENT_ROOT'}/fido2/fido2_newsletters.txt"; # Data file OPERE name and path $MAILING_LIST = "$ENV{'DOCUMENT_ROOT'}/fido2/fido2_mailinglist.txt"; $user_file = "$ENV{'DOCUMENT_ROOT'}/fido2/users.txt"; # User file name and path # installation location $INSTDIR = "$ENV{'DOCUMENT_ROOT'}/cgi-bin/"; $INSTURL = "http://1stmuse.com/cgi-bin/"; $db_name = "Newsletter Mailer ... Constellation Systems"; # The database name $table_width = "90%"; # The display width of the entire table $record_width = "80%"; # The display width of the database records $max_rows_returned = "20"; # Max number of rows displayed per page $filter_html_tags = "no"; # Removes HTML tags from record entries $check_user_duplicates = "yes"; # Checks for duplicate user names in user file @extra_user_fields = ("Email"); # Additional info needed when registering users $use_external_html = "no"; # Set to "yes" to use your own html template $external_html_header = "header.html"; # File name and path to html template header $external_html_footer = "footer.html"; # File name and path to html template footer $authenticate = "yes"; # Prompts users for a user name and password $register = "yes"; # Allows new user registration $record_ownership = "no"; # Users can modify/delete only their records $admin_user_name = "admin"; # This is the default Administrator user name $default_user_permission_search = "yes"; # Gives newly registered users Search permission $default_user_permission_add = "yes"; # Gives newly registered users Add permission $default_user_permission_modify = "no"; # Gives newly registered users Modify permission $default_user_permission_delete = "no"; # Gives newly registered users Delete permission $defult_search_index = "0"; ############################################### ### Change Nothing Below This Line ############################################### ############## Global Viariables ################## $field_count = @fields; $colspan = $field_count+1; $EXCLUSIVE = 2; $UNLOCK = 8; $user = $q->param(user); $user = $q->cookie(user) if($user eq ""); $user_search = $q->param(user_search); $user_search = "yes" if($authenticate eq "no"); $user_add = $q->param(user_add); $user_add = "yes" if($authenticate eq "no"); $user_trans = $q->param(user_trans); $user_trans = "yes" if($authenticate eq "no"); $user_modify = $q->param(user_modify); $user_modify = "yes" if($authenticate eq "no"); $user_delete = $q->param(user_delete); $user_delete = "yes" if($authenticate eq "no"); $selected_user = $q->param(selected_user); $admin_add = $q->param(admin_add); $sort = $q->param(sort_on); $search_for = $q->param(search_for); $Supply = $q->param(Supply); $search_field = $q->param(search_field); $action = $q->param(action); $display = $q->param(display); @keys = $q->param(key); $key = $q->param(key); $key_matches = @keys; $search_field = "all" if($search_field eq ""); $search_for = '.' if ($search_for eq ""); $action = $q->param(which_search) if($action =~ /^View/i); $find_ = $q->param(find_); $id_ = $q->param(id_); $filter_ = $q->param(filter_); $search_field_ = $q->param(search_field_); ################# Main Logic ################## if($q->param('operation') eq 'opere') { $action='opere'}; if($q->param('operation') eq 'logout') { $action='logout'}; if($q->param('operation') eq 'main_menu') { $action='Main Menu'}; if($q->param('operation') eq 'search') { $action='search'}; ######## ######## if($action =~ /add administrator/i){ &add_user; exit;} if ($authenticate eq "yes"){ unless (-e $user_file){ $title="Set Administrative Password"; &create_admin; } } if($register eq "yes" && $action =~ /register/i){ ®ister; exit;} if($action =~ /add user/i){ &add_user; exit;} if($action =~ /submit login/i){ &authenticate; exit;} if ($authenticate eq "yes" && $user eq ""){ &login; exit;} if($action =~ /logout/i){ &logout; exit;} if($authenticate eq "yes"){ # the following operations can be performed, only if AUTHENTICATION IS VALID if($q->param('operation') eq 'search') { $action='search'; my $buffer; my $id = 0; my $filter_ = $q->param('filter_'); my $find_ = $q->param('find_'); my $search_field_ = $q->param('search_field_'); my $id_ = $q->param('id_'); my $user_ = $q->param('user_'); $search_for = $find_; $user=$user_; $search_field = $search_field_; # $id = 12345; } if($q->param('operation') eq 'email_search_') { $action='email_search_'; my $buffer; my $id = 0; my $filter_ = $q->param('filter_'); my $find_ = $q->param('find_'); my $search_field_ = $q->param('search_field_'); my $id_ = $q->param('id_'); my $user_ = $q->param('user_'); $search_for = $find_; $user=$user_; $search_field = $search_field_; # $id = 12345; } if($q->param('operation') eq 'main_menu') { $action='main_menu'; my $buffer; my $user_ = $q->param('user_'); $search_for = $find_; $user=$user_; } if($q->param('operation') eq 'send_newsletter') { $action='send_newsletter'; } if($action =~ /nuovo/i){ &print_add_screen;} elsif($action =~ /add this record/i){ &add_record; $message="Record Added"; $title="Main Menu"; &print_default($title, $message);} elsif($action =~ /conferma opera/i){ &add_record; $message="Record Added"; $title="Main Menu"; &print_default($title, $message);} elsif($action =~ /opere/i){ $title="opere"; &print_default($title,$message); } elsif($action =~ /create_newsletter/i){$title="create_newsletter"; &create_newsletter_page($title,$message); } elsif($action =~ /send_newsletter/i){$title="send_newsletter"; &broadcast_newsletter($title,$message); } elsif($action =~ /salva_scheda/i){ &add_record; $message="Newsletter added to archive"; $title="Main Menu"; &print_default($title, $message);} elsif($action =~ /modify record/i){ $title="Modification Error"; $error_message="You forgot to select a record to modify!"; &access_problem if($key < 1); &search_db($key); &print_modify_page;} elsif($action =~ /modifica_opera/i){ $title="Modification Error"; $error_message="You forgot to select a record to modify!"; &access_problem if($key < 1); &search_db($key); &print_modify_page;} elsif($action =~ /modify this record/i){ $title="Modify"; &delete_records; $key=$keys[0]; &add_record; &print_default($title, $message);} elsif($action =~ /conferma_modifica/i){ $title="Modify"; &delete_records; $key=$keys[0]; &add_record; &print_default($title, $message);} elsif($action =~ /delete record/i){ $title="Delete Record"; $error_message="You forgot to select a record to delete!"; &access_problem if($key < 1); &delete_records; $message="Record Deleted"; $title="Main Menu"; &print_default($title, $message);} elsif($action =~ /modify/i){ &search_db($search_for); $title="Modify Which Record?"; $button_text="Modify Record"; $choose="modify"; &search_results;} elsif($action =~ /avanti/i){ &search_db($search_for); $title="Modify Which Record?"; $button_text="Modify Record"; $choose="modify"; &search_results;} elsif($action =~ /delete/i){ &search_db($search_for); $title="Delete Which Record?"; $button_text="Elimina scheda"; $choose="delete"; &search_results;} elsif($action =~ /search/i){ &search_db($search_for); $title="Main menu"; $button_text = ""; $choose="search"; $what="search"; &search_results;} elsif($action =~ /email_search_/i){ &search_db($search_for); $title="Main menu"; $button_text = ""; $choose="email_search_"; $what="email_search_"; &search_email_results;} elsif($action =~ /user manager/i){ $title="User Manager"; &user_manager;} elsif($action =~ /create new user/i){ $title="User Manager - Create New User"; $perform="add"; $button_text ="Add User"; &edit_user;} elsif($action =~ /edit selected user/i){ $title="User Manager - Edit Selected User"; $perform="edit"; $button_text ="Edit User"; &edit_user;} elsif($action =~ /edit user/i){ $old_password = $q->param(old_password); &delete_user; $perform="edit"; &add_user;} elsif($action =~ /remove selected user/i){ $perform="delete"; &delete_user; $title="User Manager"; &user_manager;} else { $title="Main Menu"; &print_default($title); } } exit; ################# Add Record ################## sub add_record { foreach $required (@required){ if($q->param($required) eq "") { $title = "Add A Record"; $error_message = "You did not fill out the required information!"; &access_problem($error_message); exit; } } $when_added = &get_date; $key = time(); $record=$key; $record .= "\|$user"; $record .= "\|$when_added"; foreach $field (@fields){ ${$field} = $q->param($field); ${$field} = filter(${$field}); $record .= "\|${$field}"; } unless (-e $database){ open (DB, ">$database") || die "Error creating database a. $!\n"; } else { open (DB, ">>$database") || die "Error opening database. $!\n"; } flock DB, $EXCLUSIVE; seek DB, 0, 2; print DB "$record\n"; flock DB, $UNLOCK; close(DB); } # End of add_record subroutine. ############## Delete Records ################# sub delete_records { open (DATABASE, "$database") or die "Error opening file: $!\n"; while () { $line = $_; chop $line; @dbfields = split (/\|/, $line); $deleted = "no"; if ($dbfields[0] eq $q->param(key)) { $deleted = "yes"; if ($user eq $dbfields[1]) { $security_satisfied = "yes"; } } elsif ($deleted ne "yes") { $new_data .= "$line\n"; } } #end of while close (DATABASE); if ($authenticate ne "yes") { $security_satisfied = "yes"; } if ($security_satisfied ne "yes" && $record_ownership eq "yes" && $admin_user_name ne "$user") { $error_message = "Lei non ha le permessi necessari per l\92accesso a questa scheda!"; &access_problem($error_message); exit; } else { flock DATABASE, $EXCLUSIVE; open (DATABASE, ">$database") or die "Error opening file: $!\n"; print DATABASE "$new_data"; close (DATABASE); flock DATABASE, $UNLOCK; } } ############# Results Screen ################ sub search_results{ &html_header($title); $rows_left_to_view = $total_row_count - $new_hits_seen; $start_hit = $hits_seen + 1; $end_hit = $new_hits_seen; $hits_displayed = $end_hit - $start_hit + 1; if ($total_row_count > 1) { print qq~

Found: $total_row_count records
~; if ($total_row_count > $max_rows_returned) { if ($hits_displayed == 2) { print qq~Last two records shown below
~; } elsif ($hits_displayed == 1) { print qq~Last record shown below
~; } else { print qq~In questa pagina: $start_hit - $end_hit
~; } } #end if } #end if ... > 1 else { print qq~

Found: 1 record\n~; } ############### PRINT BUTTON which_search ####### $cerca = $search_for; print "
"; if ($button_text ne "") { if ($button_text eq "Modify Record") { print ""; }; } $which_search = $choose; ############### next page buttons &next_page_buttons($rows_left_to_view); print "\n"; print "\n"; print "\n"; print "\n"; ############### end PRINT BUTTON which_search ####### if($display =~/columns/i) { print< HTML if($user eq "admin"){ print " "; } if($choose =~ /(modify|delete)/){ print "\n"; } foreach $field (@fields){ print "\n"; } # End of foreach print ""; foreach $record (@results){ ($key,$dbuser,$when_added,@field_vals) = split(/\|/, $record); print "\n"; if($user eq "admin"){ print " "; } if($choose =~ /(modify|delete)/){ print "\n"; } # End of if. for($x=0;$x<$field_count;$x++){ $item = &check_item($field_vals[$x], $x); print "\n"; } print " "; } # End of foreach loop. print<
\u$field
$item
HTML } else { foreach $record (@results){ ($key,$dbuser,$when_added,@field_vals) = split(/\|/, $record); ### intervention print< HTML $x=0; foreach $field (@fields){ $item = &check_item($field_vals[$x], $x); $collon_cr = "\;
"; # color fields $background_color="#e0e0e0"; $line= ""; if ($x > 7) {$background_color='#B6DB91'; $line= "" }; if ($x > 19) {$background_color='#dcb691'; $line= "" }; if ($x > 22) {$background_color='#dcec91'; $line= ""}; if ($x > 24) {$background_color='#b6b691'; $line= ""}; # end of color fields $campo = $field; if ($x < 7) { print< $line HTML }; $x++; } # End of foreach field loop. ######## buttons on the end of record if($choose =~ /(modify|delete|search)/){ print "
$item$item$item$item$item\u$campo
"; if($user eq "admin"){ print " "; } print ""; }; ######## end of buttons print "

"; } # End of foreach record loop. ### intervention } # End of if display loop if ($button_text ne "") { if ($button_text eq "Modify Record") { print " "; }; } $which_search = $choose; ############### next page buttons &next_page_buttons($rows_left_to_view); print "\n"; print "\n"; print "\n"; print "\n"; print "

"; if ($s_somma_costo_a_noi > 0.) { $s_profit_percentage = 100*(($s_somma_importo / $s_somma_costo_a_noi) - 1.0);}; $s_profit_percentage = sprintf("%4.2f",$s_profit_percentage); $cerca_t=$cerca; if ($cerca eq '.') {$cerca_t='all'}; &html_footer; } # End of search_results subroutine. ################ Default Screen ################## sub print_default { ### intervention $i_analisi =0; if ($action eq 'Avanti') { &print_add_screen;exit;}; &html_header; print< Search:
in:
Sort by:
Show:
Password

HTML $footer = "login"; &html_footer; } ################ Authenticate ################ sub authenticate { $form_password = $q->param(password); open (USERFILE, "$user_file") || die "Error opening user file. $!\n"; $user_matched = 0; while () { chop($_); ($password, $user, $u_search, $u_add, $u_modify, $u_delete, @extra_user_fields) = split(/\|/, $_); if ($q->param(user) eq $user) { $user_matched = 1; $username = $user; $user_add = $u_add; $user_modify = $u_modify; $user_search = $u_search; $user_delete = $u_delete; if (&auth_encrypt ($form_password, $password) eq $password) { $cookie = cookie(-NAME=>'user',-VALUE=>"$user",-EXPIRES=>'+3d'); } # End of if passwords match } # End of if username matches } # End of While close (USERFILE); if ($user_matched == 1 && $cookie eq "") { $footer = "login"; $title = "Login"; $error_message = "Your password did not match your user name!"; &access_problem($error_message); exit; } if ($user_matched == 0) { $footer = "login"; $title = "Login"; $error_message = "Your user name was not found!"; &access_problem($error_message); exit; } print header(-cookie=>[$cookie]); $set_cookie = "yes"; $message = "User \"$username\" is now logged in"; $title = "Main Menu"; $user = $username; &print_default($title, $message); exit; } ############### Register Form ################ sub register { $title = "Register A New User"; &html_header($title); print< User Name
Password
Re-Type Password
HTML foreach $extra (@extra_user_fields){ print "\u$extra
"; } print<
HTML $footer = "login"; &html_footer; } ################ Add User ################## sub add_user { $user = $q->param(user); $password = $q->param(password); $password2 = $q->param(password2); if ($perform eq "edit" && $password eq "") { $use_old = "yes"; $password = "$old_password"; $password2 = "$old_password";} if ($password ne $password2 || $password eq "" || $password2 eq "") { $footer = "login"; $title = "Register A New User"; $error_message = "Your passwords didn't match!"; &access_problem($error_message); exit; } @form_vars = ('user', 'search', 'add', 'modify', 'delete', @extra_user_fields); foreach $x (@form_vars) { if ($q->param($x) eq "" || $q->param($x) =~ /\|/) { $footer = "login"; $title = "Register A New User"; $error_message = "You must fill in all of the fields in the registration form!"; &access_problem($error_message); exit; } } if ($check_user_duplicates eq "yes") { open (USERFILE, "$user_file"); $user_matched = 0; while () { chop($_); @f = split(/\|/, $_); if ($f[1] eq $user) { $user_matched = 1; last; } } # End of while userfile open close (USERFILE); if ($user_matched == 1) { $footer = "login"; $title = "Register A New User"; $error_message = "That user name is already taken!"; &access_problem($error_message); exit; } # End of user matched (found duplicate) } # End of if check duplicates on srand(time|$$); $random = "abcdefghijklmnopqrstuvwxyz1234567890"; $real_password = $password; $salt = ""; for (1..2) { $salt .= substr($random,int(rand(36)),1); } if ($use_old ne "yes") { $password = &auth_encrypt ($password, $salt); } $auth=$password; foreach $field (@form_vars){ ${$field} = $q->param($field); $auth .= "\|${$field}"; } unless (-e $user_file){ open (AUTH_FILE, ">$user_file") || die "Error creating user file. $!\n"; } else { open (AUTH_FILE, ">>$user_file") || die "Error opening user file. $!\n"; } flock AUTH_FILE, $EXCLUSIVE; seek AUTH_FILE, 0, 2; print AUTH_FILE "$auth\n"; flock AUTH_FILE, $UNLOCK; close(AUTH_FILE); if ($admin_add eq ""){ $message = "New User Added
You may now login with your new user name below."; &login($message); } else { $title = "User Manager"; $message = "User Added/Modified"; &user_manager($message); } } ################ Create Admin ############### sub create_admin{ &html_header($title); print< HTML foreach $extra (@extra_user_fields){ print ""; } print<
Please start out by setting the Administrator information below. When logged in as the below user, you will be able to access additional options which are only available to the database administrator.

User Name: $admin_user_name
This can be changed in the script configurations.

Password
Re-Type Password
\u$extra
HTML $footer = "login"; &html_footer; exit; } ################ User Manager ############### sub user_manager{ $message = $_[0]; &html_header($title,$message); print<

HTML &html_footer; exit; } ############### Add/Edit User ################ sub edit_user { if ($perform eq "edit" && $selected_user eq "" ) { $title = "User Manager - Edit Selected User"; $error_message = "You forgot to select a user record to edit!"; &access_problem($error_message); exit; } if ($perform eq "edit") { open (USERFILE, "$user_file") || die "Error opening user file. $!\n"; while () { chop($_); ($password, $userfound, $u_search, $u_add, $u_modify, $u_delete, @other_user_fields) = split(/\|/, $_); if ($selected_user eq $userfound) { @found_other_fields = @other_user_fields; $edit_user = $userfound; $edit_user_add = $u_add; $edit_user_modify = $u_modify; $edit_user_search = $u_search; $edit_user_delete = $u_delete; $old_password = $password; } # End of if username matches } # End of While close (USERFILE); } &html_header($title); print< User Name
HTML if ($perform eq "edit") { print<New Password
Leave blank if you aren't changing passwords.
HTML } else { print<Password
HTML } if ($perform eq "edit") { print<Re-Type New Password
Leave blank if you aren't changing passwords.
HTML } else { print<Re-Type Password
HTML } $extra_fields_count = @found_other_fields; for($x=0;$x<$extra_fields_count;$x++){ print "\u$extra_user_fields[$x]
"; } if ($perform eq "add") { foreach $extra (@extra_user_fields){ print "\u$extra
"; } } print<
User Permissions HTML if ($edit_user_search eq "no"){ print<Search: Yes     No HTML } else { print<Search: Yes     No HTML } if ($edit_user_add eq "no"){ print<Add: Yes     No HTML } else { print<Add: Yes     No HTML } if ($edit_user_modify eq "no"){ print<Modify: Yes     No HTML } else { print<Modify: Yes     No HTML } if ($edit_user_delete eq "no"){ print<Delete: Yes     No HTML } else { print<Delete: Yes     No HTML } print<
HTML &html_footer; } ################ Delete User ############### sub delete_user{ if ($selected_user eq "" ) { $title = "User Manager - Remove Selected User"; $error_message = "You forgot to select a user record to remove!"; &access_problem($error_message); exit; } if ($selected_user eq "$admin_user_name" && $perform eq "delete") { $title = "User Manager - Remove Selected User"; $error_message = "You are not allowed to remove the administrator!"; &access_problem($error_message); exit; } open (USERFILE, "$user_file") or die "Error opening file: $!\n"; while () { $line = $_; chop $line; @dbfields = split (/\|/, $line); $deleted = "no"; if ($dbfields[1] eq $selected_user) { $deleted = "yes"; } elsif ($deleted ne "yes") { $new_data .= "$line\n"; } } #end of while close (USERFILE); flock USERFILE, $EXCLUSIVE; open (USERFILE, ">$user_file") or die "Error opening file: $!\n"; print USERFILE "$new_data"; close (USERFILE); } ################# Logout ################### sub logout { $cookie = cookie(-NAME=>'user',-VALUE=>"$user",-EXPIRES=>'-1d'); print header(-cookie=>[$cookie]); $set_cookie = "yes"; $message = "User \"$user\" logged out"; &login($message); } # end of logout ############ Encrypt Password ############### sub auth_encrypt { local ($field, $salt) = @_; $field = crypt ($field, $salt); $field; } # end of encrypt ############## Access Problem ############## sub access_problem { &html_header($title); print< Error!

$error_message



HTML &html_footer; exit; } ################ Get Date ################## sub get_date { local ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst,$date); local (@days, @months); @days = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday'); @months = ('January','February','March','April','May','June','July','August','September','October','November','December'); ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); if ($hour < 10) { $hour = "0$hour"; } if ($min < 10) { $min = "0$min"; } if ($sec < 10) { $sec = "0$sec"; } $mon++; $year += 1900; $date = "$mon/$mday/$year at $hour\:$min\:$sec"; return $date; } ############## Form Header ################# sub form_header { print< HTML } ############## Form Footer ################# sub form_footer { if($footer eq "default") { # if ($user_search eq "yes") {print " "; } # if ($user_add eq "yes") {print " "; } if ($authenticate eq "yes") {print " "; } # if ($authenticate eq "yes") {print " "; } if ($authenticate eq "yes") {print " "; } if ($authenticate eq "yes") { print "\n"; } } elsif($footer eq "login") { print "\ \;"; } else { print ""; if ($authenticate eq "yes") { print "";} } print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; } ############## HTML Header ################# sub html_header{ if($set_cookie eq "") { print $q->header; } $set_cookie = ""; print< $db_name - $_[0]

$db_name

$_[1]

$_[0]

HTML &form_header; } sub html_header_left{ if($set_cookie eq "") { print $q->header; } $set_cookie = ""; print< $db_name - $_[0]
$db_name

$_[1]

$_[0]

HTML &form_header; } ############## HTML Footer ################# sub html_footer{ if($use_external_html eq "yes") { %external_variables = (title=>$title, message=>$message,); &form_footer; print html_template("$external_html_footer", \%external_variables); print "

Powered by Constellation Systems
\©\; Constellation Systems

"; } else { print<
HTML &form_footer; print<

HTML } } ############ Print Next Page Buttons ########################### sub next_page_buttons { if ($rows_left_to_view > 0 && $show ne "no") { print "

\n"; print ""; if ($rows_left_to_view == 1){ print< HTML }; if ($rows_left_to_view <= $max_rows_returned){ print< HTML }; if ($rows_left_to_view > $max_rows_returned) { print< HTML } ; } } ################ Back Screen ################## sub print_back { &html_header; print< window.history.go(-3); HTML &html_footer; } # End of print_default subroutine. ############# Results Screen ################ sub search_email_results{ $display = "columns"; # header &html_header($title); $rows_left_to_view = $total_row_count - $new_hits_seen; $start_hit = $hits_seen + 1; $end_hit = $new_hits_seen; $hits_displayed = $end_hit - $start_hit + 1; if ($total_row_count > 1) { print qq~

Total Found: $total_row_count records
~; if ($total_row_count > $max_rows_returned) { if ($hits_displayed == 2) { print qq~Last two records shown below
~; } elsif ($hits_displayed == 1) { print qq~Last record shown below
~; } else { print qq~$start_hit - $end_hit shown below
~; } } #end if } #end if ... > 1 else { print qq~

Found: 1 record\n~; } print "
nel campo: $search_field_ Cerca: $find_ "; $cerca = $search_for; print "
"; if ($button_text ne "") { if ($button_text eq "Modify Record") { print ""; }; } $which_search = $choose; &next_page_buttons($rows_left_to_view); print "\n"; print "\n"; print "\n"; print "\n"; # end of header $display = "columns"; if($display =~/columns/i) { print< HTML if($user eq "admin"){ print " "; } if($choose =~ /(modify|delete)/){ print "\n"; } foreach $field (@fields){ print "\n"; } # End of foreach print ""; foreach $record (@results){ ($key,$dbuser,$when_added,@field_vals) = split(/\|/, $record); print "\n"; if($user eq "admin"){ print " "; } if($choose =~ /(modify|delete)/){ print "\n"; } # End of if $display =~columns for($x=0;$x<$field_count;$x++){ $item = &check_item($field_vals[$x], $x); print "\n"; } print " "; } # End of foreach loop. print<
\u$field
$item
HTML } else # do rows { foreach $record (@results){ ($key,$dbuser,$when_added,@field_vals) = split(/\|/, $record); ### intervention print< HTML $x=0; foreach $field (@fields){ $item = &check_item($field_vals[$x], $x); $background_color="#e0e0e0"; $line= ""; if ($x > 11) {$background_color='#B6DB91'; $line= "" }; if ($x > 24) {$background_color='#dcb691'; $line= "" }; if ($x > 32) {$background_color='#b6b691'; $line= ""}; if ($x > 41) {$background_color='#dcec91'; $line= ""}; $campo = $field; print< $line HTML $x++; } # End of foreach field loop. ######## buttons on the end of record if($choose =~ /(modify|delete|search)/){ print "
$item$item$item$item$item\u$campo
"; if($user eq "admin"){ print " "; } print ""; }; ######## end of buttons print "

"; } # End of foreach record loop. # end of rows display } # End of if display loop if ($button_text ne "") { if ($button_text eq "Modify Record") { print " "; }; } $which_search = $choose; ############### next page buttons &next_page_buttons($rows_left_to_view); print "\n"; print "\n"; print "\n"; print "\n"; print "

"; $cerca_t=$cerca; if ($cerca eq '.') {$cerca_t='all'}; &html_footer; } # End of search_results_email subroutine. ################### Unwrap #################### sub unwrap{ $temp = $_[0]; $temp =~ s/
/\r\n/ig; $temp =~ s/\|//g; return ($temp); } ############# end of Unwrap #################### ################# MODIFICA I PARAMETRI DELLA NEWSLETTER ################## ############### Modify Screen ################ sub print_modify_page{ ($key,$dbuser,$when_added,@field_vals) = split(/\|/, $results[0]); $title="Edit and Broadcast NEWSLETTER"; # assign and transform the relevant values of each field in the record $x=0; foreach $field (@fields){ ${$field} = &unwrap($field_vals[$x]); $x++; } # End of foreach assign field loop. &html_header($title); print<


MODIFICA LA NEWSLETTER
NEWSLETTER_subject:
NEWSLETTER_body:
   

 



HTML &html_footer; } # End of print_modify_screen subroutine. ############### create_newsletter Screen ################ sub create_newsletter_page{ my %mlist; $title="NEWSLETTER MAILING - BACKEND "; $key = time(); print "content-type: text/html\n\n"; print< BACKEND - MAILING_LIST - Invio
Newsletter Mailer

create_newsletter - Invio

HTML print "NewsLetter v$VERSION
Periodical News v$VERSION
Titolo:
"; print<


HTML } ############### end of create_newsletter Screen ################ sub error_page_new { print< HTML exit; } sub member { my ($ar, $el) = @_; foreach (@$ar) { return 1 if(lc($_) eq lc($el)); } return 0; } ############### send_newsletter Screen ################ sub broadcast_newsletter{ $pause =3; $packet_length =80; my %mlist; $title="NEWSLETTER MAILING - BACKEND"; &html_header_left($title); # send the newsletter print "

fido2 NewsLetter  \n";
    print "Sending mail...Pause is $pause seconds after each packet of $packet_length emails.\n";
    my $subject = $q->param('NEWSLETTER_subject');
    my $body = $q->param('NEWSLETTER_body');
    open(LIST, "$MAILING_LIST")
      or error_page_new("Failed to open $MAILING_LIST: $!\n");
    $counter=0;
    while()    {
    chomp; #  removes newline characters  from the end of a line
# if line matches to the following mask (string):(number):(string) then perform the code , if(m/(\S+):\d+:(.*)/)
    if(m/(.*)\|(.*)\|(.*)/)    {
# jjpcondor@gmail.com|64758|fido2_News
       $counter++;
       $email =$1;
       $unique_key =$2;
       $customer =$3;
       if ($email =~ /^\w[\w\.\-]*\w\@\w[\w\.\-]*\w(\.\w{2,4})$/) {

         print "$counter: $email, $unique_key, $customer ";
	 unless(open(MAIL, "|$SENDMAIL"))  {
	      print "sendmail error ($!)\n";
	      next;
	 }
	 $module_ratio = $total % $packet_length;
           if ($module_ratio == 0) {sleep($pause)};
	   print MAIL "From: $FROM\n";
	   print MAIL "Reply-to: $REPLY_TO\n";
	   print MAIL "To: $email\n";
	   print MAIL "Subject: $subject\n";
	   print MAIL "X-Mailer: fido2 News\n";
	   print MAIL "Content-type: text/plain\n\n";
	   print MAIL $body;
#           print MAIL "\n\nTo be deleted from the mailing list, just click here:\n  $INSTURL/fido2_newsregistration.cgi?op=remove&email=$email&id=$unique_key&list=fido2_news";
	   close MAIL; 
	   print "ok\n";
        }
        else {
           print "WARNING: Email syntax error - $counter: $email, $2, $3 \n";
        }

      }

     } # end of while loop
print "\n Mailing broadcadt is terminated successfully. In total $counter  messages sent.

"; print<


HTML } ############### end of send_newsletter Screen ################