|
System | : | Linux MiraNet 3.0.0-14-generic-pae #23-Ubuntu SMP Mon Nov 21 22:07:10 UTC 2011 i686 |
Software | : | Apache. PHP/5.3.6-13ubuntu3.10 |
ID | : | uid=65534(nobody) gid=65534(nogroup) groups=65534(nogroup)
|
|
Safe Mode | : | OFF |
Open_Basedir | : | OFF |
Freespace | : | 24.01 GB of 70.42 GB (34.1%) |
|
MySQL: ON MSSQL: OFF Oracle: OFF PostgreSQL: OFF Curl: OFF Sockets: ON Fetch: OFF Wget: ON Perl: ON |
Disabled Functions: pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,
|
[ System Info ]
[ Processes ]
[ SQL Manager ]
[ Eval ]
[ Encoder ]
[ Mailer ]
[ Back Connection ]
[ Backdoor Server ]
[ Kernel Exploit Search ]
[ MD5 Decrypter ]
[ Reverse IP ]
[ Kill Shell ]
[ FTP Brute-Force ]
|
|
/
usr/
src/
linux-headers-3.0.0-14/
scripts/
- drwxr-xr-x
|
Viewing file: headers_install.pl (1.99 KB) -rw-r--r--Select action/file-type:  ( +) |  ( +) |  ( +) | Code ( +) | Session ( +) |  ( +) | SDB ( +) |  ( +) |  ( +) |  ( +) |  ( +) |  ( +) |
#!/usr/bin/perl -w # # headers_install prepare the listed header files for use in # user space and copy the files to their destination. # # Usage: headers_install.pl readdir installdir arch [files...] # readdir: dir to open files # installdir: dir to install the files # arch: current architecture # arch is used to force a reinstallation when the arch # changes because kbuild then detect a command line change. # files: list of files to check # # Step in preparation for users space: # 1) Drop all use of compiler.h definitions # 2) Drop include of compiler.h # 3) Drop all sections defined out by __KERNEL__ (using unifdef)
use strict;
my ($readdir, $installdir, $arch, $printdir, @files) = @ARGV;
$printdir =~ s@^include/@@;
my $unifdef = "scripts/unifdef -U__KERNEL__ -D__EXPORTED_HEADERS__";
foreach my $file (@files) { my $tmpfile = "$installdir/$file.tmp";
open(my $in, '<', "$readdir/$file") or die "$readdir/$file: $!\n"; open(my $out, '>', $tmpfile) or die "$tmpfile: $!\n"; while (my $line = <$in>) { # Any #include which uses "" and does not have a path needs # rewriting so that the resultant user space headers are # safe against the use of -I-. $line =~ s/^(\s*#\s*include\s+)"([^\/]*?)"/$1<$printdir\/$2>/; $line =~ s/([\s(])__user\s/$1/g; $line =~ s/([\s(])__force\s/$1/g; $line =~ s/([\s(])__iomem\s/$1/g; $line =~ s/\s__attribute_const__\s/ /g; $line =~ s/\s__attribute_const__$//g; $line =~ s/^#include <linux\/compiler.h>//; $line =~ s/(^|\s)(inline)\b/$1__$2__/g; $line =~ s/(^|\s)(asm)\b(\s|[(]|$)/$1__$2__$3/g; $line =~ s/(^|\s|[(])(volatile)\b(\s|[(]|$)/$1__$2__$3/g; printf {$out} "%s", $line; } close $out; close $in;
system $unifdef . " $tmpfile > $installdir/$file"; # unifdef will exit 0 on success, and will exit 1 when the # file was processed successfully but no changes were made, # so abort only when it's higher than that. my $e = $? >> 8; if ($e > 1) { die "$tmpfile: $!\n"; } unlink $tmpfile; } exit 0;
|