3c27b2e802
Linuxsms is a Perl script to send short messages (SMS) to GSM phones. Provided in pkgsrc-wip by Juan RP as version 0.63.
15 lines
663 B
Text
15 lines
663 B
Text
$NetBSD: patch-aa,v 1.1.1.1 2003/06/01 15:59:18 jmmv Exp $
|
|
|
|
--- linuxsms.orig 2003-06-01 17:57:09.000000000 +0200
|
|
+++ linuxsms
|
|
@@ -129,7 +129,9 @@ sub set_ansi() {
|
|
sub main_test() {
|
|
# test if exist home of script, else try to create
|
|
if (! opendir(DIR, $HOME)) {
|
|
- mkdir ($HOME, 0700) or die $c_red.$c_bold.$c_blink."error\!, can\'t create ".$HOME.$c_default."\n";
|
|
+ $main::tmphome=$HOME;
|
|
+ $main::tmphome =~ s|/$||g;
|
|
+ mkdir ($main::tmphome, 0700) or die $c_red.$c_bold.$c_blink."error\!, can\'t create ".$HOME.$c_default."\n";
|
|
print $c_yellow.$c_bold."Creating ".$HOME.$c_default."\n";
|
|
}
|
|
closedir (DIR);
|