#!/usr/bin/perl

# Copyright: MandrakeSoft, licensed under the GPL v2.
# modified by Laurent Montel <lmontel@mandrakesoft.com>

use strict;
use MDK::Common;

foreach my $file (@ARGV) {
    substInFile {
        if (/SystemPath=(.*)$/) {
            my $result = $1;
			s!$!:/usr/X11R6/bin/! if $result !~ m!/usr/X11R6/bin/!;
        }
        if (/UserPath=(.*)$/) {
            my $result = $1;
			s!$!:/usr/X11R6/bin/! if $result !~ m!/usr/X11R6/bin/!;
        }
        if (/Setup=(.*)$/) {
            my $result = $1;
            s|$result|/etc/X11/xdm/Xsetup_0| if $result !~ m!/etc/X11/xdm/Xsetup_0!;
        }
        if (/Startup=(.*)$/) {
            my $result = $1;
            s|$result|/etc/X11/xdm/GiveConsole| if $result !~ m!/etc/X11/xdm/GiveConsole!;
        }
        if (/Reset=(.*)$/) {
            my $result = $1;
            s|$result|/etc/X11/xdm/TakeConsole| if $result !~ m!/etc/X11/xdm/TakeConsole!;
        }		
    } $file;
}