26 |
27 |
28 | [+] $title
29 |
30 | $datail
31 |
32 | |
33 |
';
34 |
35 | #txtlog
36 | if($target =~ /http:\/\/(.*?)\//){our $li=$1;}
37 | if($target =~ /https:\/\/(.*?)\//){our $li=$1;}
38 | $tmptarget="$1";
39 | mkdir "reports/$tmptarget";
40 |
41 | open(my $fh, '>', "reports/$tmptarget/$tmptarget\_report\_$year-$mon-$mday\_at\_$hour.$min.$sec.txt");
42 | our $log="$log";
43 | print $fh "$log";
44 | close $fh;
45 |
46 |
47 | #htmllog
48 | for($i=0;$i<=$#dlog;$i++){
49 | $tbody=$tmpbody;
50 | $tbody =~ s/\$i/$i/g;
51 | $tflog[$i] =~ s/\n/\n\