#!/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); use Encode; use Fcntl ':flock'; # Import LOCK_* constants use File::Copy; $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'}"; } ############################################### ### Set Configurations Below ############################################### $database = "$root/mercur/mercur_companies.txt"; # Data file companies name and path $db_bis = "$root/mercur/bis_companies.txt"; # Data file companies name and path $delete_history = "$root/mercur/mfb_deleted_companies.txt"; # sortiranje po imenu trgovine my $MIID_SORT_OK = undef; ############################################### ### Set Configurations Below ############################################### ### Specify database OPERE fields in the array below @fields = ( "COMPANY_ID", "COMPANY_Ime", "COMPANY_OIB", "COMPANY_Adresa_Ulica", "COMPANY_Adresa_KucniBroj", "COMPANY_Adresa_KucniBrojDodatak", "COMPANY_Adresa_BrojPoste", "COMPANY_Adresa_Naselje", "COMPANY_Adresa_Opcina", "COMPANY_FinaCertificate", "COMPANY_CertificatePassword", "COMPANY_Status", # Status (aktivan, upozoren, privremeno blokiran, neaktivan) "COMPANY_Adminmfb_username", "COMPANY_AdminPassword", "COMPANY_U_PDVsustavu", "COMPANY_Message", "COMPANY_LogotipFile", "COMPANY_R1_R2", "COMPANY_ReceiptMessage", "COMPANY_Complete", "COMPANY_Work_Order", "COMPANY_ICT_Request", "COMPANY_End_User_Data" ); $upload_1x_URL ="./$script_name?operation=upload_logotip1x"; $upload_y_URL ="./upload_logotip.cgi"; $upload_certificate_URL ="./upload_certificate.cgi"; ### Set URL and email fields to be hyperlinks $db_name = "mfb - companies"; # 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 $check_user_duplicates = "yes"; # Checks for duplicate user names in user file $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"; ############################################### ### 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); $company_id = $q->param(company_id); $company_oib = $q->param(company_oib); $mfb_password = $q->param(mfb_password); $search_field = $q->param(search_field); $action = $q->param(action); $display = $q->param(display); @keys = $q->param(key); $key = $q->param(key); $customer_key = $q->param(customer_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 'main_menu') { $action='Main Menu'}; if($q->param('operation') eq 'sign_in') { $action='search'}; ######## ## $main_path/cgi-bin/mfb_signin.cgi?operation=signin&company_oib=45552744227 if($q->param('operation') eq 'signin') { $action='find_oib'; $user='admin'; $company_oib = $q->param('company_oib'); } ## $main_path/cgi-bin/mfb_signin.cgi?operation=help&company_oib=45552744227 if($q->param('operation') eq 'help') { $action='help'; $user='admin'; $company_oib = $q->param('company_oib'); } ######## $authenticate ="yes"; $user ="admin"; if($action =~ /logout/i){ &logout; exit;} if($authenticate eq "yes"){ # the following operations can be performed, only if AUTHENTICATION IS VALID if($action =~ /edit_card/i){ $title="Edition Error"; $error_message="You forgot to select a record to modify!"; &access_problem if($key < 1); &search_db($key); &print_modify_page;} elsif($action =~ /saveThisRecord/i){ $title="Modify"; &delete_records; $key=$keys[0]; &modify_record; &search_db($key); &company_menu_page($results[0]);} elsif($action =~ /sign_in/i){ &search_mfbuser($search_for, $mfb_password); &company_menu_page($results[0]);} elsif($action =~ /find_oib/i){ &search_oib($company_oib); &company_menu_page($results[0]);} elsif($action =~ /help/i){ &search_oib($company_oib); &help_page($results[0]);} else { $title="Main Menu"; &print_default($title); } } exit; ################ Default Screen ################## sub print_default { print "Content-type: text/html; charset=utf8 \n\n"; print< Mini fiskalna blagajna | Hrvatski Telekom

Administrirajte vašu Mini fiskalnu blagajnu na webu!

Pregled funkcionalnosti

  • Potpisivanje računa

    Mini fiskalna blagajna putem centralnog server obavlja fiskalno potpisivanje prilikom izdavanja računa. Računi koji nisu potpisani kod izdavanja zbog prekida veze, autoamatski se potpisuju prvom prilikom kod uspostave Internet konekcije.

  • Pregled izdanih računa

    Svi izdani računi se trajno arhiviraju na centralnom serveru, sa kojeg ih možete ispisati ili pohraniti kao datoteke za vlastitu arhivu.

  • Konfiguracija cjenika

    Unesite svoje proizvode i artikle kroz korisničko sučelje putem datoteke ili ručnim unosom na samom EFTPOS uređaju.

  • Izvoz podataka

    Ukoliko koristite druge aplikacije za knjigovodstveno poslovanje, podatke o izdanim računima na Mini fiskalnoj blagajni možete izvesti kroz csv datoteku.

© T-Hrvatski Telekom 2013. | Pravne napomene

HTML } # End of print_default subroutine. ########### Search & Sort Database ############# sub search_db{ my $search_for = $_[0]; $date_time = &get_date; $date_time =~ s/at/~/g; ($date,$day_time) = split (/\~/,$date_time); unless (-e $database){ open (DB, ">$database") || die "Error creating database. $!\n"; } else { open (DB, "$database") || die "Error opening database. $!\n"; } while(){ ($key,$dbuser,$when_added,@field_vals) = split(/\|/, $_); if($search_field =~ /all/i) { if (/$search_for/oi){ push @results, $_}; } else { if ($field_vals[$search_field] =~ /$search_for/oi) { push @results, $_}; } # End of else. } # End of while. close (DB); foreach $curr (@results){ ($key,$dbuser,$when_added,@rest) = split(/\|/, $curr); $max = @fields; $code='$record{$key} = { key => "$key", '; $code .='dbuser => "$dbuser", '; $code .='when_added => "$when_added", '; for($x=0;$x<$max;$x++){ $code .= "\$fields[$x] => \"\$rest[$x]\",\n"; } # End of for $code .= '};'; eval $code; } # End of foreach curr $sort_on = "$fields[$sort]"; @results=(); foreach $rp (sort { $a->{$sort_on} cmp $b->{$sort_on} } values %record){ $new_rec = $rp->{key}; $new_rec .= "\|$rp->{dbuser}"; $new_rec .= "\|$rp->{when_added}"; for($x=0;$x<$max;$x++){ $new_rec .= "\|$rp->{$fields[$x]}"; } # End of for push @results, $new_rec; } # End of foreach $count = @results; if($count < 1){ $message="No Matches Found For '$search_for'"; $title="Main Menu"; &print_default($title, $message); ### intervention exit; } $total_row_count = @results; if ($total_row_count > $max_rows_returned) { $hits_seen = $q->param(new_hits_seen); for ($i = 1; $i <= $hits_seen; $i++) { $seen_row = shift (@results); } $length_of_database_rows = @results; for ($i = $length_of_database_rows-1; $i >= $max_rows_returned; $i--) { $extra_row = pop (@results); } $new_hits_seen = $hits_seen + @results; } else { $show="no"; } } # End of search_db subroutine. ################# 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 ################ 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~ ~; 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"; } ############### UPLOAD Screen 1/2 ################ sub upload_logotipx_page{ $title="File Upload 1/2 ... Logotip"; $action="upload_2x"; if($set_cookie eq "") { print $q->header; } $path_ = "$root_/voltaire"; $zy_name = "$path_/".$prefix ."a".$sufix."\.jpg"; $zy_file = $prefix ."a".$sufix."\.jpg"; print< $db_name - $_[0]
$db_name
$title

Server file: $anno


All rights reserved. 1stMuse Co

All rights reserved. 1stMuse
© MMX 1stMuse © MMX JJP

BODY } ############# end of UPLOAD Screen 1/2 ################ ############### UPLOAD Screen 1/2 ################ sub upload_certificate_page{ $title="File Upload 1/2 ... Fina Certifikat"; $action="upload_2x"; if($set_cookie eq "") { print $q->header; } print< $db_name - $_[0]
$db_name
$title

Server file:


All rights reserved. 1stMuse Co

All rights reserved. 1stMuse
© MMX 1stMuse © MMX JJP

BODY } ############# end of UPLOAD Screen 1/2 ################ ################# Modify Record ################## sub modify_record { $when_added = &get_date; # Eliminando_la_Scheda_precedente or conservendo_la_Scheda_precedente -- may be or not conserved the modification history if ($update_mode eq "conserve") { $key = time() }; $key =~ s/\D//g; $record=$key . "_". $company_id; $record .= "\|$user"; $record .= "\|$when_added"; foreach $field (@fields){ ${$field} = $q->param($field); $record .= "\|${$field}"; } open (my $db_fh, ">>", $database) || die "Error opening database. $database $!\n"; flock($db_fh, LOCK_EX) or die "Could not lock $database - $!"; seek $db_fh, 0, 2; $record =~ s/[\n\r]//g; print $db_fh "$record\n"; close($db_fh); } # End of modify_record subroutine. ############## Delete Records ################# sub delete_records { my @new_data; my $deleted_record; open (my $db_fh, "<", $database) || die "Error opening database. $database $!\n"; flock($db_fh, LOCK_EX) or die "Could not lock $database - $!"; while (<$db_fh>) { $line = $_; chomp $line; @dbfields = split (/\|/, $line); $deleted = "no"; if ($dbfields[0] eq $q->param(key)) { $deleted = "yes"; if ($user eq $dbfields[1]) { $security_satisfied = "yes"; } $deleted_record =$line; } elsif ($deleted ne "yes") { push @new_data, $line; }; } #end of while close ($db_fh); if ($authenticate ne "yes") { $security_satisfied = "yes"; } if ($security_satisfied ne "yes" && $record_ownership eq "yes" && $admin_user_name ne "$user") { $error_message = "You are not autorised to access this data!"; &access_problem($error_message); exit; } else { open (my $db_fh, ">", $database) || die "Error opening database. $database $!\n"; flock($db_fh, LOCK_EX) or die "Could not lock $database - $!"; foreach $record_line (@new_data){ print $db_fh "$record_line\n"; }; close($db_fh); open (my $fh_b, ">", $db_bis) || die "Error opening database. $db_bis $!\n"; flock($fh_b, LOCK_EX) or die "Could not lock $db_bis - $!"; foreach $record (@new_data){ print $fh_b "$record\n"; }; close($fh_b); open(my $fh_a, ">>", $delete_history) or die "Could not open $! $delete_history \n"; flock($fh_a, LOCK_EX) or die "Could not lock $delete_history - $!"; $when_deleted = &get_date; $id_suffix = "$user|$company_id|$shop_id|$when_deleted|$ENV{'REMOTE_ADDR'}\|$ENV{'HTTP_USER_AGENT'}"; print $fh_a "$deleted_record|$id_suffix\n"; close ($fh_a); } } ########### Search Company Database ############# sub search_mfbuser{ my $search_user = $_[0]; my $search_password = $_[1]; my $mfb_user; my $mfb_password; @results=(); open (DB, "$database") || die "Error opening database. $!\n"; while(){ my ($key,$dbuser,$when_added, $COMPANY_ID, $COMPANY_Ime, $COMPANY_OIB, $COMPANY_Adresa_Ulica, $COMPANY_Adresa_KucniBroj, $COMPANY_Adresa_KucniBrojDodatak, $COMPANY_Adresa_BrojPoste, $COMPANY_Adresa_Naselje, $COMPANY_Adresa_Opcina, $COMPANY_FinaCertificate, $COMPANY_CertificatePassword, $COMPANY_Status, $COMPANY_AdminUserName, $COMPANY_AdminPassword, $COMPANY_U_PDVsustavu, $COMPANY_Message, $COMPANY_Logotip, $COMPANY_R1_R2, $COMPANY_ReceiptMessage ) = split(/\|/, $_); $mfb_user =$COMPANY_AdminUserName; $mfb_password =$COMPANY_AdminPassword; $mfb_user =~ s/\s//g; $search_user =~ s/\s//g; if (($mfb_user eq $search_user ) && ($mfb_password eq $search_password)) { push @results, $_ }; } # End of while. close (DB); $count = @results; if($count < 1){ $message="No Matches Found For '$search_for'"; $title="Main Menu"; &print_default($title, $message); exit; } } # End of search_mfbuser subroutine. ########### help_page ############# sub help_page{ my $target_record = $_[0]; my @results =(); my $company_user; ($key,$dbuser,$when_added, $COMPANY_ID, $COMPANY_Ime, $COMPANY_OIB, $COMPANY_Adresa_Ulica, $COMPANY_Adresa_KucniBroj, $COMPANY_Adresa_KucniBrojDodatak, $COMPANY_Adresa_BrojPoste, $COMPANY_Adresa_Naselje, $COMPANY_Adresa_Opcina, $COMPANY_FinaCertificate, $COMPANY_CertificatePassword, $COMPANY_Status, $COMPANY_Adminmfb_username, $COMPANY_AdminPassword, $COMPANY_U_PDVsustavu, $COMPANY_Message, $COMPANY_LogotipFile, $COMPANY_R1_R2, $COMPANY_ReceiptMessage, $COMPANY_Complete, $COMPANY_Work_Order, $COMPANY_ICT_Request, $COMPANY_End_User_Data, $COMPANY_R1_R2_Message ) = split(/\|/, $target_record); # HTTP header print "Content-type: text/html; charset=utf8 \n\n"; print< T-Hrvatski Telekom



$error_message

 
    Upute za dobivanje FINA certifikata

Mini fiskalna blagajna - upute za korištenje uređaja

Mini fiskalna blagajna - upute za korištenje internetske aplikacije

Predložak datoteke cjenika

video upute: Preuzimanje FINA certifikata

video upute: Učitavanje FINA certifikata

video upute: Dodavanje prodavača
   


 
WWW } # End of search_cards subroutine. ########### company_menu_page ############# sub company_menu_page{ my $target_record = $_[0]; my @results =(); my $company_user; ($key,$dbuser,$when_added, $COMPANY_ID, $COMPANY_Ime, $COMPANY_OIB, $COMPANY_Adresa_Ulica, $COMPANY_Adresa_KucniBroj, $COMPANY_Adresa_KucniBrojDodatak, $COMPANY_Adresa_BrojPoste, $COMPANY_Adresa_Naselje, $COMPANY_Adresa_Opcina, $COMPANY_FinaCertificate, $COMPANY_CertificatePassword, $COMPANY_Status, $COMPANY_Adminmfb_username, $COMPANY_AdminPassword, $COMPANY_U_PDVsustavu, $COMPANY_Message, $COMPANY_LogotipFile, $COMPANY_R1_R2, $COMPANY_ReceiptMessage, $COMPANY_Complete, $COMPANY_Work_Order, $COMPANY_ICT_Request, $COMPANY_End_User_Data ) = split(/\|/, $target_record); $U_PDVsustavu ="ne"; if ($COMPANY_U_PDVsustavu == 1) {$U_PDVsustavu ="da"}; ($COMPANY_ReceiptMessage_clean, $COMPANY_R1_R2_Message) = split (/\{/, $COMPANY_ReceiptMessage ); $COMPANY_R1_R2_Message =~ s/\}//g; # HTTP header print "Content-type: text/html; charset=utf8 \n\n"; print< T-Hrvatski Telekom



$error_message
 
    Tvrtka: $COMPANY_Ime
ID tvrtke: $COMPANY_ID
OIB:$COMPANY_OIB

Status: $COMPANY_Status

Korisničko ime administratora: $COMPANY_Adminmfb_username
Lozinka administratora: $COMPANY_AdminPassword

 Ulica: $COMPANY_Adresa_Ulica
Kućni broj: $COMPANY_Adresa_KucniBroj
Kućni broj dodatak: $COMPANY_Adresa_KucniBrojDodatak
Broj pošte: $COMPANY_Adresa_BrojPoste
Naselje: $COMPANY_Adresa_Naselje
Općina: $COMPANY_Adresa_Opcina
 U PDV sustavu: $U_PDVsustavu
Izdaje se račun: $COMPANY_R1_R2
Poruka na podnožju računa: $COMPANY_ReceiptMessage_clean
Dodatna poruka na R1/R2 računu: $COMPANY_R1_R2_Message
   


$COMPANY_Message
Uredi
 
WWW } # End of company_menu_page subroutine. ########### Search Company Database ############# sub search_oib{ my $search_for = $_[0]; @results =(); open (DB, "$database") || die "Error opening database. $!\n"; while(){ ($key,$dbuser,$when_added, $COMPANY_ID, $COMPANY_Ime, $COMPANY_OIB, $COMPANY_Adresa_Ulica, $COMPANY_Adresa_KucniBroj, $COMPANY_Adresa_KucniBrojDodatak, $COMPANY_Adresa_BrojPoste, $COMPANY_Adresa_Naselje, $COMPANY_Adresa_Opcina, $COMPANY_FinaCertificate, $COMPANY_CertificatePassword, $COMPANY_Status, $COMPANY_AdminUserName, $COMPANY_AdminPassword, $COMPANY_U_PDVsustavu, $COMPANY_Message, $COMPANY_LogotipFile, $COMPANY_R1_R2, $COMPANY_ReceiptMessage, $COMPANY_Complete, $COMPANY_Work_Order, $COMPANY_ICT_Request, $COMPANY_End_User_Data ) = split(/\|/, $_); if (($COMPANY_OIB eq $search_for) && ($COMPANY_Status eq "active") ) { push @results, $_}; } # End of while. close (DB); $count = @results; $error_message=""; if($count > 1){ $error_message="ERROR: More companies with the same OIB: '$search_for'"; } if($count < 1){ $error_message="ERROR: No Companies Found For OIB: '$search_for'"; $title="Main Menu"; &print_default($title, $message); exit; } } # End of search_oib subroutine. ############### Modify Screen ################ sub print_modify_page{ ($key,$dbuser,$when_added,@field_vals) = split(/\|/, $results[0]); $x=0; foreach $field (@fields){ ${$field} = $field_vals[$x]; $x++; } $title="Modify Record"; ($COMPANY_ReceiptMessage_clean, $COMPANY_R1_R2_Message) = split (/\{/, $COMPANY_ReceiptMessage ); $COMPANY_R1_R2_Message =~ s/\}//g; chomp $COMPANY_LogotipFile; $status_active_selected =""; $status_warning_selected =""; $status_disabled_selected=""; $status_inactive_selected=""; if ($COMPANY_Status eq "active") {$status_active_selected ="selected";} elsif ($COMPANY_Status eq "warning") {$status_warning_selected ="selected";} elsif ($COMPANY_Status eq "disabled") {$status_disabled_selected ="selected";} elsif ($COMPANY_Status eq "inactive") {$status_inactive_selected ="selected";} $pdv_da_selected=""; $pdv_ne_selected=""; if ($COMPANY_U_PDVsustavu eq "1") {$pdv_da_selected ="selected";} elsif ($COMPANY_U_PDVsustavu eq "0") {$pdv_ne_selected ="selected";} $r1_r2_blank_selected= ""; $r1_selected= ""; $r2_selected= ""; if ($COMPANY_R1_R2 eq "NONE") {$r1_r2_blank_selected ="selected";} elsif ($COMPANY_R1_R2 =~ /R1/i) {$r1_selected ="selected";} elsif ($COMPANY_R1_R2 =~ /R2/i) {$r2_selected ="selected";} # HTTP header print "Content-type: text/html; charset=utf8 \n\n"; print< T-Hrvatski Telekom :: Mini fiskalna blagajna
WWW print<
ID tvrtke:
Tvrtka:
OIB:
Status:
Korisničko ime administratora:
Lozinka administratora:
Poruka na podnožju računa:
Dodatna poruka na R1/R2 računu:
Ulica:
Kućni broj:
Kućni broj dodatak:
Broj pošte:
Naselje:
Općina:
U PDV sustavu:
Logotip tvrtke:
FINA certifikat:
Lozinka za FINA certifikat:
Izdaje se R1 ili R2 račun:

HTML &html_footer; } ############## HTML Footer ################# sub html_footer{ print<

 
HTML }