replacing line in Firefox prefs.js

[masonje]

IBM's Access Connections client does not update the proxy information properly in FireFox. I want to write a script that will enter my companies proxy info. Found the setting in one line of the Fire Fox prefs.js and the below script can find the line that the setting is on, but I don't know how to replace the settings in the line.

Tks for the help,

Masonje

#include <file.au3>
Dim $aRecords
Dim $file = @UserProfileDir & "\Application Data\Mozilla\Firefox\Profiles\jwniuhfm.default\prefs.js"
Dim $proxyFind = 'user_pref("network.proxy.autoconfig_url", "'
Dim $proxyFindLen = StringLen($proxyFind)
Dim $proxy = "http://server.domain.com/proxy.pac"

Dim $proxyWrite = $proxyFind & $proxy & '");'

if FileExists($file) Then
    If Not _FileReadToArray($file ,$aRecords) Then
       MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
       Exit
    EndIf
    For $x = 1 to $aRecords[0]
        if StringLeft($aRecords[$x], $proxyFindLen) = $proxyFind Then
            ;udate file here w/ $proxyWrite
            MsgBox(0, "Found it", 'Record:' & $x & @cr & $aRecords[$x])
            
            ExitLoop
        EndIf
    Next
Else
    MsgBox(48, "Error", "Could not find:" & @CR & $file)
EndIf

Exit

[The Kandie Man]

Here try this, but make sure you backup prefs.js. You must also fill out whatever you want the line to be equal to, i didn't do that because i don't know what the final configured line with the correct proxy server settings looks like.

#include <file.au3>
Dim $aRecords
Dim $file = @UserProfileDir & "\Application Data\Mozilla\Firefox\Profiles\jwniuhfm.default\prefs.js"
Dim $proxyFind = 'user_pref("network.proxy.autoconfig_url", "'
Dim $proxyFindLen = StringLen($proxyFind)
Dim $proxy = "http://server.domain.com/proxy.pac"

Dim $proxyWrite = $proxyFind & $proxy & '");'

;BACKUP prefs.js BEFORE RUNNING THIS AS IT WILL BE DELETED!!!!!!11111111111111111111111111111111

if FileExists($file) Then
    If Not _FileReadToArray($file ,$aRecords) Then
       MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
       Exit
    EndIf
    For $x = 1 to $aRecords[0]
        if StringLeft($aRecords[$x], $proxyFindLen) = $proxyFind Then
            ;udate file here w/ $proxyWrite
            MsgBox(0, "Found it", 'Record:' & $x & @cr & $aRecords[$x])
            $aRecords[$x] = ;Set whatever you want the line equal to here
            FileDelete($file) ;BACKUP prefs.js, IT IS DELETED HERE
            _FileWriteFromArray ( $file, $aRecords , 1 ); New prefs.js is written here, should have the new correct value for the proxy.
            ExitLoop
        EndIf
    Next
Else
    MsgBox(48, "Error", "Could not find:" & @CR & $file)
EndIf

Exit

-The Kandie Man

[masonje]

Here try this, but make sure you backup prefs.js. You must also fill out whatever you want the line to be equal to, i didn't do that because i don't know what the final configured line with the correct proxy server settings looks like.

#include <file.au3>
Dim $aRecords
Dim $file = @UserProfileDir & "\Application Data\Mozilla\Firefox\Profiles\jwniuhfm.default\prefs.js"
Dim $proxyFind = 'user_pref("network.proxy.autoconfig_url", "'
Dim $proxyFindLen = StringLen($proxyFind)
Dim $proxy = "http://server.domain.com/proxy.pac"

Dim $proxyWrite = $proxyFind & $proxy & '");'

;BACKUP prefs.js BEFORE RUNNING THIS AS IT WILL BE DELETED!!!!!!11111111111111111111111111111111

if FileExists($file) Then
    If Not _FileReadToArray($file ,$aRecords) Then
       MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
       Exit
    EndIf
    For $x = 1 to $aRecords[0]
        if StringLeft($aRecords[$x], $proxyFindLen) = $proxyFind Then
            ;udate file here w/ $proxyWrite
            MsgBox(0, "Found it", 'Record:' & $x & @cr & $aRecords[$x])
            $aRecords[$x] = ;Set whatever you want the line equal to here
            FileDelete($file) ;BACKUP prefs.js, IT IS DELETED HERE
            _FileWriteFromArray ( $file, $aRecords , 1 ); New prefs.js is written here, should have the new correct value for the proxy.
            ExitLoop
        EndIf
    Next
Else
    MsgBox(48, "Error", "Could not find:" & @CR & $file)
EndIf

Exit

Thanks!

Edited January 3, 2007 by masonje