diff options
Diffstat (limited to 'sbin')
-rw-r--r-- | sbin/convertsession | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/sbin/convertsession b/sbin/convertsession new file mode 100644 index 0000000..794ef07 --- /dev/null +++ b/sbin/convertsession @@ -0,0 +1,31 @@ +#!/usr/bin/perl +# -*- Mode: cperl -*- +# Copyright (C) 2000 by Chmouel Boudjnah <chmouel@mandrakesoft.com> +# Redistribution of this file is permitted under the terms of the GNU +# Public License (GPL) +## description: Convert a file /etc/X11/window-managers to a +## /etc/X11/wmsession.d/ style files. + +my $dir = '/etc/X11/wmsession.d/'; + +if ($ARGV[0] =~ /-f/ ) { + $file = $ARGV[1]; +} else { + $file = '/etc/X11/window-managers'; +} + +my $cnt = 0; + +open F, $file or die "Can't open $file\n"; +while (<F>) { + $/ = "--@@--"; + s|--@@--||g; + if ($cnt != 0) { + $content = "$_"; + $n = $1 if /^NAME=(.*)/m; + open C, ">$dir/$cnt$n" or die "Can't open $dir/$cnt$n\n"; + print C $content; + close C; + } + $cnt++; +} |