21 lines
687 B
Perl
Executable File
21 lines
687 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
#----------------------------------------------------------------------
|
|
# Author Stephen Noble <stephen@dungog.net>
|
|
# create backup scripts for dungog-USERbackup
|
|
#----------------------------------------------------------------------
|
|
|
|
my $userName = $ARGV [0];
|
|
my $message = $ARGV [1];
|
|
chomp $message ;
|
|
|
|
# supression de certain caratere indesirable.... liste certainement non exhautisve.
|
|
$message =~ s/'&|`"\/$^~//g;
|
|
|
|
#recreate current disk free
|
|
|
|
#system("/bin/echo '$message' | /usr/bin/smbclient -M $userName -U admin >> /var/log/send-massage") ;
|
|
system("/bin/echo '$message' | /usr/bin/smbclient -M $userName -U admin >> /dev/null") ;
|
|
|
|
exit (0);
|