### run backup command ### my @system_params = ( "-o", "log/nix_backup_wrap", "$var{username}", "./backup_run.plX" ); my $pid = open my $cmd, "-|", './nix_backup_wrap', @system_params or warn "$!\n"; my $backup_process_status = $? >> 8; my @backup_status_message; print "BACKUP PROCESS STATUS: $backup_process_status\n"; if ( $backup_process_status == 0 ) { $msglog->write( "Success starting backup process!" ); push @backup_status_message, "Success starting backup process!"; open 'PID', '>', $PID_FILE or die "Status $var{status}: Tried to open $PID_FILE $!\n"; print PID "$pid\n"; close PID; } else { $err_msglog->write( "Error starting backup process!" ); push @backup_status_message, "Error starting backup process!"; } $jsonObject = { msgdata => "BACKUP STATUS MESSAGE: @backup_status_message with PID: $pid", pid => $pid, lposition => $var{lposition}, count => $var{count}, segment => $var{segment}, status => $var{status}, backup_process_status => $backup_process_status }; my $jsonEncoded = encode_json $jsonObject; print WB_OUT $cgi->header(-type => "application/json", -charset => "utf-8"); print WB_OUT $jsonEncoded;