| Current Path : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/Server/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/Server/Remote.pm |
package Server::Remote;
use strict;
sub new {
my $class = shift;
my $self = {};
$self->{'SYSTEM'} = shift;
bless($self,$class);
return($self);
}
#***********************************************************************
# Remote-Kommandozeilenaufruf
sub call {
my $self = shift;
my $dir = shift;
my $par = join(" ",@_);
print "CALL: cd $dir -- $par\n";
if ($self->{'SYSTEM'} eq "linux") {
return(`cd $dir;$par`);
}
if ($self->{'SYSTEM'} eq "windows") {
return(`cd $dir\&\&$par`);
}
}
#**********************************************************************
sub copyfile {
my $self = shift;
my $dir = shift;
my $name = shift;
my $text = shift;
print "COPYFILE: cd $dir -- FILE: $name\n";
my $tmpname = "__tmpfile__" . sprintf("%06u",2+rand(999985)) . ".tmp";
open(FFILE,">".$tmpname);
print FFILE $text;
close(FFILE);
if ($self->{'SYSTEM'} eq "linux") {
return(`mv $tmpname $dir/$name`);
}
if ($self->{'SYSTEM'} eq "windows") {
return(`copy $tmpname $dir\\$name\&\&del $tmpname`);
}
}
#**********************************************************************
1;