#!/usr/bin/perl ############################################### ### ### John Jan Popovic, http://1stmuse.com ### for Etranet ### ### ### ############################################### use CGI qw (:standard); use CGI::Carp qw(fatalsToBrowser); use lib qw(.); use CGI qw(nph); ############################################### ### Set Configurations Below ############################################### ### Specify database OPERE fields in the array below @fields = ( "CARD_Broj_kartice", "CARD_ID_OIB", "CARD_Ime", "CARD_Prezime", "CARD_Datum_rodjenja", "CARD_Exp_date", "CARD_Bodovi", "CARD_Brand", "CARD_Email", "CARD_Popup_message" ); ### 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 $script_name ="$ENV{'SCRIPT_NAME'}"; $homedir = $ENV{'DOCUMENT_ROOT'}; $root_ = $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'}/fido/fido_clients.txt"; # Data file OPERE name and path $user_file = "$ENV{'DOCUMENT_ROOT'}/fido/users.txt"; # User file name and path # This script name $db_name = "Fido - cards"; # 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 = "yes"; # Removes HTML tags from record entries $check_user_duplicates = "yes"; # Checks for duplicate user names in user file $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 = "yes"; # 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"; $image_path = 'http://loyalty.hr/opere'; ############################################### ### Change Nothing Below This Line ############################################### ############## Global Viariables ################## $q = new CGI; $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); $fido_customer= $q->param(fido_customer); $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); $bodovi = $q->param(bodovi); $email = $q->param(email); $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'}; ######## ## To perform search NADJI, click here: ## http://1stmuse.com/cgi-bin/fido_clients.cgi?operation=nadji_card&find_=1938 if($q->param('operation') eq 'nadji_card') { $action='nadji_card'; my $find_ = $q->param('find_'); $search_for = $find_; } ######## 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 'main_menu') { $action='main_menu'; my $buffer; my $user_ = $q->param('user_'); $search_for = $find_; $user=$user_; } if($action =~ /new_card/i){ &print_add_screen;} elsif($action =~ /conferma opera/i){ &add_record; $message="Record Added"; $title="Main Menu"; &print_default($title, $message);} elsif($action =~ /Edit_opera/i){ $title="Edittion 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_back;} elsif($action =~ /conferma_Edit/i){ $title="Modify"; &delete_records; $key=$keys[0]; &add_record; &print_back;} 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 Updated"; $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 =~ /billing_report/i){ $title="Billing results"; &billing_results($search_for,3); } elsif($action =~ /email_billing/i){ $title="Billing results"; &mail_billing($search_for,3); } elsif($action =~ /mailinglist/i){ $title="Extract mailinglist"; &extract_mailinglist; $message="Mailinglist was created."; $title="Main Menu"; &print_default($title, $message);} elsif($action =~ /backup/i){ $title="Backup Archive"; &backup_fido; $message="The backup was successful."; $title="Main menu"; &print_default($title, $message);} elsif($action =~ /delete/i){ &search_db($search_for); $title="Delete Which Record?"; $button_text="Eliminate card"; $choose="delete"; &search_results;} elsif($action =~ /search/i){ &search_db($search_for); $title="Search Results"; $button_text = ""; $choose="search"; $what="search"; &search_results;} elsif($action =~ /email_search_/i){ &search_db($search_for); $title="Search Results"; $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;} elsif($action =~ /nadji_card/i){ &search_cards($search_for);} 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. $!\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. ################# Add Screen: Add new Card ################## sub print_add_screen{ $title="Add new Card"; &html_header($title); print<

HTML foreach $field (@fields){ $input_txt=""; $cerca=$search_for; $input_provenienza=""; $input_html=$input_txt; print< HTML } # End of foreach. print<
\u$field: $input_html

HTML &html_footer; } # End of print_add_screen 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 card!"; &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~

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~

Total Found: 1 record\n~; } $cerca = $search_for; print "
"; $which_search = $choose; &next_page_buttons($rows_left_to_view); print "\n"; print "\n"; print "\n"; print "\n"; if($display =~/columns/i) { print< HTML 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($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); print< HTML $x=0; foreach $field (@fields){ ${$field} = $field_vals[$x]; $x++; } $x=0; foreach $field (@fields){ $item = $field_vals[$x]; $background_color="#e0e0e0"; $line= ""; if ($x > 9) {$background_color='#B6DB91'; $line= "" }; $campo = $field; print< $line HTML $x++; } # End of foreach field loop. $fido_customer ="$CARD_Ime $CARD_Prezime"; print "
$item$item\u$campo
"; chomp $CARD_Email; print " "; print "

"; } # End of foreach record loop. ### intervention } # End of if display loop $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='tutto'}; &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 for:

Search in the fields:
HTML $x=0; $selected=''; foreach $field (@fields){ print "

$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 = "$mday/$mon/$year at $hour\:$min\:$sec"; return $date; } ############## Form Header ################# sub form_header { print< HTML } ############## Form Footer ################# sub form_footer { if($footer eq "default") { if ($authenticate eq "yes") {print " "; } print qq~ ~; print qq~ ~; 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"; } ############## HTML Header ################# sub html_header{ if($set_cookie eq "") { print $q->header; } $set_cookie = ""; if($use_external_html eq "yes") { %external_variables = (title=>$title, message=>$message,); print html_template("$external_html_header", \%external_variables); &form_header; } else { 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); if ($user eq "$admin_user_name" && $footer eq "default" && $authenticate eq "yes") { print "

"; } print "

Powered by dbSpace
\©\; Spaceout

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

HTML if ($user eq "$admin_user_name" && $footer eq "default" && $authenticate eq "yes") { print "

"; } print< HTML } } ### To avoid usual situation like: ### After filling out the text field, you HAVE to click the specified button to ### submit the form. If you press enter to submit the form it reloads the form. ### I have written small Javascript code in order to avoid previous behavior and to: ### Process the form by pressing the by putting the focus on the specified (default) button ### In the input field must be inserted the EVENT HANDLER ### like: ############ 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~

Trovati: 1 record\n~; } #print "
nel campo: $search_field_ trova: $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"; print "\n"; print "\n"; # end of header $display = "columns"; if($display =~/columns/i) { print< HTML 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($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 > 9) {$background_color='#B6DB91'; $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\u$campo
"; 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 "\n"; print "

"; $cerca_t=$cerca; if ($cerca eq '.') {$cerca_t='tutto'}; &html_footer; } # End of search_results_email subroutine. ############### Modify Screen ################ sub print_modify_page{ ($key,$dbuser,$when_added,@field_vals) = split(/\|/, $results[0]); $title="Modify Record"; &html_header($title); print< HTML $x=0; foreach $field (@fields){ $input_txt=""; $input_select=""; $input_html=$input_txt; ## if ($field eq "Classe") { $input_html=$input_select }; print< HTML $x++; } # End of foreach. print<

HTML &html_footer; } ############### backup_fido ################ sub backup_fido{ # Author : John Jan Popovic # Date : July, 2012 # Purpose: This procedure performs DBase adonis Backup # Create %adonis_hash %DBADONIS_hash = (); @DB_line = (); $homedir = $root_ ; open (DB, "$database") || die "Error opening database. $! $database \n"; @DB_line = ; close (DB); foreach $adonis_record (@DB_line){ chomp $adonis_record; @altro =(); ($key,$dbuser,$when_added,@altro) = split(/\|/, $adonis_record); $DBADONIS_hash{$key} = $adonis_record; } ; # end of creating of %adonis_hash $date_time = &get_date; $date_time =~ s/at/~/g; ($date,$day_time) = split (/\~/,$date_time); $date =~ s/[\s]//g; $date =~ s/[\/]/~/g; ($dd,$mm,$yy) = split (/\~/,$date); # Format $dd,$mm numbers with up to 2 leading zeroes $dd = sprintf("%02d", $dd); $mm = sprintf("%02d", $mm); $backupdb = $root_ . "/fido_backup/backup_clients" . $yy. "_". $mm ."_$dd" . ".txt"; # save ADONIS records my @ADONIS_line = (); @ADONIS_line = values (%DBADONIS_hash); flock DATABASE, $EXCLUSIVE; open (DATABASE, ">$database") or die "Error opening file: $!\n"; foreach $adonis_line (@ADONIS_line){ chomp $adonis_line; print DATABASE "$adonis_line\n"; } # backup ADONIS records flock DATABASE, $EXCLUSIVE; open (DATABASE, ">$backupdb") or die "Error opening file: $!\n"; foreach $adonis_line (@ADONIS_line){ chomp $adonis_line; print DATABASE "$adonis_line\n"; } close (DATABASE); flock DATABASE, $UNLOCK; # end of backuping ADONIS records # save ADONIS records @ADONIS_line = (); @ADONIS_line = values (%DBADONIS_hash); flock DATABASE, $EXCLUSIVE; open (DATABASE, ">$database") or die "Error opening file: $!\n"; foreach $adonis_line (@ADONIS_line){ chomp $adonis_line; print DATABASE "$adonis_line\n"; } close (DATABASE); flock DATABASE, $UNLOCK; # end of saving ADONIS db records } # End of Backup_adonis subroutine. ############### extract_mailinglist ################ sub extract_mailinglist{ # Author : John Jan Popovic # Date : July, 2012 # Purpose: This procedure performs DBase adonis Backup # Create %adonis_hash %DBADONIS_hash = (); @DB_line = (); $homedir = $root_ ; open (DB, "$database") || die "Error opening database. $! $database \n"; @DB_line = ; close (DB); foreach $adonis_record (@DB_line){ chomp $adonis_record; @altro =(); ($key,$dbuser,$when_added,@altro) = split(/\|/, $adonis_record); $DBADONIS_hash{$key} = $adonis_record; } ; # end of creating of %adonis_hash # save MAILING LIST records my @ADONIS_line = (); @ADONIS_line = values (%DBADONIS_hash); $mailinglist = $root_ . "/fido/fido_mailinglist.txt"; flock DATABASE, $EXCLUSIVE; open (DATABASE, ">$mailinglist") or die "Error opening file: $!\n"; foreach $adonis_line (@ADONIS_line){ chomp $adonis_line; ($key,$owner,$time_stamp, $CARD_Broj_kartice,$CARD_OIB,$CARD_Ime,$CARD_Prezime, $CARD_Datum_rodjenja,$CARD_Exp_date,$CARD_Bodovi,$CARD_Brand,$CARD_Email,$CARD_popup) = split (/\|/,$adonis_line); $mailing_line ="$CARD_Email|$key|$CARD_Ime $CARD_Prezime"; print DATABASE "$mailing_line\n"; } close (DATABASE); flock DATABASE, $UNLOCK; # end of saving MAILING LIST records } # End of extract_mailinglist subroutine. ############# Email Billing ################ sub mail_billing{ my $search_for = $_[0]; my $search_field = $_[1]; my @results =(); my %shop_hash =(); my $revenue=0; my $expenditure=0; &html_header($title); # build shop hash $database_shops = "$ENV{'DOCUMENT_ROOT'}/fido/fido_shops.txt"; open (DB, "$database_shops") or die "Error opening database. $database_shops $!\n"; while(){ ($key,$owner,$time_stamp, $TERMINAL_terminalId,$TERMINAL_terminalPwd,$TERMINAL_salesPoint,$TERMINAL_address, $TERMINAL_telephone,$TERMINAL_email,$TERMINAL_GIS_coordinates,$TERMINAL_referral_person, $TERMINAL_contractNumber,$TERMINAL_activityStatus) = split(/\|/, $_); $terminalId = $TERMINAL_terminalId; $terminalId =~ s/\s//g; if ($terminalId ne "") { $shop_hash{$terminalId} ="$TERMINAL_salesPoint - $TERMINAL_address"; }; } # End of while. close (DB); $date_time = &get_date; $datum =$date_time; $date_time =~ s/at/~/g; ($date,$day_time) = split (/\~/,$date_time); $date =~ s/[\s]//g; $date =~ s/[\/]/~/g; ($dd,$mm,$yy) = split (/\~/,$date); # Format $dd,$mm numbers with up to 2 leading zeroes $dd = sprintf("%02d", $dd); $mm = sprintf("%02d", $mm); $billing_file = "$ENV{'DOCUMENT_ROOT'}/fido_billing/billing" . $yy . "_". $mm . ".txt"; open (BILL, "$billing_file") or die "Error opening $billing_file $!\n"; @Billing_line = ; close (BILL); foreach $billing_record (@Billing_line){ ($key,$LOGuser,$when_added,$FIDO_Day,$FIDO_TimeStamp,$FIDO_TerminalId,$FIDO_CardId,$FIDO_Amount) = split(/\|/, $billing_record); if ($FIDO_CardId =~ /$search_for/oi) { push @results,$billing_record}; } # End of foreach $count = @results; if ($count > 1) { $content = qq~

Total Found: $count billing records
~; } else { print qq~

Total Found: 1 billing record\n~; } print "
"; $which_search = $choose; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; # end of Billing header $content =""; foreach $record (@results){ ($key,$LOGuser,$when_added,$julian_day,$timeStamp,$terminalId,$cardId,$amount) = split(/\|/, $record); if ($amount > 0) {$revenue +=$amount} else {$expenditure +=$amount;} $class=""; if ($amount < 0) { $class="class='textred'"; }; $content .=qq~ $red_font_on

$red_font_off ~; } # End of foreach loop. $bodovi = sprintf("%.2f", $bodovi); $revenue = sprintf("%.2f", $revenue); $expenditure = sprintf("%.2f", $expenditure); $billing_total = $revenue + $expenditure; $billing_total = sprintf("%.2f", $billing_total); $content .=qq~ $red_font_on $red_font_off ~; $content .=qq~
\u$field: $input_html
$timeStamp $shop_hash{$terminalId} $amount
Ukupno sakupljeno bodova $revenue
Ukupno potrošeno bodova $expenditure
Grand Total $billing_total
~; #$content .=qq~ revenue=$revenue expenditure=$expenditure~; if ($button_text eq "Modify Record") { print " "; }; # Billing header $datum =~ s/at/ stanje u/; $header = qq~


Datum: $datum

FIDO korisnik: $fido_customer
Broj_kartice: $search_for

Do danas ste skupili $bodovi bodova.
Dolje se nalazi ispis svih transakcija u $mm mjesecu.



~; print $header; print $content; $style =qq~ ~; ########################################################################## #print "
SENDMAIL test"; $subject ="FIDO billing report"; # sendmail setup $SENDMAIL = "/usr/sbin/sendmail -t"; $FROM = "fido testing "; $TO = "$email"; open(MAIL, "|$SENDMAIL"); print MAIL < $style $header $content
Zahvaljujemo Vam na sudjelovanju u Fido programu vjernosti. EOM close (MAIL); ########################################################################## print "

"; &html_footer; } # End of mail_billing subroutine. ############# Billing Results Screen ################ sub billing_results{ my $search_for = $_[0]; my $search_field = $_[1]; my @results =(); my %shop_hash =(); my $revenue=0; my $expenditure=0; &html_header($title); # build shop hash $database_shops = "$ENV{'DOCUMENT_ROOT'}/fido/fido_shops.txt"; open (DB, "$database_shops") or die "Error opening database. $database_shops $!\n"; while(){ ($key,$owner,$time_stamp, $TERMINAL_terminalId,$TERMINAL_terminalPwd,$TERMINAL_salesPoint,$TERMINAL_address, $TERMINAL_telephone,$TERMINAL_email,$TERMINAL_GIS_coordinates,$TERMINAL_referral_person, $TERMINAL_contractNumber,$TERMINAL_activityStatus) = split(/\|/, $_); $terminalId = $TERMINAL_terminalId; $terminalId =~ s/\s//g; if ($terminalId ne "") { $shop_hash{$terminalId} ="$TERMINAL_salesPoint - $TERMINAL_address"; }; } # End of while. close (DB); $date_time = &get_date; $datum =$date_time; $date_time =~ s/at/~/g; ($date,$day_time) = split (/\~/,$date_time); $date =~ s/[\s]//g; $date =~ s/[\/]/~/g; ($dd,$mm,$yy) = split (/\~/,$date); # Format $dd,$mm numbers with up to 2 leading zeroes $dd = sprintf("%02d", $dd); $mm = sprintf("%02d", $mm); $billing_file = "$ENV{'DOCUMENT_ROOT'}/fido_billing/billing" . $yy . "_". $mm . ".txt"; open (BILL, "$billing_file") or die "Error opening $billing_file $!\n"; @Billing_line = ; close (BILL); foreach $billing_record (@Billing_line){ ($key,$LOGuser,$when_added,$FIDO_Day,$FIDO_TimeStamp,$FIDO_TerminalId,$FIDO_CardId,$FIDO_Amount) = split(/\|/, $billing_record); if ($FIDO_CardId =~ /$search_for/oi) { push @results,$billing_record}; } # End of foreach $count = @results; if ($count > 1) { $content = qq~

Total Found: $count billing records
~; } else { print qq~

Total Found: 1 billing record\n~; } print "
"; $which_search = $choose; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; # end of Billing header $content =""; foreach $record (@results){ ($key,$LOGuser,$when_added,$julian_day,$timeStamp,$terminalId,$cardId,$amount) = split(/\|/, $record); if ($amount > 0) {$revenue +=$amount} else {$expenditure +=$amount;} $class=""; if ($amount < 0) { $class="class='textred'"; }; $content .=qq~ $red_font_on

$red_font_off ~; } # End of foreach loop. $bodovi = sprintf("%.2f", $bodovi); $revenue = sprintf("%.2f", $revenue); $expenditure = sprintf("%.2f", $expenditure); $billing_total = $revenue + $expenditure; $billing_total = sprintf("%.2f", $billing_total); $content .=qq~ $red_font_on $red_font_off ~; $content .=qq~
TimeStamp Sales point Amount
$timeStamp $shop_hash{$terminalId} $amount
Ukupno sakupljeno bodova $revenue
Ukupno potrošeno bodova $expenditure
Grand Total $billing_total
~; #$content .=qq~ revenue=$revenue expenditure=$expenditure~; if ($button_text eq "Modify Record") { print " "; }; # Billing header $datum =~ s/at/ stanje u/; $header = qq~


Datum: $datum

FIDO korisnik: $fido_customer
Broj_kartice: $search_for

Do danas ste skupili $bodovi bodova.
Dolje se nalazi ispis svih transakcija u $mm mjesecu.



~; print $header; print $content; $style =qq~ ~; print "

"; &html_footer; } # End of billing_results subroutine. ########### Search Cards Database ############# sub search_cards{ my $search_for = $_[0]; my $target_record =""; my @results =(); my $cardId; $search_for =~ s/\s//g; $search_for =~ s/\D//g; open (DB, "$database") or die "Error opening database. $database $!\n"; while(){ ($key,$dbuser,$when_added,$CARD_Broj_kartice, $CARD_OIB,$CARD_Ime,$CARD_Prezime,$CARD_Datum_rodjenja, $CARD_Exp_date,$CARD_Bodovi,$CARD_Brand,$CARD_email,$CARD_popup) = split(/\|/, $_); $cardId = +$CARD_Broj_kartice; $cardId =~ s/\s//g; if ($cardId > 0) { if ($cardId eq $search_for) { push @results, $_}; }; } # End of while. close (DB); print "Content-type: text/html; charset=iso-8859-2\n\n"; my $count = @results; if ($count < 1){ $target_record =""; $err_message="Error=100 Neregistrirana kartica $search_for"; } if($count > 1){ $target_record =""; $err_message="Error=101 Too many results found for CardId $search_for"; } if($count == 1){ $target_record = @results[0]; $err_message=""; }; # Print HTTP header for PLAIN TEXT print "$CARD_Ime"; } # End of search_cards subroutine.

TimeStamp Sales point Amount