tazpanel rev 271

Added ability to set default mirror
author Christian Mesh meshca@clarkson.edu
date Fri Mar 09 02:35:06 2012 +0000 (2012-03-09)
parents ed7b79682eff
children 64b3c8572756
files pkgs.cgi
line diff
     1.1 --- a/pkgs.cgi	Fri Mar 09 01:26:17 2012 +0000
     1.2 +++ b/pkgs.cgi	Fri Mar 09 02:35:06 2012 +0000
     1.3 @@ -70,8 +70,15 @@
     1.4  	while read line
     1.5  	do
     1.6  		cat << EOT
     1.7 -<li><a href="$SCRIPT_NAME?admin=rm-mirror=$line&amp;file=$(httpd -e $1)"><img
     1.8 -	src="$IMAGES/clear.png" /></a><a href="$line">$line</a></li>
     1.9 +<li>
    1.10 +	<a href="$SCRIPT_NAME?admin=rm-mirror=$line&amp;file=$(httpd -e $1)">
    1.11 +		<img src="$IMAGES/clear.png" />
    1.12 +	</a>
    1.13 +	<a href="$SCRIPT_NAME?admin=select-mirror&amp;mirror=$line">
    1.14 +		<img src="$IMAGES/start.png" />
    1.15 +	</a>
    1.16 +	<a href="$line">$line</a>
    1.17 +</li>
    1.18  EOT
    1.19  	done < $1
    1.20  }
    1.21 @@ -625,6 +632,11 @@
    1.22  			rm-mirror=http://*|rm-mirror=ftp://*)
    1.23  				mirror=${cmd#rm-mirror=}
    1.24  				sed -i -e "s@$mirror@@" -e '/^$/d' $(GET file) ;;
    1.25 +			select-mirror*)
    1.26 +				release=`cat /etc/slitaz-release`
    1.27 +				mirror="$(GET mirror)packages/$release/"
    1.28 +				tazpkg setup-mirror $mirror | log
    1.29 +				;;
    1.30  			add-repo)
    1.31  				# Decode url
    1.32  				mirror=$(GET mirror)
    1.33 @@ -709,7 +721,8 @@
    1.34  		</p>
    1.35  	</form>
    1.36  </div>
    1.37 -
    1.38 +<h3>`gettext "Default mirror"`</h3>
    1.39 +	`cat /var/lib/tazpkg/mirror`
    1.40  <h3>`gettext "Current mirror list"`</h3>
    1.41  EOT
    1.42  		for i in $LOCALSTATE/mirrors $LOCALSTATE/undigest/*/mirrors; do