Ticket #14482: upgrade_sources_conf_default.tcl

#!/usr/bin/tclsh
#
# Upgrade sources.conf for a given prefix (passed as the first and only
# argument).
#
# For an rsync: repository, if it is the standard MacPorts one and not
# already tagged, then make it default, if another wasn't already default.
# For a file:// respository, if it is an svn checkout from the MacPorts
# server, then make it default if another hasn't already been tagged.
#

if {[llength $::argv] == 0} {
   puts "Usage: ${::argv0} <prefix>"
   exit 1
}

set prefix [lindex $::argv 0]
set sourcesConf ${prefix}/etc/macports/sources.conf

set mktempChannel [open "|/usr/bin/mktemp -t macports_sources_upgrade" r]
set tempfile [read -nonewline $mktempChannel]
close $mktempChannel

set sourcesConfChannel [open $sourcesConf r]
set tempfileChannel [open $tempfile w]
set defaultSeen false

while {[gets $sourcesConfChannel line] >= 0} {
   if {!$defaultSeen && ![regexp {^\s*#|^$} $line]} {
      if {[string first {[default]} $line] >= 0} {
         set defaultSeen true
      } elseif {[regexp {^\s*rsync://rsync\.macports\.org/release/ports/} $line]} {
         set line "$line \[default\]"
         set defaultSeen true
      } elseif {[regexp {^\s*file://(/[^ #]+)} $line -> filepath]} {
         if {[file exists [file join ${filepath} .svn]]} {
            set svnChannel [open "|svn info ${filepath}" r]
            set svnURL {}
            while {[gets $svnChannel svnLine] >= 0} {
               regexp {^URL: (.*)} $svnLine -> svnURL
            }
            close $svnChannel
            if {[regexp {^https?://svn\.macports\.org/repository/macports/trunk/dports} $svnURL]} {
               set line "${line} \[default\]"
               set defaultSeen true
            }
         }
      }
   }
   puts $tempfileChannel $line
}
close $tempfileChannel
close $sourcesConfChannel

file rename ${sourcesConf} "${sourcesConf}.mpsaved"
file rename ${tempfile} ${sourcesConf}