مطلوب إصلاح خلل إتصال في سكربت Perl

السكربت مخصص لرفع الفيديوات ومشاركتها على المواقع.

بدون سابق تعديل، أصبح السكربت لا يقوم برفع الفيديوهات وقد تم العبث فيه بغرض التصليح والنتيجة ٢:

1. عندما يكون الخادم مربوط عن طريق الـ IP يصل الرفع إلى ١٠٠٪ ويتجمد بدون إستجابة

2. عندما يكون الخادم مربوط عن طريق رابط DNS مثل cdn.domain.com لا يتم الرفع حتى ١٪ بل يتجمد على ٠٪

في الحالة الأولى يكون الخطأ في الـ Error Log كالتالي:

[Sat Dec 30 15:27:24 2017][5277] Bad response. Let's try one more time.

[Sat Dec 30 15:28:38 2017][5396] INFO:Can't connect to gounlimited.to:80 (timeout)

LWP::Protocol::http::Socket: connect: timeout at /usr/share/perl5/LWP/Protocol/http.pm line 51.

مع العلم بإنه المسار:

/usr/share/perl5/LWP/Protocol/http.pm line 51.

لم يتم التعديل عليه نهائيًا أو التلاعب فيه.