";
print "ERROR: $err";
print Carp::longmess();
print "";
};
my $main_path;
my $root;
my $server = "$ENV{'SERVER_NAME'}";
if ($server =~ /mfb-test/) {
$main_path = '';
$root = '/home/www/etranet_data/';
}
elsif ($server =~ /fiskal-test/) {
$main_path = '';
$root = '/eftposwwwroottst/HT_SAAS_eftposwwwroottst/';
}
elsif ($server=~ /eftpos-test/) {
$root = 'C:/inetpub/wwwroot/';
$main_path = 'http://eftpos-test.telekomcloud.hr/';
}
elsif ($server=~ /fiskalizacija/) {
$main_path = "http://fiskalizacija.telekomcloud.hr/";
$root = '//172.26.173.9/ht_interno_eftpos/wwwroot_production/'; # remote disk / netshare
}
else {
$main_path = "http://loyalty.hr/";
$root = "$ENV{'DOCUMENT_ROOT'}";
}
$snowtrack = "$root/mercur_backup/snowtrack.txt";
$db_bis = "$root/mercur/bis_shops.txt"; # Data file bis
$database = "$root/mercur/mercur_shops.txt"; # Data file terminals name and path
$user_file = "$root/mercur/mercur_users.txt"; # User file name and path
$shop_counter = "$root/mercur/counter_shops.txt";
$delete_history = "$root/mercur/mfb_deleted_shops.txt";
# sortiranje po imenu ducana
my $MIID_SORT_OK = undef;
# enable on TEST server
$MIID_SORT_OK = 1 if $ENV{SERVER_NAME} =~ /test/;
# CGI parametar za sortiranje Trgovina
my $MIID_SORT_CGI = '';
if ($MIID_SORT_OK) {
$MIID_SORT_CGI = '&sort_on=2';
}
# important patch http://blogs.perl.org/users/brian_d_foy/2011/07/now-you-need-lwpprotocolhttps.html
$ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'} = 0;
###############################################
### Set Configurations Below
###############################################
### Specify database fields in the array below
@fields = (
"SHOP_ID", "SHOP_CompanyID",
"SHOP_MIID", "SHOP_name",
"SHOP_Adresa_Ulica", "SHOP_Adresa_KucniBroj",
"SHOP_Adresa_KucniBrojDodatak", "SHOP_Adresa_BrojPoste",
"SHOP_Adresa_Naselje", "SHOP_Adresa_Opcina",
"SHOP_RadnoVrijeme", "SHOP_DatumPocetkaPrimjene",
"SHOP_ZatvorenoOtvoreno", "SHOP_SpecNamj",
"SHOP_OstaliTipoviPoslProstora", "SHOP_FINA_id_registracije",
"SHOP_FINA_datum_registracije"
);
$upload_y_URL = "./upload_csv.cgi";
### 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};
### Specify the required fields below. This may be left empty
@required = ();
# This script name
$db_name = "Mini Fiskalna Blagajna"; # 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 = "120"; # Max number of rows displayed per page
$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
###############################################
### Change Nothing Below This Line
###############################################
############## Global Viariables ##################
$q = CGI->new;
$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');
$mercur_customer = $q->param('mercur_customer');
$search_field = $q->param('search_field');
$action = $q->param('action');
$display = $q->param('display');
@keys = $q->param('key');
$key = $q->param('key');
$company_id = $q->param('company_id');
$company_oib = $q->param('company_oib');
$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_');
$shop_id = $q->param('SHOP_ID');
$company_id = $q->param('company_id');
################# Main Logic ##################
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'}
########
$user = 'admin'; # should be removed consequently
## localhost/cgi-bin/mfb_shops.cgi?operation=ppx&company_id=900001&shop_id=800001
if ($q->param('operation') eq 'ppx') {
$action = 'ajax_ppx_fina';
$user = 'admin';
$company_id = $q->param('company_id');
$shop_id = $q->param('shop_id');
}
## localhost/cgi-bin/mfb_shops.cgi?operation=uredi&company_id=900001&shop_id=800001
if ($q->param('operation') eq 'uredi') {
$action = 'PageEdit_card';
$user = 'admin';
$company_id = $q->param('company_id');
$shop_id = $q->param('shop_id');
$key = $q->param('key');
}
if ($q->param('operation') eq 'new_shop') {
$action = 'new_card';
$user = 'admin';
$company_id = $q->param('company_id');
}
if ($q->param('operation') eq 'finapp') {
$action = 'fina_registration';
$user = 'admin';
$company_id = $q->param('company_id');
$shop_id = $q->param('shop_id');
$key = $q->param('key');
}
if ($q->param('operation') eq 'xsearch') {
$action = 'xtrova';
$user = 'admin';
my $buffer;
my $find_ = $q->param('find_');
$apostrophe = "%E2%80%99";
$space = "%20";
$find_ =~ s/$space/ /g;
$find_ =~ s/$apostrophe/\/;
$find_ =~ s/^\W+//; # trimming leading non_alpha characters
$find_ =~ s/\s+$//; # trimming trailing whitespaces
$search_for = $find_;
$search_field = "all";
}
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_;
}
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) {
increment_nx_counter();
print_add_screen($company_id);
}
elsif ($action =~ /AddRecord/i) {
add_record();
UpdateTerminalsParametricFiles_page($shop_id);
}
elsif ($action =~ /PageEdit_card/i) {
access_problem() if ($key < 1);
search_db($key);
edit_card_page();
}
elsif ($action =~ /ModifyRecord/i) {
$title = "Modify";
delete_records();
$key = $keys[0];
modify_record($key);
UpdateTerminalsParametricFiles_page($shop_id);
}
elsif ($action =~ /Fina_registration/i) {
$title = "Edition Error";
$error_message = "You forgot to select a record to modify!";
access_problem() if ($key < 1);
search_db($key);
fina_registration_page();
}
elsif ($action =~ /ajax_ppx_fina/i) {
ajax_ppx_fina($company_id, $shop_id);
}
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 =~ /upload_1x/i) {
$title = "upload 1 of 2";
print_upload_1x_page($ITEM_type);
}
elsif ($action =~ /upload_2x/i) {
$title = "upload 2 of 2";
upload_2x();
}
elsif ($action =~ /delete/i) {
search_db($search_for, $company_id, $shop_id);
$title = "Delete Which Record?";
$button_text = "Eliminate card";
$choose = "delete";
search_results();
}
elsif ($action =~ /search/i) {
search_db($search_for, $company_id, $shop_id);
$title = "Search Results";
$button_text = "";
$choose = "search";
$what = "search";
search_results();
}
elsif ($action =~ /xtrova/i) {
intelsense_results_ajax($search_for);
}
else {
search_db($company_id, $company_id, $shop_id);
$title = "Search Results";
$button_text = "";
$choose = "search";
$what = "search";
search_results();
}
}
exit;
################ Default Screen ##################
sub print_default {
&html_header;
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 < © Hrvatski Telekom, MMXIV, crafted by Etranet