$wrx=$path_to_library;$wrx=~s/library//;
$list=fetch("http://editwrx.com/updates/get_list.cgi?$param1");
@list=split(/=/,$list);
$tb=$ini."/toolbar.txt";
open(FX,"$tb");
@FX=<FX>;
close(TB);
$FX=eval($FX[0]);
foreach $i (@list){
	$url="http://editwrx.com/master/".$i;
	$content=fetch($url);
	$file=$wrx.$i;
	open(FILE,">$file");
	binmode FILE if $^O eq 'MSWin32';
	print FILE qq~$content~;
	close(FILE);
	if(-d $file){chmod(0755,"$file")}else{chmod(0644,"$file")}
}	
open(FX,"$tb");
while(<FX>){
	if(/^\$fixed=/){$_=qq~\$fixed=$FX;\n~}
	$SAVE_TB.=$_;
}
open(FX,">$tb");
print FX "$SAVE_TB";
close(FX);
open(RT,"$routines");
while(<RT>){
	if(/brand/){$_=qq~\$brand="$brand";\n~}
	$SAVE_RT.=$_;
}
open(RT,">$routines");
print RT "$SAVE_RT";
close(RT);

print "Content-type: text/html\n\n";
print qq~<script language=javascript>dialogArguments.update_complete()</script>~;
1;