#!/usr/bin/perl ############################################### ### ### John Jan Popovic, http://1stmuse.com ### for Etranet ### ### ### ############################################### 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); #use utf8; ############################################### ### Set Configurations Below ############################################### ### Specify database OPERE fields in the array below @fields = ( "SHOP_Id", "SHOP_Pwd", "SHOP_salesPoint", "SHOP_address", "SHOP_telephone", "SHOP_email", "SHOP_GIS_coordinates", "SHOP_referral_person", "SHOP_contractNumber", "SHOP_activityStatus" ); ### 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'}/wienerberger/wienerberger_shops.txt"; # Data file OPERE name and path $user_file = "$ENV{'DOCUMENT_ROOT'}/wienerberger/users.txt"; # User file name and path # This script name $db_name = "wienerberger - Sales Points"; # 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://1stmuse.com/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); $wienerberger_sales_point= $q->param(wienerberger_sales_point); $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); $search_shop = $q->param(search_shop); $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_); $billing_file = $q->param(billing_file); ################# 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'}; ######## $billing_db = "$ENV{'DOCUMENT_ROOT'}/wienerberger_billing/$billing_file"; ######## 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_shop); } # 2 == terminalId elsif($action =~ /integral_billing_report/i){ $title="Billing results"; &integral_billing_results($search_shop); } # 2 == terminalId 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_wienerberger; $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;} 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 print "\n"; &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"; 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 = ""; $campo = $field; print qq~ $line ~; $x++; } # End of foreach field loop. chomp $SHOP_email; $wienerberger_sales_point ="$SHOP_salesPoint - $SHOP_address"; print "
$item
\u$campo
"; print " "; print "

"; } # End of foreach record loop. } # 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'}; print "\n"; &html_footer; } # End of search_results subroutine. ################ Default Screen ################## sub print_default { my $billing_path= "$ENV{'DOCUMENT_ROOT'}/wienerberger_billing"; my $file; my @filenames =(); my @billing_files =(); opendir(DIRHANDLE,$billing_path ); @filenames = readdir(DIRHANDLE); closedir(DIRHANDLE); @billing_files = grep(/billing/,@filenames); my @file_names =sort(@billing_files); $options = qq~~; $n_files = @file_names; $x =0; foreach $file (@file_names) { chomp $file; $period =$file; $x++; $selected =""; if ($n_files == $x) { $selected="selected"; }; $period =~ s/(\.txt)|(billing)//g; $options .= qq~ \n~; } &html_header; print< Search for:

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

$error_message



HTML print "\n"; &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~ ~; 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{ print "Content-type:text/html; charset=utf8\n\n"; 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 print "\n"; &html_footer; } # End of print_default 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_wienerberger ################ sub backup_wienerberger{ # 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_ . "/wienerberger_backup/backup_shops" . $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_ . "/wienerberger/wienerberger_sales_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, $SHOP_terminalId,$SHOP_terminalPwd,$SHOP_salesPoint,$SHOP_address, $SHOP_telephone,$SHOP_email,$SHOP_GIS_coordinates,$SHOP_referral_person,$SHOP_contractNumber,$SHOP_activityStatus) = split (/\|/,$adonis_line); $mailing_line ="$SHOP_email|$key|$SHOP_salesPoint $SHOP_address"; print DATABASE "$mailing_line\n"; } close (DATABASE); flock DATABASE, $UNLOCK; # end of saving MAILING LIST records } # End of extract_mailinglist subroutine. ########### Cards Lookup ############# sub cards_lookup{ %card_hash =(); my $cardId; $database_cards = "$ENV{'DOCUMENT_ROOT'}/wienerberger/wienerberger_clients.txt"; open (DB, "$database_cards") or die "Error opening database. $database_cards $!\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 ($key > 0) { $card_hash{$cardId} = "$CARD_Ime $CARD_Prezime, bodovi: $CARD_Bodovi, email: $CARD_email"; } } # End of while. close (DB); } # End of cards_lookup subroutine. ########### terminals_lookup ############# sub terminals_lookup{ %terminal_hash =(); $database_shops = "$ENV{'DOCUMENT_ROOT'}/wienerberger/wienerberger_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 "") { $terminal_hash{$terminalId} = "$TERMINAL_salesPoint, $TERMINAL_address, email: $TERMINAL_email"; }; } # End of while. close (DB); } # End of Search Terminals Database subroutine. ############# Billing Results Screen ################ sub billing_results{ my $search_shop = shift; my @results =(); my $revenue=0; my $expenditure=0; &html_header($title); print "search_shop: $search_shop
"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; # end of Billing header my $search_for = $_[0]; my $search_field = 3; my @results =(); my %shop_hash =(); my %terminal_hash =(); my $revenue=0; my $expenditure=0; # build shop hash $database_shops = "$ENV{'DOCUMENT_ROOT'}/wienerberger/wienerberger_shops.txt"; open (DB, "$database_shops") or die "Error opening database. $database_shops $!\n"; while(){ ($key,$owner,$time_stamp, $SHOP_Id, $SHOP_Pwd, $SHOP_salesPoint, $SHOP_address, $SHOP_telephone, $SHOP_email, $SHOP_GIS_coordinates, $SHOP_referral_person, $SHOP_contractNumber, $SHOP_activityStatus) = split(/\|/, $_); $terminalId = $SHOP_Id; $terminalId =~ s/\s//g; if ($terminalId ne "") { $shop_hash{$terminalId} ="$SHOP_salesPoint - $SHOP_address"; }; } # End of while. close (DB); # build terminal hash $database_terminals = "$ENV{'DOCUMENT_ROOT'}/wienerberger/wienerberger_terminals.txt"; open (DB, "$database_terminals") or die "Error opening database. $database_terminals $!\n"; while(){ ($key,$owner,$time_stamp, $TERMINAL_terminalId,$TERMINAL_terminalPwd,$TERMINAL_salesPoint,$TERMINAL_referral_person, $TERMINAL_contractNumber,$TERMINAL_activityStatus) = split(/\|/, $_); $terminalId = $TERMINAL_terminalId; $terminalId =~ s/\s//g; if ($terminalId ne "") { $terminal_hash{$terminalId} =$TERMINAL_salesPoint; }; } # End of while. close (DB); # end of terminal and shop hash open (BILL, "$billing_db") or die "Error opening $billing_db $!\n"; @Billing_line = ; close (BILL); foreach $billing_record (@Billing_line){ ($key,$LOGuser,$when_added,$wienerberger_Day,$wienerberger_TimeStamp,$wienerberger_TerminalId,$wienerberger_CardId,$wienerberger_Amount,$wienerberger_Reference) = split(/\|/, $billing_record); #if ($wienerberger_TerminalId eq $search_for/oi) { push @results,$billing_record #}; } # End of foreach $count = @results; &cards_lookup; &terminals_lookup; print< HTML $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; $cerca = $search_for; print "
"; $which_search = $choose; ############### next page buttons &next_page_buttons($rows_left_to_view); print "\n"; print "\n"; print "\n"; ############### end PRINT BUTTON which_search ####### my $display = "columns"; print<

\u$field: $input_html
HTML if($choose =~ /(modify|delete)/){ print "\n"; } print<wienerberger_Day HTML foreach $record (@results){ ($key,$LOGuser,$when_added,$wienerberger_Day,$TimeStamp,$TerminalId,$CardId,$Amount,$Reference ) = split(/\|/, $record); $shop_tip =$terminal_hash{$TerminalId}; if ($shop_tip eq $search_shop) { print "\n"; $amount = $Amount; if ($amount > 0) {$revenue +=$amount} else {$expenditure +=$amount;} $card_tip =$card_hash{$CardId}; $card_tooltip = qq~$CardId ~; if ($card_tip eq "") { $card_tooltip = "$CardId"}; $terminal_tooltip = qq~$TerminalId ~; if ($shop_tip eq "") { $terminal_tooltip = "$TerminalId"}; $revenue = sprintf("%.2f", $revenue); $expenditure = sprintf("%.2f", $expenditure); $billing_total = $revenue + $expenditure; $billing_total = sprintf("%.2f", $billing_total); $Amount = sprintf("%.2f", $Amount); $Amount =~ s/\./\,/; print qq~ ~; }; } # End of foreach loop. $revenue =~ s/\./\,/g; $expenditure =~ s/\./\,/g; $billing_total =~ s/\./\,/g; print<
TimeStamp TerminalId ShopId CardId Amount Reference
$wienerberger_Day $TimeStamp $terminal_tooltip $shop_tip $card_tooltip $Amount $Reference
Ukupno sakupljeno bodova $revenue
Ukupno potrošeno bodova $expenditure
Grand Total $billing_total
HTML # End of display loop $daily_revenue = sprintf("%.2f", $daily_revenue); $daily_expenditure = sprintf("%.2f", $daily_expenditure); 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 "

"; &html_footer; } # End of billing_results subroutine. ############# Integral Billing Results Screen ################ sub integral_billing_results{ my $search_shop = shift; my @results =(); my $revenue=0; my $expenditure=0; &html_header($title); print "search_shop: $search_shop
"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; # end of Billing header my $search_for = $_[0]; my $search_field = 3; my @results =(); my %shop_hash =(); my %terminal_hash =(); my $revenue=0; my $expenditure=0; # build shop hash $database_shops = "$ENV{'DOCUMENT_ROOT'}/wienerberger/wienerberger_shops.txt"; open (DB, "$database_shops") or die "Error opening database. $database_shops $!\n"; while(){ ($key,$owner,$time_stamp, $SHOP_Id, $SHOP_Pwd, $SHOP_salesPoint, $SHOP_address, $SHOP_telephone, $SHOP_email, $SHOP_GIS_coordinates, $SHOP_referral_person, $SHOP_contractNumber, $SHOP_activityStatus) = split(/\|/, $_); $terminalId = $SHOP_Id; $terminalId =~ s/\s//g; if ($terminalId ne "") { $shop_hash{$terminalId} ="$SHOP_salesPoint - $SHOP_address"; }; } # End of while. close (DB); # build terminal hash $database_terminals = "$ENV{'DOCUMENT_ROOT'}/wienerberger/wienerberger_terminals.txt"; open (DB, "$database_terminals") or die "Error opening database. $database_terminals $!\n"; while(){ ($key,$owner,$time_stamp, $TERMINAL_terminalId,$TERMINAL_terminalPwd,$TERMINAL_salesPoint,$TERMINAL_referral_person, $TERMINAL_contractNumber,$TERMINAL_activityStatus) = split(/\|/, $_); $terminalId = $TERMINAL_terminalId; $terminalId =~ s/\s//g; if ($terminalId ne "") { $terminal_hash{$terminalId} =$TERMINAL_salesPoint; }; } # End of while. close (DB); # end of terminal and shop hash open (BILL, "$billing_db") or die "Error opening $billing_db $!\n"; @Billing_line = ; close (BILL); foreach $billing_record (@Billing_line){ ($key,$LOGuser,$when_added,$wienerberger_Day,$wienerberger_TimeStamp,$wienerberger_TerminalId,$wienerberger_CardId,$wienerberger_Amount,$wienerberger_Reference) = split(/\|/, $billing_record); #if ($wienerberger_TerminalId eq $search_for/oi) { push @results,$billing_record #}; } # End of foreach $count = @results; &cards_lookup; &terminals_lookup; print< HTML $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; $cerca = $search_for; print "
"; $which_search = $choose; ############### next page buttons &next_page_buttons($rows_left_to_view); print "\n"; print "\n"; print "\n"; ############### end PRINT BUTTON which_search ####### my $display = "columns"; print< HTML if($choose =~ /(modify|delete)/){ print "\n"; } print<wienerberger_Day HTML foreach $record (@results){ ($key,$LOGuser,$when_added,$wienerberger_Day,$TimeStamp,$TerminalId,$CardId,$Amount,$Reference ) = split(/\|/, $record); $shop_tip =$terminal_hash{$TerminalId}; print "\n"; $amount = $Amount; if ($amount > 0) {$revenue +=$amount} else {$expenditure += $amount;} $card_tip =$card_hash{$CardId}; $card_tooltip = qq~$CardId ~; if ($card_tip eq "") { $card_tooltip = "$CardId"}; $terminal_tooltip = qq~$TerminalId ~; if ($shop_tip eq "") { $terminal_tooltip = "$TerminalId"}; $revenue = sprintf("%.2f", $revenue); $expenditure = sprintf("%.2f", $expenditure); $billing_total = $revenue + $expenditure; $billing_total = sprintf("%.2f", $billing_total); $Amount = sprintf("%.2f", $Amount); $Amount =~ s/\./\,/; print qq~ ~; } # End of foreach loop. $revenue =~ s/\./\,/g; $expenditure =~ s/\./\,/g; $billing_total =~ s/\./\,/g; print<
TimeStamp TerminalId ShopId CardId Amount Reference
$wienerberger_Day $TimeStamp $terminal_tooltip $shop_tip $card_tooltip $Amount $Reference
Ukupno sakupljeno bodova $revenue
Ukupno potrošeno bodova $expenditure
Grand Total $billing_total
HTML # End of display loop $daily_revenue = sprintf("%.2f", $daily_revenue); $daily_expenditure = sprintf("%.2f", $daily_expenditure); 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 "

"; &html_footer; } # End of billing_results subroutine.