@Ghazascanner
_2019runbot
Ghazascanner File Manager
server :Linux phosweb011 3.10.0-1160.el7.x86_64 #1 SMP Mon Oct 19 16:18:59 UTC 2020 x86_64
Current Path :
/
homepage
/
mobile
/
photo
/
pl
/
Path :
Upload File :
New :
File
Dir
/homepage/mobile/photo/pl/jmy.pl
package jmy; sub dt_ext{ my($nm,$pw,$rn); # my($vrt)=''; for(split/\n/,$_[0]){if($_=~/^r\@(.*)/i){$rn=$1; next;}elsif($_=~/^n\@(.*)/i){$nm=$1; next;}elsif($_=~/^p\@(.*)/i){$pw=$1; next;}$vrt.=$_;}$_[0]=$vrt; return($nm,$pw,$rn);}sub from_ext {#$#l"#;} my($vmg)=@_;$vmg="\n".$vmg;if($vmg=~/\nReply-To:[ \t]*(.+)\n/i){ return(&em_ext($1));}if($vmg=~/\nReturn-Path:[ \t]*(.+)\n/i){ return(&em_ext($1));}if($vmg=~/\nFrom:[ \t]*(.+)\n/i){ return(&em_ext($1));} return('');}sub em_ext {if($_[0]=~/([\/\w\._-]+\@[\w\._-]+)/i){return($1);} #$#new return('');}sub tl_ext { my($vmg) = @_;$vmg="\n".$vmg; my($vsub)='';if($vmg=~/\nSubject:[ \t]*(.+)\n/i){$vsub=$1;$vsub=~s/[ \t\r\n]+$//g;} #. return($vsub);} 1;