File susevbox-cfgfix.diff of Package susevbox

diff -ur susevbox-1.1.old/SuSEVboxConf susevbox-1.1/SuSEVboxConf
--- susevbox-1.1.old/SuSEVboxConf	2003-09-16 16:20:38.000000000 +0200
+++ susevbox-1.1/SuSEVboxConf	2003-09-16 16:19:55.000000000 +0200
@@ -3,6 +3,7 @@
 # SuSEVboxConf 1.1
 # Autor  : Michael Burghart <mb@suse.de>
 # (c)    : 1998 Michael Burghart 
+# (c)    : 2003 Karsten Keil <kkeil@suse.de>
 #
 # provides an easy means of setting up some vbox basics..
 #########################################################################
@@ -27,11 +28,12 @@
 #----------------------- some useful defaults --------------------------#
 #-----------------------------------------------------------------------#
 $defaultfont = "8x13bold";
-$version = "SuSEVboxConf 1.1";
+$version = "SuSEVboxConf 1.2";
 $anzahl_newframes = $anzahl_frames = ""; 
 $helppath = "/usr/lib/susevbox/vboxconf.hlp";
 $confpath = "";
 $messagepath = "/usr/lib/susevbox/messages";
+$standardtcl = "/usr/share/doc/packages/i4l-vbox/examples/standard.tcl.example";
 $homepath = "/home";
 $group = "users";
 $create_vboxd_conf = "0";
@@ -854,6 +856,14 @@
 	($n,$p,$uid,$gid,$q,$k,$g,$d,$s) = getpwnam("$usr_var[$item]");
 	if (-e "$spooldir/$usr_var[$item]") {
 		chown($uid,$gid,"$spooldir/$usr_var[$item]");
+		if (-e "$spooldir/$usr_var[$item]/standard.tcl") {
+		    chown($uid,$gid,"$spooldir/$usr_var[$item]/standard.tcl");
+		    chmod(0700,"$spooldir/$usr_var[$item]/standard.tcl");
+		}
+		if (-e "$spooldir/$usr_var[$item]/vbox.conf") {
+		    chown($uid,$gid,"$spooldir/$usr_var[$item]/vbox.conf");
+		    chmod(0600,"$spooldir/$usr_var[$item]/vbox.conf");
+		}
 		chown($uid,$gid,"$spooldir/$usr_var[$item]/messages");
 		chown($uid,$gid,"$spooldir/$usr_var[$item]/incoming");
 		chown($uid,$gid,"$homepath/$usr_var[$item]/.susevboxrc");
@@ -877,6 +887,13 @@
 	    unless (-e "$spooldir/$usr_var[$item]") {
 		mkdir("$spooldir/$usr_var[$item]",0777);
 	    }
+	    # copy a standard.tcl if none exist
+	    if (-e "$spooldir/$usr_var[$item]/standard.tcl") {
+	    } else {
+		if (-e $standardtcl) {
+		    copy("$standardtcl", "$spooldir/$usr_var[$item]/standard.tcl");
+		}
+	    }
 	    unless (-e "$spooldir/$usr_var[$item]/messages") {
 		mkdir("$spooldir/$usr_var[$item]/messages",0777);
 	    }
@@ -1057,7 +1074,7 @@
     my $file = shift;
     if ($create_vboxgetty_conf eq "1") {
 	if ($disable_hints == 0) {
-	    &errwin("File \"$confpath/vboxgetty.conf\" already exists.\nDo you want me to overwrite this file?","question","YesNo","Adapt /etc/inittab?");
+	    &errwin("File \"$confpath/vboxgetty.conf\" already exists.\nDo you want me to overwrite this file?","question","YesNo","Replace File?");
 	    if ($result_button eq "No") {
 		return;
 	    }
@@ -1081,13 +1098,15 @@
 freespace               2000000
 debuglevel              FEWIDJ
 End_of_Script_Header
-    for ($item = 1; $item <= $anzahl_frames; $item++) {
-	print TEST "#Settings for port $dev_var[$item]\n";
-	print TEST "   modeminit $modem_init$msn_var[$item]\n";
-	print TEST "   user      $usr_var[$item]\n";
-	print TEST "   group     $group\n";
-	print TEST "   spooldir   $spooldir/$usr_var[$item]\n\n";
-    }
+	for ($item = 1; $item <= $anzahl_frames; $item++) {
+	    print TEST "\n";
+	    print TEST "#Settings for port $dev_var[$item]\n";
+	    print TEST "    port /dev/$dev_var[$item]\n";
+	    print TEST "        modeminit $modem_init$msn_var[$item]\n";
+	    print TEST "        user      $usr_var[$item]\n";
+	    print TEST "        group     $group\n";
+	    print TEST "        spooldir  $spooldir/$usr_var[$item]\n\n";
+	}
 	close(TEST);
     }
 }
@@ -1272,7 +1291,7 @@
 	    for ($item = 1; $item <= $anzahl_frames; $item++) {
 		$blubb = $dev_var[$item];
 		($dummy,$tty) = split("I",$blubb);
-		print INITTAB "I$tty:23:respawn:/usr/sbin/vboxgetty -d /dev/$dev_var[$item]\n";
+		print INITTAB "I$tty:35:respawn:/usr/sbin/vboxgetty -d /dev/$dev_var[$item]\n";
 	    }
 	    print INITTAB "# end of /etc/inittab\n";
 	}