Re^3: catch die from say

Hi Monks and thank you for all the replies. Just to make sure, the following code is working perfectly and returns me to the menu page, until Telus blocks me after a certain number of tries per day. Then I get "Internal Server error" in the web page. I would like to catch the error (not FataltoBrowser, because I already have it in the logs) and make the Perl code continue and do the END part, so that I am redirected to the main menu page. Phone and domain are dummies for the example.

#! /usr/bin/perl

$email_message="test de Pierre";
$email_subject="test4";
$recipient="5555555555\@msg.telus.com";
$from = "nepasrepondre\@chirotest.ca";

open( my $mail, "| mailx -r $from -s $email_subject $recipient" );
say $mail $email_message;
close $mail;

END {
my $redirect = "/cgi-bin/chiro/menuprincipal.pl";

print "Location:$redirect\n\n";    
}
[download]

Comment on Re^3: catch die from say Download Code

Replies are listed 'Best First'.
Re^4: catch die from say (Building your own Perl) by eyepopslikeamosquito (Archbishop) on Apr 02, 2024 at 00:19 UTC
PierreForget, I see you're using the system perl `/usr/bin/perl`. I suggest you at least consider not touching the system perl at all, instead building your own perl (as non-root) that you can safely control, and experiment with, and install CPAN modules to, without risking breaking your Unix system. Conversely, Re: Prefer Pure Perl Core Modules notes that relying on the system perl couples you tightly to the OS' upgrade schedule, for both the language and CPAN modules ... so a "harmless" OS upgrade can potentially break your serious mission-critical systems, if they are using the system perl. Many more references on this topic can be found at Re: Replicate Perl setup (Building and Installing Perl References). If you're not doing serious stuff in Perl, you can just Forget about this advice. :-) References Added Later Examples of building Perl from source: CPAN and Package Manager Security References - includes a detailed example of securely building `perl v5.38.0` from source on Ubuntu Re^2: THREE new perl releases [Updated releases!] - build perl v5.38.2 from source - follow on, securely building `perl v5.38.2` and installing CPAN modules with `cpanm` Re: 5.40 released (perl new feature References) - building `perl v5.40.0` from source (using the same steps as for `perl v5.38.0`) 👁️🍾👍🦟	[reply] [d/l] [select]
Re^4: catch die from say by PierreForget (Acolyte) on Apr 02, 2024 at 14:18 UTC
Hi Monks, I changed the way of doing it and the following code seems to work perfectly, even in the case of an error generated by Telus. The culprit was the pipe "\|" which sends to a bash script and do not return. Thanks for all the effort. And I removed the "\n", which got the variables unrecognized by mailx. `#! /usr/bin/perl $email_message="test de Pierre"; $email_file ="/httpd/bureau.testchiro.ca/temp/sms"; $email_subject="test9"; $recipient="5555555555\@msg.telus.com"; $from = "nepasrepondre\@testchiro.ca"; system ("mailx -q $email_file -r $from -s $email_subject $recipient"); END { my $redirect = "http://192.168.0.10/index.html"; print "Location:$redirect\n\n"; }` [download]	[reply] [d/l]
Re^4: catch die from say by PierreForget (Acolyte) on Apr 01, 2024 at 23:27 UTC
As soon as it's possible, may take a few days..., I will try the "q" option in mailx. Here is the code I will try: `#! /usr/bin/perl $email_message="test de Pierre"; $email_subject="test4"; $recipient="5555555555\@msg.telus.com"; $from = "nepasrepondre\@chirotest.ca"; open( my $mail, "mailx -q /usr/pierre/bin/smstext.txt -r $from -s $ema +il_subject $recipient" ); say $mail $email_message; close $mail; END { my $redirect = "/cgi-bin/chiro/menuprincipal.pl"; print "Location:$redirect\n\n"; }` [download]	[reply] [d/l]