OXIESEC PANEL
- Current Dir:
/
/
usr
/
lib64
/
perl5
/
vendor_perl
Server IP: 2a02:4780:11:1084:0:327f:3464:10
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
02/16/2024 08:50:01 PM
rwxr-xr-x
📁
Bundle
-
03/16/2023 01:28:50 PM
rwxr-xr-x
📁
Crypt
-
03/16/2023 12:45:05 PM
rwxr-xr-x
📄
Cwd.pm
21.29 KB
02/19/2018 08:37:24 AM
rw-r--r--
📁
DBD
-
03/16/2023 01:28:50 PM
rwxr-xr-x
📁
DBI
-
03/16/2023 01:28:50 PM
rwxr-xr-x
📄
DBI.pm
308.81 KB
03/19/2018 05:07:02 PM
rw-r--r--
📁
Data
-
03/16/2023 02:19:35 PM
rwxr-xr-x
📁
Digest
-
12/05/2024 01:58:46 PM
rwxr-xr-x
📁
Encode
-
03/16/2023 11:26:03 AM
rwxr-xr-x
📄
Encode.pm
34.56 KB
02/21/2018 12:14:35 PM
rw-r--r--
📁
File
-
03/16/2023 11:26:03 AM
rwxr-xr-x
📁
List
-
03/16/2023 11:26:03 AM
rwxr-xr-x
📁
MIME
-
03/16/2023 11:26:03 AM
rwxr-xr-x
📁
Net
-
03/16/2023 11:26:02 AM
rwxr-xr-x
📁
Scalar
-
03/16/2023 11:26:03 AM
rwxr-xr-x
📄
Socket.pm
36.19 KB
01/12/2018 04:58:27 PM
rw-r--r--
📄
Socket6.pm
9.55 KB
07/11/2016 05:44:01 AM
rw-r--r--
📁
Storable
-
03/16/2023 11:26:03 AM
rwxr-xr-x
📄
Storable.pm
48.09 KB
10/13/2019 12:32:43 PM
rw-r--r--
📁
Sub
-
03/16/2023 11:26:03 AM
rwxr-xr-x
📁
Term
-
03/16/2023 11:26:03 AM
rwxr-xr-x
📁
Time
-
03/16/2023 12:45:09 PM
rwxr-xr-x
📁
Unicode
-
03/16/2023 11:26:03 AM
rwxr-xr-x
📁
auto
-
05/18/2023 09:35:08 PM
rwxr-xr-x
📄
dbixs_rev.pl
1.51 KB
04/25/2022 04:09:56 PM
rw-r--r--
📁
threads
-
03/16/2023 11:26:03 AM
rwxr-xr-x
📄
threads.pm
36.05 KB
01/23/2018 01:10:14 AM
rw-r--r--
Editing: dbixs_rev.pl
Close
#!/usr/bin/perl -w use strict; my $dbixs_rev_file = "dbixs_rev.h"; my $is_make_dist; my $svnversion; if (is_dbi_svn_dir(".")) { $svnversion = `svnversion -n`; } elsif (is_dbi_svn_dir("..")) { # presumably we're in a subdirectory because the user is doing a 'make dist' $svnversion = `svnversion -n ..`; $is_make_dist = 1; } else { # presumably we're being run by an end-user because their file timestamps # got messed up print "Skipping regeneration of $dbixs_rev_file\n"; utime(time(), time(), $dbixs_rev_file); # update modification time exit 0; } my @warn; die "Neither current directory nor parent directory are an svn working copy\n" unless $svnversion and $svnversion =~ m/^\d+/; push @warn, "Mixed revision working copy ($svnversion:$1)" if $svnversion =~ s/:(\d+)//; push @warn, "Code modified since last checkin" if $svnversion =~ s/[MS]+$//; warn "$dbixs_rev_file warning: $_\n" for @warn; die "$0 failed\n" if $is_make_dist && @warn; write_header($dbixs_rev_file, DBIXS_REVISION => $svnversion, \@warn); sub write_header { my ($file, $macro, $version, $comments_ref) = @_; open my $fh, ">$file" or die "Can't open $file: $!\n"; unshift @$comments_ref, scalar localtime(time); print $fh "/* $_ */\n" for @$comments_ref; print $fh "#define $macro $version\n"; close $fh or die "Error closing $file: $!\n"; print "Wrote $macro $version to $file\n"; } sub is_dbi_svn_dir { my ($dir) = @_; return (-d "$dir/.svn" && -f "$dir/MANIFEST.SKIP"); }