Home modules.gotpike.org
Username: Password: [Create Account]
[Forgot Password?]

Modules

ADT
Database
GTK2
GUI
IP
PiJAX
Public
Sql
Stdio
Subversion
System
Tools
Xosd
lua
v4l2
wx

Recent Changes

Public.Parser.XML2 1.50
Public.ZeroMQ 1.1
Public.Template.Mustache 1.0
Public.Protocols.XMPP 1.4
Sql.Provider.jdbc 1.0

Popular Downloads

Public.Parser.JSON2 1.0
Public.Parser.JSON 0.2
GTK2 2.23
Public.Web.FCGI 1.8
Public.Parser.XML2 1.48


Module Information
Public.Tools.ConfigFiles
Viewing contents of Public_Tools_ConfigFiles-1.2/upload_module_version.pike

// the original source of this file is the Tools.Monger source 
// distribution.

int main(int argc, array(string) argv)
{
  object m = Tools.Monger.MongerDeveloper();

  if(argc!=4) 
  {  
    werror("Usage: %s MODULE VERSION LICENSE\n", argv[0]);
    exit(1);
  }

  string module = argv[1];
  string version = argv[2];
  string license = argv[3];

  string changes = get_changes();

  object in = Stdio.FILE("stdin");

  Stdio.stdout.write("Have you updated the changelog and module version? ");
  string ans = in->gets();

  if(lower_case(ans[0..0]) != "y") exit(1);

  Stdio.stdout.write("Username: ");
  string user = in->gets();
  Stdio.stdout.write("Password: ");
  
  in->tcsetattr((["ECHO": 0]));
  string password = in->gets();
  in->tcsetattr((["ECHO": 1]));
  Stdio.stdout.write("\n");

  write("module: " + module + ", version " + version + "\n");
  write("license: " + license + "\n");
  write("changes: " + changes);

  m->set_auth(user, password);
  m->add_new_version(module, version, changes, license);
  m->set_dependency(module, version, "Pike", "7.8.0", "7.8.999", 1);
  m->set_module_source(module, version, replace(module, ".", "_") + "-" + version + ".tar.gz");

  return 0;
}

string get_changes()
{
  string changes = "";

  string changefile=Stdio.read_file("CHANGES");
  int started=0;

  foreach(changefile/"\n", string line)
  {
    if(!started && (Regexp("^Changes since ")->match(line)
             || Regexp("^Version [0-9]")->match(line)))
    {
      started = 1;
      continue;
    }
    else if(started && (Regexp("^Changes since ")->match(line)
             || Regexp("^Version [0-9]")->match(line)))
    {
      return changes;
    }

    else if(started) changes = changes + line + "\n";
    
  }

  return changes;
}


gotpike.org | Copyright © 2004 - 2019 | Pike is a trademark of Department of Computer and Information Science, Linköping University